Visual FoxPro 6.0与大型数据库的无数据源连接(14)

*增加

Varcode=THISFORM.Text1.value

Varname=THISFORM.Text1.value

=sqlsetprop(ConnHandle,'transactions',2) &&设置人工事务处理

=sqlprepare(ConnHandle,"INSERT INTO student(code,name,birthday,grade,class,tuition,maths,chinese,physics, chemistry,history,geobiology,biology,gym);

valueS('"+Varcode+"','"+Varname+"','"+Varbirthday+"',"+Vargrade+","+Varclass+",

"+Vartuition+","+Varmaths+","+Varchinese+","+Varphysics+","+Varchemistry+",

"+Varhistory+","+Vargeobiology+","+Varbiology+","+Vargym+")") =sqlexec(ConnHandle)

if messagebox("确定增加所输入数据信息吗?",4+32,"运行提示:")=6 =sqlcommit(ConnHandle)

else

=sqlrollback(ConnHandle)

THISFORM.text1.setfocus

endif