home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / dbtools.pak / DBFORM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  378 b   |  28 lines
  1. unit Dbform;
  2.  
  3. interface
  4.  
  5. uses Forms, Db;
  6.  
  7. type
  8.   TDbForm = class(TForm)
  9.   private
  10.     FDb: TDatabase;
  11.   public
  12.     property Database: TDatabase read FDb write FDb;
  13.     procedure CreateSQLForm;
  14.   end;
  15.  
  16. implementation
  17.  
  18. uses Dbsql;
  19.  
  20. { Create a new SQL editor }
  21.  
  22. procedure TDbForm.CreateSQLForm;
  23. begin
  24.   TSQLForm.Create (Application, Database)
  25. end;
  26.  
  27. end.
  28.