unitroomquery.~dfm

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

object formroomquery: Tformroomquery
  Left = 180
  Top = 99
  BorderStyle = bsDialog
  Caption = #23458#25151#29366#20917#26597#35810
  ClientHeight = 440
  ClientWidth = 531
  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 = 531
    Height = 303
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 3
      Top = 0
      Width = 521
      Height = 297
      ActivePage = TabSheet1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #23458#25151#29366#20917#35760#24405
        object DBGrid1: TDBGrid
          Left = 7
          Top = 5
          Width = 497
          Height = 257
          DataSource = DataSourceroom
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'code'
              Title.Caption = #35760#24405#21495
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 49
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'roomid'
              Title.Caption = #25151#38388#32534#21495
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 65
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'username'
              Title.Caption = #25151#23458#22995#21517
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'usersex'
              Title.Caption = #24615#21035
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 33
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'userno'
              Title.Caption = #20837#20303#20154#25968
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 58
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'certificatetype'
              Title.Caption = #35777#20214#31867#22411
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 74
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'certificateid'
              Title.Caption = #35777#20214#21495#30721
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 117
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'nativeplace'
              Title.Caption = #31821#36143
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'intime'
              Title.Caption = #20837#20303#26102#38388
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 138
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bookmoney'
              Title.Caption = #23450#37329
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 42
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'employeeid'
              Title.Caption = #25805#20316#21592#32534#21495
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 74
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'remark'
              Title.Caption = #22791#27880
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 223
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 303
    Width = 531
    Height = 137
    Align = alBottom
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 368
      Top = 32
      Width = 154
      Height = 14
      Caption = #27880#65306#24403#21069#20837#20303#23458#20154#36164#26009#65281
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 36
      Top = 8
      Width = 321
      Height = 113
      Caption = #26597#35810#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object ckbox_username: TCheckBox
        Left = 24
        Top = 24
        Width = 97
        Height = 17
        Caption = #23458#20154#22995#21517
        TabOrder = 0
        OnClick = ckbox_usernameClick
      end
      object ckbox_roomid: TCheckBox
        Left = 24
        Top = 54
        Width = 97
        Height = 17
        Caption = #25151#38388#32534#21495
        TabOrder = 1
        OnClick = ckbox_roomidClick
      end
      object ckbox_intime: TCheckBox
        Left = 24
        Top = 84
        Width = 105
        Height = 17
        Caption = #20837#20303#26102#38388
        TabOrder = 2
        OnClick = ckbox_intimeClick
      end
      object ed_username: TEdit
        Left = 144
        Top = 20
        Width = 137
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Visible = False
      end
      object ed_roomid: TEdit
        Left = 144
        Top = 50
        Width = 137
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        Visible = False
      end
      object dtp_intime: TDateTimePicker
        Left = 144
        Top = 80
        Width = 137
        Height = 22
        CalAlignment = dtaLeft
        Date = 37478.9235407986
        Time = 37478.9235407986
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 5
        Visible = False
      end
    end
    object but_query: TButton
      Left = 408
      Top = 72
      Width = 81
      Height = 33
      Caption = #26597#35810
      Default = True
      TabOrder = 1
      OnClick = but_queryClick
    end
  end
  object DataSourceroom: TDataSource
    DataSet = DMHotel.ADODataSetroominquery
    Left = 272
  end
end