,运行后呈现如下图所示:
按书上步骤做出如下图所示的表单:
其中, (1)TXT牌号的VALID事件代码如下:
*若在该文本框中输入新牌号,QC表中就会自动增加该牌号
sele qc
locate for 牌号=xld.牌号
if not found()
insert into qc(牌号) values(xld.牌号)
Endif
(2)TXT牌号的VALID事件代码如下:
*若在该文本框中输入新车主名,CZ表中就会自动增加该车主名
sele cz
locate for 车主名=xld.车主名
if not found()
insert into cz(车主名) values(qc.车主名)
endif
(3)COMMANDGROUP1的CLICK事件代码如下:
select xld
do case
case this.value=1
if recn()
skip
endif
case this.value=2
if recn()>1
skip -1
endif
case this.value=3
go top
case this.value=4
go bott
case this.value=5
do form srxldh
case this.value=6
zy=messagebox('是要增页吗?',1+48+256,'确认增加修理单')
if zy=1
go bott
insert into xld(编号) values(str(val(编号)+1,4))
endif
case this.value=7
sy=messagebox('是要删页吗?',1+48+256,'确认删除修理单')
if sy=1
delete
pack
endif
case this.value=8
select qc
browse title'汽车修改'+space(20)+'单击行首可打删除标记,退出就删去'
pack
case this.value=9
select cz
browse title'车主修改'+space(20)+'单击行首可打删除标记,退出就删去' pack case this.value=10 thisform.release endcase thisform.refresh (4)寻页按钮的GOTFOCUS事件代码如下:
sele xld
jlh=recn()
loca for 编号=trim(xldh)
if not found()
wait window"无此编号!"
go jlh
endif
thisform.refresh
预览如下
按书上步骤做出如下图所示的表单:
其中, (1)TEXT1的LOSTFOCUS事件代码编写如下:
xldh=thisform.text1.value
(2)COMMAND1命令按钮的CLICK的事件代码编写如下:
thisform.release
按书上步骤做出如下图所示的表单:
其中, (1)FORM1的REFRESH事件代码编写如下:
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text5.value=0
thisform.text6.value=0
thisform.text7