数据库我用的是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 = FalseSQLCA.DBParm = ""connect using sqlca;if sqlca.sqlcode<>0 thenmessagebox('提示','数据库连接失落败'+sqlca.serverName)halt closeelsemessagebox('提示','数据库连接成功')end ifopen(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 THENCOMMIT;MessageBox("成功", "保存成功")ELSEROLLBACK;MessageBox("失落败", "保存失落败")END IF
把稳:修正的话,可以直接在窗口上操作,然后点击保存即可。
5. 运行程序
编译并运行 PowerBuilder 运用程序。我们就可以在窗口界面实行增编削查操作。