frmcustinfo.frm

酒店课房管理系统。完成酒店的客房入住

VERSION 5.00
Begin VB.Form frmCustInfo 
   Caption         =   "查询顾客信息"
   ClientHeight    =   5025
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8310
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5025
   ScaleWidth      =   8310
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame5 
      Caption         =   "顾客信息"
      Height          =   1815
      Left            =   840
      TabIndex        =   16
      Top             =   5280
      Visible         =   0   'False
      Width           =   6615
      Begin VB.Label labRoomNo 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   1680
         TabIndex        =   28
         Top             =   1440
         Width           =   45
      End
      Begin VB.Label labBegingToUseDate 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   1680
         TabIndex        =   27
         Top             =   960
         Width           =   45
      End
      Begin VB.Label labCustName 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   960
         TabIndex        =   26
         Top             =   480
         Width           =   45
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "入住房间日期:"
         Height          =   195
         Left            =   480
         TabIndex        =   19
         Top             =   960
         Width           =   1125
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "入住房间号码:"
         Height          =   195
         Left            =   480
         TabIndex        =   18
         Top             =   1440
         Width           =   1125
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "姓名:"
         Height          =   195
         Left            =   480
         TabIndex        =   17
         Top             =   480
         Width           =   405
      End
   End
   Begin VB.Frame Frame4 
      Height          =   735
      Left            =   840
      TabIndex        =   8
      Top             =   3840
      Width           =   6615
      Begin VB.CommandButton cmdAllReservedCust 
         Caption         =   "全部顾客预定信息"
         Height          =   375
         Left            =   3840
         TabIndex        =   31
         Top             =   240
         Width           =   2295
      End
      Begin VB.CommandButton cmdOk 
         Caption         =   "确定"
         Height          =   375
         Left            =   360
         TabIndex        =   9
         Top             =   240
         Width           =   2295
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "顾客信息"
      Height          =   1815
      Left            =   840
      TabIndex        =   6
      Top             =   2040
      Width           =   6615
      Begin VB.Label labPrice 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   1920
         TabIndex        =   30
         Top             =   1440
         Width           =   45
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "预定房间所付定金:"
         Height          =   195
         Left            =   360
         TabIndex        =   29
         Top             =   1440
         Width           =   1485
      End
      Begin VB.Label labRReservedDate 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   4920
         TabIndex        =   25
         Top             =   1080
         Width           =   45
      End
      Begin VB.Label labRRoomNo 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   5160
         TabIndex        =   24
         Top             =   720
         Width           =   45
      End
      Begin VB.Label labRCustCreditCardNo 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   4800
         TabIndex        =   23
         Top             =   360
         Width           =   45
      End
      Begin VB.Label labRCustPhoneNo 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   1200
         TabIndex        =   22
         Top             =   1080
         Width           =   45
      End
      Begin VB.Label labRCustAddress 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   840
         TabIndex        =   21
         Top             =   720
         Width           =   45
      End
      Begin VB.Label labRCustName 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   840
         TabIndex        =   20
         Top             =   360
         Width           =   45
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "预定房间日期:"
         Height          =   195
         Left            =   3720
         TabIndex        =   15
         Top             =   1080
         Width           =   1125
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "预定的房间号码:"
         Height          =   195
         Left            =   3720
         TabIndex        =   14
         Top             =   720
         Width           =   1305
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "信用卡号码:"
         Height          =   195
         Left            =   3720
         TabIndex        =   13
         Top             =   360
         Width           =   945
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "电话号码:"
         Height          =   195
         Left            =   360
         TabIndex        =   12
         Top             =   1080
         Width           =   765
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "地址:"
         Height          =   195
         Left            =   360
         TabIndex        =   11
         Top             =   720
         Width           =   405
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "姓名:"
         Height          =   195