form1.frm

该程序采VB6作为前端开发工具,以SQL Server 2000作为后台数据库开发平台.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form form1 
   BackColor       =   &H00C0C0C0&
   Caption         =   "酒店管理系统"
   ClientHeight    =   6045
   ClientLeft      =   60
   ClientTop       =   630
   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"
   ScaleHeight     =   6045
   ScaleWidth      =   9015
   Begin VB.PictureBox Picture1 
      Height          =   8055
      Left            =   -600
      ScaleHeight     =   7995
      ScaleWidth      =   10860
      TabIndex        =   1
      Top             =   240
      Width           =   10920
      Begin VB.Image Image1 
         Height          =   7680
         Left            =   240
         Picture         =   "Form1.frx":030A
         Top             =   -120
         Width           =   11520
      End
   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
      Appearance      =   1
      Style           =   1
      TextAlignment   =   1
      _Version        =   393216
      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 fei 
      Caption         =   "费用统计(&C)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu ri 
         Caption         =   "按日统计"
         Shortcut        =   ^P
      End
      Begin VB.Menu e 
         Caption         =   "-"
      End
      Begin VB.Menu yue 
         Caption         =   "按月统计"
         Shortcut        =   ^{F4}
      End
      Begin VB.Menu r 
         Caption         =   "-"
      End
      Begin VB.Menu ji 
         Caption         =   "按季度统计"
         Shortcut        =   ^Z
      End
      Begin VB.Menu y 
         Caption         =   "-"
      End
      Begin VB.Menu nian 
         Caption         =   "按年统计"
         Shortcut        =   ^R
      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        =   {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 fei_Click()
'form3.Show

End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload form1
End Sub

Private Sub gai_Click()
Form5.Show
End Sub

Private Sub ji_Click()

form3.Show
End Sub

Private Sub guangyu_Click()
form9.Show
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 tui_Click(Index As Integer)
Form10.Show
End Sub

Private Sub tuichi_Click(Index As Integer)
End
End Sub

Private Sub xiou_Click()
Form11.Show

End Sub

Private Sub yu_Click()
'Form1.Hide
form4.Show
End Sub

Private Sub yue_Click()

form3.Show
End Sub

Private Sub zhuce_Click()
form8.Show
End Sub