home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / dbtools.pak / DBTABLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.3 KB  |  54 lines
  1. unit Dbtable;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, DbForm, Dialogs, DB, DBTables, DBCtrls, ExtCtrls, Grids, DBGrids;
  8.  
  9. type
  10.   TTableViewForm = class(TDbForm)
  11.     TableGrid: TDBGrid;
  12.     TableDataSource: TDataSource;
  13.     TableView: TTable;
  14.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  15.     procedure FormActivate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     constructor Create (AOwner: TComponent; Db: TDatabase; const Name: string);
  20.   end;
  21.  
  22. var
  23.   TableViewForm: TTableViewForm;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. uses DbMain;
  30.  
  31. constructor TTableViewForm.Create (AOwner: TComponent; Db: TDatabase;
  32.                                    const Name: string);
  33. begin
  34.   inherited Create (AOwner);
  35.   Database := Db;
  36.   Caption := Format ('View - Database %s  Table %s', [Db.DatabaseName, Name]);
  37.   TableView.DatabaseName := Db.DatabaseName;
  38.   TableView.TableName := Name;
  39.   TableView.Active := True;
  40.   Show
  41. end;
  42.  
  43. procedure TTableViewForm.FormClose(Sender: TObject; var Action: TCloseAction);
  44. begin
  45.   DbMainForm.FormCloseActive (Sender, Action)
  46. end;
  47.  
  48. procedure TTableViewForm.FormActivate(Sender: TObject);
  49. begin
  50.   DbMainForm.SetActiveForm (TableDataSource, TableDataSource)
  51. end;
  52.  
  53. end.
  54.