用数据窗口,我刚刚也做了一个差不多的东东。
插入:dw_2.reset( )
dw_2.insertrow(0)
保存:integer Net
Net = MessageBox("提示信息!", "确定要保存所做的设置吗?", Exclamation!, OKCancel!, 2)
if Net = 1 then
if dw_2.update()=1 then
commit;
dw_1.retrieve()
dw_2.retrieve()
else
rollback;
end if
end if
删除:integer Net
Net = MessageBox("提示信息!", "确定要删除该记录?",Exclamation!, OKCancel!, 2)
if Net = 1 then
dw_1.deleterow(0)
dw_1.update()
dw_1.SetTransObject(sqlca)
dw_1.retrieve()
dw_2.settransobject(sqlca)
dw_2.retrieve()
end if