97
ЗАКЛЮЧЕНИЕ
В данной дипломной работе была спроектирована и разработана
программа для учета обращений клиентов, на основе Borland Delphi 7, которая
позволяет повысить оперативность и эффективность процесса учета
обращения пользователя и контроля выполнения заявок по его обращению.
Сложность данного процесса заключается в большой клиентской базе и
разнообразии поддерживаемых услуг, что создает определенные условия к
разрабатываемой системе.
Использование информационной системы, разработанной в рамках
данного дипломного проекта, способствует реализации следующих задач:
• учет обращений пользователя в заявках;
• обеспечение безопасного сохранения данных;
• сокращение периода обработки информации;
• уменьшение трудоемкости и облегчение деятельности сотрудников
компании (за счет сокращения времени на операции);
• помощь при составлении отчета по заявкам.
В аналитической части выполнен комплекс работ, направленных на
доказательство необходимости автоматизации:
определена сущность проблемы;
представлены основные качества системы;
дано определение всем имеющимся бизнес-процессам;
пересмотрены проблемы, сопряженные с рассмотрением имеющихся
исследований в данной сфере.
Помимо этого, в первой главе обосновываются проектные решения по:
информационному,
программному,
техническому и технологическому обеспечению.
На базе проектной части этого дипломного проекта возможна
программная реализация информационной системы, автоматизирующей
процесс формирования, хранения и обработки обращений пользователей.
98
Была проведена оценка информационной архитектуры
разрабатываемого проекта и построена информационная модель задачи. В
процессе осуществления проектных решений по программному обеспечению
сформированы:
дерево диалога,
структурная модель пакета и ряд других частей проекта.
Кроме этого, во второй главе выстроена модель технологического хода
сбора, передачи, обработки и выдачи информации, представлены все
применяемые программные модули.
В третьей части дипломной работы выбрана технология расчета
экономической производительности и произведены все необходимые расчеты,
направленные на обоснование финансовой производительности проекта.
Полученные итоги расчетов подтверждают экономическую
производительность проекта.
Исходя из всего вышенаписанного, в заключении, можно сделать
вывод о том, что спроектированная система может быть реализована и
применена в рамках деятельности конкретной компании – спортивный
комплекс «Искра», а также в иных компаниях, с аналогичной
организационной структурой и типам работы. Применение данной системы
даст возможность эффективно автоматизировать бизнес-процессы фирмы в
части первичного принятия и обработки заявок клиентов и тем самым
повысить результативность функционирования компании.
99
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Смирнов, Н. В., Методические рекомендации по дисц.
"Проектирование информа-ционных систем». / Н. В. Смирнов – СПб: БГТУ
"Военмех", 2018
2. Голицына О. Л. , Максимов Н. В. , Попов И. И.: "Информационные
системы" учебное пособие. Москва: ФОРУМ: ИНФРА-М, 2019.
3. Андрей Боровский - Qt4.7+. Практическое программирование на
C++ - 2019
4. Баринов В.А. Бизнес-планирование: Учебное пособие. – М.:
ФОРУМ: Инфра-М, 2016.
5. Дж. К. Лафта. Управленческие решения: Учебное пособие для
вузов. / Дж.К.Лафта. – М.: Благовест-В, 2017.
6. Управление проектами. Под ред. Шапиро В.Д. СПб.: ДваТри,
2018.
7. Марк Саммерфилд - Qt Профессиональное программирование
(High tech) - 2018
8. Рассел, Арчибальд. Управление высокотехнологичными
программами и проектами / Арчибальд Рассел. – М. : Академия АйТи, 2019.
9. Фуфаев Д.Э. Разработка и эксплуатация автоматизированных
информационных систем М.: Издательский центр «Академия», 2019.
10. Рамиль Кинзябулатов, CRM. Подробно и по делу. Редакция 1, 2016
11. Книга «Управление Инфраструктурой информационных и
коммуникационных технологий» (ICT Infrastructure Management) –
публикация 2015г. (OGC)
12. Объектно-ориентированное программирование в С++. Автор.
Роберт Лафоре. Год. 2017.
13. Култыгин О.П. Администрирование баз данных. СУБД MS SQL
Server. - М: Московская финансово-промышленная академия, 2012
100
14. Проектирование информационных систем. Проектный практикум:
учебное пособие / А.В. Платёнкин, И.П. Рак, А.В. Терехов, В.Н. Чернышов. -
Тамбов: Издательство ФГБОУ ВПО «ТГТУ», 2015.
15. Советов Б.Я. Базы данных: учебник / Б.Я. Советов, В.В.
Цехановский, В.Д. Чертовской. - 2-е изд. - М.: Юрайт, 2015.
16. Программирование. Принципы и практика с использованием C++,
2-е издание. Автор: Бьерн Страуструп Год: 2015
Использованные интернет ресурсы:
1. https://studopedia.ru
2. https://ru.wikipedia.org/wiki/Заглавная_страница
3. https://www.qt.io
4. https://habr.com
101
ПРИЛОЖЕНИЕ
Программный код приложения Delphi 7.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DM: TDataModule},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDM, DM);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
102
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, StdCtrls, Mask, ExtCtrls, DBCtrls, cxImage,
ExtDlgs, Menus;
type
TForm1 = class(TForm)
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
cxGrid3DBTableView1: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
cxGrid4DBTableView1: TcxGridDBTableView;
cxGrid4Level1: TcxGridLevel;
cxGrid4: TcxGrid;
DBNavigator2: TDBNavigator;
DBNavigator3: TDBNavigator;
Filter: TRadioGroup;
Button1: TButton;
OpenPictureDialog1: TOpenPictureDialog;
cxGrid5DBTableView1: TcxGridDBTableView;
cxGrid5Level1: TcxGridLevel;
cxGrid5: TcxGrid;
103
DBNavigator4: TDBNavigator;
cxGrid2DBTableView1Kod_posetitelya: TcxGridDBColumn;
cxGrid2DBTableView1Nomer_zapisy: TcxGridDBColumn;
cxGrid2DBTableView1Kod_zanyztiya: TcxGridDBColumn;
cxGrid4DBTableView1Kod_yclygi: TcxGridDBColumn;
cxGrid4DBTableView1Naim_yclygi: TcxGridDBColumn;
cxGrid5DBTableView1Foto: TcxGridDBColumn;
cxGrid5DBTableView1Kod_trenera: TcxGridDBColumn;
cxGrid5DBTableView1Kod_yclygi: TcxGridDBColumn;
cxGrid5DBTableView1Familiya_trenera: TcxGridDBColumn;
cxGrid5DBTableView1Imya_trenera: TcxGridDBColumn;
cxGrid5DBTableView1Otchestvo_trenera: TcxGridDBColumn;
cxGrid5DBTableView1Date_trenera: TcxGridDBColumn;
cxGrid5DBTableView1Kvalification: TcxGridDBColumn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
Label6: TLabel;
Button2: TButton;
Label7: TLabel;
DBEdit2: TDBEdit;
Label8: TLabel;
DBEdit3: TDBEdit;
104
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
cxGrid3DBTableView1Kod_zanyztiya: TcxGridDBColumn;
cxGrid3DBTableView1Kod_trenera: TcxGridDBColumn;
cxGrid3DBTableView1nachalo_zanyatiya: TcxGridDBColumn;
cxGrid3DBTableView1okonchanie_zanyatiya: TcxGridDBColumn;
cxGrid3DBTableView1stoimost_zanyatiya: TcxGridDBColumn;
cxGrid3DBTableView1Max_chelovek: TcxGridDBColumn;
cxGrid3DBTableView1ObS: TcxGridDBColumn;
cxGrid1DBTableView1Kod_posetitelya: TcxGridDBColumn;
cxGrid1DBTableView1Familiya: TcxGridDBColumn;
cxGrid1DBTableView1Imya: TcxGridDBColumn;
cxGrid1DBTableView1Otchestvo: TcxGridDBColumn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N101: TMenuItem;
DBNavigator6: TDBNavigator;
Label9: TLabel;
N2: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
105
N3: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FilterClick(Sender: TObject);
procedure cxGrid1DBTableView1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure N101Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
106
var
Form1: TForm1;
Zakladka: TBookMark;
implementation
uses unit2, Unit3, Unit4;
{$R *.dfm}
procedure filter1;
begin
with DM do begin
if Q3posetiteli.Active then begin
if Form1.Filter.ItemIndex=1 then begin
Q2zapis.Close;
Q2zapis.SQL.Clear;
Q2zapis.SQL.Add('select * from Zapis');
if (not Q3posetiteli.IsEmpty) and (not (Q3posetiteli.State in [dsInsert,dsEdit])) then
Q2zapis.SQL.Add('where
Kod_posetitelya='+Q3posetiteli.FieldByName('Kod_posetitelya').AsString);
Q2zapis.Open;
end
else begin
Q2zapis.Close;
Q2zapis.SQL.Clear;
Q2zapis.SQL.Add('select * from Zapis');
Q2zapis.Open;
end;
end;
end;