setroom1.frm

来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 428 行 · 第 1/2 页

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form setroom1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "【客房设置】"
   ClientHeight    =   5160
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3135
   Icon            =   "setroom1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   3135
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      Height          =   795
      Left            =   75
      Picture         =   "setroom1.frx":1982
      ScaleHeight     =   735
      ScaleWidth      =   2955
      TabIndex        =   17
      Top             =   30
      Width           =   3015
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Label8"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   240
         Left            =   1140
         TabIndex        =   18
         Top             =   240
         Width           =   825
      End
   End
   Begin VB.CommandButton Command2 
      Height          =   375
      Left            =   360
      Picture         =   "setroom1.frx":2CB2
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   4680
      Width           =   1000
   End
   Begin VB.CommandButton Command1 
      Height          =   375
      Left            =   1800
      Picture         =   "setroom1.frx":3B04
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   4680
      Width           =   1000
   End
   Begin VB.Frame Frame1 
      Height          =   3840
      Left            =   75
      TabIndex        =   0
      Top             =   780
      Width           =   3015
      Begin VB.ComboBox Combo3 
         BackColor       =   &H80000013&
         Height          =   300
         Left            =   1395
         TabIndex        =   22
         Top             =   3000
         Width           =   1410
      End
      Begin VB.TextBox Text7 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1395
         TabIndex        =   20
         Top             =   3375
         Width           =   1440
      End
      Begin VB.ComboBox Combo2 
         BackColor       =   &H80000013&
         Height          =   300
         Left            =   1395
         TabIndex        =   8
         Top             =   2640
         Width           =   1410
      End
      Begin VB.TextBox Text5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1410
         TabIndex        =   6
         Top             =   1875
         Width           =   870
      End
      Begin VB.TextBox Text4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1410
         TabIndex        =   5
         Top             =   1515
         Width           =   870
      End
      Begin VB.ComboBox Combo1 
         BackColor       =   &H80000013&
         Height          =   300
         Left            =   1395
         TabIndex        =   7
         Top             =   2265
         Width           =   1410
      End
      Begin VB.TextBox Text3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1410
         TabIndex        =   4
         Top             =   1140
         Width           =   870
      End
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1410
         TabIndex        =   3
         Top             =   780
         Width           =   870
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         Height          =   285
         Left            =   1410
         TabIndex        =   2
         Top             =   390
         Width           =   870
      End
      Begin VB.Label Label10 
         Caption         =   "电  话："
         Height          =   300
         Left            =   630
         TabIndex        =   21
         Top             =   3405
         Width           =   840
      End
      Begin VB.Label Label9 
         Caption         =   "出售方式："
         Height          =   300
         Left            =   465
         TabIndex        =   19
         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            =   630
         TabIndex        =   10
         Top             =   1170
         Width           =   825
      End
      Begin VB.Label Label2 
         Caption         =   "楼  号："
         Height          =   300
         Left            =   630
         TabIndex        =   9
         Top             =   810
         Width           =   840
      End