能不能帮我写个FastReport的dll源码delphi7

更新时间2018-07-21 11:39:59

数据库连接文本：Provider=SQLOLEDB.1;Password=asddq;Persist Security Info=True;User ID=sa;Initial Catalog=HealthOne;Data Source=192.168.1.200

Query1.SQL.Add('select name 医疗机构名称 from SYS_Corporation'; // 数据集别名=系统信息

Query2.SQL.Add('exec x_jy_ybbg '+ 参数1); // 数据集别名=样本报告

Query3.SQL.Add('exec x_jy_ybjg '+ 参数1);  // 数据集别名=样本结果

Query4.SQL.Add('exec x_jy_ybdx '+ 参数1);  // 数据集别名=样本图形

frxReport1.LoadFromFile(Extractfilepath(paramstr(0))+''+参数2+'.fr3');

//frxReport1.ShowReport;  //打印预览

frxReport1.print;    //打印

只要两个参数用于循环调用

fastreport是很有明的报表控件，它是需要设计的而非代码（相当于目前的前端设计）

而设计的表样是按需要设计版面的，也就是将数据库的内容放入要求的表格中

这个部分是不要任何代码的，你的代码而足够让一个设计好的页面进行打印输出

相关标签:dll