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

procedure TZaprosy. SpeedButton1Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: =' SELECT Автомобили. [РНН владельца], COUNT (Автомобили. [№автомобиля]) '+

' FROM Автомобили '+

// ' WHERE Владельцы. [РНН владельца] = Автомобили. [РНН владельца] ';

' GROUP BY Автомобили. [РНН владельца] ' +

' ORDER BY Автомобили. [РНН владельца] ; ';

adodataset1. Active: =true;

end;

procedure TZaprosy. SpeedButton2Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: =' SELECT [№автомобиля], [№двигателя] '+

' FROM Автомобили '+

' WHERE [№двигателя] LIKE '+''''+'%'+MaskEdit1. Text+'%'+'''';

adodataset1. Active: =true;

end;

procedure TZaprosy. SpeedButton3Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: =' SELECT Движение. [№автомобиля], datediff (yy, Автомобили. [Дата выпуска],getdate ()) '+

' FROM Движение, Автомобили, Операции '+

' WHERE Автомобили. [№автомобиля] =Движение. [№автомобиля] '+

' and Операции. [Код операции] =Движение. [Код операции] '+

' and Операции. [Наименование операции] like ''%постан%'''+

' and [Дата операции] < getdate (); ';

adodataset1. Active: =true;

end;