摘要:
目前正在做一个管理信息系统,用的是Delphi平台,报表用的是FastReport,一个很奇怪的问题困惑着我 报表有时候能预览,有时候无法预览 原来的预览程序是: frxEITRep.Clear; frxEITRep.LoadFromFile('EPFRep.fr3');//加载报表 frxEITR 阅读全文
摘要:
procedure inipage(fr:frxReport;frfile:string;printini:string);varPage:TfrxReportPage;IniFile:TINIFile;CDir:String;begin//fr.LoadFromFile(ExtractFilePa 阅读全文
摘要:
有时候许多报表很可能大同小异,只是有个别地方显示的不同,如报表标题,一些控件标题等等。 这样我们只需要设计一次报表,在许多地方调用同一份报表,这时候,我们可能需要在显示一份报表前,稍微改变一下样式或内容(适用于fastreport3.0): procedure TForm2.printReportB 阅读全文
摘要:
var PageLine: integer;//现在打印到第几行 PageMaxRow: integer=15; //空行行数 procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin PageLine := <Line> mo 阅读全文
摘要:
function IsRuning(const AObjectName: string): Boolean;{AObjectName='aaa.exe'} var lppe : TProcessEntry32; sshandle: Thandle; found: boolean; begin Res 阅读全文
摘要:
人民币大写金额转换函数 function MoneyToCn(ANumberic: Real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1 阅读全文
摘要:
原本在开发一个报表插件,因为需要远程传输,因此需要序列化报表,序列化FastReport有两种方式, 1.仅序列化数据,由客户端接受到数据,并呈现报表,这种方式需要在客户端存储报表格式文件xxx.Frf, 2.序列化FastReport的结果集(即,得到数据后可以存成的frp文件),这样frf文件不 阅读全文
摘要:
随着项目的失败,这些天一直在总结失败的原因,到底是为什么? 一、技术层面 1、少用指针类型,多用类。 虽然指针类型能有效的节约内存和加快运行速度,但指针远没有类来得稳定及易用。在日常使用中,往往指针对应的是record类型,例如 1 PDataColumns = ^DataColumns; 2 Da 阅读全文
摘要:
防止同时打开多个应用程序的实例,也就是同时只有一个程序在运行,再运行同一个程序时,会自动关闭,以下代码放在项目的.dpr(项目文件)中的Application.Initialize;上面。代码如下: var hMutex: DWORD; Ret: Integer;{以上代码要放在begin..end 阅读全文
摘要:
默认DBGRID选中行的颜色为深蓝色,可以在程序中改变 在DBGRID的OnDrawColumnCell中写入 if (State=[gdSelectd..gdFocused,gdCurrent]) then begin Grid.Canvas.Font.Color :=clRed; Grid.Ca 阅读全文
摘要:
动态创建Fastreport分以下几个步骤: 1.首先清空Fastreport,定义全局变量,并加载数据集 frReport.Clear; frReport.DataSets.Add(frxDBDataset1); DataHeight :=28; DataWidth :=80; FirstTop 阅读全文