home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectResultSetCustomer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-05  |  1.3 KB  |  56 lines
  1. unit UnitObjectResultSetCustomer;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   UnitObjectResultSetBase, Db, DBTables;
  8.  
  9. type
  10.   TObjectResultSetCustomer = class(TObjectResultSetBase)
  11.     QueryCompany: TStringField;
  12.     QueryAddr1: TStringField;
  13.     QueryAddr2: TStringField;
  14.     QueryCity: TStringField;
  15.     QueryState: TStringField;
  16.     QueryZip: TStringField;
  17.     QueryCountry: TStringField;
  18.     QueryPhone: TStringField;
  19.     QueryFAX: TStringField;
  20.     QueryTaxRate: TFloatField;
  21.     QueryContact: TStringField;
  22.     QueryLastInvoiceDate: TDateTimeField;
  23.     QueryCustNo: TFloatField;
  24.   private
  25.     { Private declarations }
  26.   protected
  27.     function GetSqlSelectClause: string; override;
  28.     function GetSqlFromClause: string; override;
  29.     function GetSelectedRecordKey: integer; override;
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. { TObjectResultSetCustomer }
  39.  
  40. function TObjectResultSetCustomer.GetSelectedRecordKey: integer;
  41. begin
  42.   Result := Query.FieldByName('CustNo').AsInteger;
  43. end;
  44.  
  45. function TObjectResultSetCustomer.GetSqlFromClause: string;
  46. begin
  47.   Result := 'customer.db';
  48. end;
  49.  
  50. function TObjectResultSetCustomer.GetSqlSelectClause: string;
  51. begin
  52.   Result := '*';
  53. end;
  54.  
  55. end.
  56.