home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitFormEntityOrders.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-05-18  |  2.9 KB  |  121 lines
  1. unit UnitFormEntityOrders;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   UnitFormEntityBase, Menus, ActnList, ImgList, ComCtrls, ToolWin,
  8.   UnitObjectEntityOrders, UnitObjectBase, DBCtrls, Db, StdCtrls, Mask,
  9.   UnitObjectEntityCustomer;
  10.  
  11. type
  12.   TFormEntityOrders = class(TFormEntityBase)
  13.     Label1: TLabel;
  14.     DBEdit1: TDBEdit;
  15.     DataSourceOrders: TDataSource;
  16.     Label2: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label3: TLabel;
  19.     DBEdit3: TDBEdit;
  20.     Label4: TLabel;
  21.     DBEdit4: TDBEdit;
  22.     Label5: TLabel;
  23.     DBEdit5: TDBEdit;
  24.     Label6: TLabel;
  25.     DBEdit6: TDBEdit;
  26.     Label7: TLabel;
  27.     DBEdit7: TDBEdit;
  28.     Label8: TLabel;
  29.     DBEdit8: TDBEdit;
  30.     Label9: TLabel;
  31.     DBEdit9: TDBEdit;
  32.     Label10: TLabel;
  33.     DBEdit10: TDBEdit;
  34.     Label11: TLabel;
  35.     DBEdit11: TDBEdit;
  36.     Label12: TLabel;
  37.     DBEdit12: TDBEdit;
  38.     Label13: TLabel;
  39.     DBEdit13: TDBEdit;
  40.     Label14: TLabel;
  41.     DBEdit14: TDBEdit;
  42.     Label15: TLabel;
  43.     DBEdit15: TDBEdit;
  44.     Label16: TLabel;
  45.     DBEdit16: TDBEdit;
  46.     Label17: TLabel;
  47.     DBEdit17: TDBEdit;
  48.     Label18: TLabel;
  49.     DBEdit18: TDBEdit;
  50.     Label19: TLabel;
  51.     DBEdit19: TDBEdit;
  52.     Label20: TLabel;
  53.     DBEdit20: TDBEdit;
  54.     Label21: TLabel;
  55.     DBEdit21: TDBEdit;
  56.     DBText1: TDBText;
  57.     Label22: TLabel;
  58.     DataSourceCustomer: TDataSource;
  59.     procedure DBText1Click(Sender: TObject);
  60.   private
  61.     FCustomerObject: TObjectEntityCustomer;
  62.   protected
  63.     procedure InitializeForm; override;
  64.     procedure FinalizeForm; override;
  65.     function BusinessObjectClass: TObjectBaseClass; override;
  66.   public
  67.     function OrdersObject: TObjectEntityOrders;
  68.   end;
  69.  
  70. var
  71.   FormEntityOrders: TFormEntityOrders;
  72.  
  73. implementation
  74.  
  75. uses UnitFormEntityCustomer;
  76.  
  77. {$R *.DFM}
  78.  
  79. { TFormEntityOrders }
  80.  
  81. function TFormEntityOrders.BusinessObjectClass: TObjectBaseClass;
  82. begin
  83.   Result := TObjectEntityOrders;
  84. end;
  85.  
  86. procedure TFormEntityOrders.InitializeForm;
  87. var aCustomerKey: integer;
  88. begin
  89.   inherited;
  90.   DataSourceOrders.DataSet := OrdersObject.QueryOrders;
  91.  
  92.   aCustomerKey := OrdersObject.QueryOrders.FieldByName('CustNo').AsInteger;
  93.   FCustomerObject
  94.     := (TObjectEntityCustomer.FetchReference(Self, aCustomerKey)
  95.     as TObjectEntityCustomer);
  96.   DataSourceCustomer.DataSet := FCustomerObject.QueryCustomer;
  97.  
  98.   Self.Caption := 'Order ' + IntToStr(Key);
  99. end;
  100.  
  101. function TFormEntityOrders.OrdersObject: TObjectEntityOrders;
  102. begin
  103.   Result := (BusinessObject as TObjectEntityOrders);
  104. end;
  105.  
  106. procedure TFormEntityOrders.DBText1Click(Sender: TObject);
  107. var aCustomerKey: integer;
  108. begin
  109.   inherited;
  110.   aCustomerKey := OrdersObject.QueryOrders.FieldByName('CustNo').AsInteger;
  111.   TFormEntityCustomer.FetchForm(aCustomerKey).ShowForm;
  112. end;
  113.  
  114. procedure TFormEntityOrders.FinalizeForm;
  115. begin
  116.   FCustomerObject.FreeReference(Self);
  117.   inherited;
  118. end;
  119.  
  120. end.
  121.