PowerBuilder DataWindow 入门：从取数到保存的一条完整链路

pbai

免费乐捐，感谢支持

PowerBuilder DataWindow 入门：从取数到保存的一条完整链路

阅读说明
① 适用版本：PowerBuilder 9.0 ~ 12.5（PBIDEA 兼容）；
② 支持数据库：示例基于 SQL Server（SQLCA 连接），本文 API 适用于任何 PB 支持的数据库；
③ 操作系统与环境要求：Windows 7 及以上，需能连接到目标数据库；
④ 难度系数：★★★☆☆（入门进阶，建议先看过 Day1《DataWindow 三缓冲区》再读本文效果更好）；
⑤ 其它阅读说明：示例假设窗口上已放置数据窗口控件 dw_1，且其 DataObject 已指向某个 d_ 开头的 DataWindow 对象。

DataWindow 到底是什么

DataWindow（数据窗口）是 PowerBuilder 最核心的武器：一条 SQL 查出来，界面、录入、校验、更新全包了。理解它抓住三点：

• 两个输入：数据源（SQL 语句或外部数据）+ 表现风格（Grid 表格 / Tabular 列表 / Freeform 自由格式）。
  
• 三层对象：DataWindow 对象（设计时画的，存在 d_ 开头的对象里）→ DataWindow 控件（窗口里放的 dw_1）→ 缓冲区里的行数据。
  
• 四类成员：属性（DataObject、Border…）、函数（Retrieve、Update…）、事件（itemchanged、dberror…）、子对象（列、文本、band）。
  

日常工作就是围绕"取数 → 编辑 → 保存"这条链路转，本文按这个顺序讲透。

第一步：连接数据库（SQLCA）

PB 用事务对象 SQLCA 统一管数据库连接，窗口打开时配一次即可。

2. // 窗口 open 事件：配置并连接数据库
3. SQLCA.DBMS   = "MSSQL"              // 数据库类型
4. SQLCA.ServerName = "127.0.0.1,1433" // 服务器和端口
5. SQLCA.Database   = "demo"           // 数据库名
6. SQLCA.UserID     = "sa"             // 用户名
7. SQLCA.Pass       = "123456"         // 密码
8. SQLCA.AutoCommit = false            // 手动控制事务
10. // 连接
11. long ll_code
12. ll_code = SQLCA.Connect()
13. if ll_code <> 0 then
14.     MessageBox("错误", "连接失败：" + SQLCA.SQLErrText)
15.     return
16. end if
18. MessageBox("提示", "数据库连接成功")

复制代码

第二步：取数（SetTransObject + Retrieve）

把事务对象交给 dw_1，再执行 Retrieve 拉数据。顺序不能反：先 SetTransObject 再 Retrieve。

2. // 按钮 cb_retrieve 的 clicked 事件：取数
3. long ll_rows
4. dw_1.SetTransObject(SQLCA)          // 让 dw_1 用 SQLCA 这个连接
5. ll_rows = dw_1.Retrieve()           // 执行检索，返回行数
7. if ll_rows = -1 then                // -1 表示检索出错
8.     MessageBox("错误", "检索失败：" + SQLCA.SQLErrText)
9.     return
10. elseif ll_rows = 0 then
11.     MessageBox("提示", "没有查到数据")
12. else
13.     MessageBox("提示", "共检索到 " + String(ll_rows) + " 行")
14. end if

复制代码

如果 DataWindow 对象定义了检索参数（比如按部门查），Retrieve 直接传参：

2. string ls_dept
3. ls_dept = "SALES"
4. dw_1.Retrieve(ls_dept)              // 参数顺序、类型与定义时一致

复制代码

第三步：编辑行（新增 / 删除 / 改值）

新增一行

2. // 按钮 cb_add 的 clicked 事件：末尾加一行并跳到新行
3. long ll_new
4. ll_new = dw_1.InsertRow(0)          // 0 表示插到末尾，返回新行号
5. dw_1.ScrollToRow(ll_new)            // 滚动到新行
6. dw_1.SetColumn("name")              // 光标定位到 name 列
7. dw_1.SetFocus()
9. // 给新行填默认值（可直接写入缓冲区，用户可见）
10. dw_1.SetItem(ll_new, "create_date", Today())
12. MessageBox("提示", "已新增第 " + String(ll_new) + " 行，请录入")

复制代码

删除当前行

2. // 按钮 cb_del 的 clicked 事件：删除当前行
3. long ll_cur
4. ll_cur = dw_1.GetRow()              // 当前行号
5. if ll_cur <= 0 then
6.     MessageBox("提示", "没有可删除的行")
7.     return
8. end if
10. if MessageBox("确认", "删除当前行？", Question!, YesNo!) = 1 then
11.     dw_1.DeleteRow(ll_cur)          // 注意：只是进删除缓冲区，还没真正删库
12.     MessageBox("提示", "已删除，记得点保存才会生效")
13. end if

复制代码

第四步：保存（AcceptText + Update + 事务）

保存是新手最容易出错的地方，三个动作缺一不可：

• AcceptText()：把正在编辑的单元格内容收进缓冲区——不调用的话，光标所在格的修改会丢；
  
• Update()：把缓冲区的新增/修改/删除生成 SQL 发给数据库；
  
• COMMIT / ROLLBACK：按 Update 结果提交或回滚事务。
  

