home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
DEMO05.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-01-18
|
1KB
|
68 lines
unit Demo05;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, CBDetBan, CBBand,
ExtCtrls, Cb_Types, CBReport;
type
TFBDemo05 = class(TForm)
CBReport1: TCBReport;
Master: TCBBand;
DetailBand1: TCBDetailBand;
DataSource1: TDataSource;
Table1: TTable;
DataSource2: TDataSource;
Table2: TTable;
Label1: TLabel;
Label2: TLabel;
EditLAST_NAME: TDBEdit;
EditFIRST_NAME: TDBEdit;
EditADDRESS_: TDBEdit;
EditCITY: TDBEdit;
EditSTATE: TDBEdit;
EditZIP: TDBEdit;
Label3: TLabel;
EditACCT_NBR: TDBEdit;
Label8: TLabel;
EditTELEPHONE: TDBEdit;
Label9: TLabel;
EditDATE_OPEN: TDBEdit;
Label4: TLabel;
DBEdit1: TDBEdit;
Label5: TLabel;
DetailHeader: TCBBand;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
EditSYMBOL: TDBEdit;
EditSHARES: TDBEdit;
EditPUR_PRICE: TDBEdit;
EditPUR_DATE: TDBEdit;
DetailFooter: TCBBand;
Label13: TLabel;
Label14: TLabel;
Table2ACCT_NBR: TFloatField;
Table2SYMBOL: TStringField;
Table2SHARES: TFloatField;
Table2PUR_PRICE: TFloatField;
Table2PUR_DATE: TDateField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FBDemo05: TFBDemo05;
implementation
{$R *.DFM}
end.