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

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

' AND [Признак владельца] = ''ф'' '+

' order by Владельцы. [ФИО/наименование] ';

adodataset2. Active: =true;

end;

procedure TOtchety. SpeedButton3Click (Sender: TObject);

begin

// QuotedStr (Maskedit2. Text);

adodataset2. Active: =false;

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

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

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

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

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

' and Движение. [Дата операции] ='''+ComboBox2. Text +'''';

// ' AND year (Движение. [Дата операции]) =year (''13 October 2007'') '+

// ' and month (Движение. [Дата операции]) =month (''13 October 2007'') '+

// ' and day (Движение. [Дата операции]) =day (''13 October 2007''); ';

// ' and SHTRAFI. Oplacheno = ''Оплачено '' AND dbo. SHTRAFI. Data BETWEEN '''+ MaskEdit3. Text +''' AND '''+ MaskEdit4. Text +''' '+

// ' AND Aaeea? aoee. "aaoa iiaa? e"='''+ComboBox2. Text +''''+

adodataset2. Active: =true;

end;

procedure TOtchety. N2Click (Sender: TObject);

var filename,ran1: Olevariant;

rowcount,colcount, i,j: integer;

temp: string;

begin

savedialog1. FileName: ='otchet'+inttostr (otchetnum) +'. doc'; // имя файла

otchetnum: =otchetnum+1; // формирование след отчета