星驰编程网

程序员，今天我们来用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 应用程序。我们就可以在窗口界面执行增删改查操作。