Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

Для того, чтобы можно было выбрать нужную запись из соответствующей таблицы

в модуль данных нужно дополнительно ввести таблицы (Table 5, Table 6, Table 7), основанные на Men.db, Pok.db, Tov.db, и дополнительные DataSource.

В Data Diagram установить все LookUp поля

Далее можно установить свойство Visible у полей таблицы Sd.db: CodTov, CodPok, CodMen в false, изменить DisplayLabel у полей TovName, FamPok, FamMen, DataSd, Cost соответственно на русские Товар, Покупатель, Менеджер, Дата, Сделки. Порядок полей в редакторе Fields Editor можно изменить, для этого нужно выделить нужные поля и перетащить их с помощью мышки.

Свойство Active Table 4 следует установить в True. Оттранслируйте и запустите программу на выполнение.

Измените DisplayLabel соответствующих полей на русские у таблиц Менеджеры, Покупатели и Сделки.

Сохраните файлы модулей и проект в отдельную папку.

Вопрос 5 Фильтрация данных

Фильтрация по диапазону с помощью ApplyRange

Применяется только к индексированным полям.

Индекс поля должен быть установлен как текущий с помощью свойства IndexName или IndexFieldNamees. Если текущий индекс не установлен то используется главный индекс.

Откроем проект просмотра таблиц базы MelkOpt. Изменим заголовок формы на значение Фильтрация таблицы сделки, добавим две Label, два Edit и две кнопки Botton. Установим свойства Caption у меток и Button, свойство Text у Edit (1 и 1000 соответственно).

Для фильтрации данных по коду сделки воспользуемся обращением к содержимому поля CodSd.

Содержимое поля CodSd в виде строки можно получить, обратившись Table4.Fields[0].AsString. Для получения доступа к значению этого поля как к целочисленному значению, следует набрать - Table4.Fields[0].AsInteger. Так как порядок полей может меняться, то лучше получать доступ по имени поля Table4.FieldByName(‘CodSd’).AsString.

В данном случае код сделки всегда будет первым (нулевым) полем, поэтому можно использовать обращение по порядку Fields[0].

Для фильтрации используем метод ApplyRange. Он требует предварительной установки диапазона.

Сначала вызывается процедура SetRangeStart и устанавливается свойство Fields для указания начала диапазона.

Далее вызывается SetRangeEnd и с помощью Fields устанавливается конец диапазона.

Совместно с ними используется свойство Exclusive, действующее отдельно для верхней и нижней границы. Если значение свойства = true, то при равенстве установленной границы и значения поля, данные поля не попадают в результирующий набор. При false они в набор включаются. По умолчанию стоит false.

После этого вызывается процедура ApplyRange.

Для снятия фильтра достаточно вызова процедуры CancelRange.

Напишем обработчик нажатия на кнопку ApplyRange

procedure TForm1.Button1Click(Sender: TObject);

begin

DataModule1.Table4.SetRangeStart;

{ DataModule1.Table4.Exclusive:=false;}

DataModule1.Table4.Fields[0].AsString:=Edit1.Text;

DataModule1.Table4.SetRangeEnd;

{ DataModule1.Table4.Exclusive:=false;}

DataModule1.Table4.Fields[0].AsString:=Edit2.Text;

DataModule1.Table4.ApplyRange;

end;

и обработчик кнопки Снять фильтр

procedure TForm1.Button2Click(Sender: TObject);

begin

DataModule1.Table4.CancelRange;

end;

Оттранслируем и проверим работу программы.

Если бы поле FamMen действительно было в таблице, а не являлось полем типа LookUp, то мы могли бы создать соответствующий индекс iFamMen на стадии выполнения

DataModule1.Table4.Active:=false;

DataModule1.Table4.Exclusive:=true;

DataModule1.Table4.Active:=true;

DataModule1.Table4.AddIndex('iFamMen','FamMen',[ixDescending]);

DataModule1.Table4.Active:=true;

DataModule1.Table4.Active:=false;

DataModule1.Table4.Exclusive:=false;

DataModule1.Table4.Active:=true;

DataModule1.Table4.IndexName:='iFamMen';

{ удаление - DataModule1.Table4.DeleteIndex('iFamMen');}

и выбрать фильтрацию

DataModule1.Table4.SetRangeStart;

DataModule1.Table4.FieldByName('FamMen').AsString:=Edit1.Text;

DataModule1.Table4.SetRangeEnd;

DataModule1.Table4.FieldByName('FamMen').AsString:=Edit2.Text;

