能不能帮我写个FastReport的dll源码delphi7
数据库连接文本: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是很有明的报表控件,它是需要设计的而非代码(相当于目前的前端设计)
而设计的表样是按需要设计版面的,也就是将数据库的内容放入要求的表格中
这个部分是不要任何代码的,你的代码而足够让一个设计好的页面进行打印输出
热门标签: