home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / dbtools.pak / DBSQLVEW.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.2 KB  |  52 lines
  1. unit Dbsqlvew;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, DbForm, Dialogs, Db, DbTables, Grids, DBGrids;
  8.  
  9. type
  10.   TSQLViewForm = class(TDbForm)
  11.     SQLGrid: TDBGrid;
  12.     SQLDataSource: TDataSource;
  13.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  14.     procedure FormActivate(Sender: TObject);
  15.   private
  16.     SQLForm: TDbForm;
  17.   public
  18.     constructor Create (AOwner: TComponent; ACreator: TDbForm);
  19.   end;
  20.  
  21. var
  22.   SQLViewForm: TSQLViewForm;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. uses DbMain, DbSql;
  29.  
  30. constructor TSQLViewForm.Create (AOwner: TComponent; ACreator: TDbForm);
  31. begin
  32.   inherited Create (AOwner);
  33.   SQLForm := ACreator;
  34.   Database := SQLForm.Database;
  35.   Caption := Format ('View - Database %s  SQL', [Database.DatabaseName]);
  36.   SQLDataSource.Dataset := (SQLForm as TSQLForm).Query;
  37.   Show
  38. end;
  39.  
  40. procedure TSQLViewForm.FormClose(Sender: TObject; var Action: TCloseAction);
  41. begin
  42.   (SQLForm as TSQLForm).View := nil;
  43.   DbMainForm.FormCloseActive (Sender, Action)
  44. end;
  45.  
  46. procedure TSQLViewForm.FormActivate(Sender: TObject);
  47. begin
  48.   DbMainForm.SetActiveForm (SQLDataSource, nil)
  49. end;
  50.  
  51. end.
  52.