宾馆客房管理系统ER图.数据流图.功能模块图.流程图 第5页

宾馆客房管理系统ER图.数据流图.功能模块图.流程图 第5页
6.2系统主程序窗口界面
Private Sub Form_Load()
 Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自动识别数据库路径
End Sub
Private Sub Form_Activate()     '设置操作员权限
 With Data1.Recordset
 If .BOF = False Then .MoveFirst
 .FindFirst "操作员 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + ""
 If .NoMatch Then
 Else
  main.zjyj.Enabled = .Fields("追加押金")
  main.zsdj.Enabled = .Fields("住宿登记")
  main.Label1.Enabled = .Fields("住宿登记")
  main.tf.Enabled = .Fields("退宿登记")
  main.Label2.Enabled = .Fields("退宿登记")
  main.tfdj.Enabled = .Fields("调房登记")
  main.kfsz.Enabled = .Fields("客房管理")
  main.kfcx.Enabled = .Fields("客房查询")
  main.ftck.Enabled = .Fields("房态查看")
  main.khjk.Enabled = .Fields("客户结款")
  main.zscx.Enabled = .Fields("住宿查询")
  main.Label3.Enabled = .Fields("住宿查询")
  main.tfcx.Enabled = .Fields("退宿查询")
  main.sftx.Enabled = .Fields("宿费提醒")
  main.Label5.Enabled = .Fields("宿费提醒")
  main.Label4.Enabled = .Fields("客房销售报表")
  main.xstj.Enabled = .Fields("客房销售统计报表")
  main.czysz.Enabled = .Fields("操作员设置")
  main.ma.Enabled = .Fields("密码设置")
  main.csh.Enabled = .Fields("初始化")
  main.qxsz.Enabled = .Fields("权限设置")
 End If
 End With
End Sub

Private Sub label1_Click()     '调入住宿登记
 zsdj_Click
End Sub
Private Sub label2_Click()      '调入退宿结帐
 tf_Click
End Sub
Private Sub Label3_Click()      '调入住宿查询
 zscx_Click
End Sub
Private Sub Label4_Click()      '调入客房销售报表
 xsbb_Click
End Sub
Private Sub Label5_Click()      '调入宿费提醒
 sftx_Click
End Sub
Private Sub label6_Click()
 End
End Sub

Private Sub zjyj_Click()       '调入追加押金
 Load main_zjyj
 main_zjyj.Show
 main.Enabled = False
End Sub
Private Sub tfdj_Click()      '调入调房登记
 main_tfdj.Show
 main.Enabled = False
End Sub
Private Sub tf_Click()        '调入退宿结帐
 main_tf.Show
 main.Enabled = False
End Sub
Private Sub kfsz_Click()      '调入客房管理
 main_kfgl.Show
 main.Enabled = False
End Sub
Private Sub kfcx_Click()      '调入客房查询
 main_kfcx.Show
 main.Enabled = False
End Sub
Private Sub ftck_Click()      '调入房态查看
 main_ftcx.Show
 main.Enabled = False
End Sub
Private Sub gzcx_Click()      '调入挂帐查询
 Load main_gzcx
 main_gzcx.Show
 main.Enabled = False
End Sub
Private Sub khjk_Click()      '调入客户结款
 Load main_khjk
 main_khjk.Show
 main.Enabled = False
End Sub

Private Sub zscx_Click()       '调入住宿查询
 Load main_zscx
 main_zscx.Show
 main.Enabled = False
End Sub
Private Sub tfcx_Click()       '调入退宿查询
 Load main_tfcx
 main_tfcx.Show
 main.Enabled = False
End Sub
youerw.com
Private Sub xsbb_Click()       '调入客房销售报表
 main_xsbb.Show
 main.Enabled = False
End Sub
Private Sub xstj_Click()       '调入客房销售统计
 main_xstj.Show
 main.Enabled = False
End Sub
Private Sub czysz_Click()      '调入操作员设置
 Load main_czysz
 main_czysz.Show
 main.Enabled = False
End Sub
Private Sub ma_Click()          '调入密码设置
 main_mmsz.Show
 main.Enabled = False
End Sub
Private Sub csh_Click()         '调入初始化
 main_csh.Show
 main.Enabled = False
End Sub
Private Sub qxsz_Click()        '调入权限设置
 main_qxsz.Show
 main.Enabled = False
End Sub
Private Sub tc_Click()
 End
End Sub
6.3住宿管理设计
6.3.1住宿登记

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

宾馆客房管理系统ER图.数据流图.功能模块图.流程图 第5页下载如图片无法显示或论文不完整，请联系qq752018766