home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DemoMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-06  |  2.4 KB  |  101 lines
  1. unit DemoMain;
  2.  
  3. interface
  4. uses
  5.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  6.   StdCtrls, DB, ExtCtrls;
  7.  
  8. type
  9.   TFormMain = class(TForm)
  10.     BtnGrid: TButton;
  11.     BtnFastFind: TButton;
  12.     BtnMixedToMany: TButton;
  13.     BtnQueryToMany: TButton;
  14.     BtnTableLookup: TButton;
  15.     BtnTableToMany: TButton;
  16.     Label1: TLabel;
  17.     Db: TDatabase;
  18.     Session: TSession;
  19.     BtnReport: TButton;
  20.     Label2: TLabel;
  21.     Bevel1: TBevel;
  22.     Bevel2: TBevel;
  23.     MemoInfo: TMemo;
  24.     procedure BtnGridClick(Sender: TObject);
  25.     procedure BtnFastFindClick(Sender: TObject);
  26.     procedure BtnMixedToManyClick(Sender: TObject);
  27.     procedure BtnQueryToManyClick(Sender: TObject);
  28.     procedure BtnReportClick(Sender: TObject);
  29.     procedure BtnTableLookupClick(Sender: TObject);
  30.     procedure BtnTableToManyClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   FormMain: TFormMain;
  39.  
  40. implementation
  41. uses
  42.   BDE,
  43.   DemoTableLookup,
  44.   DemoGrid,
  45.   DemoTableToMany,
  46.   DemoQueryToMany,
  47.   DemoMixedToMany,
  48.   DemoFastFind,
  49.   DemoReport;
  50.  
  51. {$R *.DFM}
  52.  
  53.  
  54. procedure TFormMain.BtnGridClick(Sender: TObject);
  55.   begin
  56.     if FormGrid = nil then FormGrid:= TFormGrid.Create(Application);
  57.     FormGrid.Show;
  58.   end;
  59.  
  60. procedure TFormMain.BtnFastFindClick(Sender: TObject);
  61.   begin
  62.     if FormFastFind = nil then FormFastFind:= TFormFastFind.Create(Application);
  63.     FormFastFind.Show;
  64.   end;
  65.  
  66. procedure TFormMain.BtnMixedToManyClick(Sender: TObject);
  67.   begin
  68.     if FormMixedToMany = nil then FormMixedToMany:= TFormMixedToMany.Create(Application);
  69.     FormMixedToMany.Show;
  70.   end;
  71.  
  72. procedure TFormMain.BtnQueryToManyClick(Sender: TObject);
  73.   begin
  74.     if FormQueryToMany = nil then FormQueryToMany:= TFormQueryToMany.Create(Application);
  75.     FormQueryToMany.Show;
  76.   end;
  77.  
  78.  
  79. procedure TFormMain.BtnReportClick(Sender: TObject);
  80.   begin
  81.     if FormReport= nil then FormReport:= TFormReport.Create(Application);
  82.     FormReport.Show;
  83.   end;
  84.  
  85.  
  86. procedure TFormMain.BtnTableLookupClick(Sender: TObject);
  87.   begin
  88.     if FormTableLookup = nil then FormTableLookup:= TFormTableLookup.Create(Application);
  89.     FormTableLookup.Show;
  90.   end;
  91.  
  92.  
  93. procedure TFormMain.BtnTableToManyClick(Sender: TObject);
  94.   begin
  95.     if FormTableToMany = nil then FormTableToMany:= TFormTableToMany.Create(Application);
  96.     FormTableToMany.Show;
  97.   end;
  98.  
  99.  
  100. end {Demo}.
  101.