rptmain.dfm

是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.

object frmRptMain: TfrmRptMain
  Left = 182
  Top = 165
  Width = 1047
  Height = 768
  Caption = #32771#21220#25253#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1039
    Height = 49
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 18
      Width = 60
      Height = 13
      Caption = #21592#24037#21517#31216#65306
      OnClick = Label1Click
    end
    object Label2: TLabel
      Left = 184
      Top = 18
      Width = 60
      Height = 13
      Caption = #24320#22987#26102#38388#65306
    end
    object Label3: TLabel
      Left = 360
      Top = 18
      Width = 60
      Height = 13
      Caption = #32467#26463#26085#26399#65306
    end
    object Label4: TLabel
      Left = 536
      Top = 18
      Width = 96
      Height = 13
      Caption = #36864#21040#26089#36864#20998#30028#28857#65306
    end
    object Label5: TLabel
      Left = 668
      Top = 18
      Width = 72
      Height = 13
      Caption = #26103#24037#20998#30028#28857#65306
    end
    object CmbEmployee: TComboBox
      Left = 72
      Top = 14
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
    end
    object DtpBeginDate: TDateTimePicker
      Left = 248
      Top = 14
      Width = 105
      Height = 21
      CalAlignment = dtaLeft
      Date = 38944.5771261921
      Time = 38944.5771261921
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DtpEndDate: TDateTimePicker
      Left = 421
      Top = 14
      Width = 105
      Height = 21
      CalAlignment = dtaLeft
      Date = 38944.5775146412
      Time = 38944.5775146412
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object BtnQuery: TButton
      Left = 784
      Top = 11
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = BtnQueryClick
    end
    object EdtLate: TEdit
      Left = 630
      Top = 14
      Width = 33
      Height = 21
      TabOrder = 4
      Text = '0'
    end
    object EdtAbsent: TEdit
      Left = 737
      Top = 14
      Width = 33
      Height = 21
      TabOrder = 5
      Text = '60'
    end
  end
  object Grid: TStringGrid
    Left = 0
    Top = 49
    Width = 1039
    Height = 692
    Align = alClient
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 128
    Top = 200
    Width = 817
    Height = 489
    DataSource = DSGrid
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object QurFree: TADOQuery
    Connection = frmDM.Con
    Parameters = <>
    Left = 8
    Top = 56
  end
  object QurGrid: TADOQuery
    Connection = frmDM.Con
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'hhh'
        DataType = ftString
        Size = 4
        Value = 'hhhh'
      end>
    Left = 48
    Top = 56
  end
  object DSGrid: TDataSource
    DataSet = QurFree
    Left = 88
    Top = 56
  end
end