|
第五章 主要表单及其事件代码的实施 5.1系统登陆表单 http://www.paper51.com
登录表单执行，当用户输入正确的登录信息时，单击“确定”按钮的时候或者单击“取消”按钮时，登录表单和主界面表单都会被释放，同时执行主菜单。 http://www.paper51.com 1.建立下图所示登录表单（登陆.scx）。 paper51.com
paper51.com 5.2基本信息管理表单 内容来自论文无忧网 www.paper51.com 这个表单由入住管理表单和入住后台管理表单组成，用来添加、修改和删除客房信息。点入住后台管理表单中的‘添加客房信息’‘修改客房信息’‘删除客房信息’都可以转到入住管理表单上对客房信息进行添加、修改和删除。 copyright paper51.com 1. 建立入住管理表单（入住管理.scx）,表单显示结果如下 内容来自论文无忧网 www.paper51.com
http://www.paper51.com 表单代码主要有 内容来自www.paper51.com
（1）“添加”按钮的Click事件代码 内容来自论文无忧网 www.paper51.com APPENDBLANK http://www.paper51.com SELECT入住管理 http://www.paper51.com GOBOTTOM copyright paper51.com REPLACE入住单号 WITHTHISFORM.TEXT1.VALUE http://www.paper51.com REPLACE抵店时间 WITH THISFORM.TEXT2.VALUE 内容来自论文无忧网 www.paper51.com REPLACE客房编号 WITHTHISFORM.TEXT3.VALUE http://www.paper51.com REPLACE入住人数 WITHTHISFORM.TEXT4.VALUE http://www.paper51.com
REPLACE客房类型 WITHTHISFORM.TEXT5.VALUE 内容来自论文无忧网 www.paper51.com （2）“修改”按钮的Click事件代码 内容来自论文无忧网 www.paper51.com
THISFORM.TEXT1.ENABLED=.T. 内容来自论文无忧网 www.paper51.com THISFORM.TEXT2.ENABLED=.T. http://www.paper51.com THISFORM.TEXT3.ENABLED=.T. http://www.paper51.com
THISFORM.TEXT4.ENABLED=.T. 内容来自论文无忧网 www.paper51.com THISFORM.TEXT5.ENABLED=.T. 内容来自论文无忧网 www.paper51.com （3）“删除”按钮的Click事件代码 paper51.com DELETE http://www.paper51.com PACK 内容来自论文无忧网 www.paper51.com （4）“确定”按钮的Click事件代码 内容来自www.paper51.com REPLACE入住单号 WITH THISFORM.TEXT1.VALUE http://www.paper51.com REPLACE抵店时间 WITH THISFORM.TEXT2.VALUE copyright paper51.com REPLACE客房编号 WITHTHISFORM.TEXT3.VALUE copyright paper51.com REPLACE入住人数 WITHTHISFORM.TEXT4.VALUE copyright paper51.com REPLACE客房类型 WITHTHISFORM.TEXT5.VALU copyright paper51.com 2. 建立入住后台管理表单（入住后台管理.scx）,表单显示结果如下 paper51.com
内容来自论文无忧网 www.paper51.com 表单代码主要有 copyright paper51.com （1）“确定”按钮的Click事件代码 paper51.com THISFORM.TEXT1.ENABLED=.F. 内容来自论文无忧网 www.paper51.com
THISFORM.COMMAND1.ENABLED=.F. http://www.paper51.com XH=ALLTRIM(THISFORM.TEXT1.VALUE) 内容来自www.paper51.com DOFORM 入住管理 paper51.com （2）“添加客房信息”按钮的Click事件代码 内容来自www.paper51.com
THISFORM.TEXT1.VALUE="" copyright paper51.com COM_BT="APPEND_FORM" copyright paper51.com
DOFORM 入住管理 内容来自论文无忧网 www.paper51.com （3）“修改客房信息”按钮的Click事件代码 copyright paper51.com THISFORM.TEXT1.ENABLED=.T. 内容来自论文无忧网 www.paper51.com THISFORM.COMMAND1.ENABLED=.T. paper51.com MESSAGEBOX("请输入客房编号！") 内容来自www.paper51.com COM_BT="DELETE_FORM" copyright paper51.com （4）“删除客房信息”按钮的Click事件代码 paper51.com THISFORM.TEXT1.ENABLED=.T. paper51.com THISFORM.COMMAND1.ENABLED=.T. copyright paper51.com MESSAGEBOX("请输入客房编号！") paper51.com COM_BT="MODIFY_FORM" 内容来自论文无忧网 www.paper51.com 5.3基本信息查询表单 copyright paper51.com 空房的查询可以更加快捷的帮助客户查找到想要的房间 copyright paper51.com
1. 建立空房查询表单（空房查询.scx）,表单显示结果如下 内容来自论文无忧网 www.paper51.com 2. paper51.com
paper51.com 表单主要代码有 内容来自www.paper51.com
（1）“查询”按钮的Click的事件代码 paper51.com IFEMPTY(ALLTRIM(THISFORM.TEXT1.VALUE)) paper51.com MESSAGEBOX("请输入查询条件！") http://www.paper51.com THISFORM.TEXT1.SETFOCUS paper51.com ELSE http://www.paper51.com USE客房信息.DBF paper51.com
SET FILTER TO 内容来自论文无忧网 www.paper51.com IF VAL(alltrim(THISFORM.TEXT1.VALUE))>0 内容来自论文无忧网 www.paper51.com
SET FILTER TO ALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VALUE) 内容来自www.paper51.com thisform.command4.visible=.f. paper51.com ELSE 内容来自论文无忧网 www.paper51.com SET FILTER TO AT(alltrim(THISFORM.TEXT1.VALUE),状态)>0 内容来自论文无忧网 www.paper51.com
thisform.command4.visible=.t. paper51.com
endif paper51.com
GO TOP 内容来自www.paper51.com GO TOP http://www.paper51.com IF VAL(客房编号)>0 copyright paper51.com THISFORM.TEXT2.VALUE=客房编号 内容来自论文无忧网 www.paper51.com THISFORM.TEXT3.VALUE=额定人数 内容来自www.paper51.com THISFORM.TEXT4.VALUE=楼层编号 copyright paper51.com THISFORM.TEXT5.VALUE=床数 paper51.com THISFORM.TEXT6.VALUE=类型编号 内容来自论文无忧网 www.paper51.com
THISFORM.TEXT7.VALUE=状态 内容来自www.paper51.com ELSE http://www.paper51.com
MESSAGEBOX("对不起，没有您查询的房间！") 内容来自www.paper51.com ENDIF copyright paper51.com ENDIF paper51.com （2）“下一个”按钮的Click事件代码 copyright paper51.com
skip http://www.paper51.com thisform.activate &&执行表单的Activate事件 内容来自论文无忧网 www.paper51.com THISFORM.TEXT2.VALUE=客房编号 内容来自www.paper51.com THISFORM.TEXT3.VALUE=额定人数 内容来自www.paper51.com THISFORM.TEXT4.VALUE=楼层编号 copyright paper51.com THISFORM.TEXT5.VALUE=床数 内容来自论文无忧网 www.paper51.com THISFORM.TEXT6.VALUE=类型编号 内容来自www.paper51.com THISFORM.TEXT7.VALUE=状态 http://www.paper51.com
5.4基本信息一览表单 内容来自论文无忧网 www.paper51.com 这一项主要由客房类型一览和客房信息一览。客房类型一览主要是用来看酒店客房的种类、价格。而客房信息一览主要用来看每个房间的类型、人数、床数和现在的状态。 paper51.com 1.建立客房类型一览表单（客房类型一览.scx）,表单显示结果如下 http://www.paper51.com
内容来自论文无忧网 www.paper51.com
3. 建立客房信息一览表单（客房信息一览.scx），表单显示结果如下 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 5.5离店结帐管理表单 paper51.com
这个表单主要用于在客户要离店结帐时使用，通过对离店客人客房编号的查询，可以查找到客户住店的时间、房间类型、房间价格，从而可以进行结帐金额的计算，还可以根据客户要求对表单进行打印。 内容来自论文无忧网 www.paper51.com 1.建立离店结帐管理表单（离店结帐管理.scx）,表单显示结果如下 paper51.com 内容来自论文无忧网 www.paper51.com 表单主要代码有 内容来自论文无忧网 www.paper51.com （1）“查询”按钮的Click事件代码 http://www.paper51.com IFEMPTY(ALLTRIM(THISFORM.TEXT1.VALUE)) 内容来自论文无忧网 www.paper51.com MESSAGEBOX("请输入查询条件！") http://www.paper51.com THISFORM.TEXT1.SETFOCUS 内容来自论文无忧网 www.paper51.com ELSE copyright paper51.com
USE收银退房.DBF http://www.paper51.com SET FILTER TO copyright paper51.com IF VAL(alltrim(THISFORM.TEXT1.VALUE))>0 http://www.paper51.com SET FILTER TO ALLTRIM(客房编号)=ALLTRIM(THISFORM.TEXT1.VALUE) 内容来自www.paper51.com endif copyright paper51.com GO TOP 内容来自论文无忧网 www.paper51.com GO TOP paper51.com IF VAL(客房编号)>0 内容来自论文无忧网 www.paper51.com THISFORM.TEXT2.VALUE=客房编号 内容来自www.paper51.com THISFORM.TEXT3.VALUE=客房类型 内容来自论文无忧网 www.paper51.com THISFORM.TEXT4.VALUE=客房价格 内容来自论文无忧网 www.paper51.com THISFORM.TEXT5.VALUE=抵店时间 http://www.paper51.com
THISFORM.TEXT6.VALUE=结帐日期 http://www.paper51.com THISFORM.TEXT7.VALUE=结帐金额 paper51.com ELSE 内容来自www.paper51.com MESSAGEBOX("对不起，没有您查询的房间！") paper51.com ENDIF http://www.paper51.com
ENDIF http://www.paper51.com （2）“打印”按钮的Click事件代码 内容来自论文无忧网 www.paper51.com messagebox('确定打印!',16,'提示信息') http://www.paper51.com
REPORTFORM 收银退房.frxNOEJECT NOCONSOLE TO PRINTER paper51.com
thisform.refresh 内容来自www.paper51.com
http://www.paper51.com |