2. // 按钮 cb_save 的 clicked 事件：保存全部修改
3. integer li_ret
4. li_ret = dw_1.AcceptText()          // 1=成功 0=没输入框 -1=数据非法
5. if li_ret <> 1 then
6.     MessageBox("错误", "当前单元格数据不合法，请检查后再保存")
7.     return
8. end if
10. // 更新数据库
11. integer li_upd
12. li_upd = dw_1.Update()
13. if li_upd = 1 then
14.     commit using SQLCA ;            // 提交事务
15.     MessageBox("提示", "保存成功")
16. else
17.     rollback using SQLCA ;          // 失败回滚，不留半截数据
18.     MessageBox("错误", "保存失败：" + SQLCA.SQLErrText)
19. end if

复制代码

注意：commit using SQLCA ; 末尾的分号是 PowerScript 嵌入式 SQL 的固定写法，不能省。

第五步：常用函数速查

分类	函数	作用
取数	Retrieve()	执行检索，返回行数（-1 出错）
行操作	InsertRow(n) / DeleteRow(n)	增 / 删行（n=0 表示末尾）
行操作	RowCount()	当前主缓冲区行数
行操作	GetRow() / SetRow(n) / ScrollToRow(n)	取 / 设 / 滚动到当前行
列操作	GetColumn() / SetColumn("列名")	取 / 设当前列
列操作	GetItemString(n,"列") / GetItemNumber(n,"列")	读某行某列的值
列操作	SetItem(n, "列", 值)	直接写缓冲区某个格
列操作	AcceptText()	把正在编辑的格子收进缓冲区
数据	Update()	把改动写回数据库
数据	Reset()	清空全部行
排序过滤	SetSort("列 A") + Sort()	排序
排序过滤	SetFilter("条件") + Filter()	过滤显示（不删数据）
查找	Find("条件", 1, RowCount())	按条件找行，返回行号

2. // 综合示例：读值、排序、过滤、查找
3. // 输入值
4. long ll_cnt
5. ll_cnt = dw_1.RowCount()            // 当前行数
7. // 读当前行 name 列
8. long ll_row
9. ll_row = dw_1.GetRow()
10. string ls_name
11. ls_name = dw_1.GetItemString(ll_row, "name")
13. // 按薪资降序排
14. dw_1.SetSort("salary D")            // A=升序 D=降序
15. dw_1.Sort()
17. // 只看薪资大于 5000 的行（数据还在，只是不显示）
18. dw_1.SetFilter("salary > 5000")
19. dw_1.Filter()
21. // 按条件找行：找到返回行号，找不到返回 0
22. long ll_find
23. ll_find = dw_1.Find("name = 'Tom'", 1, dw_1.RowCount())
25. MessageBox("查询示例", "共" + String(ll_cnt) + "行 / 当前行name=" + ls_name + " / 找到Tom在" + String(ll_find) + "行")

复制代码

第六步：事件入门（校验就写在事件里）

DataWindow 的事件是"活"的入口，最常用两个：

事件	触发时机	典型用途
itemchanged	用户改完一个单元格、值被接受时	校验、联动计算
itemerror	单元格输入非法（类型不符）时	提示用户改错位置
row**hanged	当前行切换时	联动明细、刷新状态栏
dberror	数据库操作出错时	统一错误处理

事件脚本的返回值很有讲究：itemchanged 返回 0 表示接受输入，返回 2 表示拒绝并让光标留在原地。

2. // 这是 dw_1 的 itemchanged 事件脚本（在数据窗口控件上双击事件写）
3. // data 是用户刚输入的新值（还没写进缓冲区）；dwo 是列对象
4. if dwo.name = "salary" then
5.     if not IsNumber(string(data)) then
6.         MessageBox("校验", "薪资必须是数字")
7.         return 2                    // 2=拒绝输入，光标留在该格
8.     end if
9. end if
10. return 0                            // 0=接受，写入缓冲区

复制代码

第七步：DataStore——没有界面的 DataWindow

DataStore 是没有可视界面的 DataWindow，用来做后台批量处理、导入导出。用法几乎一样，只是要自己 create / destroy。

2. // 按钮 cb_batch 的 clicked 事件：后台批量读取处理
3. datastore lds
4. lds = create datastore
5. lds.DataObject = "d_employee"       // 指向同一个 DataWindow 对象
6. lds.SetTransObject(SQLCA)
7. long ll_cnt
8. ll_cnt = lds.Retrieve()
10. // 逐行读出来处理（循环变量先声明）
11. integer li_i
12. string ls_name
13. for li_i = 1 to ll_cnt
14.     ls_name = lds.GetItemString(li_i, "name")
15.     // 这里做你的业务处理，比如拼字符串、写日志
16. next
18. // 整表数据导出为文本 / 从文件导入
19. string ls_all
20. ls_all = lds.Object.DataWindow.Data   // 全部数据：制表符分隔的文本
21. lds.ImportFile("C:\data\list.csv")    // 从 CSV 导入
23. destroy lds
25. MessageBox("DataStore", "后台处理 " + String(ll_cnt) + " 行，导出文本长度 " + String(Len(ls_all)))

复制代码

小结：一条链路，四个要点

DataWindow 入门就是记住"连接 → 取数 → 编辑 → 保存"这条链路，以及四个易错点：

• 先 SetTransObject 再 Retrieve，顺序反了必然报错；
  
• 保存前先 AcceptText，否则正在编辑的那个格子会丢修改；
  
• Update 成功要 COMMIT，失败要 ROLLBACK，否则数据会处于"改了又没完全改"的悬空状态；
  
• DeleteRow 只是把行放进删除缓冲区，没点保存前数据库一行都没动——这也是 DataWindow 三缓冲区的妙处（详见 Day1 文章）。
  

把这四个要点和上面的速查表记住，DataWindow 的日常开发就不会再发怵。