其中“确定”与“取消”按扭，采用的是.ico图标。 主要代码如下： Private Sub Image1_Click() Static itimes As Integer
Main.StatusBar1.Panels(4).Text = Text1.Text
Adodc1.RecordSource = \操作员='\+ \
'验证操作员及密码 Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于零 If Text2.Text = Adodc1.Recordset.Fields(\密码\ '验证密码 Load Main Main.Show Unload Me Else
If Text2.Text <> Adodc1.Recordset.Fields(\密码\ MsgBox \密码错误,请重新输入！\系统提示\ itimes = itimes + 1 Text2.Text = \ Text2.SetFocus End If End If Else
MsgBox \操作员不存在,请重新输入！\系统提示\ itimes = itimes + 1 Text1.Text = \ Text2.Text = \ Text1.SetFocus End If
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事件，也可实现调出相应窗体或执行相应操作。
使用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
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事件主要实现设置控件有效和无效、自动生成登记凭证号码等功能。自动生成登记凭证号码的主要代码发下：
Adodc2.ConnectionString = \& 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 & \ '为凭证号码文本框赋值 End If End If
当住宿信息登记完成后，“打印”按钮处于可用状态，可以单击“打印”按钮打印住宿证。主要代码如下： Private Sub comprint_Click()
On Error GoTo 1 '出错转向标签“1” Dim X As Printer '打印住宿登记单据