register.dfm

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

object frmRegister: TfrmRegister
  Left = 578
  Top = 377
  Width = 300
  Height = 400
  Caption = 'frmRegister'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 52
    Width = 60
    Height = 13
    Caption = #21592#24037#21517#31216#65306
  end
  object Label2: TLabel
    Left = 32
    Top = 78
    Width = 60
    Height = 13
    Caption = #24320#22987#26085#26399#65306
  end
  object Label3: TLabel
    Left = 32
    Top = 102
    Width = 60
    Height = 13
    Caption = #32467#26463#26085#26399#65306
  end
  object Label4: TLabel
    Left = 32
    Top = 127
    Width = 60
    Height = 13
    Caption = #26102#38388#27169#24335#65306
  end
  object Label5: TLabel
    Left = 32
    Top = 151
    Width = 60
    Height = 13
    Caption = #24320#22987#26102#38388#65306
  end
  object Label6: TLabel
    Left = 32
    Top = 177
    Width = 60
    Height = 13
    Caption = #32467#26463#26102#38388#65306
  end
  object Label7: TLabel
    Left = 32
    Top = 203
    Width = 60
    Height = 13
    Caption = #26102'  '#38388'  '#27573#65306
  end
  object Label8: TLabel
    Left = 32
    Top = 227
    Width = 60
    Height = 13
    Caption = #22791'        '#27880#65306
  end
  object Memo: TMemo
    Left = 96
    Top = 224
    Width = 161
    Height = 57
    Lines.Strings = (
      'Memo')
    TabOrder = 0
  end
  object DtpBeginDate: TDateTimePicker
    Left = 96
    Top = 73
    Width = 161
    Height = 20
    CalAlignment = dtaLeft
    Date = 38943.3744174884
    Time = 38943.3744174884
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
  end
  object DtpEndDate: TDateTimePicker
    Left = 96
    Top = 98
    Width = 161
    Height = 20
    CalAlignment = dtaLeft
    Date = 38943.3744777199
    Time = 38943.3744777199
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object CmbTimeMode: TComboBox
    Left = 96
    Top = 123
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Text = 'CmbTimeMode'
    OnSelect = CmbTimeModeSelect
  end
  object CmbTimePos: TComboBox
    Left = 96
    Top = 198
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = 'CmbTimePos'
  end
  object CmbBeginTime: TComboBox
    Left = 96
    Top = 148
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = 'CmbBeginTime'
    OnDropDown = CmbBeginTimeDropDown
  end
  object CmbEndTime: TComboBox
    Left = 96
    Top = 173
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = 'CmbEndTime'
    OnDropDown = CmbBeginTimeDropDown
  end
  object CmbEmployee: TComboBox
    Left = 96
    Top = 48
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 7
    Text = 'CmbEmployee'
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 292
    Height = 52
    AutoSize = True
    ButtonHeight = 19
    ButtonWidth = 48
    Caption = 'ToolBar1'
    Flat = True
    List = True
    ShowCaptions = True
    TabOrder = 8
    object BtnPrior: TToolButton
      Left = 0
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = #19978#19968#26465
      ImageIndex = 4
    end
    object BtnNext: TToolButton
      Left = 52
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = #19979#19968#26465
      ImageIndex = 5
    end
    object ToolButton7: TToolButton
      Left = 0
      Top = 0
      Width = 12
      AllowAllUp = True
      AutoSize = True
      Caption = 'ToolButton7'
      ImageIndex = 4
      Wrap = True
      Style = tbsSeparator
    end
    object BtnAdd: TToolButton
      Left = 0
      Top = 31
      AllowAllUp = True
      AutoSize = True
      Caption = #26032#22686
      ImageIndex = 0
    end
    object BtnEdit: TToolButton
      Left = 40
      Top = 31
      AllowAllUp = True
      AutoSize = True
      Caption = #20462#25913
      ImageIndex = 1
    end
    object BtnSave: TToolButton
      Left = 80
      Top = 31
      AllowAllUp = True
      AutoSize = True
      Caption = #20445#23384
      ImageIndex = 2
    end
    object ToolButton8: TToolButton
      Left = 120
      Top = 31
      Width = 12
      AllowAllUp = True
      AutoSize = True
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object BtnExit: TToolButton
      Left = 132
      Top = 31
      AllowAllUp = True
      AutoSize = True
      Caption = #21462#28040
      ImageIndex = 3
    end
  end
  object QurFree: TADOQuery
    Connection = frmDM.Con
    Parameters = <>
    Left = 32
    Top = 256
  end
end