2020-03-25 powerbuilder通过数据窗口操作数据库（增删改查）实例（2）

在上一篇文章完成创建数据库后，本文简述通过数据窗口以及控件脚本对数据库进行简单的增删改查。

一、界面设计

界面如下：

界面.png

---

二、窗口、控件、菜单等说明

首先，新建一个workspace和APP应用，然后再new一个grid的datawindow，将所有column都显示出来。这个datawindow命名为db_main，后面会在数据窗口控件中绑定该数据窗口。如下图

new一个数据窗口.png

然后，新建一个w_main，上面挂上数据窗口控件和两个groupbox，一个groupbox中放置statictext客户编号、singleedit、查询以及显示全部两个button。另一个groupbox中放置四个button分别是添加、删除、保存、退出。最后，在数据窗口控件要绑定数据窗口db_main，如下图：

数据窗口控件绑定数据窗口.png

三、菜单事件脚本

1、APP中添加程序入口脚本：

连接数据库，然后open主窗口w_main

// Profile Db
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=db'"

connect using sqlca;
if sqlca.sqlcode<>0 then
    messagebox("错误","连接数据库错误"+sqlca.sqlerrtext)
    return
end if

open(w_main)

2、主窗口的open事件代码如下：

注意，这里的oldsql是一个全局函数，在declare instance variable中定义

oldsql="SELECT * FROM wjj_family "
ordersyn=" ORDER BY wjj_family.~"客户编号~""

dw_1.settrans(sqlca)
dw_1.retrieve( )

3、查询按钮代码如下：

string wheresql,newsql
long lrc

if sle_1.text<>"" then
    wheresql="where 客户编号='"+sle_1.text+"'"
    
    newsql=oldsql+wheresql
    
    dw_1.setsqlselect(newsql)
    lrc=dw_1.retrieve( )
    if lrc<1 then
        messagebox("提示","没有检索到，请检查客户编号")
    end if
else
    messagebox("提示","请输入客户代号")
end if

4、显示全部按钮代码如下：

dw_1.setsqlselect(oldsql+ordersyn)
dw_1.retrieve( )

5、添加按钮代码如下：

long l_row
int s
s = dw_1.rowcount( )
l_row = dw_1.insertrow( s+1)
dw_1.scrolltorow( s+1)
dw_1.setfocus( )

6、删除按钮代码如下：

int s
s = dw_1.getrow( )
dw_1.deleterow(s)

7、保存按钮代码如下：

dw_1.update( )
dw_1.retrieve( )

8、退出按钮代码如下：

close(parent)