99
При описании программного обеспечения задачи приведено и описано
разработанное дерево функций системы, сценарий диалога пользователя и системы,
дана характеристика разработанной базы данных, в том числе показана ее ER-
диаграмма и приведено описание реквизитного состава каждой таблицы
(наименование поля, его тип и назначение), дано описание структурной схемы
пакета и программных модулей.
Содержание работы с системой подробно описано в контрольном примере
реализации проекта.
Расчет экономической эффективности показал, что окупаемость затрат на
внедрение проекта составляет около 4 месяцев. Разработанная информационная
система доступна пользователям с любым уровнем подготовки, не требует
специальных знаний для ее использования.
Разработанный проект в полной мере соответствует требованиям задания на
дипломное проектирование.
Таким образом, цель выпускной квалификационной работы - разработка
автоматизированной системы делопроизводства, считаю достигнутой, задачи
выполненными.
100
Список использованной литературы
1. Федеральный закон от 27.07.2006 N 149-ФЗ (ред. от 18.12.2018) "Об
информации, информационных технологиях и о защите информации"
2. Федеральный закон от 27.07.2006 N 152-ФЗ (ред. от 31.12.2017) "О
персональных данных"
3. ГОСТ Р ИСО/МЭК 12207-2010. Национальный стандарт Российской
Федерации. Информационная технология. Системная и программная инженерия.
Процессы жизненного цикла программных средств (утв. и введен в действие
Приказом Росстандарта от 30.11.2010 N 631-ст)
4. Астахова, И.Ф. Компьютерные науки. Деревья, операционные системы,
сети / И.Ф. Астахова и др. - М.: Физматлит, 2013. - 88 c.
5. Алексеев В.П., Матвеев М.Д. Windows 10 на примерах. Практика,
практика и только практика. – М.: Наука и техника, 2018. 272 с.
6. Буховец А.г., Москалев П.В. Алгоритмы вычислительной статистики в
системе R. Учебное пособие. – М.: Лань, 2015. – 160 с.
7. Виницкий, Д. Компьютер и Windows 8 - проще простого: Самоучитель
/ Д. Виницкий. - СПб.: Питер, 2014. - 224 c.
8. Емельянов С.В. Информационные технологии и вычислительные
системы, №4, 2015. –М: ИСА РАН, 2015. – 2018 с.
9. Замятина О.М. Вычислительные системы, сети и телекоммуникации.
Моделирование сетей. Учебное пособие. – М.: Юрайт, 2017. – 160 с.
10. Кузьменко, Н.Г. Компьютерные сети и сетевые технологии / Н.Г.
Кузьменко. - СПб.: Наука и техника, 2013. - 368 c.
11. Куроуз, Д. Компьютерные сети. Нисходящий подход / Д. Куроуз, К.
Росс. - М.: Эксмо, 2016. - 912 c.
12. Кропп, А.П. Самоучитель Windows 8.1+Office 2013. 2 книги в 1 / А.П.
Кропп, И.Ф. Загудаев. - СПб.: Наука и техника, 2015. - 528 c.
13. Коптева, А.О. Краткий самоучитель работы на ноутбуке с Windows 8 /
А.О. Коптева. - М.: Эксмо, 2013. - 240 c.
101
14. Колисниченко, Д.Н. Самоучитель Microsoft Windows 10 / Д.Н.
Колисниченко. - СПб.: BHV, 2016. - 352 c.
15. Левин, А.Ш. Windows 8. Самоучитель Левина в цвете / А.Ш. Левин. -
СПб.: Питер, 2013. - 256 c.
16. Матвеев, М.Д. Windows 8.1. Все об использовании и настройках.
Самоучитель / М.Д. Матвеев, М.В. Юдин, Р.Г. Прокди. - СПб.: Наука и техника,
2015. - 656 c.
17. Пятибратов А.П., Гудыно Л.П., Кириченко А.А. Вычислительные
системы, сети и телекоммуникации. Учебное пособие. –М: КноРус, 2013. – 372 с.
18. Ромель А.П., Финкова М.А., Матвеев М.Д. Windows 10. Все об
использовании и настройках -М.: Наука и техника, 2016. - 336 c.
19. Сенкевич А.В. Архитектура ЭВМ и вычислительные системы. Учебник.
- М.: Academia, 2014. – 240 с.
20. Степина В.В. Архитектура ЭВМ и вычислительные системы. Учебник.
–М: Курс, Инфра-М. 2017. – 384 с.
21. Сенкевич Глеб. Ноутбук с Windows 10 для ваших родителей. –СПБ.:
БХВ-Петербург, 2016. – 224 с.
22. Эд Ботт. Windows 10 для IT-специалистов. Изд.: ЭКОМ Паблишерз.
2016. – 174 с.
102
Приложения
Приложение 1
Формы
«Кредиты»
«Погашение кредитов»
103
Форма «Полученные займы»
Отчёт «Договор для полученного займа» (договор упрощён)
104
Форма «Погашение полученных займов»
Форма «Выданные займы»
105
Отчёт «Договор для выданных займов» (договор упрощён)
Форма «Погашение выданных займов»
106
Приложение 2
Листинг программных модулей
unit uConnectionList;
***************************************************************************
// *************************** Режим сервера ****************************
{
В этом модуле описан класс, который организует хранение информации о всех соединениях
сервера;
}
interface
uses Classes, uConnectionInfo, SysUtils;
const
// Это значение function Find возвращает при неудачном поиске;
c_NotFind = -1;
type
// Класс - список соединений сервера;
TConnectionList = class
private
// Список, в котором хранятся информация о соединениях;
FList : TStringList;
// Процедура, вызываемая при изменении состояния списка соединений;
procedure Change;
public
// В OnChange записывается процедура, которая будет вызываться при изменении
списка;
107
OnChange : TNotifyEvent;
// Конструктор класса;
constructor Create;
// Деструктор класса;
destructor Destroy; overload;
// Функция поиска записи по ключу (возвращает индекс);
function Find (Key : Integer) : Integer;
// Функция добавления в список записи;
function AddConnection (Key : Integer) : TConnectionInfo;
// Функция получения записи по ключу;
function GetConnectionKey (Key : Integer) : TConnectionInfo;
// Функция получения записи по индексу;
function GetConnectionIndex (Index : Integer) : TConnectionInfo;
// Функция получения копии списка соединения;
function GetList : TStrings;
// Функция получения количества элементов в списке;
function GetCount : Integer;
// Удаление элемента из списка;
procedure DelConnection (Key : Integer);
//
procedure ConnectionListOnChange (Sender : TObject);
end;
var
//
ConnectionList : TConnectionList;
108
implementation
uses ufMain;
// Конструктор класса;
constructor TConnectionList.Create;
begin
//
inherited Create;
FList := TStringList.Create;
OnChange := ConnectionListOnChange;
end;
// Деструктор класса;
destructor TConnectionList.Destroy;
begin
//
FList.Free;
inherited Destroy;
end;
// Процедура, вызываемая при изменении состояния списка соединений;
procedure TConnectionList.Change;
begin
// Если функция в OnChange задана, то вызываем её;
if @OnChange <> nil then
begin
//
TThread.Queue(nil, procedure begin OnChange (Self) end);