home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / dpoEmployee.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-08  |  488 b   |  31 lines
  1. unit dpoEmployee;
  2.  
  3. interface
  4.  
  5. uses
  6.   dpoBase, Classes, Db, DBTables;
  7.  
  8. type
  9.   TEmployee = class(TDataObject)
  10.   private
  11.   public
  12.     constructor Create(aDB: TDatabase); override;
  13.   end;
  14.  
  15. implementation
  16.  
  17. {$R *.DFM}
  18.  
  19. { TEmployee }
  20.  
  21. constructor TEmployee.Create(aDB: TDatabase);
  22. begin
  23.   inherited Create(aDB);
  24.   { Inform the base class of the field(s) that comprise the OID }
  25.   OIDFieldNames.Text := 'EmpNo';
  26. end;
  27.  
  28. initialization
  29.   RegisterClass(TEmployee);
  30. end.
  31.