用fastreport做中國式報表

2021-08-22 02:10:41 字數 1108 閱讀 8725

proceduretformmain.chinareport;//中國式報表

varsqlstr:string;

i,j:integer;

begin

sqlstr:='select*into#mytempfrompassword1';

cn.execute(sqlstr);//將需列印的內容裝入臨時表

sqlstr:='select*from#mytemp';

pubcs.recordset:=cn.execute(sqlstr);

if(pubcs.recordcountmod

27)<>0

then

//27是一頁可以顯示的記錄資料,請先用普通報表列印後檢視

begin

j:=27-(pubcs.recordcountmod

27);//j為還需要補齊的記錄數

fori:=1

tojdo

//插入不夠一頁的行記錄

begin

sqlstr:='insert#mytemp(username,password,usertype,inputname)values('

''','

''',null,'

''')';

cn.execute(sqlstr);

end;

end;

trysqlstr:='select*from#mytemporderbyid';//按id號排序,將新增的空記錄放在最後

pubcs.close;

pubcs.sql.text:=sqlstr;

pubcs.open;

frxdb1.dataset:=pubcs;//將補齊記錄的資料裝入報表資料來源

report1.showreport;

finally

cn.execute('droptable#mytemp');//列印成功與否都要將臨時表刪除

frxdb1.dataset:=nil;

end;

end;

//以上是建立中國式報表的主要**,如果您調式成功了,請up一下;如果您還不能明白,請上我們的:18833620,我是人魚傳說,請向我要**就行了!

中國式離職

好象有乙個電視劇集叫 中國式離婚 挺火的,偶不看肥皂劇,因此不知火在 it職場也是乙個離離合合的舞台,而且也頗有中國特色,因此此文就叫 中國式離職。年已過了,各地的人才市場開始變得熱火朝天,這是乙個容易蠢蠢欲動的時期,許許多多的程式設計師經過一年的努力工作與追求後,對現在所服務的企業與 boss 有...

中國式管理

泰巖網路工作室 吳旻最近一直在思考軟體管理方面的事情。這裡我所講的管理,更多的還是人和技術的管理和規劃。其實很多時間我們都知道,我們是不會做管理的 或者說,外來的管理方式很多,但我們用好的時候少之又少。這裡,我僅將我所見到的常見管理模式列出來,或許可以引起我們的反思。要知道管理必需本地化,才是真的合...

中國式離職

好象有乙個電視劇集叫 中國式離婚 挺火的,偶不看肥皂劇,因此不知火在 it職場也是乙個離離合合的舞台,而且也頗有中國特色,因此此文就叫 中國式離職。年已過了,各地的人才市場開始變得熱火朝天,這是乙個容易蠢蠢欲動的時期,許許多多的程式設計師經過一年的努力工作與追求後,對現在所服務的企業與 boss 有...