当前位置：首页 -> 技术开发 -> 程序开发 -> Visual Foxpro生成任意打印字段报表的实现

Visual Foxpro生成任意打印字段报表的实现

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

---- 生存的题目 ---- 用vfp生面包车型的士执路途序后，对于用户所需的某一数据库的大肆字段拉拢报表，就显得不是那么应用自在。由于，一上面软硬件开拓时，没辙商量到遥远用户所需报表的一切方法。另一上面，因为所安排好的报表方法文献已编写翻译成可实行文献，纵然窜改了.frx和.frt文献构造实质，也需在开拓情况下从新编写翻译，对用户来讲是不实行的。比方需一份职工名单及一个空栏位，举行出面或备案某一证件号子的题目就比拟难处置。 ---- 处置计划 ---- 应用vfp与excel 的调换数据及在vfp中所有遏制excel的操纵（即机动效劳器），就不妨很好的处置这一题目。对于怎样遏制excel，一上面不妨经过excel的扶助文献的vba语法，另一上面也有十分多的作品对于遏制excel的语法。犯得着提防的是：1、为普及功效，一切相关计划、小计、核计最佳在vfp中举行，并写在相映的记载内；2、因为是两个软硬件，即使在有洪量数据逐个插入excel单位格时，显得速率较慢，以是即使数据量较大，应径直用vfp的数据表导出为excel方法，再由vfp在后盾遏制excel翻开，并指定的excel方法文献举行窜改文书档案题目、列的称呼、网格线型，以及按照纸张巨细计划各列宽和安排字体巨细。 ---- 实行方法 ---- 运用sql构造化谈话的select天生一个数据表 ---- 在select字段时，不妨运用一个表单form1介入两个列表框，一个列表框列出一切数据表的字段，另一个为空，运用鼠标双击或干脆至空的列表框里，为选定一字段（此时第一个含有一切字段的列表框中，将不复表露被干脆走的字段，而在另一列表中表露），并天生相映的select查问步调段。 ---- 在本范例中为:form第11中学含有一个list1和edit1和两个按钮 form1.ini public a,b,c,d,f,g a="select " b="" c=" from bn into cursor myquery" d="" f=0 g=0 list1.dblclick if len(alltrim(b))=0 b=b+thisform.list1.value else b=b+","+thisform.list1.value endif d=a+b+c thisform.edit1.refresh for mm=1 to thisform.list1.listcount if thisform.list1.selected(mm) thisform.list1.removeitem(mm) endif endfor command1.click ** 实行所天生的select语句 select &b from bn into cursor myquery sele myquery command2.click** 挪用excel my=createobject("excel.application") my.visible=.t. **即使在托付用户时不妨将其树立成 .f. my.workbooks.add select myquery f=fcount() g=reccount() goto top for l=1 to g for i=1 to f fieldname=field(i) ** 对于要天生华文的诸位题目不妨用一英笔墨段称呼与华文称呼对应的参数库来处置 my.activeworkbook.sheets(1).cells(l,i).value=myquery.&fieldname endfor skip endfor ** 即使要减少一空驶列车不妨用 my.activesheet.columns(f+1).insert语法 ** 树立页眉 my.activesheet.pagesetup. centerheader (centerfooter)=” xxx” ---- 其它上面的遏制不妨按上述提到的本领参考

Visual Foxpro生成任意打印字段报表的实现

相关推荐

推荐下载

热门阅览

最新排行