home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / UTEEDB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.3 KB  |  103 lines
  1. {****************************************}
  2. {    TeeChart. TChart Component          }
  3. { Copyright (c) 1995-98 by David Berneda }
  4. {    All Rights Reserved                 }
  5. {****************************************}
  6. unit UTeeDB;
  7.  
  8. interface
  9.  
  10. uses
  11.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   StdCtrls, Buttons, ExtCtrls;
  13.  
  14. type
  15.   TDatabaseExamples = class(TForm)
  16.     Panel2: TPanel;
  17.     GroupBox3: TGroupBox;
  18.     Label10: TLabel;
  19.     Label11: TLabel;
  20.     Label12: TLabel;
  21.     Label13: TLabel;
  22.     BitBtn9: TBitBtn;
  23.     BitBtn10: TBitBtn;
  24.     BitBtn11: TBitBtn;
  25.     BitBtn14: TBitBtn;
  26.     BitBtn1: TBitBtn;
  27.     BitBtn2: TBitBtn;
  28.     BitBtn3: TBitBtn;
  29.     BitBtn4: TBitBtn;
  30.     Panel1: TPanel;
  31.     Bevel1: TBevel;
  32.     BitBtn5: TBitBtn;
  33.     procedure BitBtn9Click(Sender: TObject);
  34.     procedure BitBtn10Click(Sender: TObject);
  35.     procedure BitBtn11Click(Sender: TObject);
  36.     procedure BitBtn14Click(Sender: TObject);
  37.     procedure BitBtn4Click(Sender: TObject);
  38.     procedure BitBtn3Click(Sender: TObject);
  39.     procedure BitBtn2Click(Sender: TObject);
  40.     procedure BitBtn5Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50. Uses TablePie,Linked,SQLBars,UEdiTab,UDBHoriz,USurfa,UTeeBlob,TeeGroup;
  51.  
  52. Procedure ShowForm(AFormClass:TFormClass);
  53. Begin
  54.   With AFormClass.Create(Application) do
  55.   try
  56.     ShowModal;
  57.   finally
  58.     Free;
  59.   end;
  60. End;
  61.  
  62. procedure TDatabaseExamples.BitBtn9Click(Sender: TObject);
  63. begin
  64.   ShowForm(TTablePieForm);
  65. end;
  66.  
  67. procedure TDatabaseExamples.BitBtn10Click(Sender: TObject);
  68. begin
  69.   ShowForm(TSQLBarsForm);
  70. end;
  71.  
  72. procedure TDatabaseExamples.BitBtn11Click(Sender: TObject);
  73. begin
  74.   ShowForm(TLinkedTablesForm);
  75. end;
  76.  
  77. procedure TDatabaseExamples.BitBtn14Click(Sender: TObject);
  78. begin
  79.   ShowForm(TDBHorizBarForm);
  80. end;
  81.  
  82. procedure TDatabaseExamples.BitBtn4Click(Sender: TObject);
  83. begin
  84.   ShowForm(TEditTableForm);
  85. end;
  86.  
  87. procedure TDatabaseExamples.BitBtn3Click(Sender: TObject);
  88. begin
  89.   ShowForm(TTableSurfaceForm);
  90. end;
  91.  
  92. procedure TDatabaseExamples.BitBtn2Click(Sender: TObject);
  93. begin
  94.   ShowForm(TFormChartBlob);
  95. end;
  96.  
  97. procedure TDatabaseExamples.BitBtn5Click(Sender: TObject);
  98. begin
  99.   ShowForm(TFormGroupBy);
  100. end;
  101.  
  102. end.
  103.