Контрольная работа: Разработка программного комплекса

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure SetBase();

procedure WriteData(fileName:string; table:TStringGrid);

procedure Button3Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

Worker:TWorker;

Base:String;

tableDS:TDataSet;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, DateUtils, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SetBase();

end;

//выводит форму выбора файла с базой данных

procedure TForm1.SetBase();

var