PB学习第五天

今天分享一个增删改查小程序
如图

这里我就直接提供代码，实现此功能的步骤之前都有讲解。

1.首先是app里面添加连接数据库代码

2.然后主窗口添加查询数据方法

//设置数据窗口是的连接事务为sqlca
dw_grid.SetTrans( sqlca)

//为数据窗口检索数据
dw_grid.Retrieve( )

3.刷新按钮的方法

//刷新数据
dw_grid.Retrieve( )

4.增加按钮的方法

//参数0表示在最后一行插入
dw_grid.InsertRow(0)

5.删除按钮的方法

long ll_row
long ll_rtn

//获取数据窗口当前的行号
ll_row = dw_grid.GetRow( )

//点击是表示，删除当前行数据
//点击否表示，取消并退出

ll_rtn=MessageBox(‘提示’,‘确定删除’+string(ll_row)+‘行数据吗?’,Question!,YesNo!,1)

if ll_rtn=1 then

//删除当前行
dw_grid.Deleterow(ll_row)

//调用保存按钮的事件，进行保存
cb_save.Triggerevent(clicked!)
end if

6.保存按钮的方法

//update()更新方法
//返回值为1，表示更新成功
//返回值为2，表示更新失败
if dw_grid.update( ) = 1 then
Commit;
MessageBox(‘提示’,‘保存成功!’)
else
Rollback;
MessageBox(‘提示’,‘保存失败!’)
end if

完成效果如下

滚动条在DW窗口勾选VScrollBar就行了