- •1.1. Создание базы данных в Access 2003
- •1.2. Создание таблицы в режиме Конструктор
- •1.3. Редактирование структуры таблицы
- •1.4. Создание и редактирование схемы данных
- •1.5. Создание базы данных, таблиц и схемы данных в Access 2007
- •1.8. Защита пункта меню паролем
- •1.9. Редактирование внешнего вида формы
- •2.1. Создание формы для работы с одной таблицей
- •2.2. Ввод данных в таблицу с помощью созданной формы
- •2.3. Создание формы для работы с двумя таблицами
- •2.4. Редактирование формы
- •2.5. Ввод данных через отдельные компоненты
- •2.6. Редактирование данных через компоненты
- •3. Реализация сортировки, вычислений и фильтрации данных
- •3.1. Реализация сортировки
- •3.2. Реализация вычислений
- •3.3. Реализация фильтрации записей
- •4.3. Создание запроса с групповыми вычислениями
- •4.4. Создание параметрического запроса
- •4.5. Параметрический запрос для поиска поля, выбранного из списка
- •4.6. Параметрический запрос для поиска даты, выбранной из списка или введенной в поле ввода
- •5.1. Создание отчета в Delphi
- •5.2. Создание отчета с группировкой записей по определенному полю
- •Список книг
- •5.3. Создание отчета на основе параметрического запроса
- •Библиографический список
- •Оглавление
4.5. Параметрический запрос для поиска поля, выбранного из списка
Создание параметрического запроса, в котором искомое значение выбирается из поля с раскрывающимся списком, осуществляется следующим образом.
1. Создать форму для реализации параметрического запроса. На форму поместить компонент ComboBox (поле с раскрывающимся списком), компонент Label (надпись), компонент Button (кнопка). Возможный вид формы представлен на рис. 4.1.
Рис. 4.1. Форма для выбора значения из поля со списком
В модуле, соответствующем созданной форме для реализации запросов, для доступа к компонентам модуля данных в разделе implementation выставить uses unit2 (если модуль данных был создан вторым).
Для формы в целом, реализующей запрос, в событии OnShow записывают следующую процедуру:
ComboBox1.Clear;
имя_модуля_данных.ADOTable1.First;
while not имя_модуля_данных.ADOTable1.Eof do
begin
ComboBox1.Items.Add(имя_модуля_данных.ADOTable1['Sh_gr']);
имя_модуля_данных.ADOTable1.Next;
end;
ComboBox1.Sorted:=true;
ComboBox1.ItemIndex:=0;
ComboBox1Change(Self);
Данная процедура для компонента ComboBox создает список шифров групп, который выбирается из компонента имя_модуля_данных.ADOTable1, который находится на модуле данных.
2. Расположить на модуле данных компонент ADOQuery (панель ADO). Для данного компонента настроить следующие свойства: в свойстве Connection выбрать ADOConnection1; в свойстве SQL щелкнуть по кнопке … и в открывшемся окне набрать параметрический запрос на языке SQL.
Select S.*
from Stud S
where Sh_gr = :Sh_gr;
В данном запросе имя параметра совпадает с именем поля (запрос выбирает записи по шифру группы (поле Sh_gr)).
Закрыть окно, щелкнув по кнопке ОК.
3. В Инспекторе Объектов выбрать свойство Parameters и щелкнуть по кнопке … в строке этого свойства. В появившемся окне будут показаны имена всех параметров, введенных в тексте параметрического SQL-запроса. Каждому параметру из списка необходимо поставить в соответствие определенный тип и стартовое значение. Стартовое значение задавать необязательно. Раскрывают список Value и в строке Type задают тип данных (текстовый, числовой или дата).
4. Для активации запроса в свойстве Active выбрать true.
Во вкладке Events модуля данных для события onCreate в процедуре обработки события дописать:
ADOQuery1.Active := true;
Номер компонента может быть отличным от единицы.
5. Расположить на форме для реализации запроса компоненты DataSource (панель Data Access), DBGrid (панель Data Controls).
6. В модуле, соответствующем созданной форме для реализации запросов, для доступа к компонентам модуля данных в разделе implementation выставить uses unit2 (если модуль данных был создан вторым).
7. Всякий раз, когда необходимо изменить значения параметров запроса, программа должна закрыть ADOQuery, присвоить значения параметрам поиска и повторно открыть его. Это реализует процедура, которая запускается при щелчке по кнопке Найти. При этом запускается следующая процедура обработки события.
With имя_модуля_данных.ADOQuery1 do
begin
Close;
Parameters.ParamByName('Sh_gr').Value := ComboBox1.Items[ComboBox1.ItemIndex];
Open;
end;
8. Сохранить произведенные изменения и проверить работу запроса. В списке выбрать нужное значение (шифр группы). Для выполнения запроса щелкнуть по кнопке Найти. Возможный результат выполнения запроса представлен на рис. 4.2.
Рис. 4.2. Результат выполнения параметрического запроса
9. Можно активацию параметрического запроса поставить на компонент ComboBox, событие OnChange. Для текстового поля (Fam) процедура может быть записана так:
Имя_модуля_данных.ADOQuery1.Close;
Имя_модуля_данных.
ADOQuery1.Parameters.ParamByName('Fam').Value:= ComboBox1.Items[ComboBox1.ItemIndex];
Имя_модуля_данных.ADOQuery1.Open;
В данном примере список находится в компоненте ComboBox1, а запрос ADOQuery1 – на модуле данных.
Для поля типа даты (Datpr) процедура может быть записана так:
Имя_модуля_данных.ADOQuery2.Close;
Имя_модуля_данных.
ADOQuery2.Parameters.ParamByName('Datpr').Value:= StrToDate(ComboBox2.Items[ComboBox2.ItemIndex]);
Имя_модуля_данных.ADOQuery2.Open;
В данном примере список находится в компоненте ComboBox2, а запрос ADOQuery2 – на модуле данных. Функция StrToDate преобразует строку в дату.
Для преобразования строки в целое число используют функцию StrToInt.
Для преобразования строки в вещественное число используют функцию StrToFloat.