一个典型的增删窗口

窗口的open():

dw_1.setTransobject(sqlca)

dw_1.retrieve()

添加按钮clicked():

long ll_insertrow

ll.insertrow = dw_1.insertrow(0)

dw_1.scrolltorow(ll_insertrow)

删除按钮clicked():

dw_1.deleterow(0)

保存按钮clicked():

if dw_1.update() > 0 then

    messagebox(“提示”,“保存成功！”)

    commit;

else

    messagebox(“提示”,”保存失败！”)

    rollback;

end if

刷新按钮clicked():

dw_1.retrieve()

退出按钮clicked():

close(parent)