47
выведенная на экран форма добавления в базу данных информации о
новых менеджерах;
выведенная на экран форма добавления в базу данных информации о
новых поставляемых товарах;
выведенная на экран форма добавления в базу данных информации о
новых оказываемых услугах;
выведенный на печать бланка выбранного договора;
выведенный на печать список договоров, с учетом условий
фильтрации;
выведенная на экран списка договоров с учетом заданных условий
фильтрации;
выведенная на экран форма отображения и редактирования списка
заказных в соответствии с выбранным договором товаров;
выведенная на экран форма отображения и редактирования списка
заказных в соответствии с выбранным договором услуг;
обновленная информация в базе данных об удаленные и не
удаленных договорах;
выведенная на экран форма добавления в базу данных информации о
новом договоре;
обновленная информация в базе данных об исполненных и не
исполненных договорах;
сохраненная в базе данных информация о полной стоимости товаров
и услуг по выбранному договору.
Форма модуля представлена на рисунке №2.
48
Рисунок №2. Форма модуля Contracts
На главной форме приложения (рис. 1) находятся компоненты, описанные в
таблице №1.
Таблица №1
Компоненты формы модуля Contracts
Название
Тип
Описание
DBGrid1
TDBGrid
Табличный визуальный компонент для
вывода содержимого таблицы contracts из
базы данных.
Label1
TLabel
Надпись «Описание».
N1
Пункт меню «Договоры».
N2
Пункт меню «Фильтрация».
N3
Пункт меню «Печать».
N4
Пункт меню «Данные».
N5
Пункт меню «Клиенты».
N6
Пункт меню «Менеджеры».
N7
Пункт меню «Товары».
49
Название
Тип
Описание
N8
TMenuItem
Пункт меню «Услуги».
N9
Пункт меню «Показать заказанные товары».
N10
Пункт меню «Показать заказанные услуги».
N11
Пункт меню «Удалить договор».
N12
Пункт меню «Добавить договор».
N13
Пункт меню «Отметить как исполненный».
N14
Пункт меню «Рассчитать полную
стоимость».
N15
Пункт меню «Все».
N16
Пункт меню «Исполненные».
N17
Пункт меню «В работе».
N18
Пункт меню «Удаленные».
N19
Пункт меню «Выбранный договор».
N20
Пункт меню «Список договоров».
ContractsDS
TDataSource
Невизуальный компонент для передачи
данных из таблицы contracts к визуальным
компонентам.
DBMemo1
TDBMemo
Визуальный компонент для вывода
дополнительной информации о выбранном
договоре.
ContractsQuery
TZQuery
Невизуальный компонент для выполнения
запросов к таблице contracts.
ManagersQuery
Невизуальный компонент для выполнения
запросов к таблице managers.
ClientsQuery
Невизуальный компонент для выполнения
запросов к таблице clients.
ZQuery1
Невизуальный компонент для выполнения
вспомогательных запросов к различным
таблицам.
50
Название
Тип
Описание
ZConnection1
TZConnection
Невизуальный компонент для организации
подключения и авторизации на сервере
СУБД MySQL
События, обрабатываемые формой, представлены в таблице №2.
Таблица №2
События, обрабатываемые формой
Название
Назначение
procedure
TContractsForm.FormCreate(Sender:
TObject);
Событие создания главной формы
приложения.
procedure TContractsForm.N5Click(Sender:
TObject);
Выбор пункта меню «Клиенты»
procedure TContractsForm.N6Click(Sender:
TObject);
Выбор пункта меню
«Менеджеры»
procedure TContractsForm.N7Click(Sender:
TObject);
Выбор пункта меню «Товары»
procedure TContractsForm.N8Click(Sender:
TObject);
Выбор пункта меню «Работы»
procedure TContractsForm.N9Click(Sender:
TObject);
Выбор пункта меню «Показать
заказанные товары»
procedure TContractsForm.N10Click(Sender:
TObject);
Выбор пункта меню «Показать
заказные услуги»
procedure TContractsForm.N11Click(Sender:
TObject);
Выбор пункта меню «Удалить
договор»
procedure TContractsForm.N12Click(Sender:
TObject);
Выбор пункта меню «Добавить
договор»
procedure TContractsForm.N13Click(Sender:
TObject);
Выбор пункта меню «Отметить
как исполненный»
procedure TContractsForm.N14Click(Sender:
Выбор пункта меню «Рассчитать
51
TObject);
полную стоимость»
procedure TContractsForm.N15Click(Sender:
TObject);
Выбор пункта меню «Все»
procedure TContractsForm.N16Click(Sender:
TObject);
Выбор пункта меню
«Исполненные»
procedure TContractsForm.N17Click(Sender:
TObject);
Выбор пункта меню «В работе»
procedure TContractsForm.N18Click(Sender:
TObject);
Выбор пункта меню «Удаленные»
procedure TContractsForm.N19Click(Sender:
TObject);
Выбор пункта меню «Выбранный
договор»
procedure TContractsForm.N20Click(Sender:
TObject);
Выбор пункта меню «Список
договоров»
2 Модуль OrderedItems.
Модуль OrderedItems предназначен для считывания информации о
поставляемых в соответствии с выбранным договором товарах из базы данных,
вывода на экран содержимого базы данных и редактирования информации в базе
данных.
Входными данными для модуля являются:
действия пользователя с использованием интерфейса формы;
содержимое таблицы ordereditems в базе данных;
содержимое таблицы items в базе данных;
содержимое таблицы contracts в базе данных.
Исходный текст модуля приведен в приложении.
После отображения на экран формы модуля OrderedItems, считываются и
выводятся на экран данные из базы данных о заказанных в соответствии с
выбранным договором товарах, данные о характеристиках товаров, и ожидаются
действия пользователя.
В зависимости от команды пользователя происходит:
изменение количества заказанных единиц выбранного товара;
удаление выбранного товара из заказа;
52
переход к добавлению нового товара в заказ;
закрытие формы модуля OrderedItems.
Изменение количества заказанных единиц выбранного товара происходит
при выборе пункта «Изменить количество» во всплывающем меню таблицы
заказных товаров. Количество не может быть нулевым или отрицательным.
Удаление выбранного товара из заказа происходит при выборе пункта
«Убрать из заказа» во всплывающем меню таблицы заказных товаров.
Переход к добавлению нового товара в заказ происходит при выборе
пункта «Добавить в заказ» во всплывающем меню таблицы заказных товаров.
Закрытие формы модуля происходит по нажатию на кнопку «X» в правом
верхнем углу формы модуля.
Выходными данными работы модуля в зависимости от команды
пользователя являются:
выведенная на экран и сохраненная в базу данных информации об
измененном количестве единиц заказанного товара;
удаленная из базы данных информация о наличии товара в заказе;
выведенная на экран форма добавления в базу данных информации о
новом заказанном товаре.
Форма модуля представлена на рисунке №3.
Рисунок №3 Форма модуля OrderedItems
53
На главной форме приложения (рис. №2) находятся компоненты, описанные в
таблице №3.
Таблица №3
Компоненты формы модуля OrderedItems
Название
Тип
Описание
DBGrid1
TDBGrid
Табличный визуальный компонент для
вывода содержимого таблицы
ordereditems из базы данных.
OrderedItemsDS
TDataSource
Невизуальный компонент для передачи
данных из таблицы ordereditems к
визуальным компонентам.
ZQuery1
TZQuery
Невизуальный компонент для
выполнения вспомогательных запросов к
различным таблицам.
OrderedItemsQuery
Невизуальный компонент для
выполнения запросов к таблицам
ordereditems и items.
N1
TMenuItem
Пункт всплывающего меню «Изменить
количество».
N2
Пункт всплывающего меню «Убрать из
заказа».
N3
Пункт всплывающего меню «Добавить в
заказ».
События, обрабатываемые формой, представлены в таблице №4.
Таблица №4
События, обрабатываемые формой
Название
Назначение
procedure
TOrderedItemsForm.FormShow(Sender:
Событие отображения формы
модуля.
54
TObject);
procedure
TOrderedItemsForm.FormClose(Sender:
TObject; var Action: TCloseAction);
Событие закрытия формы модуля.
procedure
TOrderedItemsForm.N1Click(Sender:
TObject);
Выбор пункта меню «Изменить
количество»
procedure
TOrderedItemsForm.N2Click(Sender:
TObject);
Выбор пункта меню «Убрать из
заказа»
procedure
TOrderedItemsForm.N3Click(Sender:
TObject);
Выбор пункта меню «Добавить в
заказ»
3. Модуль OrderedTasks.
Модуль OrderedTasks предназначен для считывания информации об
оказываемых в соответствии с выбранным договором услугах из базы данных,
вывода на экран содержимого базы данных и редактирования информации в базе
данных.
Входными данными для модуля являются:
действия пользователя с использованием интерфейса формы;
содержимое таблицы orderedtasks в базе данных;
содержимое таблицы tasks в базе данных;
содержимое таблицы contracts в базе данных.
Исходный текст модуля приведен в приложении.
После отображения на экран формы модуля OrderedTasks, считываются и
выводятся на экран данные из базы данных об оказываемых в соответствии с
выбранным договором услугах, данные об услугах, и ожидаются действия
пользователя.
В зависимости от команды пользователя происходит:
удаление выбранной услуги из заказа;
переход к добавлению новой услуги в заказ;
55
закрытие формы модуля OrderedTasks.
Удаление выбранной услуги из заказа происходит при выборе пункта
«Удалить из заказа» во всплывающем меню таблицы заказных услуг.
Переход к добавлению нового товара в заказ происходит при выборе
пункта «Добавить услугу» во всплывающем меню таблицы заказных услуг.
Закрытие формы модуля происходит по нажатию на кнопку «X» в правом
верхнем углу формы модуля.
Выходными данными работы модуля в зависимости от команды
пользователя являются:
удаленная из базы данных информация о наличии услуги в заказе;
выведенная на экран форма добавления в базу данных информации о
новой заказанной услуге.
Форма модуля представлена на рис. №4.
Рисунок №4. Форма модуля OrderedTasks
На главной форме приложения (рис. 4) находятся компоненты, описанные в
таблице №5.
Таблица №5
Компоненты формы модуля OrderedTasks
Название
Тип
Описание
DBGrid1
TDBGrid
Табличный визуальный компонент для
вывода содержимого таблицы
orderedtasks из базы данных.
56
Название
Тип
Описание
OrderedTasksDS
TDataSource
Невизуальный компонент для передачи
данных из таблицы orderedtasks к
визуальным компонентам.
ZQuery1
TZQuery
Невизуальный компонент для
выполнения вспомогательных запросов к
различным таблицам.
OrderedTasksQuery
Невизуальный компонент для
выполнения запросов к таблицам
orderedtasks и items.
N1
TMenuItem
Пункт всплывающего меню «Удалить из
заказа».
N2
Пункт всплывающего меню «Добавить
услугу».
События, обрабатываемые формой, представлены в таблице №6.
Таблица №6
События, обрабатываемые формой
Название
Назначение
procedure
TOrderedTasksForm.FormShow(Sender:
TObject);
Событие отображения формы
модуля.
procedure
TOrderedTasksForm.FormClose(Sender:
TObject; var Action: TCloseAction);
Событие закрытия формы модуля.
procedure
TOrderedTasksForm.N1Click(Sender:
TObject);
Выбор пункта меню «Удалить из
заказа»
procedure
TOrderedTasksForm.N2Click(Sender:
TObject);
Выбор пункта меню «Добавить
услугу»