欢迎来到天天文库
浏览记录
ID:3914940
大小:437.57 KB
页数:10页
时间:2017-11-25
《wps表格初级教程4》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、WPS表格初级教程第九章delphi操作wps表格在很多人看来,wps表格2007与Excel外观相似,并且兼容性很强,这是wpsoffice2007的一大特色,其实我觉得wpsoffice2007的最大特色、最大进步是其强大的二次开发功能。它不仅有强大的二次开发功能,而且其二次开发方法与word、excel一样。以前我们常常见到一些管理类的软件中的一个功能,那就是数据导出到Excel,现在由于wpsoffice2007具有二次开发功能,我们也可以实现数据导出到wps表格了。附:在我们所设计的系列软件中,只要涉及到打印,都与wps表格有关系。在软件设
2、计之初,我们考虑用一般的报表控件的,如“水晶报表”、“ActiveReport”等,但这些控件的灵活性不太好,如页面设置,字体字号颜色设置,行高列宽设置等。当然,这些控件我们是能随心所欲的设计的,但设计好后就固定死了,用户是不能调整的,或调整的权限很少。为此我们多方研究,最终决定用wps表格来解决该软件的打印问题,用wps表格来作为我们的报表控件。用wps表格来做报表主要有以下优点:1.实现了导出到wps表格功能,在wps表格中,用户可以任意的排版打印,。2.实现了用wps表格套打。给用户一个wps表格文件,里面包括各种单据的样表,用户可以任意设置这
3、些样表,包括字体字号颜色,纸张大小,页边距,行高列宽等等,设置好后,保存。那么数据导出到wps表格时,就按用户设置好的样式导出了,然后打印即可。并且实现了在不用用户参与情况,软件自动调用用户设置的样表的样式,然后打印输出。设计过报表打印的朋友可能都知道,这个报表打印设计起来是很麻烦的,一个客户一个样,程序员的很大精力都放在打印上了,并且总也不能让用户满意。但在我们这个软件中,我们将软件的打印工作交给了wps表格与用户,与我们软件设计者没有关系了。到目前为止,没有一个客户因为打印效果不好而埋怨我们的软件,他们都会想办法自己解决。3.数据的二次计算。软件
4、设计人员设计的软件功能再丰富,总也有想不到的地方,这些问题如何解决?在这里,我们可以将数据导出到wps表格中后,进行二次计算,想怎么算就怎么算,想如何统计就如何统计,等于丰富了软件的功能。在这里非常感谢金山公司的员工,金山公司的员工给我们提供了很多技术支持,甚至帮我们写了一些源码。下面,我将我总结的delphi操作wps表格的经验整理出来,奉献给大家,希望与大家共同进步。一、启动delphi后,新建一个应用程序。将程序中的form1的标题改为delphi操作wps表格示例。如图9-1所示。图9-1二、在interface的uses中添加单元comob
5、j。如下所示。usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,comobj;三、定义wps表格变量,此处定义为全局的,以便调用。varForm1:TForm1;etapp:olevariant;myworkbook:OleVariant;//定义金山表格的工作簿对象1WPS表格初级教程implementation四、启动wps表格在form1窗口中添加一个按钮Button1,caption设置为标题。如图9-2所示。图9-2
6、然后设置该按钮的单击事件。procedureTForm1.Button1Click(Sender:TObject);beginetapp:=createoleobject('et.application');//启动wps表格end;此时,运行该程序,界面如图9-3,点击按钮,即可启动wps表格。图9-3五、关闭wps表格添加一个按钮,在它的单击事件中添加如下代码。procedureTForm1.Button2Click(Sender:TObject);beginetApp.Quit;//退出金额表格end;下面我们往窗体中添加如下按钮,并分别设置其
7、标题,如图9-4所示。2WPS表格初级教程图9-4六、wps表格窗口的隐藏procedureTForm1.Button4Click(Sender:TObject);beginetApp.Visible:=false;//窗口隐藏end;七、wps表格窗口的显示procedureTForm1.Button4Click(Sender:TObject);beginetApp.Visible:=true;//窗口显示end;八、新建工作簿procedureTForm1.Button9Click(Sender:TObject);beginmyworkbook:
8、=etapp.Workbooks.add;//添加工作簿end;九、打开指定工作簿procedureTFor
此文档下载收益归作者所有