home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / BANDMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-18  |  3.7 KB  |  158 lines
  1. unit BandMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TBandDemo = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     FishDemo: TButton;
  14.     Master: TButton;
  15.     MasterDetail: TButton;
  16.     Detail: TButton;
  17.     Chain: TButton;
  18.     MasterDetailDetail: TButton;
  19.     Exit: TButton;
  20.     FishDemoAll: TButton;
  21.     MasterAll: TButton;
  22.     MasterDetailAll: TButton;
  23.     DetailAll: TButton;
  24.     ChainAll: TButton;
  25.     MasterDetailDetailAll: TButton;
  26.     Various: TButton;
  27.     Memo1: TMemo;
  28.     procedure MasterClick(Sender: TObject);
  29.     procedure MasterDetailClick(Sender: TObject);
  30.     procedure DetailClick(Sender: TObject);
  31.     procedure ChainClick(Sender: TObject);
  32.     procedure FishDemoClick(Sender: TObject);
  33.     procedure ExitClick(Sender: TObject);
  34.     procedure MasterDetailDetailClick(Sender: TObject);
  35.     procedure FishDemoAllClick(Sender: TObject);
  36.     procedure MasterAllClick(Sender: TObject);
  37.     procedure MasterDetailAllClick(Sender: TObject);
  38.     procedure DetailAllClick(Sender: TObject);
  39.     procedure ChainAllClick(Sender: TObject);
  40.     procedure MasterDetailDetailAllClick(Sender: TObject);
  41.     procedure VariousClick(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   BandDemo: TBandDemo;
  50.  
  51. implementation
  52.  
  53. uses
  54.     demo01, demo02, demo03, demo04, demo05, demo06, demo07;
  55.  
  56. {$R *.DFM}
  57. procedure TBandDemo.FishDemoClick(Sender: TObject);
  58. begin
  59.     FBDemo01 := TFBDemo01.Create (Application);
  60.     FBDemo01.CBReport1.ExecuteEntity(1);
  61.     FBDemo01.Free;
  62. end;
  63.  
  64. procedure TBandDemo.FishDemoAllClick(Sender: TObject);
  65. begin
  66.     FBDemo01 := TFBDemo01.Create (Application);
  67.     FBDemo01.CBReport1.Execute;
  68.     FBDemo01.Free;
  69. end;
  70.  
  71. procedure TBandDemo.MasterClick(Sender: TObject);
  72. begin
  73.     FBDemo02 := TFBDemo02.Create (Application);
  74.     FBDemo02.CBReport1.ExecuteEntity(1);
  75.     FBDemo02.Free;
  76. end;
  77.  
  78. procedure TBandDemo.MasterAllClick(Sender: TObject);
  79. begin
  80.     FBDemo02 := TFBDemo02.Create (Application);
  81.     FBDemo02.CBReport1.Execute;
  82.     FBDemo02.Free;
  83. end;
  84.  
  85.  
  86. procedure TBandDemo.MasterDetailClick(Sender: TObject);
  87. begin
  88.     FBDemo03 := TFBDemo03.Create (Application);
  89.     FBDemo03.CBReport1.ExecuteEntity(1);
  90.     FBDemo03.Free;
  91. end;
  92.  
  93. procedure TBandDemo.MasterDetailAllClick(Sender: TObject);
  94. begin
  95.     FBDemo03 := TFBDemo03.Create (Application);
  96.     FBDemo03.CBReport1.Execute;
  97.     FBDemo03.Free;
  98. end;
  99.  
  100. procedure TBandDemo.DetailClick(Sender: TObject);
  101. begin
  102.     FBDemo04 := TFBDemo04.Create (Application);
  103.     FBDemo04.CBReport1.ExecuteEntity(1);
  104.     FBDemo04.Free;
  105. end;
  106.  
  107. procedure TBandDemo.DetailAllClick(Sender: TObject);
  108. begin
  109.     FBDemo04 := TFBDemo04.Create (Application);
  110.     FBDemo04.CBReport1.Execute;
  111.     FBDemo04.Free;
  112. end;
  113.  
  114. procedure TBandDemo.ChainClick(Sender: TObject);
  115. begin
  116.     FBDemo05 := TFBDemo05.Create (Application);
  117.     FBDemo05.CBReport1.ExecuteEntity(1);
  118.     FBDemo05.Free;
  119. end;
  120.  
  121. procedure TBandDemo.ChainAllClick(Sender: TObject);
  122. begin
  123.     FBDemo05 := TFBDemo05.Create (Application);
  124.     FBDemo05.CBReport1.Execute;
  125.     FBDemo05.Free;
  126. end;
  127.  
  128. procedure TBandDemo.MasterDetailDetailClick(Sender: TObject);
  129. begin
  130.     FBDemo06 := TFBDemo06.Create (Application);
  131.     FBDemo06.CBReport1.ExecuteEntity(1);
  132.     FBDemo06.Free;
  133. end;
  134.  
  135. procedure TBandDemo.MasterDetailDetailAllClick(Sender: TObject);
  136. begin
  137.     FBDemo06 := TFBDemo06.Create (Application);
  138.     FBDemo06.CBReport1.Execute;
  139.     FBDemo06.Free;
  140. end;
  141.  
  142. procedure TBandDemo.VariousClick(Sender: TObject);
  143. begin
  144.     FBDemo07 := TFBDemo07.Create (Application);
  145.     FBDemo07.CBReport1.ExecuteEntity(1);
  146.     FBDemo07.Free;
  147. end;
  148.  
  149.  
  150.  
  151. procedure TBandDemo.ExitClick(Sender: TObject);
  152. begin
  153.     Close;
  154. end;
  155.  
  156.  
  157. end.
  158.