谢谢黑侠老师!
试验,通过了。非常感谢。
还有一点小问题,在查询未开始时,我想让序号......接收民警的lable和text都为隐藏状态。点查询按钮后,这些为显现状态,而combo1和text1为隐藏状态。
修改按钮的click代码:
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
d=alltrim(thisform.Text6.value)
e=alltrim(thisform.Text7.value)
f=alltrim(thisform.Text8.value)
g=alltrim(thisform.Text9.value)
h=alltrim(thisform.Text10.value)
i=alltrim(thisform.Text11.value)
j=alltrim(thisform.Text12.value)
k=alltrim(thisform.Text13.value)
l=alltrim(thisform.Text14.value)
m=alltrim(thisform.Text15.value)
n=alltrim(thisform.Text16.value)
if empty(b)
messagebox("姓名不可以修改为空值",16,"系统提示")
return
endif
msg=messagebox('确定要修改记录吗?',32+4,'系统提示')
if msg=6
go recno()
replace jg.批文文号 with a,jg.姓名 with b,jg.姓名 with c,jg.姓名 with d,jg.姓名 with e,jg.姓名 with f,jg.姓名 with g,jg.姓名 with h,jg.姓名 with i,jg.姓名 with j,jg.姓名 with k,jg.姓名 with l,jg.姓名 with m,jg.姓名 with n
messagebox("修改记录成功",16,"系统提示")
thisform.grid1.refresh
.T.
thisform.Text1.enabled=.t.
this.enabled=.f.
thisform.Text2.visible=.f.
thisform.Text3.visible=.f.
thisform.Text4.visible=.f.
thisform.Text5.visible=.f.
thisform.Text6.visible=.f.
thisform.Text7.visible=.f.
thisform.Text8.visible=.f.
thisform.Text9.visible=.f.
thisform.Text10.visible=.f.
thisform.Text11.visible=.f.
thisform.Text12.visible=.f.
thisform.Text13.visible=.f.
thisform.Text14.visible=.f.
thisform.Text15.visible=.f.
thisform.Text16.visible=.f.
thisform.Label3.visible=.f.
thisform.label4.visible=.f.
thisform.Label5.visible=.f.
thisform.Text1.value=""
thisform.Text1.setfocus
endif
很长,很麻烦的。
请帮忙简化一下,谢谢!
试验,通过了。非常感谢。
还有一点小问题,在查询未开始时,我想让序号......接收民警的lable和text都为隐藏状态。点查询按钮后,这些为显现状态,而combo1和text1为隐藏状态。
修改按钮的click代码:
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
d=alltrim(thisform.Text6.value)
e=alltrim(thisform.Text7.value)
f=alltrim(thisform.Text8.value)
g=alltrim(thisform.Text9.value)
h=alltrim(thisform.Text10.value)
i=alltrim(thisform.Text11.value)
j=alltrim(thisform.Text12.value)
k=alltrim(thisform.Text13.value)
l=alltrim(thisform.Text14.value)
m=alltrim(thisform.Text15.value)
n=alltrim(thisform.Text16.value)
if empty(b)
messagebox("姓名不可以修改为空值",16,"系统提示")
return
endif
msg=messagebox('确定要修改记录吗?',32+4,'系统提示')
if msg=6
go recno()
replace jg.批文文号 with a,jg.姓名 with b,jg.姓名 with c,jg.姓名 with d,jg.姓名 with e,jg.姓名 with f,jg.姓名 with g,jg.姓名 with h,jg.姓名 with i,jg.姓名 with j,jg.姓名 with k,jg.姓名 with l,jg.姓名 with m,jg.姓名 with n
messagebox("修改记录成功",16,"系统提示")
thisform.grid1.refresh
.T.
thisform.Text1.enabled=.t.
this.enabled=.f.
thisform.Text2.visible=.f.
thisform.Text3.visible=.f.
thisform.Text4.visible=.f.
thisform.Text5.visible=.f.
thisform.Text6.visible=.f.
thisform.Text7.visible=.f.
thisform.Text8.visible=.f.
thisform.Text9.visible=.f.
thisform.Text10.visible=.f.
thisform.Text11.visible=.f.
thisform.Text12.visible=.f.
thisform.Text13.visible=.f.
thisform.Text14.visible=.f.
thisform.Text15.visible=.f.
thisform.Text16.visible=.f.
thisform.Label3.visible=.f.
thisform.label4.visible=.f.
thisform.Label5.visible=.f.
thisform.Text1.value=""
thisform.Text1.setfocus
endif
很长,很麻烦的。
请帮忙简化一下,谢谢!