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

var

TabSheetset: TTabSheetset;

implementation

{$R *.dfm}

uses Editing, Viewing, Setuping;

procedure TTabSheetset.Button1Click(Sender: TObject);

begin

edit.Show;

case TabSheetset.RadioGroup1.ItemIndex of

0:ADOTable1.TableName:='Entertainments';

1:ADOTable1.TableName:='Games';

2:ADOTable1.TableName:='Internet';

3:ADOTable1.TableName:='Office';

4:ADOTable1.TableName:='Utilites';

end;

ADOTable1.Open;

hide;

end;

procedure TTabSheetset.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

ADOTable1.Close;

look.Show;

end;

end.

unit Editing;

interface

uses