发布时间 : 星期日 文章朱洁的毕业论文（新） - 图文更新完毕开始阅读74f34b7102768e9950e73805
基于VB的宾馆客房管理系统
'添加客房
Data1.Recordset.AddNew
If Texfjh.Text <> \房间号\ If Combo1.Text <> \房间类型\ If Combo2.Text <> \房态\ If Texjg.Text <> \价格\ If DTP1.Value <> \营业日期\ If Texsz.Text <> \使用设置\ If Texpz.Text <> \配置\ If Texbz.Text <> \备注\ If Texfjh.Text <> \标志\ Data1.Recordset.Update '更新记录 Data1.Refresh Else
'编辑客房信息 Data1.Recordset.Edit
If Texfjh.Text <> \房间号\ If Combo2.Text <> \房态\ If Combo1.Text <> \房间类型\ If Texjg.Text <> \价格\ If DTP1.Value <> \营业日期\ If Texsz.Text <> \使用设置\ If Texpz.Text <> \配置\ If Texbz.Text <> \备注\ If Texfjh.Text <> \标志\ Data1.Recordset.Update '更新记录 Data1.Refresh End If
'设置控件有效或无效
Comsave.Enabled = False: Comcancel.Enabled = False
17
基于VB的宾馆客房管理系统
Comend.Enabled = True: Comdj.Enabled = True End Sub
4.8客房查询
客房查询窗口如图4.8所示。客房查询窗口中的查询设置直观的显示了利用VB中强大的控件功能来实现。本论文中使用了DBGrid控件。该控件可以显示网格数据，也可以对其操作。
图4.8
其操作程序如下： Private Sub Text1_Change() '查询客房信息
Data1.RecordSource = \* from kf where kf.房间号 like \+ Chr(34) +
Text1.Text + \
Data1.Refresh End Sub
Private Sub Command1_Click() '允许修改客房信息
DBGrid1.AllowUpdate = True End Sub
Private Sub Command2_Click() '删除客房信息 If Data1.Recordset.RecordCount > 0 Then Data1.Recordset.Delete Data1.Refresh
18
基于VB的宾馆客房管理系统
End If End Sub
4.9住宿查询
住宿查询窗口如图4.9所示。主要功能是实现对住宿登记的查询，通过data控件实现对数据库的连接，再通过DBGrid这个数据感知控件将数据库实时显示在窗口上。
图4.9
其程序代码如下： Private Sub Form_Load()
Data1.DatabaseName = App.Path & \ '自动识别数据库路径 End Sub
Private Sub Form_Unload(Cancel As Integer) main.Enabled = True End Sub
Private Sub Command1_Click() '查询住宿信息
Data1.RecordSource = \姓名 like \\ Data1.Refresh End Sub
Private Sub Command2_Click()
19
基于VB的宾馆客房管理系统
main.Enabled = True Unload Me End Sub
5.1 退宿查询
退宿查询窗口如图5.1所示。其功能主要是完成操作员对退宿情况的查询。通通过data控件实现对数据库的连接，系统已经将退宿信息存放在名为tfd的表中，再通过DBGrid这个数据感知控件将数据库实时显示在窗口上。
图5.1
其程序代码如下： Private Sub Form_Load()
Data1.DatabaseName = App.Path & \ '自动识别数据库路径 End Sub
Private Sub Form_Unload(Cancel As Integer) main.Enabled = True End Sub
Private Sub Text1_Change() '按客人姓名查询退宿信息
Data1.RecordSource = \姓名 like \+ \ Data1.Refresh End Sub
Private Sub Command1_Click() '允许修改退宿记录
20