控件:command1 过程:click
____________________________________________________
close tables
select 1
use ry
cbh = thisform.pageframe1.page1.text1.value
cbh2 = thisform.pageframe1.page1.text6.value
if len(alltrim(cbh)) < 6 or len(alltrim(cbh2))< 6 or alltrim(cbh) != alltrim(cbh2)
messagebox("编号有误或两次输入不一致!请核对!")
return
else
cbh1 = thisform.pageframe1.page1.text1.value
if len(allt(cbh1)) != 6
messagebox("编号长度不够!")
return
endif
go top
locate for alltri(bh) = alltri(cbh1)
if found()
messagebox("数据库中已存在此编号!")
this.value=" "
return
else
go bottom
endif
endif
cbh = thisform.pageframe1.page1.text1.value
cxm = thisform.pageframe1.page1.text2.value
cxh = thisform.pageframe1.page1.text3.value
cxb = thisform.pageframe1.page1.optiongroup1.value
ccsny = thisform.pageframe1.page1.text5.value
czzmm = thisform.pageframe1.page1.combo3.value
cbj = thisform.pageframe1.page1.text4.value
czy = thisform.pageframe1.page1.label18.caption
cfdy = thisform.pageframe1.page1.label19.caption
ctjr = thisform.pageframe1.page1.label24.caption
cssh = thisform.pageframe1.page1.text7.value
csst = thisform.pageframe1.page1.text8.value
cmpn = thisform.pageframe1.page1.text9.value
cxlt = thisform.pageframe1.page1.text10.value
cmail = thisform.pageframe1.page1.text11.value
cq = thisform.pageframe1.page1.text12.value
cbm = thisform.pageframe1.page1.combo1.value
czw = thisform.pageframe1.page1.combo2.value
cah = thisform.pageframe1.page2.edit1.value
ctc = thisform.pageframe1.page2.edit2.value
cqt = thisform.pageframe1.page2.edit3.value
insert into ry values(cbh,cxm,cxh,cxb,ccsny,czzmm,cbj,czy,cfdy,ctjr,cbm,czw,cah,ctc,cqt).............(错误1)
insert into lxb values(cbh,cxm,cbm,czw,cssh,csst,cmpn,cxlt,cmail,cq)......................(错误2)
thisform.release
do form xxlr.scx...........................(错误3)
___________________________________________________________________________
错误提示:
1.必须指定额外参数!
2.必须指定额外参数!
3.文件正在被使用!
麻烦大家看看,谢谢!