今天分享一个增删改查小程序
如图
这里我就直接提供代码,实现此功能的步骤之前都有讲解。
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就行了