Для поиска записей в наборе данных в компоненте TTable применяется следующий метод: function FindKey([список значений]): Boolean – ищет запись, точно удовлетворяющую условиям в списке значений; существует дублирующий его метод GoToKey;
Поиск осуществляется только по индексным полям. Состав полей, используемых для идентификации нужной записи при поиске в НД, определяется текущим индексом. Следовательно, в качестве текущего нужно установить индекс, построенный по полям, по значениям которых и планируется осуществить поиск.
При поиске на точное соответствие предпринимается попытка отыскать запись, у которой индексные поля соответствуют значениям, указанным в списке значений. Если такая запись найдена, данный метод возвращает True и указатель текущей записи в НД устанавливается на эту запись. Если запись не найдена, курсор не перемещается.
procedure TPoiskForm.OKClick (Sender: TObject);
begin
OsnForma. OsnTable. IndexName:= 'N'+IntToStr (PoiskBox. ItemIndex);
OsnForma. OsnTable. FindKey([PoiskEdit. Text]);
Close;
end;
Сортировка набора данных
Одной из наиболее часто выполняемых задач является задача сортировки данных таблицы по одному из полей (или по нескольким полям). Рассмотрим приёмы сортировки таблицы на примере набора данных Table. Сортировка набора данных Table выполняется автоматически по текущему индексному полю. Если переопределить индекс произойдет автоматическая сортировка данных по новому индексу. Если необходимо организовать сортировку данных по нескольким полям одновременно, надо создать индекс, включающий эти поля.
procedure TOsnForma.N0Click (Sender: TObject);
begin
OsnTable. IndexName:=TMenuItem(Sender).Name;
end;
VII. Запросы
Запросы – существенная часть управления базами данных. Для выполнения запросов к БД в Delphi используется компонент TQuery. Основные отличия компонента данных TQuery, возвращающего наборы данных, от выполняющего сходные функции компонента TTable следующие:
· набор данных, возвращаемый TQuery, может быть составлен из записей нескольких таблиц;
· в общем случае набор данных, возвращаемый TQuery, даже если источником этого набора служит одна таблица БД, предполагает обращение к подмножеству записей и столбцов, в то время как TTable ориентирован на работу со всеми записями и полями.
Результирующий набор данных компонента TQuery формируется путем выполнения запроса к БД на языке SQL. Самые большие реляционные базы данных, такие, как Oracle, Informix, Sybase, так же выполняют запросы, используя SQL.
Писать и исполнять SQL‑запросы в приложениях Delphi можно различными способами. Один метод – запись текста SQL‑команды в свойство SQL компонента TQuery. В этом случае во время работы приложения Delphi выполнит указанный запрос. Если при этом соединить компонент TQuery через TDataSoource с компонентом доступа к данным, результаты запроса будут показаны в компоненте просмотра данных, связанным с TQuery.
Другой способ задания SQL‑команд – включение их в паскалевские модули (в блоки исполняемого Pascal‑кода), которые Delphi создает для вашего проекта.
procedure TOsnForma.SQL1Click (Sender: TObject);
begin
PoiskForm. PoiskBox. Clear;
PoiskForm. PoiskBox. Items. Add (OsnTable. Fields. Fields[1].DisplayName);
PoiskForm. PoiskBox. Items. Add (OsnTable. Fields. Fields[2].DisplayName);
PoiskForm. PoiskBox. Items. Add (OsnTable. Fields. Fields[5].DisplayName);
PoiskForm. PoiskBox. ItemIndex:=0;
PoiskForm. ShowModal;
with OsnUnit. OsnForma. Query do begin
Active:=false;
SQL. Clear;
SQL. Add ('Select *');
SQL. Add ('From Работник');
SQL. Add ('Where '+PoiskForm. PoiskBox. Text+' Like «'+PoiskForm. PoiskEdit. Text+'''');
Active:=true;
end;
SQLForm. ShowModal;
end;
VIII. Создание отчетов по базе данных
Для создания отчетов создается новая форма, на ней размещается компонент TquickRep.
procedure TOsnForma.N7Click (Sender: TObject);
begin
OtchetForm. QuickRep1. PreviewModal;
end;
Технологическая часть
Руководство пользователя
При запуске программы открывается основное окно программы и выводится таблица «Командировка», в которой содержится наиболее общая информация, связанная с предметной областью (рис. 1).
Рис. 1
Главное меню содержит следующие пункты: «Файл», «Таблица», «Редактирование», «Поиск», «Сортировать по…» (рис. 2)
Рис. 2
Пункт меню «Файл» позволяет осуществить выход из программы и вывести отчет (рис. 3).
Рис. 3
При выборе подменю отчет выведется информация о каждом работнике (рис. 4). На каждой странице – информация об одном человеке.
Рис. 4
Для работы с записями используется панель задач (рис. 5)
Рис. 5
Пункт основного меню «Таблица» позволяет осуществлять переключение между таблицами БД (рис. 6)
Рис. 6
Выбрав любой подпункт можно получить доступ к таблице соответствующим названием. При этом тот подпункт, который совпадает с открытой на данный момент таблицей делается неактивным.
Редактирование записей в таблице может осуществляться двумя способами
· используя встроенный навигатор (рис. 7)
Рис. 7
Перечисление назначения кнопок навигатора слева направо:
1. указатель на начало всех записей
2. указатель на одну запись назад
3. указатель на одну запись вперед
4. вставить новую запись
5. удалить указанную запись
6. редактировать указанную запись
7. сохранить отредактированную запись
8. выйти из режима редактирования
9. обновить данные
· при помощи пункта меню «Редактирование» (рис. 8)
Рис. 8
При выборе подпункта «Добавить» выведется следующее диалоговое окно (рис. 9)
Рис. 9
При вводе данные будут отображаться в соответствующих полях таблицы (рис. 10)
Рис. 10
Для редактирования какой-либо записи следует установить на неё указатель и выбрать Редактирование – Редактировать. После чего выведется диалоговое окно, поля которого будут содержать значения этой записи (рис. 11).
Рис. 11
Чтобы удалить какую-либо запись следует установить на неё указатель и выбрать Редактирование – Удалить.
Пункт основного меню «Поиск» позволяет осуществлять поиск двумя способами. (рис. 12): когда по введенному значению установится указатель на соответствующую запись (рис. 14) и когда по введенному значению данные выведутся в отдельную таблицу (рис. 15). В обоих случаях перед поиском выведется диалоговое окно, в котом необходимо выбрать поле, по которому следует осуществлять поиск и то значение, которое нужно найти (рис. 13).
Рис. 11 Рис. 12
Рис. 14
Рис. 15
Сортировка выполняется по любому полю соответствующей таблицы в порядке возрастания.
Руководство программиста
Данная программа является закрытой, поэтому изменение свойств, функционального предназначения или отдельных функций невозможно.
3 .3 Системные и программные требования
Для нормальной работы программы необходимо:
1. Процессор Pentium II 100MHz (минимально) и выше;
2. ОЗУ 8 Mb;
3. 10 Mb свободного места на диске;
4. Операционная система Windows 9X/ME/2000/XP;
Заключение
Данная программа позволяет пользователю оперативно производить мониторинг отправки и прибытия из командировок сотрудников предприятия в целом, возможно создание отчетов, редактирование данных и многое другое.
К достоинствам программы можно отнести:
1. программный продукт не требует мощных модификаций компьютера, что позволяет значительно расширить круг пользователей;
2. данная программа может использоваться всеми категориями пользователей, и проста в работе;
3. программа занимает мало места на диске, но имеет большие возможности;
4. простота модернизации;
5. расширенные возможности поиска и сортировки;
К недостаткам можно отнести:
1. довольно простую графику, нет наглядности отображения числовых значений;
2. невозможность работы с сетевыми базами данных.
Этот программный продукт может быть в дальнейшем усовершенствован почти во всех направлениях, что возможно сделает его конкурентоспособным приложением БД на рынке ПО.
Список литературы
1. С.И. Бобровский. Delphi 7: Учебный курс.–СПб.: Питер, 2004.
2. В.В. Фаронов. Программирование баз данных в Delphi 7: Учебный курс.‑М, 2005.
3. Ананьев А.И., Федоров А.С. Самоучитель Pascal 6.0 – СПБ.: БХВ-Петербург, 1995. – 624 с.: ил.
Дата: 2019-05-28, просмотров: 199.
