pfm_optrecord.~dfm

POS收银系统

object fm_optrecord: Tfm_optrecord
  Left = 191
  Top = 122
  Width = 715
  Height = 421
  Caption = '用户操作日志'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnDeactivate = FormDeactivate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 189
    Height = 394
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 4
      Top = 48
      Width = 182
      Height = 13
      Caption = '选择日期，删除该日期前的日志'
    end
    object BitBtn1: TBitBtn
      Left = 8
      Top = 144
      Width = 101
      Height = 25
      Caption = '全部清空日志'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 8
      Top = 108
      Width = 101
      Height = 25
      Caption = '根据日期删除'
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object DTPicker1: TDateTimePicker
      Left = 8
      Top = 72
      Width = 101
      Height = 21
      CalAlignment = dtaLeft
      Date = 36733.4039290393
      Time = 36733.4039290393
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 189
    Top = 0
    Width = 518
    Height = 394
    Align = alClient
    Caption = '操作日志'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 514
      Height = 377
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'musername'
          Title.Caption = '用户'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'mpname'
          Title.Caption = '姓名'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rq'
          Title.Caption = '时间'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'maction'
          Title.Caption = '操作'
          Visible = True
        end>
    end
  end
  object qryRec: TQuery
    Left = 152
    Top = 160
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select * from t_optrecord ')
    Left = 160
    Top = 116
    object Query1musername: TStringField
      FieldName = 'musername'
      Origin = 'POSDB."dbo.t_optrecord".musername'
      FixedChar = True
      Size = 10
    end
    object Query1mpname: TStringField
      FieldName = 'mpname'
      Origin = 'POSDB."dbo.t_optrecord".mpname'
      FixedChar = True
      Size = 12
    end
    object Query1rq: TDateTimeField
      FieldName = 'rq'
      Origin = 'POSDB."dbo.t_optrecord".rq'
    end
    object Query1maction: TStringField
      FieldName = 'maction'
      Origin = 'POSDB."dbo.t_optrecord".maction'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 160
    Top = 76
  end
end