Дипломная работа: Автоматизация банковских операций по предоставлению услуг аренды сейфовых ячеек в ПАО «Сбербанк»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
116
Уральский федеральный университет им. первого Президента России Б.Н.
Ельцина (УрФУ), 2019. — 116 с.. -
11. Калилец Т.В. и др. Эргономика информационных систем. - Т.В.
Калилец, В.С. Осипович, И.Ф. Киринович, К.Д. Яшин, Е.А. Бурков, Н.А.
Назаренко, П.И. Падерно. — Пособие. – Минск : БГУИР, 2018. – 74 с.
12. Козлов Сергей. Защита информации. Устройства
несанкционированного съема информации и борьба с ними. - М.: Трикста, 2018.
— 289 с.
13. Костюк Ю.Л. Лекции по основам программирования. Учебное
пособие. — Томск: Томский государственный университет (ТГУ), 2019. — 260
с.
14. Куликов С.С., Фадеева Е.Е. Работа с MySQL, MS SQL Server и Oracle
в примерах. В 2-х частях. — Учебно-методическое пособие. — Минск:
Белорусский государственный университет информатики и радиоэлектроники
(БГУИР), 2019. — 287 с.
15. Ларина Т.Б. Низкоуровневые языки. Учебное пособие для бакалавров
направлений подготовки «Информатика и вычислительная техника» и
«Информационная безопасность». — М: РУТ (МНИТ), 2018. — 147 с.
16. Лохнев Д.Г., Султанахметов Д.Р., Тырсин А.Н., Костоусов В.Б.
Основы работы с СУБД MySQL. - Учебное пособие. — Воронеж: Научная
книга, 2018. — 76 с.
17. Нарваткина Н.С. Внедрение информационных систем. Учебное
пособие. — Екатеринбург: Российский государственный профессионально-
педагогический университет (РГППУ), 2019. — 94 с.
18. Новиков Б.А., Горшкова E.A. Основы технологий баз данных. - М.:
ДМК Пресс, 2019. — 240 с.
19. Осипов Д. Технологии проектирования баз данных. - М.: ДМК Пресс,
2019. — 499 с.
20. Романов А.А. (сост.) Распределенные вычисления и приложения.
Учебное пособие. — Ульяновск : УлГТУ, 2018. — 151 с.
117
21. Семахин А.М. Методы верификации и оценки качества программного
обеспечения. - Курган: Курганский государственный университет, 2018. — 150
с.
22. Скитер Н.Н., Костикова А.В., Сайкина Ю.А. Информационные
технологии. - Волгоград: Волгоградский государственный технический
университет, 2019. — 96 с.
23. Стасышина В.М., Стасышин Т.Л. Базы данных: технологии доступа. -
2-е изд. испр. и доп. — Учебное пособие для СПО. — М.: Юрайт, 2019. — 164
с.
24. Стельмашонок Е.В., Васильева И.Н. (ред.) Информационная
безопасность цифрового пространства. - СПб.: СПбГЭУ, 2019. — 155 с.
25. Тагайцева С.Г., Юрченко Т.В. Предметно-ориентированное
программирование. - Нижний Новгород: ННГАСУ, 2018. — 84 с.
26. Трофимов В.В., Павловская Т.А. Основы алгоритмизации и
программирования. Учебник для СПО. — М.: Юрайт, 2019. — 137 с
27. Умарова А.А. (сост.) Основы проектирования баз данных. - Учебное
пособие для специальности «Информационные системы (по отраслям)». —
Махачкала: ДГУНХ, 2018. — 108 с.. -
28. Юрчик П.Ф., Голубкова В.Б. Применение Web и CALS технологий на
предприятии. - М.: Московский автомобильно-дорожный государственный
технический университет (МАДИ), 2018. — 112 с.. -
29. Юрчик П.Ф., Голубкова В.Б. Проектирование и эксплуатация ИАСУ. -
М.: Московский автомобильно-дорожный государственный технический
университет (МАДИ), 2018. — 172 с.
118
Приложение. Программный код системы
procedure TfmContract.FormActivate(Sender: TObject);
var
Dolg, Perep: Currency;
begin
if not DM.dstContr.Active then
DM.dstContr.Open
else
DM.dstContr.Requery;

Dolg := 0;
Perep := 0;
DM.tbContracts.First;
while not DM.tbContracts.Eof do
begin
DM.qrDolg.Parameters.ParamByName('pContractID').Value :=
DM.tbContracts.FieldByName('ID').AsInteger;
DM.qrDolg.Open;
if DM.qrDolg.FieldByName('Dolg').AsCurrency > 0 then
Dolg := Dolg + DM.qrDolg.FieldByName('Dolg').AsCurrency
else
Perep := Perep + DM.qrDolg.FieldByName('Dolg').AsCurrency;
DM.qrDolg.Close;
DM.tbContracts.Next;
end;
edDolg.Text := FormatCurr('#.00', Dolg);
119
edPerep.Text := FormatCurr('#.00', -Perep);
end;

procedure TfmContract.sbFilterClick(Sender: TObject);
var Filter: string;
begin
if sbFilter.Down then
begin

if RadioButton1.Checked then
Filter := ''
else
if RadioButton2.Checked then
Filter := '( = True)'
else
Filter := '( = False)';
//   :
if chbDateFrom.Checked then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '( >= ' + QuotedStr(DateToStr(dtpDateFrom.Date)) + ')';
end;
if chbDateTo.Checked then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '( <= ' + QuotedStr(DateToStr(dtpDateTo.Date)) + ')';
end;
120
//  :
if (chbRealty.Checked) and (dblcbRealtyCode.KeyValue <> Null) then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '(ID = ' + IntToStr(dblcbRealtyCode.KeyValue) + ')';
end;
//  :
if (chbOrg.Checked) and (dblcbOrgName.KeyValue <> Null) then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '(ID = ' + IntToStr(dblcbOrgName.KeyValue) + ')';
end;

if RadioButton5.Checked then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '( > 0)'
end
else
if RadioButton6.Checked then
begin
if Filter<>'' then Filter := Filter + ' and ';
Filter := Filter + '( < 0)';
end;
DM.dstContr.Filter := Filter;
Источник: https://baza.diplomsite.ru/previewfile/1478

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)