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

ADOTable1. Active: =false;

ADOTable1. TableName: ='Марки_автомобиля';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n8. Caption;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Типы_кузова';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n9. Caption;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Категории_цвета';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n10. Caption;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Цвета';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n11. Caption;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

ADOTable1. Active: =false;