酒店（宾馆）管理系统--毕业论文+文献翻译

河南科技大学本科毕业设计（论文） CCheckoutdlg：退宿结账类， 定义ADO连接、命令、记录集变量指针，通过ADO访问数据库中顾客住宿的消费信息，定义了结账函数，完成顾客退宿结账功能模块。

CFindcheckindlg：住宿查询类，定义ADO连接、命令、记录集变量指针，完成对顾客住宿信息的查询功能。

CFindcheckoutdlg：退宿查询类，定义ADO连接、命令、记录集变量指针，完成对顾客退宿宿信息的查询功能。

CFindguazhangdlg：挂账信息类，定义ADO连接、命令、记录集变量指针，和findgz_date，findgz_depname，findgz_sumery成员变量，完成对挂账功能模块的实现。

CFindprebookroomdlg：预定查询类，定义了多项以顾客基本信息为成员的变量，通过指针访问，完成顾客预定的查询。

CSetusernamepwdlg：操作员设置，包括对操作员名和密码的修改和设置，通过指针对数据库UserTable表中键值的修改。

表4-3 CCheckinregdlg类的成员变量

变量名（CString类型） regnumber gustname gustaddr zhengjian zhengjian_number checkinreg_reason 描述 凭证号码 姓名 详细地址 证件名称 证件号码 入住原因

17

河南科技大学本科毕业设计（论文）

图4-4 类设计

§4.3 系统菜单设计

在VC中通过不同的控件实现菜单中的各个子菜单的属性，表4-5显示了各个控件所对应系统中各个子菜单。

表4-5 子菜单控件的ID和标题

控件ID ID_MENU_checkinreg ID_MENU_roomsetting ID_MENU_checkout ID_MENU_addmoney ID_MENU_changeroomreg ID_MENU_findroom ID_MENU_findguazhang ID_MENU_guazhangmoney ID_MENU_findcheckinreg 标题 住宿登记 客房设置 退宿结帐 追加押金 调房登记 客房查询 挂帐查询 客户结款 住宿查询 18

河南科技大学本科毕业设计（论文） ID_MENU_findcheckoutreg ID_MENU_findroomfee ID_MENU_regmoneytable ID_MENU_saleroomtable ID_MENU_saleroomsummary ID_MENU_adm_setting ID_MENU_pwd_setting ID_MENU_setting_begin ID_MENU_setting_ability ID_MENU_findroomstate ID_MENU_roomprebook ID_MENU_findprebookroom 退宿查询 宿费提醒 登记预收报表 客房销售报表 客房销售统计 操作员设置 密码设置 初始化 权限设置 房态查看 客房预定 预定房查询

§4.4 算法描述

§4.4.1 客房宿费算法

由于每个宾馆的管理方法不同，所以宿费算法也有不同，如果采用人工运算既耽误时间，又容易出现运算错误，很容易给宾馆和客人造成不必要的麻烦和损失。如果使用程序计算宿费，那么既方便又规范，同时也避免了运算错误。下面是针对本宾馆客房管理设计的宿费运算公式：

宿费＝房价×天数

如果客人退宿结账时间在住宿当天，可以按如下算法： 如客人退宿结账时间早于18:00,那么住宿天数为0.5天； 如客人退宿结账时间超过18:00,那么住宿天数为1天。

如果客人退宿结账时间不在住宿当天，可以按如下算法（定义A为

19

河南科技大学本科毕业设计（论文） 天数）：

如客人退宿结账时间在中午12:00之前，住宿天数为（退宿日期一住宿日期）＋0.5天；

如客人退宿结账时间在中午12:00之后，住宿天数为（退宿日期一住宿日期）+1天。

§4.4.2 调房模块实现

由于客人的住宿习惯不同，有些客人会在住宿过程中要求调房，例如客人要求换一个朝阳的房间或空调房等，这就要求客房管理系统有调房的功能。调房模块的思路是：首先查看目标客房是否空闲，如果空闲，查看目标客房的房价（本系统只允许用户调换等价的房间），如果房价与客人原住客房等价，则可确认客人调房。调房后，应对原客房、目标客房的状态进行编辑，再对住宿登记表中的信息进行编辑。

Data1.Recordset.FindFirst房间号Like”＋Chr(34)＋DBCombo4.Text＋Chr(34)＋\标志 like “＋Chr(34)＋”1”＋Chr(34)＋\姓名like\＋Chr(34)＋Textl8.Text＋”*”＋Chr(34)＋\凭证号码like\＋Chr(34)＋bh.Text＋Chr(34)＋””

Datal.Recordset.Edit

If DBCombol.Text＜＞”“Then Datal.Recordset.Fields(\房间号-)＝Val(DBCombol.Text)

If DBCombo2.Text＜＞””Then Datal.Recordset.Fields（”客房类型”）＝DBCombo2.Text

If DBCombo3.Text＜＞””Then Datal.Recordset.Fields(\客房价格”)＝Val(DBCombo3.Text)

If TextlO.Text＜＞”“ Then Datal.Recordset.Fields(\备注”）＝Textl O.Text

Datal.Recordset.Fields(\标志”)＝”1”

Datal.Recordset.Field（“摘要”）=”由源房”＆DBCombo4.Text &”调到目标房”& DBCombol.Text

20