105
позволяет использовать ее без предварительного освоения.
ИС позволяет получать информацию и использовать ее для выполнения
своих должностных обязанностей.
Есть возможность вносить изменения, усовершенствовать ИС по
необходимости средствами Delphi 10.3 и MySQL. В следствии чего срок
службы данной ИС можно считать не ограниченным.
По проделанной работе можно сделать вывод, что разработанная ИС
была выполнена с учетом поставленных перед ней требований и может быть
использована в работе предприятия.
106
СПИСОК ИНФОРМАЦИОННЫХ ИСТОЧНИКОВ
1. Автоматизированные системы обработки учетно-аналитической
информации: Учебник / Под ред. В.С. Рожнова. – М.: Финансы и статистика,
2015. – 368 с.
2. Агапов Е. П. Социальная информатика : учебное пособие / Е. П.
Агапов ; М-во образования и науки Рос. Федерации, Южный федер. ун-т. -
Москва : РИОР : ИНФРА-М, 2015. 420 с.
3. Архангельский А Я. Delphi 2006 : справочное пособие : язык
Delphi, классы, функции Win32 и .NET / А. Я. Архангельский. - Москва :
БИНОМ, 2016. - 280 с.
4. Банк В. Р. Информационные системы в экономике / В. Р. Банк, В.
С. Зверев. - М.: Экономистъ, 2015. – 248 с.
5. Барроу Пол. Бизнес-план который работает : перевод с
английского / Пол Барроу ; с предисл. сэра Р. Брэнсона. - Москва : Альпина
Бизнес Букс, 2016. – 3796 с.
6. Безручко, В. Т. Информатика: (курс лекций) / В. Т. Безручко. –
Москва: ИНФРА-М, 2016. – 416 с.
7. Бизнес-план / пер. с англ. К. В. Вдовина ; науч. ред. В. А.
Питалева [и др.]. - [Б. м.] : ДеКА, 2017. – 288 с.
8. Бойко, М. А. Основные термины и определения по дисциплине
«Информатика» / М. А. Бойко, В. А. Журкин - Мурманск: Мурманский
центр научно-технической информации, 2018. – 312 с.
9. Варфоломеева А. О. Информационные системы предприятия :
учебное пособие : [для студентов высших учебных заведений, обучающихся
по направлению 09.03.03 "Прикладная информатика" и экономическим
специальностям] / А. О. Варфоломеева, А. В. Коряковский, В. П. Романов. -
2-е изд., перераб. и доп. - Москва : ИНФРА-М, 2017. – 356 с.
107
10. Васильев В. В. Практикум по информатике : [учебное пособие
для студентов высших учебных заведений, обучающихся по специальности
071201 "Библиотечно-информационная деятельность"]. - Москва : ФОРУМ,
2015. – 412 с.
11. Вейскас, Джон. Эффективная работа с MySQL / Джон Вейскас. -
СПб. и др. : Питер, 2016. – 312 с.
12. Волченко И. О. Программирование и основы алгоритмизации :
[учеб. пособие по курсу " Программирование и основы алгоритмизации" для
специальности 220301 "Автоматизация технол. процессов и пр-в"] / И. О.
Волченко ; Федер. агентство по рыболовству, Федер. гос. образоват.
учреждение высш. проф. образования "Мурм. гос. техн. ун-т". - Мурманск :
Изд-во МГТУ, 2016. – 292 с.
13. Волосатова Т. М. Информатика и лингвистика : учебное пособие
: [для студентов высших учебных заведений, обучающихся по направлению
подготовки 09.03.01 "Информатика и вычислительная техника" 10.03.01
"Информационная безопасность" (квалификация (степень) "бакалавр")]. -
Москва : ИНФРА-М, 2016. – 182 с.
14. Гальперин, М В. Автоматическое управление / М. В. Гальперин.
- Москва: Инфра-М, 2017. – 120 с.
15. ГОСТ 34.003-90 Термины и определения
16. ГОСТ 34.201-89 Виды, комплектность и обозначение документов
при создании автоматизированных систем
17. ГОСТ 34.601-90 ГОСТ 34.601-90. Автоматизированные системы.
Стадии создания
18. ГОСТ 34.602-89 Техническое задание на создание
автоматизированной системы
19. ГОСТ 34.603-92 Виды испытаний автоматизированных систем
20. Девисилов В. А. Охрана труда : [учеб. для учреждений сред.
проф. образования] / В. А. Девисилов. - М. : Форум, 2015. – 460 с.
21. Гандэрлой Майк. ADO и ADO.NET : полное руководство :
108
[архитектура доступа к данным, основы технологии . NET, использование
ADO и ADO.NET для извлечения и редактирования данных, работа с
отключенными наборами данных, использование ADO из .NET, управление
данными в Web с помощью ASP.NET, синхронизация наборов данных с
помощью XML, работа с различными клиентами и провайдерами данных :
перевод с английского] / Майк Ганделрой. - Санкт-Петербург [и др.] :
КОРОНА принт [и др.], 2017. – 560 с.
22. Голицына О. Л. Базы данных : [учебное пособие для студентов
учреждений среднего профессионального образования, обучающихся по
специальностям Автоматизированные системы обработки информации и
управления (по отраслям), Программное обеспечение вычислительной
техники и автоматизированных систем, Техническое обслуживание средств
вычислительной техники и компьютерных сетей] / О. Л. Голицына, Н. В.
Максимов, И. И. Попов. - Изд. 2-е, испр. и доп. - Москва : Форум : ИНФРА-
М, 2017. – 482 с.
23. Голицына О. Л. Языки программирования : [учебное пособие для
студентов образовательных учреждений среднего профессионального
образования] / О. Л. Голицына, Т. Л. Партыка, И. И. Попов. - Москва :
ФОРУМ : ИНФРА-М, 2018. – 258 с.
24. Емельянова, Н. З. Информационные системы в экономике / Н. З.
Емельянова, Т. Л. Партыка, И. И. Попов. - Москва: ИНФРА-М, 2016. – 368 с.
25. Еремина О. Ю. Товарный менеджмент : учебное пособие : [для
студентов высших учебных заведений, обучающихся по направлению
100800.62 Товароведение" / Еремина О. Ю., Евдокимова О. В., Уварова В. И.]
; под ред. Т. Н. Ивановой. - Москва : ИНФРА-М, 2015. – 232 c.
26. Зубов, Артем. Программирование на DELPHI. / Артем Зубов. -
СПб. [и др.] : Питер, 2015. – 326 с.
27. Илюшечкин В. М. Основы использования и проектирования баз
данных : учебное пособие : [для студентов высших учебных заведений,
обучающихся по направлению " Информатика и вычислительная техника"] /
109
В. М. Илюшечкин. - Москва : Высшее образование, 2015. – 326 с.
28. Кантарь, И. Л. Автоматизированные рабочие места
управленческого аппарата / И.Л. Кантарь – СПб: Нива, 2017. – 246 с.
29. Карпиленко Е. В. Основы программирования : [учебник для
студентов образовательных учреждений среднего профессионального
образования] / Е. В. Карпиленко. - Ростов-на-Дону : Феникс, 2017. – 252 с.
30. Карпов Б. MySQL : справочник / Б. Карпов. - СПб. : Питер и др.,
2016. – 234 с.
31. Кириллов В. В. Введение в реляционные базы данных : [базы
данных и управление ими, реляционная модель данных, SQL - стандартный
язык для работы с реляционными базами данных, основы проектирования
реляционных баз данных, создание приложений на языке SQL и его
процедурных расширениях, хранимые процедуры, примеры создания баз
данных, инструментарий для создания баз данных и приложений к ним] /
Владимир Кириллов, Геннадий Громов. - Санкт-Петербург : БХВ-Петербург,
2017. – 512 с.
32. Ковалева, В.Д. Автоматизированное рабочее место экономиста:
учебник / В.Д. Ковалева . - М.: Финансы и статистика, 2016. – 218 с.
33. Козлов А В. Программирование для Интернет в DELPHI 2010 /
А.В. Козлов ; Под общ. ред. А.Я.Архангельского. - М. : Бином, 2016. – 228 с.
34. Коробко И. В. Справочник системного администратора по
программированию Windows : [объектная модель Active Directory,
интерфейсы ADO и IADs, идентификаторы безопасности и NTFS, групповые
политики и реестр, синтаксис командных файлов, Windows Script Host,
Windows Installer] / Иван Коробко. - Санкт-Петербург : БХВ-Петербург,
2017.. – 386 с.
35. Кудинов Ю. И. Основы современной информатики : [учебное
пособие для студентов высших учебных заведений, обучающихся по
специальности "Прикладная информатика"]. - Изд. 3-е, стер. - Санкт-
Петербург [и др.] : Лань, 2016. – 388 с.
110
36. Кузин А. В. Разработка баз данных в системе MySQL : [учебник
для студентов учреждений среднего профессионального образования,
обучающихся по специальностям "Автоматизированные системы обработки
информации и управления (по отраслям)", "Программное обеспечение
вычислительной техники и автоматизированных систем"] / А. В. Кузин, В. М.
Демин. - 3-е изд. - Москва : ФОРУМ, 2017. – 348 с.
37. Культин Н. Б. Основы программирования в Delphi 7 : [среда
разработки, назначение базовых компонентов, программирование графики,
мультимедиа и баз данных, создание справочной системы и установочного
CD] / Никита Культин. - 2-е изд. - Санкт-Петербург : БХВ-Петербург, 2015. –
322 с.
38. Кучеренко В. Тонкости программирования на DELPHI / В.
Кучеренко. - М. : Познават. кн. плюс, 2017. – 246 с.
39. Максимов Н. В. Информационные технологии в
профессиональной деятельности : [учебное пособие для студентов
образовательных учреждений среднего профессионального образования]. -
Москва : ФОРУМ, 2015. – 286 с.
40. Малыхина М. П. Базы данных: основы, проектирование,
использование : [принципы построения баз данных и СУБД, концептуальное
проектирование баз данных, реляционная модель данных, языки
программирования баз данных, администрирование баз данных : учебное
пособие для студентов вузов, обучающихся по направлению подготовки
"Информатика и вычислительная техника"] / М. П. Малыхина. - 2-е изд. -
Санкт-Петербург : БХВ-Петербург, 2017. – 248 с.
41. Методические указания. Экономическое обоснование дипломных
проектов “Организация и планирование производства. Управление
предприятием ”, - СПб.: СЗПИ 2016. – 274 с.
42. Методы и модели информационного менеджмента / под ред. А.
В. Кострова. - Москва: Финансы и статистика, 2017. 326 с.
43. Мишенин А. И. Сборник задач по программированию[ :
111
простейшие программы, циклы и массивы, обработка матриц, численные
методы, обработка символьной информации : учебно-методическое пособие
для студентов высших учебных заведений, обучающихся по специальности
080801 "Прикладная информатика (по областям)" и другим
междисциплинарным специальностям] / А. И. Мишенин. - Москва : Финансы
и статистика : ИНФРА-М, 2015. – 412 с.
44. РД 50-34.698-90 Автоматизированные системы. Требования к
содержанию документов
45. Романова, Ю. Д. Информатика и информационные технологии:
конспект лекций / Ю. Д. Романова, И. Г. Лесничая - Москва: Эксмо, 2016. –
408 с.
46. Савицкий, Н. И. Экономическая информатика / Н. И. Савицкий. -
М.: Экономистъ, 2015. – 312 с.
47. Фаронов В. В. Delphi : программирование на яз. Высокого
уровня: [Учеб. для вузов по направлению подгот. дипломир. специалистов
"Информатика и вычисл. техника" / В. В. Фаронов. - СПб. и др. : Питер, 2016.
– 214 с.
48. Фаронов В. В. Delphi. Программирование на языке высокого
уровня : [учебник для студентов высших учебных заведений, обучающихся
по направлению подготовки дипломированных специалистов "Информатика
и вычислительная техника"] / В. В. Фаронов. - Санкт- Петербург [и др.] :
Питер, 2017. – 232 с.
49. Фаронов В. В. Программирование баз данных в Delphi 7 :
[реализация соврем. технологий баз данных средствами Delphi] / В. Фаронов.
- СПб. [и др.] : Питер, 2015. – 254 с.
50. Фельдман С. К. Система программирования DELPHI без
секретов: как создать приложение для Windows с "нуля" : энциклопедия /
Сергей Фельдман.- М. : Новый изд. дом [и др.], 2015. – 228 с.
51. Фролов И. М. Энциклопедия Microsoft Office 2013 : [рук. по
новейшей версии пакета Microsoft office] / Иван Фролов. - М. : Новый изд.
112
дом, 2016. – 268 с.
52. Шураков, В. В. «Автоматизированное рабочее место для
статической обработки данных» / В.В. Шураков – М.: Наука, 2015. – 230 с.
113
ПРИЛОЖЕНИЕ 1
Файл form__proekt.pas
unit Form__proekt;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,
Vcl.DBGrids, Vcl.ComCtrls;
var put_dir : string = 'd:\1\';
function proverka : boolean;
type
TForm_proekt = class(TForm)
DBGrid_proekt: TDBGrid;
Label1: TLabel;
DBGrid_document: TDBGrid;
Label2: TLabel;
DBGrid_oborudovanie: TDBGrid;
Label3: TLabel;
GroupBox1: TGroupBox;
Button_update: TButton;
Button_delete: TButton;
Edit_name_proekt: TEdit;
Label4: TLabel;
DateTimePicker_begin: TDateTimePicker;
DateTimePicker_end: TDateTimePicker;
Edit_klient: TEdit;
Edit_adres: TEdit;
DBGrid_sotrudnik: TDBGrid;
Label5: TLabel;
Edit_find: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label_name_proekt: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Button_add_oborudovanie: TButton;
Button_add_proekt: TButton;
Button_add_document: TButton;
Label17: TLabel;
OpenDialog: TOpenDialog;
Label_id: TLabel;
Button_delete_document: TButton;
procedure view_proekt;
procedure view_dbgrid_proekt;
procedure view_document;
procedure view_dbgrid_document;
procedure view_ooborudovanie;
procedure view_dbgrid_oborudovanie;
procedure FormShow(Sender: TObject);
114
procedure view_sotrudnik;
procedure view_dbgrid_sotrudnik;
procedure FormCreate(Sender: TObject);
procedure clear_label;
procedure Button_add_proektClick(Sender: TObject);
procedure add_proekt;
procedure update_proekt;
procedure Button_updateClick(Sender: TObject);
procedure Button_deleteClick(Sender: TObject);
procedure Button_add_oborudovanieClick(Sender: TObject);
procedure DBGrid_proektCellClick(Column: TColumn);
procedure Button_add_documentClick(Sender: TObject);
procedure add_document;
procedure add_file(name_file : string);
procedure Button_delete_documentClick(Sender: TObject);
procedure Edit_findChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_proekt: TForm_proekt;
implementation
{$R *.dfm}
uses DataModule, Form__oborudovanie_proekt;
procedure TForm_proekt.view_proekt;
var buf_Zapros,buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'SELECT proekt.name_proekt as Проект, proekt.date_begin as Дата_начала,
proekt.date_end as Дата_окончания, proekt.adres_obekt as Адрес_объекта, proekt.klient as Клиент,'
+' CONCAT(sotrudnik.family,'+buf_kav+' '+buf_kav+', sotrudnik.first_name,'+buf_kav+' '+buf_kav+',
sotrudnik.second_name), sotrudnik.tabel_nomer, proekt.id_proekt '
+' FROM sotrudnik INNER JOIN proekt ON sotrudnik.tabel_nomer = proekt.sotrudnik '
+' ORDER BY proekt.date_begin, proekt.name_proekt;';
datamodule1.Query_proekt.Close;
datamodule1.Query_proekt.SQL.Clear;
datamodule1.Query_proekt.SQL.Text := buf_zapros;
datamodule1.Query_proekt.Open;
view_dbgrid_proekt;
view_ooborudovanie;
view_document;
end;
procedure TForm_proekt.view_dbgrid_proekt;
begin
Form_proekt.DBGrid_proekt.Columns[0].Width := 150;
Form_proekt.DBGrid_proekt.Columns[1].Width := 150;
Form_proekt.DBGrid_proekt.Columns[2].Width := 150;
Form_proekt.DBGrid_proekt.Columns[3].Width := 150;
Form_proekt.DBGrid_proekt.Columns[4].Width := 150;
Form_proekt.DBGrid_proekt.Columns[5].Width := 150;
Form_proekt.DBGrid_proekt.Columns[7].Visible := False;
Form_proekt.DBGrid_proekt.Columns[6].Visible := False;
end;