1、错误) thisform.text1.value= thisform.text2.value= thisform.text2.enabled=.f. thisform.text1.enabled=.t. thisform.text1.setfocus您输入有误,禁止进入系统! endif取消按钮代码mand1.enabled=.t.thisform.text1.value=thisform.text2.value=thisform.label2.visible=.f.thisform.text2.visible=.f.mand1.enabled=.f.mand2.enabled=.f.this
2、form.image1.visible=.f.thisform.text1.enabled=.t.thisform.text1.setfocus退出按钮代码thisform.release欢迎系统 form 代码do form 登录表单timer 代码if thisform.label1.left=0 thisform.label1.left=thisform.label1.left-5else thisform.label1.left=thisform.widthendifi=int(rand()*225j=int(rand()*225k=int(rand()*225thisform.lab
3、el1.forecolor=rgb(i,j,k)计算工资 代码aa=val(thisform.text1.value)bb=val(thisform.text2.value)cc=val(thisform.text3.value)thisform.text4.value=allt(str(aa+bb-cc)thisform.refresh退出 按钮代码利润计算 按钮代码dd=val(thisform.text4.value)thisform.text5.value=allt(str(aa-bb-cc-dd)添加 按钮代码if !empty(thisform.text1.value) and !
4、empty(thisform.text2.value) and !empty(thisform.text3.value) and !empty(thisform.text4.value)select guestlocate for alltrim(编号)=alltrim(thisform.text1.value) if found()此编号已存在!,48,信息窗口 thisform.text1.vallue= yn=messagebox(确定添加么?,4+32, if yn=6 append blank go bottom replace 编号 with alltrim(thisform.te
5、xt1.value) replace 姓名 with alltrim(thisform.text2.value) replace 性别 with alltrim(thisform.text3.value) replace 级别 with alltrim(thisform.text4.value)成功添加会员 thisform.text1.value=0 thisform.text3.value= thisform.text4.value= thisform.refresh内容不能为空! 清空 按钮代码thisform.text3.value=thisform.text4.value=查询 按钮
6、代码if empty(thisform.text1.value)请输入姓名信息提示 do case case thisform.optiongroup1.value=1 locate for alltrim(姓名)=alltrim(thisform.text1.value) select * from gl!guest where guest.姓名=alltrim(thisform.text1.value) into cursor jqcx thisform.grid1.recordsource=jqcx thisform.grid1.refresh没有这个人 case thisform.op
7、tiongroup1.value=2 locate for alltrim(thisform.text1.value)$alltrim(姓名) if foundguest; where alltrim(thisform.text1.value)$alltrim(姓名) into cursor mhcxmhcx endcaseempty(thisform.text4.value) and !empty(thisform.text5.value) and !empty(thisform.text6.value) and !empty(thisform.text7.value) and !empty
8、(thisform.text8.value) and !empty(thisform.text9.value)select worker此编号员工已存在! if yu=9 replace 编号 with thisform.text1.valuereplace 姓名 with alltrim(thisform.text2.value) replace 生日 with thisform.text4.value replace 民族 with alltrim(thisform.text5.value) replace 学历 with alltrim(thisform.text6.value) rep
9、lace 电话 with thisform.text7.value replace 级别 with alltrim(thisform.text8.value) replace 地址 with alltrim(thisform.text9.value)成功添加员工记录 thisform.text1.value=0 thisform.text4.value=0 thisform.text5.value= thisform.text6.value= thisform.text7.value=0 thisform.text8.value= thisform.text9.value=内容不能为空this
10、form.text4.value=0thisform.text5.value=thisform.text6.value=thisform.text7.value=0thisform.text8.value=thisform.text9.value=首记录 按钮代码go topmand3.enabled=.t.上条记录 按钮代码if bof()已是第一条记录 mand2.enabled=.f. skip-1 mand3.enabled=.t.下条记录 按钮代码if eof()已是最后一条记录 mand3.enabled=.f. skip mand2.enabled=.t.末记录 按钮代码go b
11、ottommand3.enabled=.f.mand2.enabled=.t.修改 按钮代码if mand1.caption=修改 mand1.caption=保存 thisform.txt编号.enabled=.t. thisform.txt姓名.enabled=.t. thisform.txt性别.enabled=.t. thisform.txt级别.enabled=.t. mand1.enabled=.f. mand4.enabled=.f.确定保存么? =tablerevert(.t.) replace 编号 with thisform.txt编号.value replace 姓名 with thisform.txt姓名.value replace 性别 with thisform.txt性别.value replace 级别 with thisform.txt级别.value thisform.txt编号.enabled=.f. thisform.txt姓名.enabled=.f. thisform.txt性别.enabled=.f. thisform.txt级别.enabled=.f. mand1.enabled=.t. mand4.enabled=.t. =tablerevert(.f.)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1