unitsroomhquery.dfm

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

object formsroomHquery: TformsroomHquery
  Left = 147
  Top = 75
  BorderStyle = bsDialog
  Caption = #21253#38388#29366#20917#21382#21490#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 = 306
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 3
      Top = 0
      Width = 534
      Height = 300
      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#29366#20917#21382#21490#35760#24405
        object DBGrid1: TDBGrid
          Left = 6
          Top = 6
          Width = 515
          Height = 257
          DataSource = DataSourcesroomH
          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 = 'sdid'
              Title.Caption = #23601#39184#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 = 75
              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 = []
              Width = 60
              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 = 66
              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 = 48
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'entertime'
              Title.Caption = #30331#35760#26102#38388
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -14
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 122
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'roomno'
              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 = 68
              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 = 233
              Visible = True
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 306
    Width = 541
    Height = 133
    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#26366#32463#29992#39184#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_sroomno: TCheckBox
        Left = 24
        Top = 54
        Width = 97
        Height = 17
        Caption = #21253#38388#32534#21495
        TabOrder = 1
        OnClick = ckbox_sroomnoClick
      end
      object ckbox_entertime: TCheckBox
        Left = 24
        Top = 84
        Width = 105
        Height = 17
        Caption = #30331#35760#26102#38388
        TabOrder = 2
        OnClick = ckbox_entertimeClick
      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_entertime: 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 DataSourcesroomH: TDataSource
    DataSet = DMHotel.ds_sup_detail_query
    Left = 272
  end
end