日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

DELPHI下調節器用EXCEL為其編輯與打印

DELPHI下調節器用EXCEL為其編輯與打印

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

我們在常用的數據庫應用程序中,編寫報表程序比較麻煩,而且delphi中的報表程序由使用者修改也不方便,象一般的數據要加上一個表頭,其中的一些數據要修改或要把幾個表的數據組合成一個數據集后再打印,這些操作對于delphi中的報表程序來說無能為力,而在大多數的電腦上都裝有office套件,我們能不能利用EXCEL的表格處理能力和固有的多種打印輸出功能呢?答案是肯定的。我們利用EXCEL能處理DBASE文件的功能,只要我們的數據庫文件和DBASE兼容就可以了。

  在delphi中的database desktop系統中,新建一個Table表的dbase IV(只能用dabse文件,因為EXCEL不認其它方式的文件)文件sample.dbf,可建立索引文件,在這里應注意的是在database desktop中只能輸入英文字段,其實我們只用databse desktop建立文件結構,然后可以到vfp中修改成中文即可,對數據的初始化和字段的增減可在vfp中完成,大家可能要問為什么不在vfp中直接建立數據表文件,因為EXCEL根本不認vfp中的數據表,它讀出的數據是雜亂的。

  建立好數據表sample.dbf后,在delphi中建立一個工程,然后選擇file->new中的data module模塊,建立的data module好處是在各個表單可能通用,在datamodule1的components中添加數據源和數據表,設置相關項,數據表的databasename應設為c:\temp(你的dbf文件的目錄),把tablename設為你所設計的數據表(sample.dbf),在form1上新建一個button按鈕,caption為編輯打印,在它的onclick中加入如下代碼:

  data.table1.close;//關閉當前數據表,如果不關閉可能造成數據不全

  if fileexists(extractfiledir(application.exename)+‘\samplep.dbf') then DeleteFile(extractfiledir(application.exename)+‘\samplep.dbf');

  //判斷打印數據表samplep.dbf是否存在,如果存在就刪除它

  copyfile(pchar(extractfiledir(application.exename)+‘\sample.dbf'),pchar(extractfiledir(application.exename)+‘\samplep.dbf'),true);

  //把sample.dbf拷貝成打印數據表samplep.dbf,samplep.dbf是編輯打印專用的,如果用sample.dbf則EXCEL會提示sample.dbf是只讀文件,修改會死機

  data.table1.open;//打開當前數據表,使其處于活動狀態

  shellexecute(0,‘open',‘EXCEL.EXE',pchar(extractfiledir(application.exename)+‘\samplep.dbf'),pchar(extractfiledir(application.exename)),SW-SHOWMAXIMIZED);//調用excel并讀取samplep.dbf文件到excel中,在頭文件中要引用ShellAPI.

  這樣就可利用EXCEL的表格功能和多打印功能,不必再去設計繁鎖的報表程序了;我在為我單位編寫的發票統計系統使用了這種方式,使用者感覺到很方便。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 日夜夜操| 国产亚洲一区二区在线观看 | 国产欧美一区二区三区视频在线观看 | 国产免费小视频在线观看 | 99精品视频在线观看免费播放 | 美美女高清毛片视频黄的一免费 | 欧美精品亚洲精品 | 久久精品亚洲精品国产色婷 | 亚洲无成人网77777 | 五月婷婷激情视频 | 日本人亚洲人jizz | 久久综合九色综合97手机观看 | 久青草视频 | 高清一区二区三区 | 在线国产资源 | 久久久久久久久久久久久久久久久久 | 久久久久综合国产 | 天天澡天天摸天天添视频 | 欧美精品一区二区三区观 | 久久香蕉国产线看观看精品yw | 亚洲在线一区 | 久久一级毛片 | 91亚洲精品一区二区三区 | 青青青青草 | 国产青榴社区91精品 | 欧美成人在线免费观看 | 四虎影院精品在线观看 | 99热黄色| 国产精品久久久久激情影院 | www.伊人| 欧美日韩高清在线观看一区二区 | 欧美成人免费观看 | 亚洲精品mv在线观看 | 成人欧美一区二区三区白人 | 国产成人亚洲精品久久 | 韩国三级在线观看我不卡 | 久草在线2| 欧美性88xx| 四虎影院紧急入口 | 欧美色资源| 特级毛片www俄罗斯免 |