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

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

Второй тип связи между главной и подчиненной таблицей устанавливается с помощью инструмента Master – Detail. После нажатия на данную кнопку выбирается главная таблица и в ней соответствующее поле. Далее протягивается к соответствующему полю подчиненной таблицы. Связи снабжаются двумя прямоугольниками: большой ставится у главной таблицы, маленький у подчиненной. У линии приводится значение MasterField подчиненной таблицы. Цвет линии по умолчанию – темно-синий.

Третий тип связей отображается линией с жирной закрашенной стрелкой, около которой появляется надпись с именем свойства, посредством которого установлена связь. Связь DataSet отображает связь между источником данных и набором данных, осуществленную свойством DataSet. А связь, около которой написано MasterSource, отображает связь через свойство MasterSource вспомогательных таблицы с главной таблицей SD.DB.

Четвертый вид связей отображает связь наборов данных через поля просмотра LookUP. На линии данной связи схематично изображен глаз и написано имя результирующего поля просмотра. Подобные связи можно разрывать так же, как описанные выше.

Местоположение и форму любой линии связи можно изменять. Если вы потянете курсором за один из концов связи, то можете переместить его, правда, в большинстве случаев не непрерывно, а дискретно. А если вы потянете за какую-то из средних точек линии, то линия получит излом, который вы можете переместить в нужное место.

С помощью Comment Block можно ввести комментарий, а с использованием Comment Allude– провести к блоку комментариев стрелки.

Очевидно, LookUp поля установлены неправильно, так как из-за наложенных ранее связей Master-Detail в раскрывающемся списке будут отражаться только существующие для данной записи фамилий менеджера, покупателя, товара.

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

в модуль данных нужно дополнительно ввести таблицы (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 последовательно из списка имеющихся таблиц – таблицы, нужные для формирования запроса.

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

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