elv_reg.pas

上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复代码比较多.唯一感觉有点取鉴的可能就是端口和dll的连接,还有线程的使用,本想改一改,但是手头没有考勤机了,对应考勤机是

{$I DFS.INC}

unit ELV_Reg;

interface

procedure Register;

implementation

uses
  {$IFDEF DFS_NO_DSGNINTF}
  DesignIntf,
  DesignEditors,
  {$ELSE}
  DsgnIntf,
  {$ENDIF}
  Classes, DFSAbout, EnhListView,
  {$IFDEF DFS_COMPILER_2}
  ExtColEd,
  {$ENDIF}
  ExtListView;

procedure Register;
begin
  RegisterComponents('DFS', [TdfsEnhListView]);
  RegisterPropertyEditor(TypeInfo(TdfsEnhLVSaveSettings), NIL, '', TClassProperty);
  RegisterComponents('DFS', [TdfsExtListView]);
  RegisterPropertyEditor(TypeInfo(TdfsExtLVSaveSettings), NIL, '', TClassProperty);
{$IFDEF DFS_COMPILER_2}
  RegisterPropertyEditor(TypeInfo(TdfsExtListColumns), NIL, '',
     TdfsExtListColumnsProperty);
{$ENDIF}
  RegisterPropertyEditor(TypeInfo(string), TCustomEnhListView, 'Version',
     TDFSVersionProperty);
end;

end.