main.frm

一部酒店管理系统

            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "补交押金"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退房结帐"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "旅客查询"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "房态查询"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "重新登陆"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出系统"
            ImageIndex      =   7
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnu_jiedai 
      Caption         =   "来宾接待"
      Begin VB.Menu mnu_dengji 
         Caption         =   "入住登记"
      End
      Begin VB.Menu mnu_yajin 
         Caption         =   "补交押金"
      End
      Begin VB.Menu mnu_kefang1 
         Caption         =   "课房预定"
      End
      Begin VB.Menu mnu_tuifang 
         Caption         =   "退房结帐"
      End
   End
   Begin VB.Menu mnu_shuju 
      Caption         =   "数据查询"
      Begin VB.Menu mnu_lvke 
         Caption         =   "旅客查询"
      End
      Begin VB.Menu mnu_fangtai 
         Caption         =   "房态查询"
      End
   End
   Begin VB.Menu mnu_meirishenhe 
      Caption         =   "审核报表"
      Begin VB.Menu mnu_shenhe 
         Caption         =   "每日审核"
      End
      Begin VB.Menu mnu_shenhezhou 
         Caption         =   "每周审核"
      End
      Begin VB.Menu mnu_shenheyue 
         Caption         =   "每月审核"
      End
   End
   Begin VB.Menu mnu_kefang 
      Caption         =   "客房管理"
      Begin VB.Menu mnu_kefangshezhi 
         Caption         =   "客房设置"
      End
      Begin VB.Menu mnu_defangdengji 
         Caption         =   "客房登记"
      End
      Begin VB.Menu mnu_kefangleixing 
         Caption         =   "客房类型"
      End
   End
   Begin VB.Menu mnu_base 
      Caption         =   "基础数据"
      Begin VB.Menu mnu_gaimima 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnu_manager 
         Caption         =   "管理人员"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
    
    Frame5.Visible = False
    Frame4.Visible = False
    Frame3.Visible = False
    Frame2.Visible = True

End Sub

Private Sub Command10_Click()
    
    fangtai.Show vbModal
    
End Sub

Private Sub Command12_Click()
    DataReport1.Show
End Sub

Private Sub Command13_Click()

    housekind.Show vbModal

End Sub

Private Sub Command14_Click()

    houseinput.Show vbModal

End Sub

Private Sub Command15_Click()

    DataReport2.Show

End Sub

Private Sub Command16_Click()

    houseset.Show vbModal

End Sub

Private Sub Command17_Click()
    
    DataReport3.Show
    
End Sub

Private Sub Command2_Click()
    
    Frame5.Visible = False
    Frame4.Visible = False
    Frame2.Visible = False
    Frame3.Visible = True
    
End Sub

Private Sub Command3_Click()
    
    Frame2.Visible = False
    Frame3.Visible = False
    Frame4.Visible = True
    Frame5.Visible = True

End Sub

Private Sub Command4_Click()
    
    Frame5.Visible = False
    Frame2.Visible = False
    Frame3.Visible = False
    Frame4.Visible = True
    
End Sub

Private Sub Command5_Click()
    
    dengji.Show vbModal

End Sub

Private Sub Command6_Click()

    yajin.Show vbModal

End Sub

Private Sub Command7_Click()

    dingfang.Show vbModal

End Sub

Private Sub Command8_Click()

    tuifang.Show vbModal

End Sub

Private Sub Command9_Click()
    
    fangke.Show vbModal

End Sub

Private Sub Form_Load()

    '窗口居中
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2 - 550
    
    m_tuichu = 0
    Frame2.Visible = True
    
    If JudgeUser = False Then
        mnu_kefang.Enabled = False
        mnu_manager.Enabled = False
    End If
        
    lbl_systime.Caption = Now()
    lbl_guanli.Caption = "当前操作员:" + m_user
        
    Timer1.Enabled = True
    Timer1.Interval = 30000
    
    Timer2.Enabled = True
    Timer2.Interval = 1000
    
End Sub



Private Sub mnu_defangdengji_Click()
    houseinput.Show vbModal
End Sub

Private Sub mnu_dengji_Click()
    
    dengji.Show vbModal
    
End Sub

Private Sub mnu_fangtai_Click()
    fangtai.Show vbModal
End Sub


Private Sub mnu_gaimima_Click()
    chgpwd.Show vbModal
End Sub

Private Sub mnu_kefang1_Click()
    dingfang.Show vbModal
End Sub

Private Sub mnu_kefangleixing_Click()
    housekind.Show vbModal
End Sub

Private Sub mnu_kefangshezhi_Click()
    houseset.Show vbModal
End Sub

Private Sub mnu_lvke_Click()
    fangke.Show vbModal
End Sub


Private Sub mnu_manager_Click()
    usermanager.Show vbModal
End Sub

Private Sub mnu_shenhe_Click()
    DataReport2.Show vbModal
End Sub

Private Sub mnu_shenheyue_Click()
    DataReport3.Show vbModal
End Sub

Private Sub mnu_shenhezhou_Click()
    DataReport1.Show vbModal
End Sub

Private Sub mnu_tuifang_Click()
    tuifang.Show vbModal
End Sub

Private Sub mnu_yajin_Click()
    yajin.Show vbModal
End Sub

Private Sub Timer1_Timer()
    Call TimeMessage
End Sub

Private Sub Timer2_Timer()
    lbl_systime.Caption = Now()
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button
   
     Case "入住登记"
     
       dengji.Show vbModal
       
     Case "客房预定"
     
        dingfang.Show vbModal
     
     Case "补交押金"
     
        yajin.Show vbModal
     
     Case "退房结帐"
     
        tuifang.Show vbModal
     
     Case "旅客查询"
     
        fangke.Show vbModal
     
     Case "房态查询"
     
        fangtai.Show vbModal
     
     Case "重新登陆"
     
        Unload Me
        login.Show vbModal
        
     Case "退出系统"
     
        Unload Me
     
   End Select
   
End Sub