mdiform1.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

         Caption         =   "基础数据设置"
         Begin VB.Menu fjlxwh 
            Caption         =   "房间类型维护"
         End
         Begin VB.Menu efanspwh 
            Caption         =   "客房商品维护"
         End
      End
      Begin VB.Menu czysz 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限设置"
      End
      Begin VB.Menu mmklxg 
         Caption         =   "密码口令修改"
      End
      Begin VB.Menu sjfwqsz 
         Caption         =   "数据库压缩和修复"
      End
      Begin VB.Menu xtcsh 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu sjwh 
         Caption         =   "数据维护"
         Begin VB.Menu sjbf 
            Caption         =   "数据备份与恢复"
         End
         Begin VB.Menu sgqcsj 
            Caption         =   "手工清除数据"
         End
      End
   End
   Begin VB.Menu bzzx 
      Caption         =   "帮助中心"
      Begin VB.Menu gywm 
         Caption         =   "关于我们"
      End
      Begin VB.Menu rjzuce 
         Caption         =   "软件注册"
         Enabled         =   0   'False
      End
      Begin VB.Menu rjsj 
         Caption         =   "软件升级"
         Enabled         =   0   'False
      End
      Begin VB.Menu fwwz 
         Caption         =   "访问网站"
      End
      Begin VB.Menu rjbz 
         Caption         =   "软件帮助"
      End
   End
   Begin VB.Menu tcxt 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984











Private Sub czysz_Click()
Form29.Show
End Sub

Private Sub ddsr_Click()
Form15.Show
End Sub

Private Sub djbd_Click()
Form21.Show
End Sub

Private Sub djyskbb_Click()
main_ysbb.Show
End Sub

Private Sub dryfkbb_Click()
main_ysbb.Show
End Sub

Private Sub efanspwh_Click()
Form7.Show
End Sub

Private Sub fjlxwh_Click()
Form19.Show
End Sub

Private Sub fwwz_Click()
ShellGoto "http://www.lnpop.com", Me.hwnd, App.Path
End Sub

Private Sub gywm_Click()
frmAbout.Show
End Sub

Private Sub jbtjb_Click()
Form17.Show
End Sub

Private Sub jgcxxt_Click()
Form14.Show
End Sub

Private Sub kfjdxsbb_Click()
main_xsbb.Show
End Sub

Private Sub kfsz_Click()
Form4.Show
End Sub

Private Sub kfzwtx_Click()
Form32.Show
End Sub

Private Sub krxfcx_Click()
Form33.Show
End Sub

Private Sub liebiao_Click()
房态图FORM.Show
End Sub

Private Sub MDIForm_Activate()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("select * from qxsz where 操作员='" & StatusBar1.Panels(4).Text & "'", dbOpenDynaset)
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            ztjd.Enabled = EF("接待操作")
            sygl.Enabled = EF("收银操作")
            kfgl.Enabled = EF("房务中心")
            cxxt.Enabled = EF("查询操作")
            bbzx.Enabled = EF("报表中心")
            ckgl.Enabled = EF("仓库管理")
            ctgl.Enabled = EF("餐饮管理")
            xygl.Enabled = EF("洗浴管理")
            xtsz.Enabled = EF("系统管理")
            Toolbar1.Buttons(1).Enabled = EF("接待操作")
            Toolbar1.Buttons(2).Enabled = EF("收银操作")
            'Toolbar1.Buttons(3).Enabled = EF("收银操作")
            'Toolbar1.Buttons(4).Enabled = EF("收银操作")
            'Toolbar1.Buttons(5).Enabled = EF("收银操作")
            Toolbar1.Buttons(8).Enabled = EF("系统管理")
            EF.MoveNext
         Loop
      End If
  EF.Close
  db.Close
  
  
  '--------------------------判断是否启动自动备份模块
If Bac = "1" Then
    ' MDIForm1.Timer3.enbled = False
  End If
    '------------------------------
End Sub







