91
2.12 TdmServer
C TCP
TdssmRemoteData.
92
2.13 TdmServer
2.8
public TADOConnection
adoConnection
public TDSAuthenticationManager
DSAuthenticationManager
public TDSServer
DSServer
public TDSServerClass
DSServerClass
public TDSTCPServerTransport
DSTCPServerTransport
internal TIniFile
FSettings
2.9
public Sub
DataModuleCreate(Sender: TObject)
public Sub
DSAuthenticationManagerUserAuthenticate(Sender: TObject;
Protocol: string; Context: string; User: string; Password: string;
valid: Boolean; UserRoles: TStrings)
""
public Sub
DSServerClassGetClass(DSServerClass: TDSServerClass;
PersistentClass: TPersistentClass)
93
public Sub
DSTCPServerTransportConnect(Event:
TDSTCPConnectEventObject)
public Sub
DSTCPServerTransportDisconnect(Event:
TDSTCPDisconnectEventObject)
public
function
TADOQuery
GetQuery(SQL: String)
public
function
TADOTable
GetTable(TableName: String)
public
function
Integer
GetUserKey(Login: String; Password: String; Blocked: Boolean;
UserType: Integer)
2.14
94
TADOConnection);
TADOTable TADOQuery);
(TDSProviderConnection);
IP-
95
2.15
96
-16.
97
Цикл по месяцам m=1;
m<=12; m++
Цикл по клиентам
j=1; j<=COUNT(Sotr udn); j++
Создание
представления для
списка заявок
Чтение i-й записи
представления Заявки
Установка указателя в
представлении Заявки
на первую запись
Sotr[i]. employee_
id=Sotr[j].employee_id;
Sotr[i]. paymonth=m
Да
Нет
А
А
i=i+1
i=j+1;
Сортировка заявок по
возрастанию значений
поля Дата
Начало
Установка соединения
с сервером БД
Фильтр таблицы
requests по условию
(date=today)
Открытие таблиц
Заявки, Пользователи
Б
Б
Конец цикла по
месяцам
Конец цикла по
сотрудникам
Удаление i-й записи из
представления
Конец цикла по
клиентам
Цикл по месяцам m=1;
m<=12; m++
Цикл по клиентам,
j=1; j<=COUNT(klient); j++
Фильтр представления
Заявки по условию
dasteprod=m
П11=0
П10=0;
П11=0;
П12=0
П11=П11+ kli ent[j].summ
Внесение kli ent[j].summ
в столбец для месяца
m макета отчета
Расчет итоговых
показателей отчета
В
Sotrudn[j].summ=
Sotrudn[j].summ+
Sotrudn[i].summ
Конец цикла по
месяцам
Внесение
рассчитанного
показателя П11 в макет
отчета
П12=П12+П11
В
Конец цикла по
месяцам
Цикл по клиентам,
j=1; j<=COUNT(kli ent); j++
Цикл по месяцам m=1;
m<=12; m++
Фильтр представления
Klient по условию
klient_id=
klient[j].employee_id
П10=0
П11=П11+ kli ent[j].summ
Конец цикла по
клиентам
Внесение
рассчитанного
показателя П10 в макет
отчета
Конец
Закрытие таблиц,
уничтожение
представления Заявки
2.16 -
2.4 Контрольный пример реализации проекта и его описание
98
2.17
99
2.18
2.19
100
2.20