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

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