56数据保存到Excel文件中

程序员晓凡2022/1/7大约 3 分钟

写在前面

这是PB案例学习笔记系列文章的第56篇，该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习，提高编程技巧，以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码，小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

需要源代码的小伙伴们可以自行下载查看，后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】

如果对小伙伴有所帮助，希望能给一个小星星⭐支持一下小凡。

一、小目标

通过本案例我们制作一个将数据窗口中的数据保存的Excel文件中。
程序运行后，在弹出的窗口中点击【保存到Excel文件中】按钮，数据将保存到“d:\data.xls”文件中。
最终效果如下：
将数据保存到excel文件中

二、创作思路

PB提供了OLEObject对象，该对象可以用作远程对象的代理，实现对远程对象的操作。
OLEObject对象是一个动态对象，当连接远程对象时，远程对象的属性、方法和事件将会添加到OLEObject对象中。

远程对象操作分为6个步骤

1、创建一个OLEObject对象
2、使用Create方法，建立OLEObject对象
3、使用ConnectToNewObject函数，建立对象连接
4、调用远程对象函数和方法，执行用户操作
5、使用DisconnectObject函数，断开对象连接
6、使用Destroy方法，销毁对象

三、创建程序基本框架

有了基本思路之后，我们就动起来开始写程序了

① 新建examplework 工作区

② 新建exampleapp应用

③ 新建w_main窗口，并将其Title设置为“将数据保存到excel文件中”

由于文章篇幅的原因，以上步骤就不再赘述，如果忘记的小伙伴可以翻一翻该系列第一篇文章复习一下

四、界面布局

① 建立Grid风格数据窗口对象。
连接数据库，以emp表为基础，建立数据窗口对象d_emp
② 建立窗口控件
在窗口中添加1个DataWindow控件，2个CommandButton控件，并将其分别命名为dw_1、cb_1和cb_2。
③ 设置控件属性

将dw_1控件的DataObject属性设置为d_emp，勾选HScrollBar和VScrollBar复选框
将cb_1控件的Text值设置为“保存到word文件中”
将将cb_2控件的Text值设置为“退出”

五、编写代码

① 在w_main窗口的Open事件中添加如下代码

dw_1.settransobject( sqlca)
dw_1.retrieve( )

② 在w_main窗口的cb_1控件的Clicked事件中添加如下代码

③ 在w_main窗口的cb_2控件的Clicked事件中添加如下代码

close(w_main)

④ 在开发界面左边的System Tree窗口中双击exampleapp应用对象，并在其Open事件中添加如下代码

SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = "tiger"
SQLCA.ServerName = "127.0.0.1:1521/orcl"
SQLCA.LogId = "scott"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='scott'"

connect;
open(w_main)

⑤ 在开发界面左边的System Tree窗口中双击exampleapp应用对象，并在其close事件中添加如下代码

disconnect;

六、运行程序

运行程序，看看是否达到预期效果