pb的增删改查

增加的代码，按钮的click：
dw_1.reset()
//清空窗口
long ll_row
ll_row = dw.insertrow(0)
//插入新的行
dw_1.setfocus()
dw_1.scrolltorow(dw_1.rowcount())
dw_1.setcolumn(1)// 将第一列设置为当前列

----------------------------------------------------------------------------
删除的代码，按钮的click：
if dw_1.getrow()<=0 then
return
end if
//判断是否选中行
if messagebox("提示",'是否删除数据？',question!,yesno!,2)=1 then
dw_1.deleterow(dw_1.getrow())
If sqlca.sqlcode<>0 Then
rollback;
messagebox('提示',"操作失败，请再试！" + sqlca.sqlerrtext)
return
else
Commit;
messagebox('提示',"删除成功")
end if
end if
//判断是否删除成

----------------------------------------------------------------------------
保存的代码，按钮的click：
if dw_2.update()=1 then
messagebox("信息","保存成功！")
commit;
else
messagebox("信息","保存失败！")
rollback;
end if
dw_1.retrieve()
----------------------------------------------------------------------------
退出/关闭事件的代码，按钮的click：
if dw_1.modifiedcount()+dw_1.deletedcount()>0 then
if messagebox("提示",'数据有更新是否关闭窗口？',question!,yesno!,2)=1
then
close(parent)
else
return
end if
else
close(parent)
end if