朱洁的毕业论文（新） - 图文

基于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