以下是“命令按钮”click 中的代码:
*******************begin***********************
open database c:\qtgl\论坛\数据1
tt=thisform.text1.value
creat sql view cxb as select * from test where test.dw_id=?tt
select 0
use cxb
lSuccess=CURSORSETPROP("Tables", "test", "cxb")
lSuccess=CURSORSETPROP("KeyFieldList", "dw_id", "cxb")
lSuccess=CURSORSETPROP("UpdateType", 1, "cxb")
lSuccess=CURSORSETPROP("UpdatableFieldList", "dwmc,xm,dh,bz", "cxb")
lSuccess=CURSORSETPROP("WhereType", 1, "cxb")
lSuccess=CURSORSETPROP("Buffering", 5, "cxb")
do form c:\qtgl\论坛\表单6
********************* end *************************
表单6上只有4个“text”控件、一个“命令按钮”控件:
4个“text”控件分别绑定cxb.dwmc,cxb.xm,cxb.dh,cxb.bz;除此之外未设定任何属性(全缺省)
以下是“命令按钮”click 中的代码:
*******************begin************************
lSuccess=CURSORSETPROP("SendUpdates", .t., "cxb")
select cxb
BEGIN TRANSACTION
* Try to update all records in selected table
m.lSuccess = TableUpdate(.T.,.F.) &&successful update
IF m.lSuccess
= messagebox( "提交成功。" )
END TRANSACTION
else
= messagebox( "抱歉,未提交上。请重做一次。" )
ROLLBACK
ENDIF
release thisform
********************* end ********************************
在表单6的destory事件中的代码:
***********************begin***************
select cxb
use
delete view cxb
select test
use
**********************end ********************