unitsyslog.dfm

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

object formsyslog: Tformsyslog
  Left = 128
  Top = 81
  BorderStyle = bsDialog
  Caption = #31995#32479#26085#24535
  ClientHeight = 447
  ClientWidth = 553
  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 = 296
    Width = 553
    Height = 151
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 0
    OnClick = Panel1Click
    object GroupBox1: TGroupBox
      Left = 48
      Top = 28
      Width = 305
      Height = 105
      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 Label1: TLabel
        Left = 43
        Top = 30
        Width = 56
        Height = 14
        Caption = #30331#24405#26102#38388
      end
      object Label2: TLabel
        Left = 43
        Top = 70
        Width = 56
        Height = 14
        Caption = #30331#24405#29992#25143
      end
      object cbox_user: TComboBox
        Left = 112
        Top = 66
        Width = 145
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 0
      end
      object dtp_loggingtime: TDateTimePicker
        Left = 112
        Top = 24
        Width = 145
        Height = 22
        CalAlignment = dtaLeft
        Date = 0.410406435199548
        Time = 0.410406435199548
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
    object but_query: TButton
      Left = 424
      Top = 80
      Width = 81
      Height = 33
      Caption = #26597#35810
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = but_queryClick
    end
    object StaticText1: TStaticText
      Left = 16
      Top = 8
      Width = 256
      Height = 18
      Caption = #35828#26126#65306#26597#35810#21040#22823#20110#25152#36873#30331#24405#26102#38388#30340#35760#24405#65281
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 561
    Height = 289
    ActivePage = TabSheet1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #26085#24535#35760#24405
      object DBGrid1: TDBGrid
        Left = 8
        Top = 5
        Width = 531
        Height = 249
        DataSource = DataSourcesyslog
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'logid'
            Title.Caption = #35760#24405#21495
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'username'
            Title.Caption = #29992#25143#21517
            Width = 79
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'loggingtime'
            Title.Caption = #30331#24405#26102#38388
            Width = 166
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'leavetime'
            Title.Caption = #31163#24320#26102#38388
            Width = 193
            Visible = True
          end>
      end
    end
  end
  object DataSourcesyslog: TDataSource
    DataSet = DMHotel.ds_sys_log
    Left = 376
  end
end