caidan.frm

宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理

VERSION 5.00
Begin VB.Form caidan 
   BackColor       =   &H8000000E&
   Caption         =   "欢迎进入酒店管理系统"
   ClientHeight    =   7185
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   10890
   Icon            =   "caidan.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "caidan.frx":058A
   ScaleHeight     =   8341.61
   ScaleMode       =   0  'User
   ScaleWidth      =   10890
   Visible         =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Menu 登记情况 
      Caption         =   "登记情况"
      Index           =   0
      Begin VB.Menu 旅店登记 
         Caption         =   "旅店登记"
         Index           =   1
         Begin VB.Menu 旅店登记信息列表 
            Caption         =   "旅店登记信息列表"
            Shortcut        =   ^A
         End
         Begin VB.Menu 旅店登记信息输入 
            Caption         =   "旅店登记信息输入"
            Shortcut        =   ^B
         End
      End
      Begin VB.Menu 预定房间 
         Caption         =   "预定房间"
         Begin VB.Menu 预定房间信息列表 
            Caption         =   "预定房间信息列表"
            Shortcut        =   ^C
         End
         Begin VB.Menu 预定房间信息输入 
            Caption         =   "预定房间信息输入"
            Shortcut        =   ^D
         End
      End
      Begin VB.Menu 旅客退房 
         Caption         =   "旅客退房"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu 房客查询 
      Caption         =   "房客查询"
      Begin VB.Menu 旅店登记情况查找 
         Caption         =   "旅店登记情况查找"
         Begin VB.Menu 按姓名查询 
            Caption         =   "按姓名查询"
            Shortcut        =   ^F
         End
         Begin VB.Menu 按证件查询 
            Caption         =   "按证件查询"
            Shortcut        =   ^G
         End
      End
      Begin VB.Menu 预定房间信息查询 
         Caption         =   "预定房间信息查询"
         Begin VB.Menu 按姓名查找 
            Caption         =   "按姓名查找"
            Shortcut        =   ^H
         End
         Begin VB.Menu 按电话号码查询 
            Caption         =   "按电话号码查询"
            Shortcut        =   ^I
         End
      End
   End
   Begin VB.Menu 客房情况 
      Caption         =   "客房情况"
      Begin VB.Menu 客房查看 
         Caption         =   "客房查看"
         Shortcut        =   ^J
      End
      Begin VB.Menu 客房列表 
         Caption         =   "客房列表"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu 酒店内部资料 
      Caption         =   "酒店内部资料"
      Begin VB.Menu 进入酒店内部资料 
         Caption         =   "进入酒店内部资料"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 关于 
         Caption         =   "关于"
         Shortcut        =   ^O
      End
   End
End
Attribute VB_Name = "caidan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 按电话号码查询_Click()
yudingchaxun.Show
End Sub

Private Sub 按姓名查询_Click()
fangkechaxun.Show
End Sub

Private Sub 按姓名查找_Click()
yudingchaxun.Show
End Sub

Private Sub 按证件查询_Click()
fangkechaxun.Show
End Sub

Private Sub 登记输入表_Click()
lvdiandengji.Show
End Sub

Private Sub 打印_Click()
fangkechaxun.Show
End Sub

Private Sub 关于_Click()
jieshao.Show
End Sub

Private Sub 进入酒店内部资料_Click()
caidan.Hide
mima.Show
End Sub


Private Sub 客房查看_Click()
caidan.Hide
kefangchakan.Show
End Sub

Private Sub 客房列表_Click()
shengyukefang.Show
End Sub

Private Sub 旅店登记列表_Click()
lvdiandengjiliebiao.Show
End Sub

Private Sub 旅店登记信息列表_Click()
lvdiandengjiliebiao.Show
End Sub

Private Sub 旅店登记信息输入_Click()
lvdiandengji.Show
End Sub

Private Sub 旅客退房_Click()
lvketuifang.Show
End Sub

Private Sub 删除房间_Click()
shanchufangjian.Show
End Sub

Private Sub 退出_Click()
End
End Sub

Private Sub 修改房间_Click()
xiugaifangjian.Show
End Sub

Private Sub 增加房间_Click()
zengjiafangjian.Show
End Sub

Private Sub 预定房间列表_Click()
yudingfangjianliebiao.Show
End Sub

Private Sub 预定房间输入单_Click()
yudingfangjian.Show
End Sub

Private Sub 信息列表_Click()
lvdiandengjiliebiao.Show
End Sub

Private Sub 信息输入_Click()
lvdiandengji.Show
End Sub


Private Sub 预定房间信息列表_Click()
yudingfangjianliebiao.Show
End Sub

Private Sub 预定房间信息输入_Click()
yudingfangjian.Show
End Sub