setclassedit.dfm

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

inherited frmSetClassEdit: TfrmSetClassEdit
  Left = 675
  Top = 495
  Width = 300
  Height = 400
  Caption = #25490#29677#30331#35760#32534#36753
  OldCreateOrder = True
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label1: TLabel
    Top = 60
  end
  inherited Label2: TLabel
    Top = 86
  end
  inherited Label3: TLabel
    Top = 110
  end
  inherited Label4: TLabel
    Top = 135
  end
  inherited Label5: TLabel
    Top = 159
  end
  inherited Label6: TLabel
    Top = 185
  end
  inherited Label7: TLabel
    Top = 211
    Caption = #25152#23646#29677#27425#65306
  end
  inherited Label8: TLabel
    Top = 235
  end
  inherited Memo: TMemo
    Top = 232
    OnChange = CmbEmployeeChange
  end
  inherited DtpBeginDate: TDateTimePicker
    Top = 81
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited DtpEndDate: TDateTimePicker
    Top = 106
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbTimeMode: TComboBox
    Top = 131
    Text = ''
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbTimePos: TComboBox
    Top = 206
    Text = ''
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbBeginTime: TComboBox
    Top = 156
    Text = ''
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbEndTime: TComboBox
    Top = 181
    Text = ''
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbEmployee: TComboBox
    Top = 56
    Text = ''
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited ToolBar1: TToolBar
    Width = 292
    Height = 21
    inherited BtnPrior: TToolButton
      OnClick = BtnPriorClick
    end
    inherited BtnNext: TToolButton
      OnClick = BtnNextClick
    end
    inherited ToolButton7: TToolButton
      Left = 104
      Wrap = False
    end
    inherited BtnAdd: TToolButton
      Left = 116
      Top = 0
      OnClick = BtnAddClick
    end
    inherited BtnEdit: TToolButton
      Left = 156
      Top = 0
      OnClick = BtnEditClick
    end
    inherited BtnSave: TToolButton
      Left = 196
      Top = 0
      OnClick = BtnSaveClick
    end
    inherited ToolButton8: TToolButton
      Left = 236
      Top = 0
    end
    inherited BtnExit: TToolButton
      Left = 248
      Top = 0
      OnClick = BtnExitClick
    end
  end
  inherited QurFree: TADOQuery
    Top = 264
  end
end