main.frm

利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望大家喜欢

VERSION 5.00
Begin VB.MDIForm main 
   BackColor       =   &H8000000C&
   Caption         =   "宾馆管理系统"
   ClientHeight    =   4500
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7860
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu sys 
      Caption         =   "系统管理"
      Begin VB.Menu manager 
         Caption         =   "管理员"
      End
      Begin VB.Menu server 
         Caption         =   "服务员"
      End
      Begin VB.Menu out 
         Caption         =   "退出登录"
         Shortcut        =   ^{F1}
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu hot 
      Caption         =   "客房管理"
      Enabled         =   0   'False
      Begin VB.Menu registe 
         Caption         =   "登记"
         Shortcut        =   {F1}
      End
      Begin VB.Menu book 
         Caption         =   "订房"
         Shortcut        =   {F2}
      End
      Begin VB.Menu change 
         Caption         =   "更换"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu ch 
      Caption         =   "结算系统"
      Enabled         =   0   'False
      Begin VB.Menu checkout 
         Caption         =   "退房结算"
         Shortcut        =   {F4}
      End
      Begin VB.Menu addmoney 
         Caption         =   "续押金"
         Shortcut        =   {F5}
      End
   End
   Begin VB.Menu roo 
      Caption         =   "客房信息"
      Enabled         =   0   'False
      Begin VB.Menu find 
         Caption         =   "查询"
         Begin VB.Menu left 
            Caption         =   "剩余客房"
            Shortcut        =   {F6}
         End
         Begin VB.Menu situation 
            Caption         =   "登记情况"
            Shortcut        =   {F7}
         End
         Begin VB.Menu bookroo 
            Caption         =   "订房信息"
            Shortcut        =   {F8}
         End
         Begin VB.Menu sepfind 
            Caption         =   "详细查询"
            Shortcut        =   {F9}
         End
      End
      Begin VB.Menu roomset 
         Caption         =   "客房设置"
         Enabled         =   0   'False
      End
      Begin VB.Menu standerset 
         Caption         =   "标准设置"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu he 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   {F12}
      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 about_Click()
help.Visible = True
End Sub

Private Sub addmoney_Click()
切换 (9)
End Sub

Private Sub book_Click()
切换 (3)
End Sub

Private Sub bookroo_Click()
kk = 3
切换 (6)
End Sub

Private Sub change_Click()
切换 (4)
End Sub

Private Sub checkout_Click()
切换 (5)
End Sub

Private Sub exit_Click()
Unload main
End Sub

Private Sub left_Click()
kk = 1
切换 (6)
End Sub

Private Sub manager_Click()
able (0)
key1 = True
切换 (1)
End Sub

Private Sub MDIForm_Load()
Dim str As String
 Randomize
p = Int(Rnd * 10)
main.Picture = LoadPicture(App.Path & "\picture\" & p & ".jpg")
End Sub

Private Sub out_Click()
切换 (15)
able (0)
End Sub

Private Sub registe_Click()
切换 (2)
End Sub

Private Sub roomset_Click()
切换 (8)
End Sub

Private Sub sepfind_Click()
Load findroom
End Sub

Private Sub server_Click()
able (0)
key1 = False
切换 (1)
End Sub


Private Sub situation_Click()
kk = 2
切换 (6)
End Sub

Private Sub standerset_Click()
切换 (7)
End Sub