usyslog.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 92 行

inherited fmSysLog: TfmSysLog
  Caption = #31995#32479#26085#24535
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited OptionPanel: TPanel
    inherited PnlSelect: TPanel
      inherited dxBtnSelect: TdxButtonEdit
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  inherited PageControl: TPageControl
    Font.Charset = ANSI_CHARSET
    Font.Name = 'MS Sans Serif'
    ParentFont = False
    inherited TabBrowse: TTabSheet
      inherited Splitter: TSplitter
        Height = 251
      end
      inherited DBGrid1: TdxDBGrid
        Height = 251
        KeyField = 'LogID'
        Font.Charset = ANSI_CHARSET
        Font.Name = 'MS Sans Serif'
        ParentFont = False
        Filter.Criteria = {00000000}
        HeaderFont.Charset = ANSI_CHARSET
        HeaderFont.Name = 'MS Sans Serif'
        object DBGrid1LogID: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'LogID'
        end
        object DBGrid1LogTime: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'LogTime'
        end
        object DBGrid1LogUser: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'LogUser'
        end
        object DBGrid1LogComputer: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'LogComputer'
        end
        object DBGrid1Form: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Form'
        end
        object DBGrid1Action: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Action'
        end
      end
    end
  end
  inherited ToolBar1: TToolBar
    inherited TBConfirm: TToolButton
      DropdownMenu = ClearAll
    end
  end
  inherited DataSource1: TDataSource
    DataSet = DMSys.CSysLog
  end
  inherited SubAction: TActionList
    inherited AApprove: TAction
      Caption = #25209#26680
      Visible = False
    end
    inherited AConfirm: TAction
      Caption = #28165#38500
      OnExecute = AConfirmExecute
    end
  end
  object ClearAll: TPopupMenu
    AutoHotkeys = maManual
    Left = 159
    Top = 180
    object N1: TMenuItem
      Caption = #28165#38500#25152#26377#26085#24535
      OnClick = N1Click
    end
  end
end