Home Archives Categories Tags

PB增删改查小实例

发布时间: 更新时间: 总字数:1647 阅读时间:4m 作者: 分享

说明

一、创建新工作空间
1. 单击工具栏中的【New 】图标,弹出New对话框。
2.选择【WorkSpace】标签页中的【WorkSpace】图标,单击【Ok】按钮弹出New
WorkSpace对话框。
3. 在文件名文本框中输入工作空间的名称Study,保存在新建目录D:Study中,单击【保存】按钮即可。
二、 创建新应用程序
应用程序也称应用,一个应用可以完成一组相关的功能,应用由一系列PowerBuilder对象组成,应用库是存
储PowerBuilder应用的文件,应用对象是用来标识应用、进入应用的入口点。
1. 单击工具栏中的【New 】图标,弹出New对话框。
2. 选择【Target】标签页中的【Application 】图标,单击【Ok】按钮,弹出Specify New
Application
and Library对话框。
3.在Application
Name文本框中输入应用的名称Study,单击Library文本框,系统将自动设置与应用同名
的库文件名和目标文件名,单击【Finish】按钮,即完成应用程序的创建。
三、创建数据窗口对象
数据窗口对象是PowerBuilder中的对象,通过它不但可以对数据库中的表进行检索、查询、插入、删除和更
新,而且还可以对数据指定显示格式、编辑风格和有效性验证。
1.单击工具栏中的【New 】图标,弹出New对话框。
2.选择【DataWindow】标签页,弹出包含11种数据显示风格的对话框。
3.选择Freeform 图标,单击【Ok】按钮,弹出Choose Data
Source for Freeform DataWindow对话框。
4.选择Quick Select数据源,单击【Next 】按钮,弹出Quick Select对话框。
5.选择Tables列表框中的Address表,在Columns列表框中显示出Address表、的所有字段,单击【Add
All 】按钮,就会选中所有字段。
6.单击【Ok】按钮,弹出Select Color and
Border Settings对话框,在Background
Color下拉列表
中选择Button Face
,在Columns分组框的Border下拉列表框中选择Lowered。
7.单击【Next 】按钮,弹出Ready to
Create
Freeform
DataWindow对话框,列出了所创建的数
据窗口的全部设置特性。
8. 单击【Finish】按钮,弹出Datawindow的Design窗口。如下页图所示。

四 编写脚本
1. 为应用对象的Open事件编写脚本。单击【Window|System
Tree】菜单项,弹出系统树窗口。双击应用
对象图标弹出脚本编辑窗口。在脚本编辑窗口中有两个下拉列表框,左边的是对象下拉列表框,右边的是事
件下拉列表框,分别选择Study应用对象和Open事件,在脚本编辑区书写如下代码:
SQLCA.DBMS = «ODBC»
SQLCA.AutoCommit = False
SQLCA.DBParm = «Connectstring=’DSN=Study’»
connect;
open(w_study)
2.
为窗口对象的Open事件编写脚本。用鼠标右击窗口弹出一个菜单,选择Script菜单项,弹出脚本编辑窗口,在对象下拉列表框中选择窗口对W_study,在事件下拉列表框中选择Open事件,在脚本编辑区书写如下脚本:
dw_1.settransobject(sqlca)
3.
为检索按钮Cb_1的clicked事件编写脚本。在步骤2弹出的脚本编辑窗口中选择对象Cb_1和事件clicked,在脚本编辑区书写如下脚本:
dw_1.retrieve()
4. 同步骤3,为插入按钮Cb_2的clicked事件编写如下脚本:
long ll_currentrow
ll_currentrow=dw_1.getrow()
dw_1.insertrow(ll_currentrow)
5. 同步骤3,为删除按钮Cb_3的clicked事件编写如下脚本:
long ll_currentrow,ll_rtn
ll_currentrow=dw_1.getrow()
ll_rtn=messagebox(» 提 示 «,» 你
将 要 删 除 纪 录 , 是 否 继续»,question!,yesno!,1)
if ll_rtn=1 then
dw_1.deleterow(ll_currentrow)
end if
6. 同步骤3,为存盘按钮Cb_4的clicked事件编写如下脚本:
if dw_1.update()=1 then
commit using
sqlca;
messagebox(«提示»,«数据库更新成功»)
else
rollback using
sqlca;
messagebox(«提示»,«数据库更新不成功»)

end if
7. 同步骤3,为退出按钮Cb_5的clicked事件编写如下脚本:
close(parent)
至此程序全部完成。

参考

最新评论
加载中...