Private Sub MDIForm_Unload(Cancel As Integer)
Set Fini = Nothing
' Denglu_exit = Now
'RiZhi1
 
End Sub

Private Sub mmklxg_Click()
Form28.Show
End Sub

Private Sub pingpu_Click()
Form1.Show
End Sub

Private Sub qxsz_Click()
main_qxsz.Show
End Sub

Private Sub qxyd_Click()
Form30.Show
End Sub

Private Sub rjbz_Click()
ShellGoto "help.chm", Me.hwnd, App.Path
End Sub

Private Sub rjsj_Click()
ShellGoto "http://www.lnpop.com/setuphotel.exe", Me.hwnd, App.Path
End Sub

Private Sub rjzuce_Click()
Form36.Show
End Sub

Private Sub ryybb_Click()
Form18.Show
End Sub

Private Sub sgqcsj_Click()
Form6.Show
End Sub

Private Sub sjbf_Click()
Form23.Show
End Sub

Private Sub sjfwqsz_Click()
Form35.Show
End Sub

Private Sub spbm_Click()
Form41.Show
End Sub

Private Sub spck_Click()
Form13.Show
End Sub

Private Sub spckb_Click()
Form16.Show
End Sub

Private Sub spkcb_Click()
Form14.Show
End Sub

Private Sub sprk_Click()
Form12.Show
End Sub

Private Sub spxshzb_Click()
Form9.Show
End Sub

Private Sub syqkcx_Click()
main_xsbb.Show
End Sub

Private Sub tcxt_Click()
If MsgBox("您确认要退出本系统吗（Y/N）？ ", vbInformation + vbYesNo) = vbYes Then
'Denglu_name = MDIForm1.StatusBar1.Panels(4).Text
'Denglu_exit = Now
'RiZhi1
frmMsg.Show
End If
End Sub

Private Sub tfdj_Click()
Form24.Show
End Sub

Private Sub Timer1_Timer()
'Me.caption = "华成酒店管理系统NET2.0.2                                    当前数据库路径： " & ConData & ""

checkPath ""
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)


 Select Case Button.Key
    
  Case "zsdj"
       '进碟
       ' 出租
        form3.Show

  Case "qtsy"
       '现金支出
       Form15.Show
        
  Case "sytj"
       '统计分析
      Form18.Show
  Case "ddsy"
       '现金帐单
        Form15.Show
        
  Case "jbgl"
       '基本配置
       Form17.Show
       
  Case "tcxt"
       '使用帮助
      If MsgBox("您确认要退出本系统吗（Y/N）？ ", vbInformation + vbYesNo) = vbYes Then
      'Denglu_exit = Now
      'RiZhi1
    frmMsg.Show
      End If
  Case "mmxg"
  Form28.Show
    Case "ckftt"
    Form27.Show
     Case "sjbf"
     Form23.Show
  Case "Exit"
       Unload Me
    
 End Select
 

End Sub

Private Sub wmsr_Click()
Form31.Show
End Sub

Private Sub xtcsh_Click()
Form34.Show
End Sub

Private Sub ydcxx_Click()
Form22.Show
End Sub

Private Sub yddj_Click()
Form111.Show
End Sub



Private Sub yhpbm_Click()
Form61.Show
End Sub

Private Sub yhpck_Click()
Form71.Show
End Sub

Private Sub yhpkcb_Click()
Form11.Show
End Sub

Private Sub yhprk_Click()
Form8.Show
End Sub

Private Sub yhpxftjb_Click()
Form10.Show
End Sub

Private Sub yjsr_Click()
main_zjyj.Show
End Sub

Private Sub yskcx_Click()
main_ysbb.Show
End Sub

Private Sub zscxx_Click()
main_zscx.Show
End Sub

Private Sub zsdjd_Click()
form3.Show
End Sub

Private Sub zsjz_Click()
Form15.Show
End Sub

Private Sub zzkrzlxg_Click()
Form25.Show
End Sub

Private Sub Timer2_Timer()
Text1.Text = Date
Text2.Text = Time
End Sub