form1.frm

酒店管理系统（VB),很强大

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form form1 
   BackColor       =   &H00C0C0C0&
   Caption         =   "酒店管理系统"
   ClientHeight    =   6045
   ClientLeft      =   1425
   ClientTop       =   1530
   ClientWidth     =   9015
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   15
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6045
   ScaleWidth      =   9015
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Height          =   8055
      Left            =   -600
      ScaleHeight     =   7995
      ScaleWidth      =   10860
      TabIndex        =   1
      Top             =   240
      Width           =   10920
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   360
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9015
      _ExtentX        =   15901
      _ExtentY        =   635
      ButtonWidth     =   609
      ButtonHeight    =   582
      Style           =   1
      TextAlignment   =   1
      _Version        =   393216
      BorderStyle     =   1
      MousePointer    =   9
   End
   Begin VB.Menu deng 
      Caption         =   "登记情况(&D)"
      Begin VB.Menu ru 
         Caption         =   "旅店登记"
         Shortcut        =   ^A
      End
      Begin VB.Menu p 
         Caption         =   "-"
      End
      Begin VB.Menu yu 
         Caption         =   "预定房间"
         Shortcut        =   ^E
      End
      Begin VB.Menu t 
         Caption         =   "-"
      End
      Begin VB.Menu tui 
         Caption         =   "酒店退房"
         Index           =   1
         Shortcut        =   ^T
      End
      Begin VB.Menu we 
         Caption         =   "-"
      End
      Begin VB.Menu chakan 
         Caption         =   "房间查看"
         Shortcut        =   ^Y
      End
      Begin VB.Menu o 
         Caption         =   "-"
      End
      Begin VB.Menu tuichi 
         Caption         =   "退出系统"
         Index           =   445
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu cha 
      Caption         =   "查询(&E)"
      Begin VB.Menu name 
         Caption         =   "房客查询"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu i 
         Caption         =   "-"
      End
      Begin VB.Menu data 
         Caption         =   "预订查询"
         Shortcut        =   ^{F3}
      End
   End
   Begin VB.Menu fei 
      Caption         =   "费用统计(&K)"
      Begin VB.Menu tong 
         Caption         =   "综合统计"
         Shortcut        =   ^{F4}
      End
   End
   Begin VB.Menu zeng 
      Caption         =   "增删房间(&K)"
      Begin VB.Menu jia 
         Caption         =   "增加房间"
         Shortcut        =   ^K
      End
      Begin VB.Menu v 
         Caption         =   "-"
      End
      Begin VB.Menu shan 
         Caption         =   "删除房间"
         Shortcut        =   ^J
      End
      Begin VB.Menu c 
         Caption         =   "-"
      End
      Begin VB.Menu gai 
         Caption         =   "修改房间"
         Shortcut        =   ^W
      End
   End
   Begin VB.Menu mima 
      Caption         =   "密码设置(&m)"
      Begin VB.Menu xiou 
         Caption         =   "修改密码"
         Shortcut        =   ^O
      End
      Begin VB.Menu f 
         Caption         =   "-"
      End
      Begin VB.Menu zhuce 
         Caption         =   "注册(&O)"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu bangzhu 
      Caption         =   "帮助(&H)"
      Begin VB.Menu guangyu 
         Caption         =   "帮助文件"
      End
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub chakan_Click()

form6.Show
End Sub

Private Sub chu_Click()

Form5.Show
End Sub

Private Sub data_Click()

form2.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
form9.Show
Unload form1
End Sub

Private Sub gai_Click()
Form5.Show
End Sub

Private Sub ji_Click()

form3.Show
End Sub

Private Sub Image1_Click()

End Sub

Private Sub jia_Click()

Form5.Show
End Sub

Private Sub name_Click()

form2.Show
End Sub

Private Sub nian_Click()
form3.Show
End Sub

Private Sub quit_Click()
End

End Sub

Private Sub ri_Click()
form3.Show
End Sub

Private Sub ru_Click()
form1.Hide
 form2.Show
End Sub

Private Sub shan_Click()

Form5.Show
End Sub

Private Sub tong_Click()
form3.Show

End Sub

Private Sub tui_Click(Index As Integer)
Form10.Show
End Sub

Private Sub tuichi_Click(Index As Integer)
form9.Show
Unload Me
End Sub

Private Sub xiou_Click()
Form11.Show

End Sub

Private Sub yu_Click()
form4.Show
End Sub

Private Sub yue_Click()

form3.Show
End Sub

Private Sub zhuce_Click()
form8.Show
End Sub