frmmain.frm

本程序是一个酒店预定系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "酒店预订系统"
   ClientHeight    =   5505
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7380
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuJDGL 
      Caption         =   "酒店管理"
      Begin VB.Menu mnuJDXX 
         Caption         =   "酒店信息"
      End
      Begin VB.Menu mnuFJXX 
         Caption         =   "房间信息"
      End
      Begin VB.Menu mnusp1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuJDCX 
         Caption         =   "酒店查询"
      End
   End
   Begin VB.Menu mnuDDGL 
      Caption         =   "订单管理"
      Begin VB.Menu mnuDDXX 
         Caption         =   "订单信息"
      End
      Begin VB.Menu mnuDDCX 
         Caption         =   "订单查询"
      End
   End
   Begin VB.Menu mnuYWGL 
      Caption         =   "业务管理"
      Begin VB.Menu mnuYGBJ 
         Caption         =   "员工编辑"
      End
      Begin VB.Menu mnuYGCX 
         Caption         =   "员工查询"
      End
      Begin VB.Menu mnuYJTJ 
         Caption         =   "业绩统计"
      End
   End
   Begin VB.Menu mnuYHGL 
      Caption         =   "用户管理"
      Begin VB.Menu mnuBJYH 
         Caption         =   "编辑用户"
      End
      Begin VB.Menu mnuXGMM 
         Caption         =   "修改密码"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuBJYH_Click()
On Error Resume Next

frmYHGL.Show

End Sub

Private Sub mnuDDCX_Click()
On Error Resume Next

Load frmCX

frmCX.Option1.Enabled = False
frmCX.Option2.Value = True
frmCX.Option3.Enabled = False

frmCX.Show


End Sub

Private Sub mnuDDXX_Click()
On Error Resume Next

frmDDXX.Show

End Sub

Private Sub mnuFJXX_Click()
On Error Resume Next

frmFJXX.Show

End Sub

Private Sub mnuJDCX_Click()
On Error Resume Next

Load frmCX

frmCX.Option2.Enabled = False
frmCX.Option3.Enabled = False
frmCX.Option1.Value = True
MsgBox frmCX.Option1.Value

frmCX.Show


End Sub

Private Sub mnuJDXX_Click()
On Error Resume Next

frmJDXX.Show

End Sub

Private Sub mnuXGMM_Click()
On Error Resume Next

frmMMXG.Show 1

End Sub

Private Sub mnuYGBJ_Click()
On Error Resume Next

frmYGBJ.Show

End Sub

Private Sub mnuYGCX_Click()

Load frmCX

frmCX.Option1.Enabled = False
frmCX.Option2.Enabled = False
frmCX.Option3.Value = True

frmCX.Show


End Sub
Private Sub mnuYJTJ_Click()
On Error Resume Next

frmYJTJ.Show

End Sub