home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitFormEntityCustomer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-05-17  |  2.0 KB  |  81 lines
  1. unit UnitFormEntityCustomer;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   UnitFormEntityBase, Menus, ActnList, ImgList, ComCtrls, ToolWin, Db,
  8.   UnitObjectEntityCustomer, StdCtrls, Mask, DBCtrls, UnitObjectBase,
  9.   UnitFrameResultSetBase, UnitFrameResultSetOrders;
  10.  
  11. type
  12.   TFormEntityCustomer = class(TFormEntityBase)
  13.     DataSourceCustomer: TDataSource;
  14.     PageControl1: TPageControl;
  15.     TabSheet1: TTabSheet;
  16.     TabSheet2: TTabSheet;
  17.     Label1: TLabel;
  18.     DBEdit1: TDBEdit;
  19.     Label2: TLabel;
  20.     DBEdit2: TDBEdit;
  21.     Label3: TLabel;
  22.     DBEdit3: TDBEdit;
  23.     Label4: TLabel;
  24.     DBEdit4: TDBEdit;
  25.     Label5: TLabel;
  26.     DBEdit5: TDBEdit;
  27.     Label6: TLabel;
  28.     DBEdit6: TDBEdit;
  29.     Label7: TLabel;
  30.     DBEdit7: TDBEdit;
  31.     Label8: TLabel;
  32.     DBEdit8: TDBEdit;
  33.     Label9: TLabel;
  34.     DBEdit9: TDBEdit;
  35.     Label10: TLabel;
  36.     DBEdit10: TDBEdit;
  37.     Label11: TLabel;
  38.     DBEdit11: TDBEdit;
  39.     Label12: TLabel;
  40.     DBEdit12: TDBEdit;
  41.     Label13: TLabel;
  42.     DBEdit13: TDBEdit;
  43.     FrameResultSetOrders: TFrameResultSetOrders;
  44.   private
  45.   protected
  46.     procedure InitializeForm; override;
  47.     function BusinessObjectClass: TObjectBaseClass; override;
  48.   public
  49.     function CustomerObject: TObjectEntityCustomer;
  50.   end;
  51.  
  52. var
  53.   FormEntityCustomer: TFormEntityCustomer;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. { TFormEntityBase1 }
  60.  
  61. function TFormEntityCustomer.BusinessObjectClass: TObjectBaseClass;
  62. begin
  63.   Result := TObjectEntityCustomer;
  64. end;
  65.  
  66. function TFormEntityCustomer.CustomerObject: TObjectEntityCustomer;
  67. begin
  68.   Result := (BusinessObject as TObjectEntityCustomer);
  69. end;
  70.  
  71. procedure TFormEntityCustomer.InitializeForm;
  72. begin
  73.   inherited;
  74.   Self.DataSourceCustomer.DataSet := CustomerObject.QueryCustomer;
  75.   FrameResultSetOrders.ResultSetObject.SqlWhereClause := 'CustNo = ' + IntToStr(Key);
  76.   FrameResultSetOrders.ResultSetObject.RefreshResultSet;
  77.   Self.Caption := 'Customer ' + IntToStr(Key);
  78. end;
  79.  
  80. end.
  81.