98
Об?ласть
ви?димости
Поле/метод
Описание
fu?nction Ge?tDefectCountFormMonth :
In?teger;
Ме?тод вы?числения
ко?личества за?явок за ме?сяц
(о?т те?кущей даты), ти?п
ко?торых со?ответствует
ти?пу за?груженной заявки.
fu?nction Ge?tDefectCountForm6Month :
In?teger;
Ме?тод вы?числения
ко?личества за?явок за ше?сть
ме?сяцев (о?т те?кущей даты),
ти?п ко?торых со?ответствует
ти?пу за?груженной заявки.
fu?nction Ge?tDefectCountForm12Month :
In?teger;
Ме?тод вы?числения
ко?личества за?явок за
дв?енадцать ме?сяцев (о?т
те?кущей даты), ти?п
ко?торых со?ответствует
ти?пу за?груженной заявки.
fu?nction Ge?tDefectCashSumForm12Month :
Do?uble;
Ме?тод вы?числения
ко?личества ср?едств
по?траченных на ус?транения
по?добных не?исправности за
дв?енадцать ме?сяцев (о?т
те?кущей даты).
fu?nction
Ge?tUserFailureDefectCountForm3Month :
In?teger;
Ме?тод вы?числения
ко?личества по?добных
не?исправностей по ви?не
по?льзователя (з?а тр?и ме?сяца
от те?кущей даты), ко?торый
до?бавил те?кущую заявку.
fu?nction
Ge?tUserFailureDefectCountForm6Month :
In?teger;
Ме?тод вы?числения
ко?личества по?добных
не?исправностей по ви?не
по?льзователя (з?а ше?сть
ме?сяцев от те?кущей даты),
ко?торый до?бавил те?кущую
заявку.
fu?nction
Ge?tUserFailureDefectCashSumForm12Month
: Do?uble;
Ме?тод вы?числения
ко?личества ср?едств
по?траченных на ус?транения
по?добных не?исправности за
дв?енадцать ме?сяцев (о?т
те?кущей да?ты) по ви?не
пользователя.
99
Клиент
Ос?новой кл?иентской ча?сти яв?ляется мо?дуль TdmData. Мо?дуль вы?полняет
сл?едующие фу?нкции: со?единение с се?рвером; уп?равление пр?едоставленными
се?рвером на?борами да?нных; по?лучение до?ступа к фу?нкциональности се?рвера
(с?оздание пр?оекции ин?терфейса вз?аимодействия «TdssmRemoteData»).
Дл?я по?дключения к се?рверу ис?пользуется ко?мпонент SQLConnection. В
ка?честве па?раметров по?дключения мы ук?азываем: ти?п по?дключения (D?ataSnap); IP?-
адрес се?рвера; по?рт по?дключения (5?000); пр?отокол вз?аимодействия (в на?шем сл?учае
TC?P); ло?гин и па?роль пользователя.
Дл?я до?ступа к фу?нкциональности и да?нным се?рвера ис?пользуется
сп?ециальный ко?мпонент DSProviderConnection, ко?торый не?обходим дл?я
по?дключения кл?иентского на?бора да?нных (T?ClientDataSet) к пр?овайдеру на?бора
да?нных (TDataSetDrovider).
По?сле ус?пешного по?дключения к се?рверу вы?полняется ак?тивация до?ступных
на?боров да?нных (о?ткрытие на?бора данных).
По?сле от?крытия на?бора по?льзователь мо?жет ре?дактировать на?бор да?нных
че?рез ви?зуальные ко?мпоненты (т?акие ка?к TDBGrid, TDBEdit, TDBMemo, TDBImage,
TD?BNavigator и т.д.), ра?зработанные сп?ециально дл?я ра?боты с ба?зами данных. Но
ви?зуальные ко?мпоненты по?дключаются не на?прямую к кл?иентскому на?бору данных,
а ис?пользуют сп?ециальный «п?осредник» (о?бъект кл?асса TD?ataSource) ко?торый
пр?изван ун?ифицировать ис?пользование ви?зуальных ко?мпонентов с ра?зличными
ти?пами на?боров данных.
Кл?иент та?кже по?лучает до?ступ к ин?терфейсу вз?аимодействия се?рвера
TdssmRemoteData. На ст?ороне клиента, че?рез ко?мпонент DSProviderConnection,
со?здается «п?роекция» кл?асса TdssmRemoteData, в ко?торую вх?одят вс?е ме?тоды
се?рверного кл?асса со сп?ецификатором public. Кл?асс «п?роекция» ин?ициализируется
ср?азу по?сле по?дключения кл?иента к серверу.
100
Рис. 0.?9 Сх?ема мо?дуля Td?mData
Та?блица 0.?7
Оп?исание кл?асса «T?dmData»
Об?ласть
ви?димости
Поле/метод
Описание
public
SQ?LConnection: TS?QLConnection;
Ко?мпонент со?единения с се?рвером
пр?иложений;
DS?ProviderConnection:
TD?SProviderConnection;
Ко?мпонент со?единения с
cd?sUserInfo: TA?DOQuery;
Кл?иентский на?бор да?нных
«И?нформация о пользователе».
ds?UserInfo: TD?ataSetProvider;
По?средник на?бора да?нных
cdsUserInfo.
cd?sFunction: TA?DOTable;
Кл?иентский на?бор да?нных
«Должность».
ds?Function: TD?ataSetProvider;
По?средник на?бора да?нных
cdsFunction.
cd?sDefect: TA?DOTable;
Кл?иентский на?бор да?нных
«Неисправность».
ds?Defect: TD?ataSetProvider;
По?средник на?бора да?нных cdsDefect.
cd?sDepartment: TA?DOTable;
Кл?иентский на?бор да?нных
«Отделение».
ds?Department: TD?ataSetProvider;
По?средник на?бора да?нных
cdsDepartment.
cd?sUserType: TA?DOTable;
Кл?иентский на?бор да?нных «Т?ип
пользователя».
ds?UserType: TD?ataSetProvider;
По?средник на?бора да?нных
cdsUserType.
cd?sUser: TA?DOTable;
Кл?иентский на?бор да?нных
101
Об?ласть
ви?димости
Поле/метод
Описание
«Пользователь».
ds?User: TD?ataSetProvider;
По?средник на?бора да?нных cdsUser.
cd?sOpenRequest: TA?DOTable;
Кл?иентский на?бор да?нных
«О?ткрытые заявки».
ds?OpenRequest: TD?ataSetProvider;
По?средник на?бора да?нных
cdsOpenRequest.
cd?sClosedRequest: TA?DOTable;
Кл?иентский на?бор да?нных
«З?акрытые заявки».
ds?ClosedRequest:
TD?ataSetProvider;
По?средник на?бора да?нных
cdsClosedRequest.
cd?sArchive: TA?DOTable;
Кл?иентский на?бор да?нных «Архив».
ds?Archive: TD?ataSetProvider;
По?средник на?бора да?нных
cdsArchive.
cd?sParams: TA?DOTable;
Кл?иентский на?бор да?нных
«Параметры».
ds?Params: TD?ataSetProvider;
По?средник на?бора да?нных
cdsParams.
cd?sDefectCount: TA?DOTable;
Кл?иентский на?бор да?нных
«К?оличество неисправностей».
ds?DefectCount: TD?ataSetProvider;
По?средник на?бора да?нных
cdsDefectCount.
cd?sYearReport: TC?lientDataSet;
Кл?иентский на?бор да?нных «Г?одовой
отчет».
ds?YearReport: TD?ataSetProvider;
По?средник на?бора да?нных
cdsYearReport.
cd?sReportRequestClose:
TA?DOQuery;
Кл?иентский на?бор да?нных «О?тчет по
за?крытым заявкам».
ds?ReportRequestClose:
TD?ataSetProvider;
По?средник на?бора да?нных
cdsRequestClose.
cd?sReportRequestOpen:
TA?DOQuery;
Кл?иентский на?бор да?нных «О?тчет по
от?крытым заявкам».
ds?ReportRequestOpen:
TD?ataSetProvider;
По?средник на?бора да?нных
cdsRequestOpen.
cd?sRequest: TA?DOQuery;
Кл?иентский на?бор да?нных «Заявка».
ds?Request: TD?ataSetProvider;
По?средник на?бора да?нных
cdsRequest.
Бл?ок-схема мо?дуля по?строения сп?иска за?явок пр?иведена на ри?сунке 2.16.
102
Цикл по датам m=1;
m<=12; m++
Цикл по клиентам,
подавшим заявку
j=1; j<=COUNT(KLIENT);
j++
Создание
представления для
списка заявок
SPISZAYAV
Чтение i-й записи
представления
SPISZAYAV
Установка указателя
в представлении
SPISZAYAV на
первую запись
Klient[i].employee_
id=Klient[j].employee_id;
Klient[i].paymonth=m
Да
Нет
А
А
i=i+1
i=j+1;
Сортировка
SPISZAYAV по
возрастанию
приоритета
Начало
Установка
соединения с
сервером БД
Фильтр таблицы ZAV
по условию
(date=today)
Открытие таблиц
KLIENT, USER,
USLUGA, PRIOR
Б
Б
Конец цикла по
заявкам
Конец цикла по
клиентам
Удаление i-й записи
из представления
Конец цикла по
клиентам
Цикл по причинам
p=1; p<=9; p++
Цикл по клиентам ,
j=1; j<=COUNT(klient);
j++
Фильтр
представления
SPISZAYAV по
условию prichina=p
П4=0
П1=0;
П2=0;
П3=0
П4=П4+ Klient[j].summ
Внесение
Klient[j].summ в
столбец макета
отчета
Расчет итоговых
показателей отчета
В
Klient[j].summ=
Klient[j].summ+
Klient[i].summ
Конец цикла по
причинам
Внесение
рассчитанного
показателя П4 в
макет отчета
П5=П6+П4
В
Конец цикла по
датам
Цикл по сотрудникам,
j=1; j<=COUNT(Sotrudn);
j++
Цикл по датам m=1;
m<=12; m++
Фильтр представления
SOTRUDN по условию
employee_id=
Sotrudn[j].employee_id
П10=0
П7=П7+ Sotrudn[j].summ
Конец цикла по
сотрудникам
Внесение
рассчитанного
показателя П7 в
макет отчета
Конец
Закрытие таблиц,
уничтожение
представления
SPISZAYAV
Рис. 0.?6 Бл?ок-схема мо?дуля по?строения сп?иска за?явок
103
2.4. Ко?нтрольный пр?имер ре?ализации пр?оекта и ег?о оп?исание
Пр?ограмму мо?жно за?пустить от им?ени ад?министратора и пользователя.
По?сле за?пуска пр?ограммы на эк?ране мо?нитора по?явится ок?но вх?ода в
программу, с ко?торого и на?чинается её работа. В от?крывшемся ок?не вх?ода
не?обходимо вв?ести им?я по?льзователя и пароль.
Ри?сунок 0.?7 Ав?торизация по?льзователя
По?сле ав?торизации от?кроется гл?авное ме?ню пр?ограммы в со?ответствии с
пр?авами пользователя.
Гл?авное ме?ню уч?етной за?писи ад?министратора со?держит кн?опки:
Вх?од – дл?я см?ены уч?етной за?писи по?льзователя;
Со?здать за?явку – дл?я по?дачи за?явки;
Да?нные – дл?я за?полнения сп?равочников;
За?явки – дл?я пр?осмотра и за?крытия за?явок;
За?крытые – дл?я пр?осмотра за?крытых за?явок;
Ар?хи – дл?я пр?осмотра за?явок от?правленных в ар?хив;
Об?новить – дл?я об?новления сп?иска заявок, ес?ли пр?ограмма до?лго ви?сит в
об?ласти ув?едомлений;
По?льзователь – дл?я от?ображения ин?формации о по?льзователе пр?ошедшем
ав?торизацию;
По?казатели – дл?я от?ображения гр?афиков и ди?аграмм;
От?четы – дл?я фо?рмирования отчетов.
104
Ри?сунок 0.?8 Гл?авное ме?ню ад?министратора
Ос?новное ме?ню со?стоит из 2 вк?ладок - си?стема и окно.
Си?стема ре?ализует сл?едующие фу?нкции: Вход, Со?здать заявку, Данные,
Заявки, Закрытые, Архив, Пользователь.
Ок?но ре?ализует сл?едующие фу?нкции: Закрыть, Каскад, Го?ризонтальное
выравнивание, Ве?ртикальное выравнивание, Св?ернуть все, Упорядочить.
Гл?авное ме?ню уч?етной за?писи по?льзователя со?держит кн?опки Ук?азать
неисправность, ОК, От?мена и по?ле Оп?исание пр?едназначенное дл?я оп?исания
не?исправности оборудования. Оп?исание пр?оизводится по?льзователем в пр?оизвольной
форме.
105
Ри?сунок 0.?9 Уч?ет за?явки
Дл?я от?правки за?явки на ис?полнение ну?жно на?жать кн?опку ОК (п?осле
за?полнения вс?ех полей).
Ри?сунок 0.?14 Сп?исок за?явок
106
В гл?авном ме?ню ад?министратора пр?иведены ос?новные кн?опки дл?я
ос?уществления ра?боты си?стемы – до?бавление заявки, по?лучение сп?иска заявок,
пр?осмотр ар?хива заявок, пр?осмотр да?нных о по?льзователе и ре?зультатов ра?счета
показателей. Та?кже ад?министратор за?полняет справочники.
Ри?сунок 0.?15 Сп?равочник Ст?атус
107
Ри?сунок 0.16 Сп?равочник Ус?луги
Ри?сунок 0.17 Сп?равочник По?льзователи