home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / SQLPLAY / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-16  |  1.5 KB  |  74 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids,
  8.   DBGrids, DBCtrls, DB, DBTables, Open;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     DataSource1: TDataSource;
  13.     DBNavigator1: TDBNavigator;
  14.     DBGrid1: TDBGrid;
  15.     Memo1: TMemo;
  16.     Bevel1: TBevel;
  17.     PerformBitBtn: TBitBtn;
  18.     CloseBitBtn: TBitBtn;
  19.     OpenBitBtn: TBitBtn;
  20.     Query1: TQuery;
  21.     procedure OpenBitBtnClick(Sender: TObject);
  22.     procedure PerformBitBtnClick(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   MainForm: TMainForm;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TMainForm.OpenBitBtnClick(Sender: TObject);
  38. begin
  39.   if OpenForm.ShowModal = mrOk then
  40.   begin
  41.     Query1.Close;
  42.     try
  43.       Query1.DatabaseName := OpenForm.ComboBox1.Text;
  44.       Query1.SQL.Clear;
  45.       Query1.SQL.Add('Select * From ' +
  46.         OpenForm.ComboBox2.Text);
  47.       Memo1.Lines := Query1.SQL;
  48.       Query1.Open;
  49.       Memo1.SetFocus;
  50.       PerformBitBtn.Enabled := True;
  51.     except;
  52.       ShowMessage('Unable to open database');
  53.     end;
  54.   end;
  55. end;
  56.  
  57. procedure TMainForm.PerformBitBtnClick(Sender: TObject);
  58. begin
  59.   Query1.Close;
  60.   try
  61.     Query1.SQL := Memo1.Lines;
  62.     Query1.Open;
  63.   except
  64.     ShowMessage('Invalid query');
  65.   end;
  66. end;
  67.  
  68. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  69. begin
  70.   Query1.Close;
  71. end;
  72.  
  73. end.
  74.