PowerBuilder中的增删改查

程序员，今天我们来用PowerBuilder来做个增删改查的Demo(示例):

数据库我用的是sqlserver,先来新建一张表Employees，表中有以下字段：

CREATE TABLE Employees ( EmployeeID INT PRIMARY KEY, FirstName NVARCHAR(50), LastName NVARCHAR(50), Email NVARCHAR(100) );

然后在pb中新建application：

1. 设置数据库连接

SQLCA.DBMS = "MSS Microsoft SQL Server" SQLCA.Database = "Test" SQLCA.LogPass = 123456 SQLCA.ServerName = "zaincomputer" SQLCA.LogId = "sa" SQLCA.AutoCommit = False SQLCA.DBParm = "" connect using sqlca; if sqlca.sqlcode<>0 then messagebox(提示,数据库连接失败+sqlca.serverName) halt close else messagebox(提示,数据库连接成功) end if open(w_employee)

2. 创建 DataWindow 对象

接下来，创建一个 DataWindow 对象，用于显示和操作 Employees 表的数据。

SELECT EmployeeID, FirstName, LastName, Email FROM Employees

保存 DataWindow 对象，命名为 d_employee

3. 创建窗口和界面布局

创建一个新的窗口来容纳 DataWindow 对象和按钮，用于增删改查操作。

在 PowerBuilder IDE 中，选择 New -> Window，创建一个新的窗口，命名为w_employee。

在窗口上放置一个 Create DataWindow control 控件，并设置其 DataObject 属性为 d_employee。然后在该界面上放置4个按钮：查询，新增，删除，保存。

4. 编写完整示例代码

a.在窗口打开事件open()中写这一行代码

dw_1.SetTransObject(SQLCA)

b.查询 按钮点击事件

dw_1.Retrieve()

c. 新增 按钮点击事件

dw_1.InsertRow(0)

d. 删除 按钮点击事件

dw_1.DeleteRow(dw_1.GetRow())

e.保存 按钮点击事件

IF dw_1.Update() = 1 THEN COMMIT; MessageBox("成功", "保存成功") ELSE ROLLBACK; MessageBox("失败", "保存失败") END IF

注意:修改的话，可以直接在窗口上操作，然后点击保存即可。

5. 运行程序

编译并运行 PowerBuilder 应用程序。我们就可以在窗口界面执行增删改查操作。