当前位置：首页 -> 技术开发 -> 程序开发 -> DELPHI下调节器用EXCEL为其编辑和打印

DELPHI下调节器用EXCEL为其编辑和打印

时间： 2021-07-31 作者：daque

咱们在常用的数据库运用步调中，编写报表步调比拟烦恼，并且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的表格功效和多打字与印刷功效，不用再去安排繁锁的报表步调了；我在为我单元编写的发单统计体例运用了这种办法，运用者发觉到很简单。

DELPHI下调节器用EXCEL为其编辑和打印

相关推荐

推荐下载

热门阅览

最新排行