PowerBuilder 增删改查小实例

发布时间: 更新时间: 总字数:1651 阅读时间:4m 作者: 分享 复制网址
专栏文章
  1. PowerBuilder中出现Connect failed:Integrated logins are not permitted问题解决
  2. PowerBuilder A target is required to complete this operation. 问题
  3. Powerbuilder 中出现 Specified database is invalid (指定的数据库无效)问题解决方案
  4. PowerBuilder Errorc0003:Condition for if statement must be a boolean 问题
  5. Powerbuilder10.0中多个库文件的建立(***.pbl文件的建立)
  6. Powerbuilder中窗体等控件的重命名方法
  7. PowerBuilder 增删改查小实例(当前)
  8. PB中用DataWindow.Update更新数据

本文介绍PowerBuilder如何创建工作空间,并通过详细的步骤,提供增加、删除、修改、查询的示例

创建新工作空间

  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)
  1. 为窗口对象的Open事件编写脚本。用鼠标右击窗口弹出一个菜单,选择Script菜单项,弹出脚本编辑窗口,在对象下拉列表框中选择窗口对W_study,在事件下拉列表框中选择Open事件,在脚本编辑区书写如下脚本:
dw_1.settransobject(sqlca)
  1. 为检索按钮Cb_1的clicked事件编写脚本。在步骤2弹出的脚本编辑窗口中选择对象Cb_1和事件clicked,在脚本编辑区书写如下脚本:
dw_1.retrieve()
  1. 同步骤3,为插入按钮Cb_2的clicked事件编写如下脚本:
long ll_currentrow
ll_currentrow=dw_1.getrow()
dw_1.insertrow(ll_currentrow)
  1. 同步骤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
  1. 同步骤3,为存盘按钮Cb_4的clicked事件编写如下脚本:
if dw_1.update()=1 then
    commit using sqlca;
    messagebox("提示","数据库更新成功")
else
    rollback using sqlca;
    messagebox("提示","数据库更新不成功")
end if
  1. 同步骤3,为退出按钮Cb_5的clicked事件编写如下脚本:
close(parent)

至此程序全部完成。

Home Archives Categories Tags Statistics
本文总阅读量 次 本站总访问量 次 本站总访客数