unitroomstatusrequery.dfm

来自「自己做过的工程」· DFM 代码 · 共 295 行

object formroomstatusrequery: Tformroomstatusrequery
  Left = 269
  Top = 84
  BorderStyle = bsDialog
  Caption = #25151#38388#29366#24577#26597#35810
  ClientHeight = 453
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 453
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 537
      Height = 457
      ActivePage = TabSheet1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #25151#38388#29366#24577#26597#35810
        OnShow = TabSheet1Show
        object PageControl2: TPageControl
          Left = -35
          Top = -3
          Width = 330
          Height = 435
          TabOrder = 0
        end
        object Panel2: TPanel
          Left = 296
          Top = -2
          Width = 233
          Height = 431
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object ed_onuse: TEdit
            Left = 112
            Top = 81
            Width = 81
            Height = 22
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            Text = 'ed_onuse'
          end
          object ed_leasure: TEdit
            Left = 112
            Top = 32
            Width = 81
            Height = 22
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            Text = 'ed_leasure'
          end
          object ed_book: TEdit
            Left = 112
            Top = 130
            Width = 81
            Height = 22
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            Text = 'ed_book'
          end
          object ed_forbid: TEdit
            Left = 112
            Top = 179
            Width = 81
            Height = 22
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            Text = 'Edit1'
          end
          object StaticText1: TStaticText
            Left = 16
            Top = 35
            Width = 74
            Height = 18
            Caption = #31354#38386#25151#38388#25968
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 4
          end
          object StaticText2: TStaticText
            Left = 16
            Top = 84
            Width = 74
            Height = 18
            Caption = #20351#29992#25151#38388#25968
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 5
          end
          object StaticText3: TStaticText
            Left = 18
            Top = 133
            Width = 74
            Height = 18
            Caption = #39044#23450#25151#38388#25968
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 6
          end
          object StaticText4: TStaticText
            Left = 18
            Top = 182
            Width = 74
            Height = 18
            Caption = #20572#29992#25151#38388#25968
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 7
          end
          object but_roomquery: TButton
            Left = 64
            Top = 376
            Width = 81
            Height = 33
            Caption = ' '#26597' '#35810
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            OnClick = but_roomqueryClick
          end
          object GroupBox1: TGroupBox
            Left = 32
            Top = 272
            Width = 161
            Height = 97
            Caption = #26597#35810#26465#20214
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 9
            object cbBox_roomstatus: TComboBox
              Left = 16
              Top = 56
              Width = 105
              Height = 22
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlue
              Font.Height = -14
              Font.Name = #23435#20307
              Font.Style = []
              ItemHeight = 14
              ParentFont = False
              TabOrder = 0
              Text = #31354#38386
              Items.Strings = (
                #31354#38386
                #20351#29992
                #39044#23450
                #20572#29992)
            end
            object StaticText5: TStaticText
              Left = 13
              Top = 32
              Width = 60
              Height = 18
              Caption = #25151#38388#29366#24577
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlue
              Font.Height = -14
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
          end
          object StaticText6: TStaticText
            Left = 29
            Top = 250
            Width = 144
            Height = 18
            Caption = #27880#65306#26681#25454#25151#38388#29366#24577#26597#35810
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 10
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 289
          Height = 425
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 2
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'roomid'
              Title.Caption = #25151#38388#26631#21495
              Width = 77
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'roomstatus'
              Title.Caption = #25151#38388#29366#24577
              Width = 71
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'roomtype'
              Title.Caption = #25151#38388#31867#22411
              Visible = True
            end>
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ADODataSet_roomstatus_requery
    Left = 352
    Top = 24
  end
end