mdiform1.frm

VB和ACCESS作的管理酒店住书软件

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "酒店管理系统"
   ClientHeight    =   6765
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8610
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   2  'CenterScreen
   Begin VB.Menu dengji 
      Caption         =   "登记情况"
      Begin VB.Menu ld 
         Caption         =   "旅店登记"
         Shortcut        =   ^A
      End
      Begin VB.Menu yd 
         Caption         =   "预定房间"
         Shortcut        =   ^E
      End
      Begin VB.Menu tf 
         Caption         =   "酒店退房"
         Shortcut        =   ^T
      End
      Begin VB.Menu fj 
         Caption         =   "房间查看"
         Shortcut        =   ^Y
      End
      Begin VB.Menu tc 
         Caption         =   "退出系统"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu cx 
      Caption         =   "房客查询"
      Begin VB.Menu xm 
         Caption         =   "按姓名查询"
         Shortcut        =   {F2}
      End
      Begin VB.Menu dh 
         Caption         =   "按电话号码查询"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu zsfj 
      Caption         =   "增删房间"
      Begin VB.Menu zj 
         Caption         =   "增加房间"
      End
      Begin VB.Menu sc 
         Caption         =   "删除房间"
      End
      Begin VB.Menu xg 
         Caption         =   "修改房间"
      End
   End
   Begin VB.Menu gy 
      Caption         =   "关于"
      Begin VB.Menu d 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub jb_Click()

End Sub

Private Sub d_Click()
Form10.Show
End Sub

Private Sub dh_Click()
Form9.Show
End Sub

Private Sub fj_click()
Form5.Show
End Sub

Private Sub ld_Click()
Form1.Show
End Sub

Private Sub sc_Click()
Form6.Show
End Sub

Private Sub tc_Click()
Unload MDIForm1
End Sub

Private Sub tf_Click()
Form7.Show
End Sub

Private Sub xg_Click()
Form6.Show
End Sub

Private Sub xm_Click()
Form8.Show
End Sub

Private Sub yd_Click()
Form3.Show
End Sub

Private Sub zj_click()
Form6.Show
End Sub