Листинг 20. Текст главного модуля MainUnit.pas

unit MainUnit;

Interface

uses
Windows, Messages, SysUtiis, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs, StdCtrls, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls;

type
TMainForm = class (TForm)
ComboBoxDatabase: TComboBox;
LabelBoxDatabase: TLabel;
ComboBoxTable: TComboBox;
LabelBoxTable: TLabel;
DBGrid: TDBGrid;
DataSource: TDataSource;
Table: TTable;
ButtonGenerate: TButton;
ButtonExit: TButton;
PanelStatus: TPanel;
DBNavigator: TDBNavigator;
ButtonFolder: TButton;
OpenDialog: TOpenDialog;
procedure ComboBoxDatabaseChange(Sender: TObject);
procedure ComboBoxTableChange(Sender: TObject);
procedure ButtonFolderClick(Sender: TObject);
procedure ButtonGenerateClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);
private
procedure OpenTable; // Открыть выбранную таблицу
end;

var
MainForm: TMainForm;