基于VFP的Excel煤炭报表制作

ＩｍｐＩｅｍｅｎｔ　Ｅｘｃｅｌ　Ｒｅｐｏｒｔ　Ｆｏｒｍ　Ｂａｓｅｄ　ｏｎ　ＶＦＰ　童瑾　Ｚｈａｎｇ　Ｊｉ“　（武汉＿丁程大学计算机学院，武汉４３００７４）　（Ｓｃｈｏｏｌ　ｏｆ＇Ｃｏｍｐｕｔｅｒ　Ｓｃ　Ｊ．ｅｎｃｅ　ａｎｄ　Ｅｎｇｉｎｅｅｌ‘ｉｎｇ，Ｗｕｈａｎ　Ｉｎｓｔｉｔｕｔｅ　ｏｆ　Ｔｅｃｈｎｏｌｏｇｙ，Ｗｕｈａｎ　４３００７４）　摘要：Ｅｘｃｅｌ是目前运用鞍多的办　软件．ＶＦＰ是面向中小型企业的数据库软件．．本文介绍了利用ＶＦＰ程序实现制作Ｅｘｃｅｌ　报表的方法．着重分析了报表制怍过程的难点与关键方涪。该技术可以方便地制怍各种类型报表，增强了软件的应用效果。　关键词：煤炭管理信息系统；ＶＦＰ报表：ＥＸＣＥＬ；ＯＬＥ　中图分类号：ＴＰ３ｌ１．１　文献标识码：Ａ　文章编号：ｌ　６７ｌ一４７９２一（２【］（】６）８—０¨Ｄ４８一Ｏ２　Ａｂｓｔａｃｔ：Ｅｘｃｅ１　ｉＳ　ａ　ｐｏｐｕｌａｒ　ｏｆｆｉｃｅ　ｓｏｆｔｗａｒｅ　ａｎｄ　ＶＦＰ　ｉＳ　ａ　ｗｉｄｅＩｙ　ｕｓｅｄ　ｒｅｌａｔｉｏｎａｌ　ｄａｔａｂａｓｅ　ｉｒ１　ｍｅｄｉＵｍ　ａｎｄ　ｓｍａ１　１　ｅｎｔｅｒｐｒｉｓｅｓ　ｔｏｄａｙ．Ｔｈｉｓ　ｐａｐｅｒ　ｉｎｔｒｏｄｕｃｅｓ　ｈｏｗ　ｔｏ　ｉｍｐｌｅｍｅｎｔ　ｅｘｃｅｌ　ｒｅｐｏＩ’ｔ　ｆｏｒｍ　ｔｈｒｏｕｇｈ　ＶＦＰ，ａｎｄ　ｅｓｐｅｃｉａＩｌｙ　ｓｏｍｅ　ｄ１ｆｆｉｃｕｌｔｉｅｓ　ａｎｄ　ｋｅｙ　ｍｅｔｈｏｄＳ　ｏｆ　ｉｍｐｌｅｍｅｎｔｉｎｇ　ｔｈｅ　ｆｏｒｍ　ａｉ’ｅ　ａｎａ　ｙｚｅｄ．Ｔｈｅ　ｔｅｃｈｎｏｌｏｇｉｅｓ　ｃａｎ　ａｃｃｏｍｐｌｉｓｈ　ｃｏｎｖｅ　ｎｉ　ｅｎｔｌ　Ｙ　ｖａｉ’ｉｏｕｓ　ｔｙｐｅ　ｒｅｐｏｒｔ　ｆｏｒｍ。ａｎｄ　ｂｏｏｓｔ　ｕｐ　ｔｈｅ　ｓｏｆｔｗａｒｅ　ａｐｐｌｉｃａｔｉ　ｏｎ　ｅｆｆｅｃｔ．　Ｋｅｖｗｏｒｄ：￣ｌａｎａｇｅｍｅｎｔ　Ｉｎｆｏｒｍａｔｉｏｎ　Ｓｙｓｔｅｍ　ｏｆ＂Ｃｏａｌｊ　ＶＦＰ　Ｒｅｐｏｒｔ　Ｆｏｒｍ：Ｅｘｃｅ１　Ｏｂｊｅｃｔ　Ｉ　ｉｎｋｉｎｇ　ａｎｄ　Ｅｍｂｅｄｄｊｎｇ　Ｏ引言　的功能，更好地提高ｒ程序的应用性。程序首先生成一个　Ｅｘｃｅｌ的ｏＩ　Ｅｘ寸象－ＯｌｅＡｐｐ。以便对其进行操作。编程中主要　使用ＣｒｅａｔｅＯｂｊｅｃｔ（）函数，它可从类定义的应用程序ｌｌｌ创　建对象，并将ＯＬＥ对象引用赋给变量或数组元素。在ＶＦ１　中　为ｒ直接控￣ｌｊＥｘｃｅｌ，首先使用ＶＦＰ编制相应的软件系统，将　目前。随着办公自动化的普及，Ｅｘｃｅ１作为微软Ｏｆｆｉｃｅ　办公系列的一个优秀的电子表格处理软件，通俗简单，在兼　容性、公式运算、操作界面、图表等方而有着其独到的优势，　常应用于一般的数据和表格处理中。ＶＦＰ是一种关系数据库　管理系统，由于其强大的数据处理能力及良好的兼容性，使其　成为数据库应用程序开发人员钟爱的开发平台，其良好的对　象可视性和事件驱动等特点给系统开发带来许多方便．符合　新时代的应用设计要求。　１设计思路　基本数据存放在数据库中，随后把用ＳＱＬ命令统计生成后需　要传送的数据保留在棚应表中，然后通过ＶＦＰ＃Ｔ开Ｅｘｃｅｌ，把　表头和表中的数据传给Ｅｘｃｅ１，由办公人员在工作表中进行　后期处理。以下结合笔者利用、。ＦＰ　９．０开发的煤炭管理信　息系统分析制作Ｅｘｃｅｌ报表，～卜而程序段均已在Ｗｉ　ｎｄｏｗｓ　ＸＰ，　ＶＦＰ　９．０，Ｅｘｃｅｌ２００３环境ｉｔ　悯试通过。　２实现过程以及部分源代码　煤炭企业中　存在着日常数据量大、价格波动快、涉及　面广等特点。利用Ｅｘｃｅ１处理数据，例如数据的查询以及多晕　选择条件的汇总统计分析，同时要求每Ｈ数据形成各类报表，　ＥｘｃｅＬ实现起来略显复杂；而ＶＦ］冲制作报表，虽然有报表设　以煤炭信息管理系统中的采购入库部分来说明报表制作　的过程。该过程主要包括创建对象、让Ｅｘｃｅｌ可视、添加工　作簿、选定工作表、为单元格添加数据等步骤。　（１）创建Ｅｘｃｅｌ表格　ＳＥＬＥＣ￣’ｔｍｐｃｘ　ｌ　计器，但是复杂的表头，表格边框设计等有不尽人意的地方。　可以利用ＶＦＰ中的ＯＬＥ技术，采用编写程序的方式实现制作　Ｅｘｃｅｌ报表，实现两者的相互补充。　ｏＩ　Ｅ（ＯｂＪｅｃｔ［，ｉｎｋｉｎｇ　ａｎｄ　Ｅｍｂｅｄｄｉｎｇ）对象连接和嵌　入，是Ｗｉｎｄｏｗｓ应用程序　相互传递和共享数据的　种有效　ｏＥｘｌ＝ＣＲＥＡＴＥＯＢ．ＪＥＣＴ（”Ｅｘｃｅ１．Ａｐｐ１　ｃａｔｉＯｎ”）　＆＆仓１建ＥＸＣＥｌ　对象　ｏＥｘ１．Ｗｏｒｔｋｂｏｏｋｓ．＾ｄｄ　方法。ＶＦＩ　借助ＯＬＥ不仅可共享其他应用程序的数据，而且　还能以对象方式直接控制其他应用程序的运行，扩展　ｆＶＦｅ　＆＆添加新工作　维普资讯 http://www.cqvip.com

