setvacedit.dfm

来自「是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.」· DFM 代码 · 共 98 行

inherited frmSetVacEdit: TfrmSetVacEdit
  Left = 524
  Top = 220
  Caption = #20241#20551#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
  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
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
    OnSelect = nil
  end
  inherited CmbTimePos: TComboBox
    Top = 206
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbBeginTime: TComboBox
    Top = 156
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbEndTime: TComboBox
    Top = 181
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited CmbEmployee: TComboBox
    Top = 56
    OnChange = CmbEmployeeChange
    OnKeyPress = DtpBeginDateKeyPress
  end
  inherited ToolBar1: TToolBar
    inherited BtnPrior: TToolButton
      OnClick = BtnPriorClick
    end
    inherited BtnNext: TToolButton
      OnClick = BtnNextClick
    end
    inherited BtnAdd: TToolButton
      OnClick = BtnAddClick
    end
    inherited BtnEdit: TToolButton
      OnClick = BtnEditClick
    end
    inherited BtnSave: TToolButton
      OnClick = BtnSaveClick
    end
    inherited BtnExit: TToolButton
      OnClick = BtnExitClick
    end
  end
  inherited QurFree: TADOQuery
    Top = 264
  end
end