EXT1.ENABLED=.T.
THISFORM.COMMAND1.ENABLED=.T.
MESSAGEBOX("请输入客房编号!")
COM_BT="DELETE_FORM"
(4)"删除客房信息"按钮的Click事件代码
THISFORM.TEXT1.ENABLED=.T.
THISFORM.COMMAND1.ENABLED=.T.
MESSAGEBOX("请输入客房编号!")
COM_BT="MODIFY_FORM"
5.3基本信息查询表单
空房的查询可以更加快捷的帮助客户查找到想要的房间
1.建立空房查询表单(空房查询.scx),表单显示结果如下
2.
表单主要代码有
(1)"查询"按钮的Click的事件代码
IFEMPTY(ALLTRIM(THISFORM.TEXT1.VALUE))
MESSAGEBOX("请输入查询条件!")
THISFORM.TEXT1.SETFOCUS
ELSE
USE客房信息.DBF
SETFILTERTO
IFVAL(alltrim(THISFORM.TEXT1.VALUE))>0
SETFILTERTOALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VALUE)
thisform.command4.visible=.f.
ELSE
SETFILTERTOAT(alltrim(THISFORM.TEXT1.VALUE),状态)>0
thisform.command4.visible=.t.
endif
GOTOP
GOTOP
IFVAL(客房编号)>0
THISFORM.TEXT2.VALUE=客房编号
THISFORM.TEXT3.VALUE=额定人数
THISFORM.TEXT4.VALUE=楼层编号
THISFORM.TEXT5.VALUE=床数
THISFORM.TEXT6.VALUE=类型编号
THISFORM.TEXT7.VALUE=状态
ELSE
MESSAGEBOX("对不起,没有您查询的房间!")
ENDIF
ENDIF
(2)"下一个"按钮的Click事件代码
skip
thisform.activate&&执行表单的Activate事件
THISFORM.TEXT2.VALUE=客房编号
THISFORM.TEXT3.VALUE=额定人数
THISFORM.TEXT4.VALUE=楼层编号
THISFORM.TEXT5.VALUE=床数
THISFORM.TEXT6.VALUE=类型编号
THISFORM.TEXT7.VALUE=状态
5.4基本信息一览表单
这一项主要由客房类型一览和客房信息一览。客房类型一览主要是用来看酒店客房的种类、价格。而客房信息一览主要用来看每个房间的类型、人数、床数和现在的状态。
1.建立客房类型一览表单(客房类型一览.scx),表单显示结果如下
3.建立客房信息一览表单(客房信息一览.scx),表单显示结果如下
5.5离店结帐管理表单
这个表单主要用于在客户要离店结帐时使用,通过对离店客人客房编号的查询,可以查找到客户住店的时间、房间类型、房间价格,从而可以进行结帐金额的计算,还可以根据客户要求对表单进行打印。
1.建立离店结帐管理表单(离店结帐管理.scx),表单显示结果如下
表单主要代码有
(1)"查询"按钮的Click事件代码
IFEMPTY(ALLTRIM(THISFORM.TEXT1.VALUE))
MESSAGEBOX("请输入查询条件!")
THISFORM.TEXT1.SETFOCUS
ELSE
USE收银退房.DBF
SETFILTERTO
IFVAL(alltrim(THISFORM.TEXT1.VALUE))>0
SETFILTERTOALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VALUE)
endif
GOTOP
GOTOP
IFVAL(客房编号)>0
THISFORM.TEXT2.VALUE=客房编号
THISFORM.TEXT3.VALUE=客房类型
THISFORM.TEXT4.VALUE=客房价格
THISFORM.TEXT5.VALUE=抵店时间
THISFORM.TEXT6.VALUE=结帐日期
THISFORM.TEXT7.VALUE=结帐金额
ELSE
MESSAGEBOX("对不起,没有您查询的房间!")
ENDIF
ENDIF
(2)"打印"按钮的Click事件代码
messagebox('确定打印!',16,'提示信息')
REPORTFORM收银退房.frxNOEJECTNOCONSOLETOPRINTER
thisform.refresh
5.6用户管理表单
这个表单主要用来对登陆用户名的添加、查找、修改和删除用的,可以随时对用户名、密码进行修改、添加和删除。相应的添加、查找、修改、删除按钮都对应不同功能的"确定"或"查找"按钮功能。
1.建立用户管理表单(用户管理.scx),表单显示结果如下
表单主要代码有
(1)"添加"按钮的Click事件代码
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
*设置按钮状态
THISFORM.COMMAND1.ENABLED=.T.
THISFORM.COMMAND1.VISIBLE=.T.
*设置标签状态
THISFORM.LABEL2.ENABLED=.T.
THISFORM.LABEL3.ENABLED=.T.
*设置文本框状况
THISFORM.TEXT1.ENABLED=.T.
THISFORM.TEXT2.ENABLED=.T.
*设Text1为输入框
THISFORM.TEXT1.SETFOCUS
点击"添加"按钮同时会出现左上的"确定"按钮Click事件代码
USE用户名.DBF
*插入新记录
APPENDBLANK
*将用户的输入信息保存到用户信息库中
REPLACE用户名WITHALLTRIM(THISFORM.TEXT1.VALUE)
REPLACE密码WITHALLTRIM(THISFORM.TEXT2.VALUE)
USE
*将表单设置成初始状态
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT1.ENABLED=.F.
THISFORM.TEXT2.ENABLED=.F.
THISFORM.COMMAND1.VISIBLE=.F.
THISFORM.LABEL2.ENABLED=.F.
THISFORM.LABEL3.ENABLED=.F.
(2)"查找"按钮的Click事件代码
THISFORM.LABEL1.ENABLED=.T.
THISFORM.LABEL2.ENABLED=.T.
*将Text1控件设置成可用
THISFORM.TEXT1.ENABLED=.T.
THISFORM.TEXT1.SETFOCUS
*将查找按钮设置成可用和可见
THISFORM.COMMAND2.VISIBLE=.T.
THISFORM.COMMAND2.ENABLED=.T.
*将两个Text控件的值设置为空值
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
点击"查找"按钮同时会出现左图的"查找"按钮Click事件代码
USE用户名.DBF
*查找用户输入的信息
LOCATEFORALLTRIM(用户名)==ALLTRIM(THISFORM.TEXT1.VALUE)
IFFOUND()
*如果找到在表单中显示
THISFORM.TEXT1.VALUE=用户名
THISFORM.TEXT2.VALUE=密码
ELSE
*如果没有找到提示用户
MESSAGEBOX("查无此用户!")
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
ENDIF
USE
*恢复表单的初始化状态
THISFORM.TEXT1.ENABLED=.F.
THISFORM.TEXT2.ENABLED=.F.
THISFORM.LABEL2.ENABLED=.F.
THISFORM.LABEL3.ENABLED=.F.
THISFORM.COMMAND2.VISIBLE=.F.
(3)"修改"按钮的Click事件代码
USE用户名.DBF
*在用户信息库中查找用户输入的信息
TEMP1=ALLTRIM(THISFORM.TEXT1.VALUE)
TEMP2=ALLTRIM(THISFORM.TEXT2.VALUE)
LOCATEFORALLTRIM(用户名)==TEMP1.AND.ALLTRIM(密码)==TEMP2
*如果找到,保存修改的信息
IFFOUND()
REPLACE用户名WITHALLTRIM(THISFORM.TEXT1.VALUE)
REPLACE密码WITHALLTRIM(THISFORM.TEXT2.VALUE)
ENDIF
USE
*恢复表单的初始化设置
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT1.ENABLED=.F.
THISFORM.TEXT2.ENABLED=.F.
THISFORM.COMMAND3.VISIBLE=.F.
点击"修改"按钮同时会出现左图左下的"确定"按钮Click事件代码
USE用户名.DBF
*在用户信息库中查找用户输入的信息
TEMP1=ALLTRIM(THISFORM.TEXT1.VALUE)
TEMP2=ALLTRIM(THISFORM.TEXT2.VALUE)
LOCATEFORALLTRIM(用户名)==TEMP1.AND.ALLTRIM(密码)==TEMP2
*如果找到,保存修改的信息
IFFOUND()
REPLACE用户名WITHALLTRIM(THISFORM.TEXT1.VALUE)
REPLACE密码WITHALLTRIM(THISFORM.TEXT2.VALUE)
ENDIF
USE
*恢复表单的初始化设置
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT1.ENABLED=.F.
THISFORM.TEXT2.ENABLED=.F.
THISFORM.COMMAND3.VISIBLE=.F.
(4)"删除"按钮的Click事件代码
THISFORM.COMMAND4.VISIBLE=.T.
点击"删除"按钮同时会出现左图右下的"确定"按钮Click事件代码
USE用户名.DBF
LOCATEFORALLTRIM(用户名)==ALLTRIM(THISFORM.TEXT1.VALUE)
*如果
上一篇:
vf教职工信息管理毕业设计_论文(论文和程序)
下一篇:
用遗传算法解决车辆优化调度问题