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

begin

adodataset1. Active: =false;

adodataset1.commandText: =' SELECT Движение. [№автомобиля], Районы_учета. [Наименование района учета], Операции. [Наименование операции] '+

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

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

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

' AND Районы_учета. [Наименование района учета] like '+''''+'%'+combobox1. Text+'%'+'''' +

' AND month ([Дата операции]) =month (getdate ()); ';

adodataset1. Active: =true;

end;

procedure TZaprosy. SpeedButton5Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: =' SELECT Движение. [№автомобиля], Категории_цвета. [Наименование категории цвета] '+

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

' WHERE Категории_цвета. [Код категории цвета] =Цвета. [Код категории цвета] '+

' AND Цвета. [Код цвета] =Автомобили. [Код цвета] '+

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

' AND Операции. [Наименование операции] = ''Постановка на учет'''+

' AND year (Движение. [Дата операции]) =year (getdate ()); ';

adodataset1. Active: =true;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, Mask, Menus,

Word2000, OleServer;