PB增删改

新建一个数据窗口----选择需要更新的表，或者直接写sql也可以
如下图已经建立好的数据窗口，根据要求将需要更新的列、unigue key 还有需要更新的表设置好，
【将需要更新列的taborder设置大于0 这样维护的时候可以编辑（等于0是不能编辑的），
在窗口打开增加

dw_1.setTransobject(sqlca)//设置事物
dw_1.retrieve()//获取数据
增加代码（数据窗口为dw_1）
int li_row
li_row = dw_1.insertrow(0)
dw_1.SetFocus()
dw_1.ScrollToRow(li_row)
dw_1.selectrow(0,false)
dw_1.selectrow(li_row,true)
dw_1.SetColumn(1)

 

保存按钮

dw_1.accepttext()//这个是必须的 接受所有更改
if dw_1.ModifiedCount() < 1 then return//也可以加上删除的条数DeletedCount()
if dw_1.update() = -1 then
rollback;
messagebox('提示信息','保存有误！')
else
commit;
messagebox('提示信息','保存成功！')
end if

 

删除按钮

integer net, ll_row// 提示信息："要删除此记录吗?"
NET=messagebox(f_getmessage("xt000005"),f_getmessage("ctl00004"),Exclamation!,YESNO!)
IF net=1 THEN
ll_row=dw_1.getselectedrow(0)//获取选中记录 可以用getrow() 取得选中行，如果有taborder=0的可能导致取数错误
dw_1.DeleteRow (ll_row)
IF dw_1.update()= -1 THENROLLBACK;
IF dw_1.RowsMove(1, 1, delete!, dw_1, ll_row, primary!) = 1 THEN
// Set focus to the row that was "restored"
dw_1.SetFocus()
dw_1.ScrollToRow(ll_row)
END IF
ELSE
COMMIT;
END IF
ELSEdw_1.SetFocus()
END IF