setroom1.frm

vb酒店管理系统的原码下载

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form setroom1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "增加客房"
   ClientHeight    =   5250
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3660
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5250
   ScaleWidth      =   3660
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      Height          =   795
      Left            =   30
      ScaleHeight     =   735
      ScaleWidth      =   3555
      TabIndex        =   17
      Top             =   30
      Width           =   3615
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Label8"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   270
         Left            =   825
         TabIndex        =   18
         Top             =   45
         Width           =   1905
      End
      Begin VB.Line Line1 
         X1              =   150
         X2              =   3345
         Y1              =   330
         Y2              =   330
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "保存"
      Height          =   285
      Left            =   375
      TabIndex        =   16
      Top             =   4770
      Width           =   1050
   End
   Begin VB.CommandButton Command1 
      Caption         =   "撤消"
      Height          =   285
      Left            =   2010
      TabIndex        =   15
      Top             =   4755
      Width           =   1050
   End
   Begin VB.Frame Frame1 
      Height          =   3840
      Left            =   75
      TabIndex        =   0
      Top             =   780
      Width           =   3465
      Begin VB.TextBox Text7 
         Height          =   285
         Left            =   1395
         TabIndex        =   21
         Top             =   3375
         Width           =   1440
      End
      Begin VB.TextBox Text6 
         Height          =   285
         Left            =   1395
         TabIndex        =   19
         Top             =   3030
         Width           =   870
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   1395
         TabIndex        =   8
         Top             =   2670
         Width           =   1410
      End
      Begin VB.TextBox Text5 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1410
         TabIndex        =   6
         Top             =   1875
         Width           =   870
      End
      Begin VB.TextBox Text4 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1410
         TabIndex        =   5
         Top             =   1515
         Width           =   870
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1395
         TabIndex        =   7
         Top             =   2265
         Width           =   1410
      End
      Begin VB.TextBox Text3 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1410
         TabIndex        =   4
         Top             =   1140
         Width           =   870
      End
      Begin VB.TextBox Text2 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1410
         TabIndex        =   3
         Top             =   780
         Width           =   870
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1410
         TabIndex        =   2
         Top             =   390
         Width           =   870
      End
      Begin VB.Label Label10 
         Caption         =   "电  话："
         Height          =   300
         Left            =   630
         TabIndex        =   22
         Top             =   3405
         Width           =   840
      End
      Begin VB.Label Label9 
         Caption         =   "出售方式："
         Height          =   300
         Left            =   465
         TabIndex        =   20
         Top             =   3060
         Width           =   1005
      End
      Begin VB.Label Label7 
         Caption         =   "当前状态："
         Height          =   300
         Left            =   465
         TabIndex        =   14
         Top             =   2715
         Width           =   1095
      End
      Begin VB.Label Label6 
         Caption         =   "床位数："
         Height          =   300
         Left            =   645
         TabIndex        =   13
         Top             =   1905
         Width           =   840
      End
      Begin VB.Label Label5 
         Caption         =   "日房价："
         Height          =   300
         Left            =   615
         TabIndex        =   12
         Top             =   1545
         Width           =   840
      End
      Begin VB.Label Label4 
         Caption         =   "类  型："
         Height          =   300
         Left            =   630
         TabIndex        =   11
         Top             =   2325
         Width           =   840
      End
      Begin VB.Label Label3 
         Caption         =   "层："
         Height          =   300
         Left            =   990
         TabIndex        =   10
         Top             =   1170
         Width           =   465
      End
      Begin VB.Label Label2 
         Caption         =   "楼  号："
         Height          =   300
         Left            =   630
         TabIndex        =   9
         Top             =   810
         Width           =   840
      End
      Begin VB.Label Label1 
         Caption         =   "房  号："