基于VB的宾馆客房管理系统
Private Sub sftx_Click() '调入宿费提醒 Load main_xftx main_xftx.Show main.Enabled = False End Sub
Private Sub czysz_Click() '调入操作员设置 Load main_czysz main_czysz.Show main.Enabled = False End Sub
Private Sub csh_Click() '调入初始化 main_csh.Show main.Enabled = False End Sub
Private Sub tc_Click() ‘退出 End End Sub
4.4 开房登记
开房登记界面如图4.4所示。点击登陆按钮，出现闪烁标签，则要求填写住宿者的相关信息以及预付款，等待信息填完整之后，点击确定，保存住宿者的相关信息。
13
基于VB的宾馆客房管理系统
图4.4
其程序代码如下： '查询空闲房间信息
Data2.RecordSource = \房态='空房'\Data2.Refresh
Data3.RecordSource = \房态='空房'\Data3.Refresh '生成凭证号码
Data1.RecordSource = \凭证号码\Data1.Refresh
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveLast If lsph.Text = \If lsph.Text <> \ y1.Text = Month(Date)
y2.Text = Month(Left(lsph.Text, 6)) If y1.Text = y2.Text Then
bh.Text = Date & \ End If
If y1.Text <> y2.Text Then
bh.Text = Date & \ End If
14
基于VB的宾馆客房管理系统
End If '清空数据 For i = 0 To 6 ZSDJ(i).Text = \ ZSDJ(i).Enabled = True Next i
ZSDJ(10).Text = \ DBCombo1.Text = \
4.5 追加押金
追加押金的窗口如图4.5所示。其功能是根据开房登记时保存的记录，通过开房登记时生成的凭证号码选择不同的住宿者，进行追加押金设置。
图4.5
4.6退宿结账
退宿结账的窗口如图4.6所示。它的功能是根据开房登记时保存的相关信息，计算出实住天数以及宿费，在根据预付金额情况，确定余额。最后将退宿者的信息保留在表tfd中。
15
基于VB的宾馆客房管理系统
图4.6
4.7 客房设置
客房设置窗口如图4.7所示。从图中可以看出客房设置包括：房间号设置、房间类型设置、房态设置、价格设置、使用设置及配置设置。
图4.7
其程序代码如下： Private Sub comsave_Click() '查找客房信息
Data1.Recordset.FindFirst \房间号 like\ If Data1.Recordset.NoMatch Then
16
