home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO05.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-18  |  1.5 KB  |  68 lines
  1. unit Demo05;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, CBDetBan, CBBand,
  8.   ExtCtrls, Cb_Types, CBReport;
  9.  
  10. type
  11.   TFBDemo05 = class(TForm)
  12.     CBReport1: TCBReport;
  13.     Master: TCBBand;
  14.     DetailBand1: TCBDetailBand;
  15.     DataSource1: TDataSource;
  16.     Table1: TTable;
  17.     DataSource2: TDataSource;
  18.     Table2: TTable;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     EditLAST_NAME: TDBEdit;
  22.     EditFIRST_NAME: TDBEdit;
  23.     EditADDRESS_: TDBEdit;
  24.     EditCITY: TDBEdit;
  25.     EditSTATE: TDBEdit;
  26.     EditZIP: TDBEdit;
  27.     Label3: TLabel;
  28.     EditACCT_NBR: TDBEdit;
  29.     Label8: TLabel;
  30.     EditTELEPHONE: TDBEdit;
  31.     Label9: TLabel;
  32.     EditDATE_OPEN: TDBEdit;
  33.     Label4: TLabel;
  34.     DBEdit1: TDBEdit;
  35.     Label5: TLabel;
  36.     DetailHeader: TCBBand;
  37.     Label6: TLabel;
  38.     Label7: TLabel;
  39.     Label10: TLabel;
  40.     Label11: TLabel;
  41.     Label12: TLabel;
  42.     EditSYMBOL: TDBEdit;
  43.     EditSHARES: TDBEdit;
  44.     EditPUR_PRICE: TDBEdit;
  45.     EditPUR_DATE: TDBEdit;
  46.     DetailFooter: TCBBand;
  47.     Label13: TLabel;
  48.     Label14: TLabel;
  49.     Table2ACCT_NBR: TFloatField;
  50.     Table2SYMBOL: TStringField;
  51.     Table2SHARES: TFloatField;
  52.     Table2PUR_PRICE: TFloatField;
  53.     Table2PUR_DATE: TDateField;
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  59.  
  60. var
  61.   FBDemo05: TFBDemo05;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. end.
  68.