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

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

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的表格功能和多打印功能,不必再去設計繁鎖的報表程序了;我在為我單位編寫的發票統計系統使用了這種方式,使用者感覺到很方便。

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 三级视频网站在线观看 | 性久久久久久久 | 亚洲国产日韩精品 | 欧美日韩中文国产va另类 | 中文字幕一区二区三区有限公司 | 香蕉eeww99国产精选播放 | 国产精品无打码在线播放9久 | 日本免费观看视频 | 日本男女网站 | 久久久久久综合成人精品 | 久久久久久久综合狠狠综合 | 久久福利网 | 国产精品亚洲高清一区二区 | 91亚洲欧美综合高清在线 | 亚洲日韩视频免费观看 | 国产日韩欧美在线观看免费视频 | 国产在线观看黄 | 免费视频不卡一区二区三区 | 国产91小视频 | 欧美日韩在线视频 | 欧美一级片观看 | 91麻豆视频在线 | 亚洲欧美综合网站 | 国产成人毛片毛片久久网 | 青青青国产高清在线观看视频 | 六月丁香婷婷激情国产 | 最新中文字幕免费视频 | 欧美成人性色xxxx视频 | 中文字幕网在线 | 99久久99热久久精品免费看 | 日本色视| 欧美视频一区二区专区 | 欧美成人中文字幕在线视频 | 国产末成年女av片 | 日批免费观看视频 | 免费在线网站 | 中文字幕第二一区 | 精品玖玖玖视频在线观看 | 夭天曰天天躁天天摸在线观看 | 亚欧乱色束缚一区二区三区 | 欧日韩不卡在线视频 |