发廊小系统Word格式.docx

发廊小系统Word格式.docx

《发廊小系统Word格式.docx》由会员分享，可在线阅读，更多相关《发廊小系统Word格式.docx（15页珍藏版）》请在冰豆网上搜索。

错误"

）

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.

thisform.image1.visible=.f.

thisform.text1.enabled=.t.

thisform.text1.setfocus

退出按钮代码

thisform.release

欢迎系统form代码

doform登录表单

timer代码

ifthisform.label1.left>

=0

thisform.label1.left=thisform.label1.left-5

else

thisform.label1.left=thisform.width

endif

i=int（rand（）*225

j=int（rand（）*225

k=int（rand（）*225

thisform.label1.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!

empty（thisform.text2.value）and!

empty（thisform.text3.value）and!

empty（thisform.text4.value）

selectguest

locateforalltrim（编号）==alltrim（thisform.text1.value）

iffound（）

此编号已存在！

48,"

信息窗口"

thisform.text1.vallue="

yn=messagebox（"

确定添加么？

4+32,"

ifyn=6

appendblank

gobottom

replace编号withalltrim（thisform.text1.value）

replace姓名withalltrim（thisform.text2.value）

replace性别withalltrim（thisform.text3.value）

replace级别withalltrim（thisform.text4.value）

成功添加会员"

thisform.text1.value=0

thisform.text3.value="

thisform.text4.value="

thisform.refresh

内容不能为空！

清空按钮代码

thisform.text3.value="

thisform.text4.value="

查询按钮代码

ifempty（thisform.text1.value）

请输入姓名"

信息提示"

docase

casethisform.optiongroup1.value=1

locateforalltrim（姓名）==alltrim（thisform.text1.value）

select*fromgl!

guest

whereguest.姓名==alltrim（thisform.text1.value）intocursorjqcx

thisform.grid1.recordsource="

jqcx"

thisform.grid1.refresh

没有这个人"

casethisform.optiongroup1.value=2

locateforalltrim（thisform.text1.value）$alltrim（姓名）

iffound

guest;

wherealltrim（thisform.text1.value）$alltrim（姓名）intocursormhcx

mhcx"

endcase

empty（thisform.text4.value）and!

empty（thisform.text5.value）and!

empty（thisform.text6.value）and!

empty（thisform.text7.value）and!

empty（thisform.text8.value）and!

empty（thisform.text9.value）

selectworker

此编号员工已存在！

ifyu=9

replace编号withthisform.text1.value

replace姓名withalltrim（thisform.text2.value）

replace生日withthisform.text4.value

replace民族withalltrim（thisform.text5.value）

replace学历withalltrim（thisform.text6.value）

replace电话withthisform.text7.value

replace级别withalltrim（thisform.text8.value）

replace地址withalltrim（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="

内容不能为空"

thisform.text4.value=0

thisform.text5.value="

thisform.text6.value="

thisform.text7.value=0

thisform.text8.value="

thisform.text9.value="

首记录按钮代码

gotop

mand3.enabled=.t.

上条记录按钮代码

ifbof（）

已是第一条记录"

mand2.enabled=.f.

skip-1

mand3.enabled=.t.

下条记录按钮代码

ifeof（）

已是最后一条记录"

mand3.enabled=.f.

skip

mand2.enabled=.t.

末记录按钮代码

gobottom

mand3.enabled=.f.

mand2.enabled=.t.

修改按钮代码

ifmand1.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编号withthisform.txt编号.value

replace姓名withthisform.txt姓名.value

replace性别withthisform.txt性别.value

replace级别withthisform.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.）