home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
BANDMAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-01-18
|
4KB
|
158 lines
unit BandMain;
interface
uses
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TBandDemo = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
FishDemo: TButton;
Master: TButton;
MasterDetail: TButton;
Detail: TButton;
Chain: TButton;
MasterDetailDetail: TButton;
Exit: TButton;
FishDemoAll: TButton;
MasterAll: TButton;
MasterDetailAll: TButton;
DetailAll: TButton;
ChainAll: TButton;
MasterDetailDetailAll: TButton;
Various: TButton;
Memo1: TMemo;
procedure MasterClick(Sender: TObject);
procedure MasterDetailClick(Sender: TObject);
procedure DetailClick(Sender: TObject);
procedure ChainClick(Sender: TObject);
procedure FishDemoClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
procedure MasterDetailDetailClick(Sender: TObject);
procedure FishDemoAllClick(Sender: TObject);
procedure MasterAllClick(Sender: TObject);
procedure MasterDetailAllClick(Sender: TObject);
procedure DetailAllClick(Sender: TObject);
procedure ChainAllClick(Sender: TObject);
procedure MasterDetailDetailAllClick(Sender: TObject);
procedure VariousClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BandDemo: TBandDemo;
implementation
uses
demo01, demo02, demo03, demo04, demo05, demo06, demo07;
{$R *.DFM}
procedure TBandDemo.FishDemoClick(Sender: TObject);
begin
FBDemo01 := TFBDemo01.Create (Application);
FBDemo01.CBReport1.ExecuteEntity(1);
FBDemo01.Free;
end;
procedure TBandDemo.FishDemoAllClick(Sender: TObject);
begin
FBDemo01 := TFBDemo01.Create (Application);
FBDemo01.CBReport1.Execute;
FBDemo01.Free;
end;
procedure TBandDemo.MasterClick(Sender: TObject);
begin
FBDemo02 := TFBDemo02.Create (Application);
FBDemo02.CBReport1.ExecuteEntity(1);
FBDemo02.Free;
end;
procedure TBandDemo.MasterAllClick(Sender: TObject);
begin
FBDemo02 := TFBDemo02.Create (Application);
FBDemo02.CBReport1.Execute;
FBDemo02.Free;
end;
procedure TBandDemo.MasterDetailClick(Sender: TObject);
begin
FBDemo03 := TFBDemo03.Create (Application);
FBDemo03.CBReport1.ExecuteEntity(1);
FBDemo03.Free;
end;
procedure TBandDemo.MasterDetailAllClick(Sender: TObject);
begin
FBDemo03 := TFBDemo03.Create (Application);
FBDemo03.CBReport1.Execute;
FBDemo03.Free;
end;
procedure TBandDemo.DetailClick(Sender: TObject);
begin
FBDemo04 := TFBDemo04.Create (Application);
FBDemo04.CBReport1.ExecuteEntity(1);
FBDemo04.Free;
end;
procedure TBandDemo.DetailAllClick(Sender: TObject);
begin
FBDemo04 := TFBDemo04.Create (Application);
FBDemo04.CBReport1.Execute;
FBDemo04.Free;
end;
procedure TBandDemo.ChainClick(Sender: TObject);
begin
FBDemo05 := TFBDemo05.Create (Application);
FBDemo05.CBReport1.ExecuteEntity(1);
FBDemo05.Free;
end;
procedure TBandDemo.ChainAllClick(Sender: TObject);
begin
FBDemo05 := TFBDemo05.Create (Application);
FBDemo05.CBReport1.Execute;
FBDemo05.Free;
end;
procedure TBandDemo.MasterDetailDetailClick(Sender: TObject);
begin
FBDemo06 := TFBDemo06.Create (Application);
FBDemo06.CBReport1.ExecuteEntity(1);
FBDemo06.Free;
end;
procedure TBandDemo.MasterDetailDetailAllClick(Sender: TObject);
begin
FBDemo06 := TFBDemo06.Create (Application);
FBDemo06.CBReport1.Execute;
FBDemo06.Free;
end;
procedure TBandDemo.VariousClick(Sender: TObject);
begin
FBDemo07 := TFBDemo07.Create (Application);
FBDemo07.CBReport1.ExecuteEntity(1);
FBDemo07.Free;
end;
procedure TBandDemo.ExitClick(Sender: TObject);
begin
Close;
end;
end.