Курсовая работа: Создание базы данных "РЭО-ГАИ"

Zaprosy. Show;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Otchety. Show;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

Procedury. Show;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

close;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Районы_учета';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n6. Caption;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Операции';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n7. Caption;

end;

procedure TForm1. N8Click (Sender: TObject);