mdfrmmain.frm

1:首先要导入hotel数据

VERSION 5.00
Begin VB.MDIForm mdfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "宾馆客房管理系统 V1.0"
   ClientHeight    =   7020
   ClientLeft      =   660
   ClientTop       =   2355
   ClientWidth     =   12120
   Icon            =   "mdfrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "mdfrmMain.frx":0E42
   ScrollBars      =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuConsumer 
      Caption         =   "顾客管理(&M)"
      Begin VB.Menu mnuConsumerAdd 
         Caption         =   "住宿登记"
         Shortcut        =   {F2}
      End
      Begin VB.Menu chaxun 
         Caption         =   "顾客查询"
      End
      Begin VB.Menu leave 
         Caption         =   "离开登记"
      End
      Begin VB.Menu mnuConsumerPrearrange 
         Caption         =   "预定登记"
         Shortcut        =   {F3}
      End
      Begin VB.Menu mnuline1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuConsumerFind 
         Caption         =   "在住顾客查询"
      End
      Begin VB.Menu mnuLine 
         Caption         =   "-"
      End
   End
   Begin VB.Menu mnuRoom 
      Caption         =   "客房管理(&R)"
      Begin VB.Menu mnuRoomAdd 
         Caption         =   "添加客房(&A)"
      End
      Begin VB.Menu mnuRoomShow 
         Caption         =   "查看客房"
         Shortcut        =   {F8}
      End
      Begin VB.Menu kongf 
         Caption         =   "查看空房"
      End
   End
   Begin VB.Menu mnuEmployee 
      Caption         =   "职员管理(&E)"
      Begin VB.Menu mnuLine22 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEmployeeAdd 
         Caption         =   "添加职员信息(&A)"
      End
      Begin VB.Menu mnuEmployeeShow 
         Caption         =   "显示职员信息(&S)"
      End
   End
   Begin VB.Menu jiezhang 
      Caption         =   "顾客结帐"
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu mnuSysChang 
         Caption         =   "更换操作员"
      End
      Begin VB.Menu mnuSystemModify 
         Caption         =   "更改密码(&M)"
      End
      Begin VB.Menu mnuSystemAddUser 
         Caption         =   "添加操作员(&A)"
      End
      Begin VB.Menu mnuSystemDel 
         Caption         =   "删除操作员(&D)"
      End
   End
End
Attribute VB_Name = "mdfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub chaxun_Click()
frmConsumerFind.Show vbModal
End Sub

Private Sub jiezhang_Click()
frmLeaveShow.Show vbModal
End Sub

Private Sub kongf_Click()
kongfang.Show
End Sub

Private Sub leave_Click()
frmconsumerleave.Show
End Sub

Private Sub MDIForm_Load()
    frmBackground.Show
    
   
    setUserModel (mdlCon.userType)
End Sub


Private Sub mnuConsumerAdd_Click()          '顾客入住添加窗体显示
    frmConsumerAdd.Show vbModal
End Sub

Private Sub mnuConsumerExit_Click()         '顾客退房窗体显示
    frmExitRoom.Show vbModal
End Sub

Private Sub mnuConsumerFind_Click()
    frmConsumerFind.Show vbModal            '在住顾客信息查询窗体显示
End Sub

Private Sub mnuConsumerLeaveFind_Click()
    frmLeaveFind.Show vbModal               '离开顾客表查看窗体显示
End Sub



Private Sub mnuConsumeShangpin_Click()
    MsgBox "本软件为试用版,无此功能，请与作者联系！"
End Sub

Private Sub mnuConsumeSpShow_Click()
    MsgBox "本软件为试用版,无此功能，请与作者联系！"
End Sub



Private Sub mnuConsumerPrearrange_Click()
pre.Show
End Sub

Private Sub mnuEmployeeAdd_Click()
    frmEmployeeAdd.Show                     '员工添加窗体显示
End Sub

Private Sub mnuEmployeeShow_Click()
    frmEmployeeShow.Show                    '员工信息窗体显示
End Sub

Private Sub mnuHelpAbout_Click()
    frmAbout.Show vbModal                   '版本窗体显示
End Sub

Private Sub mnuHelpMain_Click()
    Shell "hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub





Private Sub mnuPrearrangeFind_Click()
    frmPreIn.Show                           '预订转入住窗体显示
End Sub

Private Sub mnuPreconcertIn_Click()
    frmPreShow.Show vbModal                 '预定转入住窗体显示
End Sub

Private Sub mnuRoomAdd_Click()
    frmRoomAdd.Show vbModal                 '房间添加窗体显示
End Sub

Private Sub mnuRoomShow_Click()
    frmRoomShow.Show
End Sub
Private Sub mnuSysChang_Click()
    Unload Me
    frmLogin.Show
End Sub

Private Sub mnuSystemAddUser_Click()
    frmSystemAdd.Show vbModal               '添加使用用户窗体显示
End Sub

Private Sub mnuSystemDel_Click()
    frmSystemDel.Show vbModal               '删除操作员窗体显示
End Sub

Private Sub mnuSystemModify_Click()
    frmSystemPwd.Show                       '更改用户密码窗体显示
End Sub

Private Sub tlb_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "tlbConsumerAdd"
            frmConsumerAdd.Show vbModal             '顾客入住窗体显示
        Case "tlbPrearrangeAdd"
            frmPreconcert.Show vbModal              '顾客预定窗体显示
        Case "tlbExitRoom"
            frmExitRoom.Show                        '顾客退房窗体显示
        Case "tlbPreconcertIn"
            frmPreShow.Show vbModal                 '预订转入住窗体显示
        Case "tlbMealIn"
            frmMeal.Show vbModal                    '餐费入帐窗体显示
        Case "tlbTelPrice"
            frmTel.Show vbModal                     '话费入帐窗体显示
        Case "tlbRoomshow"
            frmRoomShow.Show                        '房间表显示
        Case "tlbRoomState"
            frmRoomState.Show vbModal               '房间状态表显示
        Case "tlbSafeModel"
            frmSafeModel.Show vbModal               '保护模式窗体显示
    End Select
End Sub

Sub setUserModel(userType As String)
    Select Case userType
        Case "领班":
            mnuEmployee.Visible = False
            mnuSystemDel.Visible = False
        Case "操作员":
            mnuRoomAdd.Visible = False
            mnuSystemAddUser.Visible = False
            mnuSystemDel.Visible = False
            mnuEmployee.Visible = False
        End Select
End Sub



Private Sub modify_Click()
frmRoomModify.Show
End Sub