Курсовая работа: Основные принципы разработки графического пользовательского интерфейса

Label1.Caption:='Installation is finished';

Button1.Visible:=False;

Button2.Visible:=true;

end;

procedure Tsetup.Button2Click(Sender: TObject);

begin

Close;

end;

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

begin

ADOTable1.Close;ADOTable2.Close;

ADOTable3.Close;ADOTable4.Close;

ADOTable5.Close;

end;

end.

unit ADOTableofset;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DB, ADODB;

type

TTabSheetset = class(TForm)

RadioGroup1: TRadioGroup;

Button1: TButton;

DataSource1: TDataSource;

ADOTable1: TADOTable;

procedure Button1Click(Sender: TObject);

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