frmmdi.frm

针对于订房中心的酒店合同管理。管理权限有管理员和业务员等。

VERSION 5.00
Begin VB.MDIForm frmMDI 
   BackColor       =   &H8000000C&
   Caption         =   "永辉服务有限公司合同管理"
   ClientHeight    =   5070
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8115
   Icon            =   "frmMDI.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu MAdmin_sys 
      Caption         =   "系统(&S)"
      Begin VB.Menu MAdminS_notepad 
         Caption         =   "计事本"
      End
      Begin VB.Menu MAdminS_jsq 
         Caption         =   "计算器"
      End
      Begin VB.Menu MAdminS_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminS_exit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu MAdmin_mange 
      Caption         =   "员工管理(&M)"
      Begin VB.Menu MAdminM_newUser 
         Caption         =   "创建员工帐号"
      End
      Begin VB.Menu MAdminM_lin2 
         Caption         =   "-"
      End
      Begin VB.Menu MMAdminM_YuanGinfo 
         Caption         =   "员工信息"
      End
   End
   Begin VB.Menu Madmin_he 
      Caption         =   "合同管理(&E)"
      Begin VB.Menu MMadmin_addhe 
         Caption         =   "添加合同信息"
      End
      Begin VB.Menu MMadmin_Motyhe 
         Caption         =   "修改合同资料"
      End
      Begin VB.Menu MMadmin_userhe 
         Caption         =   "合同信息"
      End
   End
   Begin VB.Menu room 
      Caption         =   "房型(&T)"
      Begin VB.Menu adroom 
         Caption         =   "添加房型"
      End
      Begin VB.Menu moyroom 
         Caption         =   "修改房型"
      End
      Begin VB.Menu manaroom 
         Caption         =   "房型查看"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "系统管理(&X)"
      Begin VB.Menu xguser 
         Caption         =   "更改资料"
      End
      Begin VB.Menu xgmm 
         Caption         =   "更改密码"
      End
      Begin VB.Menu zx 
         Caption         =   "注销"
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu stwh 
      Caption         =   "系统维护(&Q)"
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu sjhf 
         Caption         =   "数据恢复"
      End
   End
   Begin VB.Menu MAdmin_help 
      Caption         =   "系统帮助(&H)"
      Begin VB.Menu MAdminH_about 
         Caption         =   "关于..."
      End
      Begin VB.Menu MAdminH_hlp 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MAdminH_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminH_webHlp 
         Caption         =   "联机帮助"
      End
      Begin VB.Menu zc 
         Caption         =   "软件注册"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub adroom_Click()
frmaddroom.Show
End Sub

Private Sub exit_Click()
Unload Me
End
End Sub

Private Sub MAdminH_about_Click()
 frmAbout.Show vbModal
End Sub

Private Sub MAdminH_hlp_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub

Private Sub MAdminH_webHlp_Click()
Dim pid As Long
pid = Shell("Explorer.exe http://192.168.1.28", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开IE浏览器！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub

Private Sub MAdminM_chgPasswd_Click()
Load FrmChgHYPasswd
FrmChgHYPasswd.Show vbModal
End Sub

Private Sub MAdminM_delUser_Click()
Load FrmUserAdmin
FrmUserAdmin.Show vbModal
End Sub

Private Sub MAdminM_modify_Click()
Load FrmChgHYMemo
FrmChgHYMemo.Show vbModal
End Sub

Private Sub MAdminM_newUser_Click()
Load FrmRegMe
FrmRegMe.Show vbModal
End Sub

Private Sub MAdminS_exit_Click()
Unload Me
End
End Sub

Private Sub MAdminS_jsq_Click()
Dim pid As Long
pid = Shell("Calc.exe", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开计算器！", vbOKOnly + vbExclamation, "打开程序出错"
    End If
End Sub

Private Sub MAdminS_notepad_Click()
Dim pid As Long
pid = Shell("Notepad.exe", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开记事本！", vbOKOnly + vbExclamation, "打开程序出错"
    End If
End Sub


Private Sub MAdminZ_chgPasswd_Click()
Load FrmChgPasswd
FrmChgPasswd.Show vbModal
End Sub

Private Sub MAdminZ_jiBen_Click()
Load FrmHYMemo
FrmHYMemo.Show vbModal
End Sub

Private Sub MMadmin_addhe_Click()
frmaddinfo.Show
End Sub

Private Sub MMadmin_Motyhe_Click()
Load Frmmoyhe
Frmmoyhe.Show vbModal
End Sub

Private Sub MMadmin_userhe_Click()
frmInfo.Show
End Sub

Private Sub MMAdminM_YuanGinfo_Click()
Load FrmHYMemo
FrmHYMemo.Show vbModal
End Sub

Private Sub moyroom_Click()
Load Frmmoyroom
Frmmoyroom.Show vbModal
End Sub

Private Sub sjbf_Click()
frmsavedata.Show
End Sub

Private Sub sjhf_Click()
frmreloaddata.Show
End Sub

Private Sub xgmm_Click()
frmadminpwd.Show
End Sub

Private Sub xguser_Click()
frmUser.Show
End Sub

Private Sub zc_Click()
zhuce.Show
End Sub