摘要：
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 阅读全文