DELPHI下調(diào)節(jié)器用EXCEL為其編輯和打印

2019-11-18 18:55:32

字體：大中小

供稿：網(wǎng)友

我們在常用的數(shù)據(jù)庫應(yīng)用程序中，編寫報(bào)表程序比較麻煩，而且delphi中的報(bào)表程序由使用者修改也不方便，象一般的數(shù)據(jù)要加上一個(gè)表頭，其中的一些數(shù)據(jù)要修改或要把幾個(gè)表的數(shù)據(jù)組合成一個(gè)數(shù)據(jù)集后再打印，這些操作對于delphi中的報(bào)表程序來說無能為力，而在大多數(shù)的電腦上都裝有office套件，我們能不能利用Excel的表格處理能力和固有的多種打印輸出功能呢？答案是肯定的。我們利用EXCEL能處理DBASE文件的功能，只要我們的數(shù)據(jù)庫文件和DBASE兼容就可以了。
　　在delphi中的database desktop系統(tǒng)中，新建一個(gè)Table表的dbase IV(只能用dabse文件，因?yàn)镋XCEL不認(rèn)其它方式的文件)文件sample.dbf,可建立索引文件，在這里應(yīng)注意的是在database desktop中只能輸入英文字段，其實(shí)我們只用databse desktop建立文件結(jié)構(gòu)，然后可以到vfp中修改成中文即可，對數(shù)據(jù)的初始化和字段的增減可在vfp中完成，大家可能要問為什么不在vfp中直接建立數(shù)據(jù)表文件，因?yàn)镋XCEL根本不認(rèn)vfp中的數(shù)據(jù)表，它讀出的數(shù)據(jù)是雜亂的。
　　建立好數(shù)據(jù)表sample.dbf后，在delphi中建立一個(gè)工程，然后選擇file－>new中的data module模塊，建立的data module好處是在各個(gè)表單可能通用，在datamodule1的components中添加數(shù)據(jù)源和數(shù)據(jù)表，設(shè)置相關(guān)項(xiàng)，數(shù)據(jù)表的databasename應(yīng)設(shè)為c: emp(你的dbf文件的目錄)，把tablename設(shè)為你所設(shè)計(jì)的數(shù)據(jù)表(sample.dbf)，在form1上新建一個(gè)button按鈕，caption為編輯打印，在它的onclick中加入如下代碼：
　　data.table1.close;//關(guān)閉當(dāng)前數(shù)據(jù)表，如果不關(guān)閉可能造成數(shù)據(jù)不全
　　if fileexists(extractfiledir(application.exename)＋‘samplep.dbf') then DeleteFile(extractfiledir(application.exename)＋‘samplep.dbf');
　　//判斷打印數(shù)據(jù)表samplep.dbf是否存在，如果存在就刪除它
　　copyfile(pchar(extractfiledir(application.exename)＋‘sample.dbf'),pchar(extractfiledir(application.exename)＋‘samplep.dbf'),true);
　　//把sample.dbf拷貝成打印數(shù)據(jù)表samplep.dbf，samplep.dbf是編輯打印專用的，如果用sample.dbf則EXCEL會(huì)提示sample.dbf是只讀文件，修改會(huì)死機(jī)
　　data.table1.open;//打開當(dāng)前數(shù)據(jù)表，使其處于活動(dòng)狀態(tài)
　　shellexecute(0,‘open',‘EXCEL.EXE',pchar(extractfiledir(application.exename)＋‘samplep.dbf'),pchar(extractfiledir(application.exename)),SW－SHOWMAXIMIZED);//調(diào)用excel并讀取samplep.dbf文件到excel中，在頭文件中要引用ShellAPI.
　　這樣就可利用EXCEL的表格功能和多打印功能，不必再去設(shè)計(jì)繁鎖的報(bào)表程序了；我在為我單位編寫的發(fā)票統(tǒng)計(jì)系統(tǒng)使用了這種方式，使用者感覺到很方便

上一篇：Delphi實(shí)用編程經(jīng)驗(yàn)二

下一篇：在Delphi中使用IP控件

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注