　ＩｏＥｘ１．ｖｉｓｉｂｌｅ＝．ｔ．　＆＆显示ＥＸＣＥＬ窗口　ｏＥｘ１．ｗｏｒｋｓｈｅｅｔｓ（”ｓｈｅｅｔｌ”）．ａｃｔｉｖａｔｅ　＆＆设置第１个工作表为激活工作表　（２）制作表头　ｏＥｘ１．ｃａｐｔｉｏｎ＝”煤炭采购入库单１”　＆＆更改ＥＸＣＥＬ标题栏　ｏＥｘ１．Ｃｅｌｌｓ（ｉ，ｉ）．Ｖａｌｕｅ＝”煤炭采购入库单”　＆＆给单元格赋值　ｏＥｘ１．Ｃｅｌｌｓ（ｉ，ｉ）．Ｆｏｎｔ．Ｎａｍｅ＝”黑体”　＆＆修改单元格字体　ｏＥｘ１．Ｃｅ１１Ｓ（１，１）．Ｆｏｎｔ．Ｓｉ　ｚｅ＝２０　＆＆修改单元格字体大小　ｏＥｘ１．Ｃｅｌｌｓ（１，１）．ＨｏｒｉｚｏｎｔａｌＡｌｉｇｎｍｅｎｔ＝８　＆＆设置表格的单元格垂直居中　ｏＥｘ１．Ｒａｎｇｅ（”ａｉ：ｇｌ”）．Ｍｅｒｇｅ　＆＆合并列　ｏＥｘ１．ａｃｔｉｖｅｓｈｅｅｔ．ｃｏｌｕｍｎｓ（ｉ）．ｃｏｌｕｍｎｗｉｄｔｈ＝１５　＆＆修改列的宽度　ｏＥｘ１．ａｃｔｉ　ｖｅｓｈｅｅｔ．ｃｏｌｕｍｎｓ（３）．ｃｏｌｕｍｎｗｉｄｔｈ＝ｌ０　ｏＥｘ１．ａｃｔｉｖｅｓｈｅｅｔ．ｃｏｌｕｍｎｓ（４）．ｃｏｌｕｍｎｗｉｄｔｈ＝ｌ５　ｏＥｘ１．Ｃｅｌｌｓ（４，ｉ）．Ｖａｌｕｅ＝’入库仓库’　＆＆单元格赋值　ｏＥｘ１．Ｃｅｌｌｓ（４，２）．Ｖａｌｕｅ＝。承运车号’　ｏＥｘ１．Ｃｅｌｌｓ（４，３）．Ｖａｌｕｅ＝。入库日期。　ｏＥｘ１．Ｃｅ１ｌｓ（４，４）．Ｖａ１ｕｅ＝。发货单位。　ｏＥｘ１．Ｃｅｌｉｓ（４，５）．Ｖａｌｕｅ＝。实发吨位。　ｏＥｘ１．Ｃｅｌｌｓ（４，６）．Ｖａｌｕｅ＝。实收吨位。　ｏＥｘ１．Ｃｅｌｌｓ（４，７）．Ｖａｌｕｅ＝。运价。　ｏＥｘ１．ＣｅｌｉＳ（４，８）．Ｖａｌｕｅ＝‘运费。　ｏＥｘ１．Ｃｅｌｌｓ（４，９）．Ｖａｌｕｅ＝‘媒价。　ｏＥｘ１．Ｃｅｌｌｓ（４，１０）．Ｖａｌｕｅ＝。媒款’　ｏＥｘ１．Ｃｅｌｌｓ（４，ｉ　ｉ）．Ｖａｌｕｅ＝‘实付金额‘　ｏＥｘ１．Ｃｅｌｌｓ（４，１２）．Ｖａｌｕｅ＝‘实际成本。　ｏＥｘ１．Ｃｅｌｌｓ（４，１３）．Ｖａｌｕｅ＝’货场付款。　（３）向Ｅｘｃｅｌ传送数据　这是最核心的内容。将事先存储在临时表的内容取出，　得到的要打印输出的数据，填人Ｅｘｃｅｌ的相应单元格中，生成　表内容。　ｎＣｏｕｎｔ＝ＡＦＩＥＬＤＳ（ａＡｒｒａｙ）　ＳＥＬＥＣＴ　ｔｍｐｃｘ１＆＆　ｎＲｏｗ＝５　＆＆第五行开始放置数据　ＳＣＡＮ　＆＆循环输出表的内容　ＦＯＲ　ｎＣｏ１ｕｍｎ＝１　ＴＯ　ｎＣｏｕｎｔ　ｃＦｉｅｌｄ＝ａ．＼ｒｒａｙ（ｎＣｏｌｕｍｎ，ｉ）　基　ｏＥｘ１．Ｃｅｌｌｓ（ｎＲｏｗ，ｎＣｏｌ　ｕｍｎ）．１ａｌｕｅ＝￣ｃＦｉｅｌｄ　于二　ｏＥｘ１．Ｃｅｌ１Ｓ（ｎＲ０１　ｎＣｏ１ｕｍｎ）．ｒｏｗｈｅ　ｇｈｔ＝Ｏ．５／０．０３５　＜　＆＆设定每行的高度　拘　ＥＸＤＦＯＲ　ｍ　ｎＲｏ￣－－ｎＲｏｗ＋ｌ　ＥＮＤＳＣＡＸ　噪　＆＆结束循环过程　贵　暇　执行完上述程序段后，能够很好地实现与Ｅｘｃｅｌ之间的　襄　交互式编程，全面使用ＯＬＥ功能驱动Ｅｘｃｅ１。用户在Ｅｘｃｅ１环　制　境下可进行表格格式更细致的修改，如打印报表的表格边框　怍　与底纹，对纸张大小、左右边距进行处理等等。　利用Ｅｘｃｅｌ的模板还可以制作一些预先设定格式的报表．　在Ｅｘｃｅ１中首先创建模板文件，例如以下模板文件ｍｔ．ｘｌｔ，　将其中报表的内容，例如表头部分预先设置好，在创建Ｅｘｃｅｌ　表格部分中添加浯句０ｂｊｉｅｃｔ．ｗｏｒｋｂｏｏｋｓ．ａｄｄ（“Ｃ：＼ｍｒ．ｘｌｔ”），　再来传送数据。这种方法要求报表的内容格式固定，对于系　统中涉及的报表样式繁多，不好统一一定制，数据格式变动大，　这有一定的缺陷，缺少一定的灵活性，在这不再赘述。　３结束语　利用面向对象的编程方法．可以很方便地将、下Ｐ表中的　数据转换成为Ｅｘｃｅ１的数据，然后再利用Ｅｘｃｅ１强大的表格　处理功能，对数据和表格的格式进行适当的处理后直接输　出，从而实现了利用Ｅｘｃｅ１的表格功能代替　Ｐ的报表功能，　这样就克服了、　ＦＰ的动态报表功能不强和Ｅｘｃｅｌ处理大量数　据能力较差的缺陷。本程序具有很强的实用性，编程时可将　其作为模版拷贝到程序中，然后修改相应的参数和汉字就可　顺利地将、’ＦＰ中的数据传送到Ｅｘｃｅ１中。　参考文献　［ｉ］张洪举．Ｖｉ　ｓｕａｌ　ＦｏｘＰｒｏ软件开发模式与应用案例　］．北京：人民邮电出版社，２００５．　［２］翁正科．、‘ｉｓｕａｌ　ＦｏｘＰｒｏ数据库开发教程【Ｍ］．北京：清　华大学出版社，２００３．　［３］高彩霞．用Ｅｘｃｅｌ制作ＶＦＰ数据库报表【Ｊ］．河西学院　学报，２００５，２．　［４］喻红兰．用＼　ＦＰ开发Ｍ１Ｓ时报表打印问题的探讨　Ｊ］．　电脑知识与技术．２００６，５．　作者简介　章瑾（１９７４一），女，武汉工程大学计算机学院，硕士，　讲师，主要研究方向：计算机应用、多媒体技术。　Ｒ