fangkechaxun.frm

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

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form fangkechaxun 
   Caption         =   "房客查询"
   ClientHeight    =   5715
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   Icon            =   "fangkechaxun.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5715
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin TabDlg.SSTab SSTab1 
      Height          =   5655
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4695
      _ExtentX        =   8281
      _ExtentY        =   9975
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "按姓名查找"
      TabPicture(0)   =   "fangkechaxun.frx":058A
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame2"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "按证件号码查找"
      TabPicture(1)   =   "fangkechaxun.frx":05A6
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame4"
      Tab(1).Control(1)=   "Frame3"
      Tab(1).ControlCount=   2
      Begin VB.Frame Frame4 
         Caption         =   "查找结果"
         Height          =   4335
         Left            =   -74880
         TabIndex        =   32
         Top             =   1200
         Width           =   4455
         Begin VB.CommandButton Command2 
            Caption         =   "返回"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   240
            TabIndex        =   55
            Top             =   3480
            Width           =   855
         End
         Begin VB.TextBox Text12 
            Height          =   1215
            Index           =   1
            Left            =   1440
            TabIndex        =   54
            Top             =   2880
            Width           =   2775
         End
         Begin VB.TextBox Text11 
            Height          =   300
            Index           =   1
            Left            =   3120
            TabIndex        =   52
            Top             =   2280
            Width           =   1095
         End
         Begin VB.TextBox Text10 
            Height          =   300
            Index           =   1
            Left            =   960
            TabIndex        =   50
            Top             =   2280
            Width           =   1095
         End
         Begin VB.TextBox Text9 
            Height          =   300
            Index           =   1
            Left            =   3120
            TabIndex        =   48
            Top             =   1800
            Width           =   1095
         End
         Begin VB.TextBox Text8 
            Height          =   300
            Index           =   1
            Left            =   960
            TabIndex        =   46
            Top             =   1800
            Width           =   1095
         End
         Begin VB.TextBox Text7 
            Height          =   300
            Index           =   1
            Left            =   3120
            TabIndex        =   44
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox Text6 
            Height          =   300
            Index           =   1
            Left            =   960
            TabIndex        =   42
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox Text5 
            Height          =   300
            Index           =   1
            Left            =   3120
            TabIndex        =   40
            Top             =   840
            Width           =   1095
         End
         Begin VB.TextBox Text4 
            Height          =   300
            Index           =   1
            Left            =   960
            TabIndex        =   38
            Top             =   840
            Width           =   1095
         End
         Begin VB.TextBox Text3 
            Height          =   300
            Index           =   1
            Left            =   3120
            TabIndex        =   36
            Top             =   360
            Width           =   1095
         End
         Begin VB.TextBox Text2 
            Height          =   300
            Index           =   1
            Left            =   960
            TabIndex        =   34
            Top             =   360
            Width           =   1095
         End
         Begin VB.Label Label24 
            Caption         =   "备注:"
            Height          =   255
            Left            =   720
            TabIndex        =   53
            Top             =   2880
            Width           =   615
         End
         Begin VB.Label Label23 
            Caption         =   "总金额:"
            Height          =   255
            Left            =   2400
            TabIndex        =   51
            Top             =   2280
            Width           =   735
         End
         Begin VB.Label Label22 
            Caption         =   "住宿人数:"
            Height          =   255
            Left            =   120
            TabIndex        =   49
            Top             =   2280
            Width           =   855
         End
         Begin VB.Label Label21 
            Caption         =   "住宿天数:"
            Height          =   255
            Left            =   2280
            TabIndex        =   47
            Top             =   1800
            Width           =   855
         End
         Begin VB.Label Label20 
            Caption         =   "房间号码:"
            Height          =   255
            Left            =   120
            TabIndex        =   45
            Top             =   1800
            Width           =   855
         End
         Begin VB.Label Label19 
            Caption         =   "证件号码:"
            Height          =   255
            Left            =   2280
            TabIndex        =   43
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label18 
            Caption         =   "证件名称:"
            Height          =   255
            Left            =   120
            TabIndex        =   41
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label17 
            Caption         =   "住店时间:"
            Height          =   255
            Left            =   2280
            TabIndex        =   39
            Top             =   840
            Width           =   855
         End
         Begin VB.Label Label16 
            Caption         =   "籍贯:"
            Height          =   255
            Left            =   360
            TabIndex        =   37
            Top             =   840
            Width           =   495
         End
         Begin VB.Label Label15 
            Caption         =   "性别："
            Height          =   255
            Left            =   2400
            TabIndex        =   35
            Top             =   360
            Width           =   615
         End
         Begin VB.Label Label14 
            Caption         =   "姓名:"
            Height          =   255
            Left            =   360
            TabIndex        =   33
            Top             =   360
            Width           =   495
         End
      End
      Begin VB.Frame Frame3 
         Height          =   735
         Left            =   -74880
         TabIndex        =   28
         Top             =   360
         Width           =   4455
         Begin VB.CommandButton Command3 
            Caption         =   "确定"
            Default         =   -1  'True
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3360
            TabIndex        =   31
            Top             =   240
            Width           =   855
         End
         Begin VB.TextBox Text13 
            Height          =   375
            Left            =   1560
            TabIndex        =   30
            Top             =   240
            Width           =   1575
         End
         Begin VB.Label Label13 
            Caption         =   "请输入要查找人的证件号码:"
            Height          =   375
            Left            =   240
            TabIndex        =   29
            Top             =   240
            Width           =   1335
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "查找结果"
         Height          =   4335
         Left            =   120
         TabIndex        =   5
         Top             =   1200
         Width           =   4455
         Begin VB.CommandButton Command4 
            Caption         =   "返回"
            BeginProperty Font