DataModule1.Table4.ApplyRange;

но у нас имеется только поле CodMen.

Поэтому напишем обработчики

procedure TForm1.Button1Click(Sender: TObject);

begin

DataModule1.Table4.IndexName:='CodMen';

DataModule1.Table4.IndexDefs.Update;

DataModule1.Table4.SetRangeStart;

DataModule1.Table4.FieldByName('CodMen').AsString:=Edit1.Text;

DataModule1.Table4.SetRangeEnd;

DataModule1.Table4.FieldByName('CodMen').AsString:=Edit2.Text;

DataModule1.Table4.ApplyRange;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DataModule1.Table4.CancelRange;

DataModule1.Table4.IndexName:='';

DataModule1.Table4.IndexDefs.Update;

end;

Фильтрация по выражению

Изменим свойства таблицы Sd.db: Filtred:=true и Filter – cost>1000.

Проверим как работает фильтр, установив Filter – Cost>500

Можно устанавливать данные свойства программно

Добавим Edit и напишем обработчики

procedure TForm1.Button1Click(Sender: TObject);

begin

DataModule1.Table4.Filtered:=true;

DataModule1.Table4.Filter:= Edit1.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DataModule1.Table4.Filtered:=false;

end;

Можно задавать достаточно сложные выражения, используя арифметические операции +,-,*,/ , сравнения >,>=,<,<=,<>,= , логические And, Or, Not.

Параметры фильтрации устанавливаются с помощью свойства FilterOptions:

foCaseInsensitive Регист букв не учитывается.

foNoPartialCompare Вычлючив можно использовать (*) Найти допустим людей Fam=(‘A*), фамилии которых начинаются с буквы А. При включении- строгое соответствие

Вопрос 6 Запросы TQuery

TQuery

Данный компонент при разработке локальных баз данных менее гибок, чем TTable, работает медленнее. Тем не менее, при работе с BDE использовать можно, так кака он часто просто более удобен. В клиент-серверных приложениях работает значительно быстрее TTable,

Создадим новое приложение. Изменим заголовок формы на Запросы.

На форме расположим DBGrid, Query, DataSource.

Установим значение DataSet DataSource1 в Query1, свойство DataBaseName Query1 на MelkOpt, свойство DataSource DBGrid1 на DataSource1.

Для работы требуется указать источник данных SQL.

Можно вручную выбрать SQL – TString и вручную набрать в редакторе текст запроса на языке SQL, но гораздо удобнее воспользоваться встроенным в Delphi инструментом SQL Builder.

Для его вызова следует нажать на правую кнопку мыши и выбрать из контекстного меню SQL Bulder.

Далее в списке Database выбирается псевдоним базы данных и в окне Table последовательно из списка имеющихся таблиц – таблицы, нужные для формирования запроса.

Очень легко устанавливаются связи между таблицами. Так , для установки связи между таблицами менеджеров и сделок нужно нажать левую кнопку мыши на CodMen и не отпуская протащить на поле CodMen таблицы сделок. Аналогично устанавливаются все связи.

Далее щелкаем мышкой в тех полях таблиц, которые должны быть выбраны в результирующий набор.

В нижнем окне на закладке Criteria, если нужно указываем дополнительные критерии выбора. Так, например, если нужно выбрать сделки с объемом более 100, то перетаскиваем мышкой в поле Field or Value – Cost из таблицы Sd, в Compare из списка выбираем >, а в третьем поле Field or Value указываем 100.

Можно использовать более сложные условия

После выбора условий, нажав на кнопку быстрого доступа SQL можно увидеть текст сформированного запроса, который можно отредактировать, сохранить во внешнем файле (File – Export to file).

Можно сразу проверить работу запроса, скопировать результаты выполнения в буфер обмена.

При формировании запроса можно использовать операторы =, >, <, >=, <=, <>, LIKE, NOT LIKE, IN, NOT IN, BETWEEN, NOT BETWEEN, IS NULL, or IS NOT NULL.

При выборе из списка на вкладке Criteria

доступны логические операции NOT, OR и AND. Они показываются слева при включенном Row Info.

После установки свойства Query1 Active:=True проект следует сохранить и запустить на выполнение.

Поля в DBGrid следует назвать по-русски (Title- Caption), уменьшить ширину поля (Width – 80).

Установим Query1 Active в false и напишем обработчики

procedure TForm1.FormCreate(Sender: TObject);

Характеристики

Список файлов лабораторной работы