小型酒店管理系统的设计与开发毕业论文

玉林师范学院本科生毕业生论文（设计）

If itimes = 3 Then '错误3次，退出系统

MyMsg = MsgBox(\输入错误,请向系统管理员查询！\系统提示\

If MyMsg = vbOK Then End End If End Sub

5.3主窗体的设计与实现

程序启动后，在系统登录界面验证完操作员和操作员密码后，将进入程序主窗体。在程序主窗体中通过选择菜单命令或单击工具栏中的按钮，可调用相应程序窗体或进行相应操作；可根据操作员不同，确定操作员的相应权限，在主窗体状态栏中显示了系统时间和当前系统操作员。主窗体界面如下图5.3所示：

图5.3 主窗体界面 Fig. 5.3 The Main form interface

该系统主窗体主要通过菜单命令实现调出各个窗体或执行相应操作。同时在主窗体和添加一个Toolbar控件，作为工具栏。通过Toolbar控件的Click事件，也可实现调出相应窗体或执行相应操作。

15

刘芳 小型酒店管理系统

使用Button对象的Key属性标识被单击的按钮。例如，在主窗体模块中单击工具栏中的按钮，发生ButtonClick事件，并用Key属性标识被单击的按钮。代码如下：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case \

zsdj_Click '调入住宿登记 Case \

tf_Click '调入退宿结账 Case \

zscx_Click '调入住宿查询 Case \

sftx_Click '调入提醒 Case \ '重新登录 Load main_Login main_Login.Show Case \

If MsgBox(\确定退出该系统？\系统提示\ End End If End Select End Sub

单击主窗体中的菜单项，通过菜单命令实现调出各个窗体或执行相应操作，在各子菜单的Click事件下实现相应操作。部分代码如下： Private Sub sjbf_Click() '调入数据备份 main_sjbf.Show Main.Enabled = False End Sub

Private Sub sjhf_Click() '数据恢复 main_sjhf.Show

16

玉林师范学院本科生毕业生论文（设计）

End Sub ??

Private Sub ma_Click() '调入密码设置 main_mmsz.Show Main.Enabled = False End Sub

5.4住宿登记模块设计与实现

程序启动后，选择菜单栏中“住宿管理”/“住宿登记”命令，或直接单击工具栏中的“登记”按钮，将打开住宿登记模块。在住宿登记模块中能够自动生成住宿登记凭证号码，提供空闲房间供用户选择，实现客人住宿登记，收取客人预交宿费，实际宿费、宿费提醒时间、退宿时间、打印住宿登记单据。住宿登记模块界面如下图5.4所示：

图5.4 住宿登记窗体界面

Fig. 5.4The Accommodation Registration form interface

住宿登记模块主要用于录入客人入住信息，此窗体包含了大量的文本框和时间控件等，但这些控件功能都比较简单，没有复杂的属性设置。

打开住宿登记模块，单击“登记”按钮，开始进行住宿登记。“登记”按钮的Click事件主要实现设置控件有效和无效、自动生成登记凭证号码等功能。自动生成登记凭证号码的主要代码发下：

17

刘芳 小型酒店管理系统

Adodc2.ConnectionString = \Source=\& App.Path & \

Adodc2.RecordSource = \凭证号码\ '按凭证号码排序数据 Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast '移动记录集到最后一条记录

If lsph.Text = \ '当lsph值为空为凭证号码文本框赋值

If lsph.Text <> \ '当lsph值不空时 y1.Text = Month(Fdate) '把当前月份赋给y1

y2.Text = Month(Left(lsph.Text, 10)) '把lsph中的月份赋给y2 If y1.Text = y2.Text Then '如果y1文本框中内容与y2相同

bh.Text = Fdate & \& Format(Val(Right(lsph.Text, 3)) + 1, \ '为凭证号码文本框赋值

Text2.Text = Val(Right(lsph.Text, 3)) + 1 'text1中存储lsph文本框中后三位数 End If

If y1.Text <> y2.Text Then '如果y1文本框中内容与y2不同

bh.Text = Fdate & \& Format(1, \ '为凭证号码文本框赋值

End If End If

当住宿信息登记完成后，“打印”按钮处于可用状态，可以单击“打印”按钮打印住宿证。主要代码如下： Private Sub comprint_Click()

On Error GoTo 1 '出错转向标签“1” Dim X As Printer '打印住宿登记单据

18