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

for c: =0 to DBGrid1. Columns. Count-1 do

begin

s: =DBGrid1. Columns [c]. Field. AsString+'';

rs: =rs+s;

end;

form6. memo1. Lines. Add (rs);

adodataset2. Next;

end;

begin

if form6. savedialog1. Execute then

form6. memo1. Lines. SaveToFile (form6. savedialog1. FileName);

end;

end;

procedure TOtchety. SpeedButton1Click (Sender: TObject);

begin

adodataset2. Active: =false;

adodataset2.commandText: =' SELECT Движение. [№автомобиля], Движение. [РНН владельца],'+

'Операции. [Наименование операции], Районы_учета. [Наименование района учета],'+

'Движение. [Дата операции] '+

' FROM Движение, Операции,Районы_учета '+

' WHERE Движение. [№автомобиля] like '+''''+'%'+combobox1. Text+'%'+'''' +

' AND Районы_учета. [Код района учета] = Движение. [Код района учета] '+

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

adodataset2. Active: =true;

end;

procedure TOtchety. SpeedButton2Click (Sender: TObject);

begin

adodataset2. Active: =false;

adodataset2.commandText: =' SELECT [№автомобиля], Автомобили. [РНН владельца], Владельцы. [ФИО/наименование] '+