用fastreport做中国式报表

1. procedure Tformmain.chinareport;//中国式报表
2. var
3. sqlstr:string;
4. i,j:integer;
5. begin
6.   sqlstr:='select * into #mytemp from password1';
7.   cn.Execute(sqlstr);//将需打印的内容装入临时表
8.   sqlstr:='select * from #mytemp';
9.   pubcs.Recordset:=cn.Execute(sqlstr);
10.   if (pubcs.RecordCount mod 27)<>0 then
11.   //27是一页可以显示的记录数据,请先用普通报表打印后查看
12.      begin
13.        j:=27-(pubcs.RecordCount mod 27);//j为还需要补齐的记录数
14.        for i:=1 to j do  //插入不够一页的行记录
15.          begin
16.            sqlstr:='insert #mytemp (username,password,usertype,inputname) values  ('''','''',null,'''')';
17.            cn.Execute(sqlstr);
18.          end;
19.      end;
20.   try
21.      sqlstr:='select * from #mytemp order by ID';  //按ID号排序,将新增的空记录放在最后
22.      pubcs.Close;
23.      pubcs.SQL.Text:=sqlstr;
24.      pubcs.Open;
25.      frxdb1.DataSet:=pubcs;  //将补齐记录的数据装入报表数据源
26.      report1.ShowReport;
27.   finally
28.     cn.Execute('drop table #mytemp'); //打印成功与否都要将临时表删除
29.     frxdb1.DataSet:=nil;
30.   end;
31. end;

//以上是创建中国式报表的主要代码,如果您调式成功了,请UP一下;如果您还不能明白,请上我们的QQ群:18833620,我是人鱼传说,请向我要代码就行了!