小蜜蜂的天空

摘要： ******在脚本中根据字段名改变Tfrxmemoview的内容 假设有数据表“用户”，字段ID为用户标识，Name为用户名，打印时要求，如果用户名为空，则打印“无用户名”，否则打印出“用户名：实际的用户”，则可以在ID的Tfrxmemoview控件的OnAfterData事件中写如下脚本。 if ='' then Memo2.Text:='无用户名' else Memo2.Text:='用户名：... 阅读全文

摘要： ******使用脚本，脚本中使用变量 很多时候，我们希望把对报表的控制放到报表的脚本中，通常我这样做有二个原因： 1)能够根据字段内容的变化而使用不同的设置，因为如果想在程序中实现这样功能，就不得不用自定义函数，函数的实现要放到程序中，函数可能需要传递很多参数，效率低下。 2)把不同报表的控制放到脚本中，可以实现报表的模块化，程序只是简单的设置数据集的关系，并加载硬盘上的报表文件，不同报表的不同实... 阅读全文

摘要： ******共用TFrxreport及TfrxDBDataSet 一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步 1)清除报表，得到一个全新的报表内容。 Frxreport1.clear。 2)设置要使用的TfrxDBDataSet的别名，如果不需要可以省略这一... 阅读全文

摘要： ******在Delphi程序中访问报表对象 最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade'; 还可以用TfrxReportPage的FindBa... 阅读全文

摘要： create table #temp(tem_archno varchar(50),tem_pages int,tem_org int,tem_copy1 int) declare @temp_archno varchar(50) declare @temp_pages int declare @temp_org int declare @temp_iscopy bit declare @... 阅读全文

摘要： frxReport1.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'ArchCatalog.fr3'); frxReport1.Variables['ArchInfo']:= '''' + '档案号：' + ArchNo + ''''; frxReport1.PrepareReport; frxReport1.ShowPreparedReport; 阅读全文

摘要： select a.imageno, b.imagetypename from imageproperty_t a left join imagetype_t b on a.imagetype=b.imagetype where a.archno=(select archno from archflow_t where archbcid='' ) 'exec GetImage '' ' + A... 阅读全文

摘要： uses Jpeg procedure BitmapToJpeg(Bitmap: TBitmap; Jpg: TJPEGImage; Compress: Integer); begin Jpg.Assign(Bitmap); if Compress>0 then begin Jpg.CompressionQuality:= Compress; Jpg.Compr... 阅读全文

摘要： 游标就 是相当于一个可以一条接一条读记录的指针. 如有一个表 num score 1 80 2 70 在嵌入式的SQL中,就可以定义一个游标指向这个表如下 declare cur cursor for select * from tab; //定义游标 open cur; ... 阅读全文

摘要： create table #temp(ttype varchar(50),tno int) declare @temp_type1 varchar(50) declare @temp_type2 varchar(50) declare @temp_no int declare mycursor cursor for select imagetype,ima... 阅读全文