97
ЗАКЛЮЧЕНИЕ
В настоящей выпускной квалификационной работе разработана
автоматизированная система для менеджера АО «СЭМЗ».
Разработка и проектирование информационной системы является важным
моментом в работе организации или отдельно взятого отдела, так как в настоящее
время обработке информации отводится одно из главных мест.
Для каждой конкретной организации существует множество особенностей
разработки и проектирования информационной системы, зависящих от предметной
области выполняемых работ.
Цель выпускного квалификационного проекта достигнута путем решения
следующих задач:
хранение информации по сотрудникам, клиентам, курсам, договорам в
единой базе данных;
быстрый поиск по справочникам;
быстрое формирование документации;
оперативная работа менеджера с данными, хранящимися в базе;
составления отчетов по конкретно определенным заданным параметрам.
Создание информационной системы проходит несколько этапов:
Обследование предметной области, изучение и формализация требований
будущего пользователя;
Разработка концептуальной модели (использование технологии Erwin);
Создание АС (использование MS Access, Delphi);
Написание сопутствующей документации.
Задачи, поставленные в теме выпускного квалификационного проекта, были
решены с помощью создания удобного в использование, простого и
функционального программного продукта.
При анализе предметной области были проанализированы все составляющие
данного проекта, представлены решения по информационному и программному
обеспечению. Были приняты решения по техническому обеспечению организации,
для установки и функционирования информационной системы.
Для детализации и более наглядного представления задачи были приведены
модели «AS-IS» и «TO-BE», построенные с помощью BPWin. Это позволило
98
определить основные направления в разработке информационной системы.
Проектирование модели данных осуществлялось с помощью ERWin. Он
позволяет чётко и грамотно сформировать основу модели данных, определить все
необходимые сущности и связи и сгенерировать модель данных в MS Access для
дальнейшей разработки базы данных.
Создание программного продукта было осуществлено путём создания АС на
базе Delphi. Работа с приложением не требует особых навыков, интерфейс
разработан с учётом всех потребностей менеджера и ориентирован на конечного
пользователя. При этом пользователь информационной системы необязательно
должен быть уверенным пользователем ПК.
Для понимания взаимодействия основных компонентов системы были
построены структурные схемы программных модулей.
Произведены расчёты экономической части разработки информационной
системы и сделаны положительные выводы в пользу данного проекта.
Практическое значение настоящей работы состоит в создании
автоматизированной системы для АО «СЭМЗ», система позволяет освободить
менеджера от выполнения лишних повторяющихся операций, обеспечивает
высокий уровень в поиске необходимой информации и быструю ориентировку в
формировании документации.
99
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
1. Афанасьев Э.В, Ярошенко В.Н. Информационная безопасность. - М.:
Экономика, 2016. - 478 с.
2. Балдин К.В., Информационные системы в экономике, 2016.
3. Беленькая М.Н., Малиновский С.Т., Яковенко Н.В. Администрирование в
информационных системах. Научно-популярное издание. – М.: Горячая
линия – Телеком, 2015. – 300 с.
4. Вейцман В.М. Проектирование информационных систем: Учебное пособие.
- М.: МУБИНТ, 2016. - 214 c.
5. Гвоздева В. А. Информатика, автоматизированные информационные
технологии и системы: учебник / В. А. Гвоздева. Москва: Форум: Инфра-М,
2015. - 541 с.
6. Голицына О.Л., Попов И.И., Максимов Н.В. Базы данных. Учебное пособие.
3-е изд., перераб. и доп. М. : ФОРУМ, 2012. 400 с.
7. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 - 300 с.
8. Илюшечкин В.М. Основы тестирования информационных систем. -
М.:Юрайт, 2017. - 224 с.
9. Криницкий Н.А., Миронов Г.Д., Фролов Г.Д. Расчет экономической
эффективности информационных систем - М.: Наука, 2017.- 384 с.
10. Кузнецов С. Д. Базы данных. Модели и языки - М.: Бином-Пресс, 2013 г. -
720 с.
11. Култыгин О.П. Администрирование баз данных. СУБД MS SQL Server. - М:
Московская финансово-промышленная академия, 2012 -232 с.
(Университетская серия).
12. Маглинец Ю.А., Анализ требований к автоматизированным
информационным системам. - 2016.
13. Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных
систем. - М.: Диалог-МИФИ, 2017.
14. Мельников В. П., М.: Академия. Информационная безопасность и защита
информации. 2012, - 336 стр.
100
15. Рудакова Л.В. Базы данных. Разработка приложений. - СПб.:БХВ-
Петербург, 2018.
16. Сидоров В.Д., Струмпэ Н.В., Аппаратное обеспечение ЭВМ, 2014.
17. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование
экономических информационных систем. М.: Финансы и статистика, 2016. –
512.
18. Тельнова Ю.Ф. Информационные системы и технологии: Научное издание,
2016. – 303 с.
19. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. - М.: Корона-
век, 2015.
20. Востров Г., Малахов Е., Корнилова К. – Проблемы моделирования
предметных областей в информационных системах -
http://www.codenet.ru/progr/other/modeling-problems/
21. Горяев Ю.А. – Информационное обеспечение ИТ и ИС управления
организацией - http://www.miemp-mi-gor.narod.ru/utcheba/itu/glava/003.htm
22. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России Модель процессов MSF, Microsoft 2002
23. Erwin - CASE, Computer Associates - Программные продукты - Каталог ПО -
Описания продуктов. http://www.erwin.ru
101
ПРИЛОЖЕНИЕ
Коды запросов:
SELECT Договора.[№ договора], Договора.клиент, Договора.курс,
Договора.стоимость, Договора.[срок обучения], Договора.сотрудник,
Договора.[дата заключения]
FROM Договора
WHERE (((Year([дата заключения]))=Year(Now())) AND ((Month([дата
заключения]))=Month(Now())));
SELECT Расписание.[название курса], Расписание.[день недели], Расписание.время
FROM Расписание;
SELECT Курсы.наименование, Курсы.[срок обучения], Курсы.стоимость,
Договора.сотрудник, Договора.[дата заключения]
FROM Курсы INNER JOIN Договора ON Курсы.[код курса] = Договора.[код
курса];
Программный код:
unit Klient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
102
var
Form2: TForm2;
implementation
uses Avto;
{$R *.dfm}
procedure TForm2.N2Click(Sender: TObject);
begin
AdoTable1.Insert;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
form2.Hide;
form1.show;
end;
end. unit Kurs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;
type
TForm4 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
103
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Avto;
{$R *.dfm}
procedure TForm4.N2Click(Sender: TObject);
begin
AdoTable1.Insert;
end;
procedure TForm4.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm4.N4Click(Sender: TObject);
begin
form4.Hide;
form1.show;
end;
end.
unit Sotr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
MainMenu1: TMainMenu;
104
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Avto;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
begin
AdoTable1.Insert;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
form3.Hide;
form1.show;
end;
end.
unit New_dog;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, StdCtrls, Mask, Menus;
type
105
TForm6 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Добавить: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
Dsjl1: TMenuItem;
procedure ДобавитьClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Dogov;
{$R *.dfm}
procedure TForm6.ДобавитьClick(Sender: TObject);
begin
form5.ADOTable1.Edit;
form5.ADOTable1.Insert;
form5.ADOTable1.Fields[0].AsString:=dbedit1.Text;
form5.ADOTable1.Fields[1].AsString:=dbedit2.Text;
form5.ADOTable1.Fields[2].AsString:=dbedit3.Text;
form5.ADOTable1.Fields[3].AsString:=dbedit4.Text;
form5.ADOTable1.Fields[4].AsString:=dbedit5.Text;
form5.ADOTable1.Fields[5].AsString:=dbedit6.Text;
106
form5.ADOTable1.Fields[6].AsString:=dbedit7.Text;
form5.ADOTable1.Post;
form6.Hide;
end;
end.
unit Dogov;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Avto, New_dog;
{$R *.dfm}
procedure TForm5.N2Click(Sender: TObject);
begin
form6.show;
end;