Параметрический запрос для поиска даты, выбранной из списка или введенной в поле ввода

Вид формы для реализации параметрического запроса по дате следующий (реализация трех вариантов задания даты).

Рис. 4.3. Параметрический запрос по дате

Порядок выполнения запроса следующий:

- на модуле данных поставить компонент ADOQuery; в свойстве Connection выставить ADOConnection1; в свойстве SQL набрать запрос (например: Select S.* From Student S Where Dat_r =:Dat_r); в свойстве Parameters, Value, Type выбрать Date, в свойстве Active установить true;

- на форме создать поле для ввода данных (компонент Edit), или поставить календарь (компонент DateTimePicker из вкладки Win32), или поле со списком (компонент Combobox);

- на форму поставить компонент DataSource и в свойстве DataSet выбрать запрос, созданный на модуле данных;

- на форму поставить компонент DBGrid для просмотра результатов выполнения запроса;

- на форму поставить кнопку (компонент Button) для запуска запроса;

- для кнопки создать процедуру реализации параметрического запроса.

Вариант 1 – ввод даты для поиска в поле ввода.

На кнопке «Выполнить запрос первый раз» создают следующую процедуру.

With DM.ADOQuery2 do

begin

Close;

Parameters.ParamByName('Dat_r').Value:= StrToDate(Edit1.Text);

Open;

end;

Функция StrToDate преобразует введенный текст в дату.

Вариант 2 – выбор даты из календаря.

На кнопке «Выполнить запрос второй раз» создают следующую процедуру.

DM.ADOQuery2.Close;

DM.ADOQuery2.Parameters.ParamByName('Dat_r').Value:= DateTimePicker1.DateTime;

DM.ADOQuery2.Open;

Вариант 3 – выбор даты из списка.

Формирование на форме списка из поля Dat_r (дата рождения) таблицы ADOTable2 (таблица Студенты), расположенной на модуле данных DM. Формирование списка дат осуществляют на событии OnShow формы.

//Очистка старого содержания списка

ComboBox1.Items.Clear;

//Установка указателя в таблице на первую запись

DM.ADOTable2.First;

//Цикл перебора всех записей в таблице

while not DM.ADOTable2.Eof do

begin

//Добавление элемента в список

ComboBox1.Items.Add(DM.ADOTable2['Dat_r']);

//Переход к следующей записи

DM.ADOTable2.Next;

end;

На кнопке «Выполнить запрос третий раз» создают следующую процедуру.

DM.ADOQuery2.Close;

DM.ADOQuery2.Parameters.ParamByName('Dat_r').Value:= StrToDate(ComboBox1.Text);

DM.ADOQuery2.Open;

5. СОЗДАНИЕ ОТЧЕТОВ

Дата добавления: 2015-05-09