96
обеспечению организации, для установки и функционирования
информационной системы.
Для детализации и более наглядного представления задачи были
приведены модели «AS-IS» и «TO-BE», построенные с помощью BPWin. Это
позволило определить основные направления в разработке информационной
системы.
Проектирование модели данных осуществлялось с помощью ERWin. Он
позволяет чётко и грамотно сформировать основу модели данных, определить
все необходимые сущности и связи и сгенерировать модель данных в MS
Access для дальнейшей разработки базы данных.
Создание программного продукта было осуществлено путём создания АС
на базе Delphi. Работа с приложением не требует особых навыков, интерфейс
разработан с учётом всех потребностей менеджера и ориентирован на
конечного пользователя. При этом пользователь информационной системы
необязательно должен быть уверенным пользователем ПК.
Для понимания взаимодействия основных компонентов системы были
построены структурные схемы программных модулей.
Произведены расчёты экономической части разработки информационной
системы и сделаны положительные выводы в пользу данного проекта.
Практическое значение настоящей работы состоит в создании
автоматизированной системы для ООО «ЦВВМ-СР», система позволяет
освободить менеджера от выполнения лишних повторяющихся операций,
обеспечивает высокий уровень в поиске необходимой информации и быструю
ориентировку в формировании документации.
97
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ 34.601 – 90. Информационная технология. Комплекс
стандартов на автоматизированные системы. Автоматизированные системы.
Стадии создания.
2. ГОСТ 34.602 – 89. Информационная технология. Комплекс
стандартов на автоматизированные системы. Техническое задание на создание
автоматизированной системы.
3. ГОСТ 19.201 – 78 ЕСПД. Техническое задание. Требования к
содержанию и оформлению.
4. ГОСТ 19.202 – 78 ЕСПД. Спецификация. Требования к содержанию
и оформлению.
5. Аппаратное обеспечение вычислительных систем / Д.В. Денисов,
В.А. Артюхин, М. Ф. Седненков; под ред. Д.В. Денисова. – М.: Маркет ДС,
2010 – 184 с.
6. Васильков А.В., Васильков И.А. - Безопасность и управление
доступом в информационных системах. Учебное пособие. 2010.
7. Глушаков С.В., Ломотько Д.В. Базы данных, 2005.
8. Гофман В.Э., Хомоненко А.Д. «Работа с базами данных», Санкт-
Петербург, изд-во «БХВ-Петербург», 2006.
9. Гребенюк Е.И., Гребенюк Н.А. - Технические средства
информатизации. Москва, 2007.
10. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 - 300 с.
11. Информационная безопасность и защита информации, Мельников
В. П., М.: Академия, 2012, - 336 с.
12. Кузнецов С.Д. Базы данных. Модели и языки – М.: Бином-Пресс,
2013 г. - 720 с.
13. Маглинец Ю.А., Анализ требований к автоматизированным
информационным системам. – 2008.
98
14. Малыхина М.П. Базы данных: основы, проектирование,
использование. Санкт-Петербург. БХВ-Петербург, 2007.
15. Голицына О.Л., Попов И.И., Максимов Н.В. Базы данных. Учебное
пособие. 3-е изд., перераб. и доп. М. : ФОРУМ, 2012. 400 с.
16. Петров В.Н - Информационные системы. СПб.: Питер, 2006.
17. Устройство и функционирование информационных систем. Н.З.
Емельянова, Т.Л. Партыка, И.И. Попов., Учебное пособие. М. : ФОРУМ : НИЦ
ИНФРА-М, 2012. 448 с.
18. Хомоненко А.Д, Циганова В.М. - Базы данных. С-Петербург, 2006.
19. Г. Востров, Е. Малахов, К. Корнилова – Проблемы моделирования
предметных областей в информационных системах -
http://www.codenet.ru/progr/other/modeling-problems/
99
ПРИЛОЖЕНИЕ
Коды запросов:
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;
100
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); 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;
101
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;
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
102
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, StdCtrls, Mask, Menus;
type
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;
form5.ADOTable1.Fields[6].AsString:=dbedit7.Text; form5.ADOTable1.Post;
form6.Hide; end;
end.
unit Dogov; interface
uses
103
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;
procedure TForm5.N3Click(Sender: TObject); begin
AdoTable1.Delete; end;
procedure TForm5.N4Click(Sender: TObject); begin
form5.Hide; form1.show; end;
end.
unit Avto; interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, RpCon,
RpConDS, RpBase, RpSystem, RpDefine, RpRave;
type
TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem;
N2: TMenuItem;
104
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator; DataSource1: TDataSource;
ADOConnection1: TADOConnection; ADOTable1: TADOTable; DataSource2:
TDataSource; RvProject1: TRvProject;
RvSystem1: TRvSystem; RvDataSetConnection1: TRvDataSetConnection;
ADOTable2: TADOTable;
DataSource3: TDataSource; ADOTable3: TADOTable; RvProject2:
TRvProject; RvSystem2: TRvSystem;
RvDataSetConnection2: TRvDataSetConnection; DataSource4: TDataSource;
ADOTable4: TADOTable; RvProject3: TRvProject; RvSystem3: TRvSystem;
RvDataSetConnection3: TRvDataSetConnection; procedure N12Click(Sender:
TObject);
procedure N10Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject);
procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Form1: TForm1; implementation
uses Klient, Sotr, Kurs, Dogov;
105
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject); begin
RvProject1.Execute; end;
procedure TForm1.N12Click(Sender: TObject); begin
form1.Close; end;
procedure TForm1.N13Click(Sender: TObject); begin
RvProject2.Execute; end;
procedure TForm1.N14Click(Sender: TObject); begin
RvProject3.Execute; end;
procedure TForm1.N2Click(Sender: TObject); begin
form1.Hide; form2.show; end;
procedure TForm1.N3Click(Sender: TObject); begin
form1.Hide; form3.show; end;
procedure TForm1.N4Click(Sender: TObject); begin
form1.Hide; form4.Show; end;
procedure TForm1.N5Click(Sender: TObject); begin
form1.Hide; form5.show; end;
end.