unitsuproomstatusquery.dfm

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

object formsuproomstatusquery: Tformsuproomstatusquery
  Left = 111
  Top = 105
  Width = 584
  Height = 413
  Caption = #21253#38388#29366#24577#26597#35810
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 576
    Height = 256
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 7
      Top = 3
      Width = 559
      Height = 238
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #21253#38388#29366#24577
        object DBGrid1: TDBGrid
          Left = 8
          Top = 3
          Width = 537
          Height = 201
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'sroomno'
              Title.Caption = #21253#38388#32534#21495
              Width = 89
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomname'
              Title.Caption = #21253#38388#21517#31216
              Width = 95
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomtype'
              Title.Caption = #21253#38388#31867#22411
              Width = 115
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomstatus'
              Title.Caption = #21253#38388#29366#24577
              Width = 101
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 256
    Width = 576
    Height = 130
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 1
    object lab_number: TLabel
      Left = 340
      Top = 25
      Width = 28
      Height = 14
      Caption = #25968#37327
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object GroupBox1: TGroupBox
      Left = 29
      Top = 9
      Width = 276
      Height = 105
      Caption = #26597#35810#26465#20214
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object ckbox_sroomno: TCheckBox
        Left = 31
        Top = 66
        Width = 97
        Height = 17
        Caption = #21253#38388#32534#21495
        TabOrder = 0
        OnClick = ckbox_sroomnoClick
      end
      object ckbox_sroomstatus: TCheckBox
        Left = 31
        Top = 34
        Width = 97
        Height = 17
        Caption = #21253#38388#29366#24577
        TabOrder = 1
        OnClick = ckbox_sroomstatusClick
      end
      object ed_sroomno: TEdit
        Left = 119
        Top = 64
        Width = 121
        Height = 22
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Visible = False
      end
      object cbox_sroomstatus: TComboBox
        Left = 119
        Top = 32
        Width = 121
        Height = 22
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 14
        ItemIndex = 0
        ParentFont = False
        TabOrder = 3
        Text = #31354#38386
        Visible = False
        Items.Strings = (
          #31354#38386
          #39044#23450
          #20351#29992
          #20572#29992)
      end
    end
    object ed_number: TEdit
      Left = 380
      Top = 19
      Width = 97
      Height = 22
      ReadOnly = True
      TabOrder = 1
      Visible = False
    end
    object but_query: TButton
      Left = 376
      Top = 73
      Width = 81
      Height = 33
      Caption = #26597#35810
      Default = True
      TabOrder = 2
      OnClick = but_queryClick
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ds_sup_room_status_query
    Left = 304
  end
end