home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectResultSetOrders.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-06-05  |  1.6 KB  |  66 lines
  1. unit UnitObjectResultSetOrders;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   UnitObjectResultSetBase, Db, DBTables;
  8.  
  9. type
  10.   TObjectResultSetOrders = class(TObjectResultSetBase)
  11.     QuerySaleDate: TDateTimeField;
  12.     QueryShipDate: TDateTimeField;
  13.     QueryEmpNo: TIntegerField;
  14.     QueryShipToContact: TStringField;
  15.     QueryShipToAddr1: TStringField;
  16.     QueryShipToAddr2: TStringField;
  17.     QueryShipToCity: TStringField;
  18.     QueryShipToState: TStringField;
  19.     QueryShipToZip: TStringField;
  20.     QueryShipToCountry: TStringField;
  21.     QueryShipToPhone: TStringField;
  22.     QueryShipVIA: TStringField;
  23.     QueryPO: TStringField;
  24.     QueryTerms: TStringField;
  25.     QueryPaymentMethod: TStringField;
  26.     QueryItemsTotal: TCurrencyField;
  27.     QueryTaxRate: TFloatField;
  28.     QueryFreight: TCurrencyField;
  29.     QueryAmountPaid: TCurrencyField;
  30.     QueryOrderNo: TFloatField;
  31.     QueryCustNo: TFloatField;
  32.   private
  33.     { Private declarations }
  34.   protected
  35.     function GetSqlSelectClause: string; override;
  36.     function GetSqlFromClause: string; override;
  37.     function GetSelectedRecordKey: integer; override;
  38.   public
  39.   end;
  40.  
  41. var
  42.   ObjectResultSetOrders: TObjectResultSetOrders;
  43.  
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. { TObjectResultSetOrders }
  49.  
  50. function TObjectResultSetOrders.GetSelectedRecordKey: integer;
  51. begin
  52.   Result := Query.FieldByName('OrderNo').AsInteger;
  53. end;
  54.  
  55. function TObjectResultSetOrders.GetSqlFromClause: string;
  56. begin
  57.   Result := 'orders.db';
  58. end;
  59.  
  60. function TObjectResultSetOrders.GetSqlSelectClause: string;
  61. begin
  62.   Result := '*';
  63. end;
  64.  
  65. end.
  66.