unitsroombookquery.dfm

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

object formsroombookquery: Tformsroombookquery
  Left = 149
  Top = 73
  BorderStyle = bsDialog
  Caption = #21253#38388#39044#23450#26597#35810
  ClientHeight = 439
  ClientWidth = 541
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 541
    Height = 302
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 3
      Top = 3
      Width = 530
      Height = 290
      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 = #21253#38388#39044#23450#35760#24405
        object DBGrid1: TDBGrid
          Left = 5
          Top = 5
          Width = 512
          Height = 251
          DataSource = DataSourcesroombook
          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 = 'sroomid'
              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 = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sroomno'
              Title.Caption = #21253#38388#32534#21495
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'username'
              Title.Caption = #23458#20154#22995#21517
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 67
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'userno'
              Title.Caption = #23458#20154#25968
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'booktime'
              Title.Caption = #39044#23450#26102#38388
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 92
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'arrivetime'
              Title.Caption = #39044#35745#21040#36798#26102#38388
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 88
              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 = 73
              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 = 188
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 302
    Width = 541
    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 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_sroomno: TCheckBox
        Left = 24
        Top = 54
        Width = 97
        Height = 17
        Caption = #21253#38388#32534#21495
        TabOrder = 1
        OnClick = ckbox_sroomnoClick
      end
      object ckbox_arrivetime: TCheckBox
        Left = 24
        Top = 84
        Width = 105
        Height = 17
        Caption = #39044#35745#21040#36798#26102#38388
        TabOrder = 2
        OnClick = ckbox_arrivetimeClick
      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_sroomno: 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_arrivetime: 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 DataSourcesroombook: TDataSource
    DataSet = DMHotel.ds_sroom_book_query
    Left = 272
  end
end