main_zjyj.frm

华城酒店管理系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form main_zjyj 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "追加押金"
   ClientHeight    =   4080
   ClientLeft      =   1830
   ClientTop       =   3225
   ClientWidth     =   8625
   Icon            =   "main_zjyj.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4080
   ScaleWidth      =   8625
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   1410
      Left            =   75
      TabIndex        =   8
      Top             =   690
      Width           =   8490
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1200
         TabIndex        =   23
         Top             =   240
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         Height          =   300
         Left            =   1200
         TabIndex        =   14
         Top             =   720
         Width           =   2160
      End
      Begin VB.Label Lab3 
         BackStyle       =   0  'Transparent
         Caption         =   "　　提示：                                              请选择房间号码后，输入押金。"
         Height          =   480
         Left            =   3780
         TabIndex        =   21
         Top             =   360
         Width           =   4545
      End
      Begin VB.Image Image1 
         Height          =   210
         Left            =   3795
         Picture         =   "main_zjyj.frx":0442
         Stretch         =   -1  'True
         Top             =   345
         Width           =   240
      End
      Begin VB.Label Lab2 
         BackStyle       =   0  'Transparent
         Caption         =   "追加押金"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   210
         TabIndex        =   12
         Top             =   765
         Width           =   1230
      End
      Begin VB.Label lab1 
         BackStyle       =   0  'Transparent
         Caption         =   "房间号码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   225
         TabIndex        =   9
         Top             =   345
         Width           =   1155
      End
   End
   Begin VB.TextBox czy 
      BackColor       =   &H80000004&
      BorderStyle     =   0  'None
      Height          =   240
      Left            =   885
      TabIndex        =   5
      Top             =   3690
      Width           =   1170
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00C0C0C0&
      Caption         =   "登记"
      Height          =   300
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3675
      Width           =   1140
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "打印"
      Enabled         =   0   'False
      Height          =   300
      Left            =   6150
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3675
      Width           =   1125
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00C0C0C0&
      Caption         =   "退出"
      Height          =   300
      Left            =   7410
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3675
      Width           =   1155
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "确定"
      Enabled         =   0   'False
      Height          =   300
      Left            =   4800
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3675
      Width           =   1155
   End
   Begin VB.Frame Frame2 
      Height          =   1440
      Left            =   75
      TabIndex        =   7
      Top             =   2115
      Width           =   8475
      Begin VB.TextBox Text2 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1380
         TabIndex        =   20
         Top             =   270
         Width           =   1470
      End
      Begin VB.TextBox Text6 
         Enabled         =   0   'False
         Height          =   285
         Left            =   4110
         TabIndex        =   19
         Top             =   645
         Width           =   1470
      End
      Begin VB.TextBox Text5 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1380
         TabIndex        =   18
         Top             =   645
         Width           =   1470
      End
      Begin VB.TextBox Text7 
         Enabled         =   0   'False
         Height          =   285
         Left            =   6825
         TabIndex        =   17
         Top             =   645
         Width           =   1470
      End
      Begin VB.TextBox Text4 
         Enabled         =   0   'False
         Height          =   285
         Left            =   6810
         TabIndex        =   16
         Top             =   270
         Width           =   1470
      End
      Begin VB.TextBox Text3 
         Enabled         =   0   'False
         Height          =   285
         Left            =   4110
         TabIndex        =   15
         Top             =   255
         Width           =   1470
      End
      Begin MSComCtl2.DTPicker DTP1 
         Height          =   300
         Left            =   1380
         TabIndex        =   22
         Top             =   1050
         Width           =   1410
         _ExtentX        =   2487
         _ExtentY        =   529
         _Version        =   393216
         Enabled         =   0   'False
         Format          =   171507713
         CurrentDate     =   37203
      End
      Begin VB.Label Lab6 
         BackStyle       =   0  'Transparent
         Caption         =   "住宿日期     "
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   225
         TabIndex        =   13
         Top             =   1080
         Width           =   2700
      End
      Begin VB.Label Lab4 
         BackStyle       =   0  'Transparent
         Caption         =   "姓    名               已交押金               住宿天数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False