87
В рамках реализации проектных решений по разработке информационной
системы проведено построение информационной модели, определен набор
необходимых сущностей информационной системы, установлены связи между
ними, определены реквизиты входных и результатных документов.
Далее проведен выбор средств разработки и СУБД, проведена программная
реализация системы. Тестирование основных режимов работы системы показало
соответствие функционала программы технологическим процессам АО
«Скоростные магистрали». Разработанная система позволяет осуществлять ввод
первичной документации, оперативных данных (учета отпусков, командировок и
больничных листов сотрудников). В системе присутствует разграничение доступа
по ролям пользователей, реализованы режимы формирования аналитической
отчётности.
В ходе работы была поставлена задача рассмотрения возможности
снижения затрат на приобретение программного обеспечения через собственную
разработку .
Основной целью проекта является оптимизация работы специалистов по
работе с кадрами АО «Скоростные магистрали» посредством разработки
автоматизированной информационной системы.
В качестве задач автоматизации были поставлены следующие:
- автоматизация документооборота в учете отработанного времени
сотрудников;
- ведение отчетности в рамках учета отработанного времени;
- автоматизация учета кадровых данных;
- автоматизация ведения классификаторов должностей и подразделений
компании;
- автоматизация формирования печатных форм.
В результате проектирования поставленные задачи были реализованы.
Далее после опытной эксплуатации были проведены оценки
экономической целесообразности внедрения разработанного программного
продукта и область его применения. В рамках проведения оценки экономической
эффективности внедрения системы было показано, что экономический эффект
88
достигается за счет снижения временных затрат на выполнение операций по учету
рабочего времени, формирование отчетов. Подводя итог анализа проекта, можно
сказать, что поставленная цель оптимизации работы специалистов по работе с
персоналом АО «
Скоростные магистрали» достигнута.
89
Список использованной литературы
1. Балашов А.И., Рогова Е.М. Управление проектами. - Люберцы: Юрайт, 2016. -
383 c.
2. Бараненко, С.П. Управление проектами. - М.: АП Наука и образование, 2014. -
244 c.
3. Боровская Е.В. Программирование в среде Delphi - 3-е изд., (эл.) - М.:
БИНОМ. ЛЗ, 2015. - 241 с.
4. Боченина Н.В., Пикулик О.В., Боченина Н.В. Информационные
технологии. - М.: Альфа-М: ИНФРА-М, 2013. - 336 с.
5. Ветрова О.А. Операционные системы и базы данных. - М.: МГУДТ, 2013. -
40 с.
6. Гагарина Л.Г., Румянцева Е.Л., Слюсарь В.В. Информационные
технологии. - М.: ИД ФОРУМ: НИЦ Инфра-М, 2013. - 256 с.
7. Гвоздева В.А. Базы и банки данных. - М.: Альтаир-МГАВТ, 2015. - 76 с.
8. Гофман В.Э. Хомоненко А.Д., Работа с базами данных в Delphi. - СПб:БХВ-
Петербург, 2014. - 628 с.
9. Дадян Э. Г., Зеленков Ю. А. Методы, модели, средства хранения и
обработки данных: учебник. - Москва : Вузовский учебник, 2016. - 167с.
10. Дадян Э.Г. Современные базы данных. Часть 2: практические задания:
Учебно-методическое пособие. - М.: НИЦ ИНФРА-М, 2017. - 68 с.
11. Зайцев А.В. Информационные системы в профессиональной деятельности
[Электронный ресурс]: Учебное пособие. - М.: РАП, 2013. - 180 с.
12. Затонский А.В. Информационные технологии: разработка
информационных моделей и систем. - М.: ИЦ РИОР: НИЦ ИНФРА-М, 2014. -
344с.
13. Златопольский Д.М. Программирование: типовые задачи, алгоритмы,
методы - 3-е изд., (эл.) - М.: БИНОМ. ЛЗ, 2015. - 226 с.
14. Карпузова В.И., Скрипченко, К.В. Чернышева, Н.В. Информационные
технологии в менеджменте. - М.: Вузовский учебник: НИЦ ИНФРА-М, 2014. –
256с.
90
15. Колдаев В.Д. Структуры и алгоритмы обработки данных. - М.: ИЦ РИОР:
НИЦ ИНФРА-М, 2014. - 296 с.
16. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и
сопровождение: теория и практика. - Москва: Вильямс, 2017. - 1439 с.
17. Коряковский А.В. Информационные системы предприятия: Учебное
пособие. - М.: НИЦ ИНФРА-М, 2016. - 283 с.
18. Лубянская Э.Б. Информационные системы в экономике: учебное пособие.
- Воронеж: ФГБОУ ВО "Воронежский государственный технический
университет", 2017. - 140 с.
19. Медведев М.А. Разработка информационных систем. Учебное пособие. -
М.: Флинта, Изд-во Урал. ун-та, 2017. - 64 с.
20. Окулов С.М. Программирование в алгоритмах. - 6-е изд., (эл.) - М.:
Лаборатория знаний, 2017. - 386 с.
21. Польшакова Н.В., Коломейченко А.С., Яковлев А.С. Информационные
системы в экономике: [учебник]. - Москва : Буки Веди, 2016. - 480 с.
22. Попов Б. Н. Администрирование информационных систем : учебное
пособие. - Санкт-Петербург: Изд-во ГУМРФ имени адмирала С.О. Макарова,
2018. - 95 с.
23. Селяничев О. Л. Администрирование информационных систем: учебное
пособие. - Череповец: ФГБОУ ВО "Череповецкий государственный университет",
2017. - 99 с.
24. Титоренко Г.А. Информационные системы в экономике/ 2-е изд. - М.:
ЮНИТИ-ДАНА, 2015. - 463 с.
25. Черников Б.В. Информационные технологии управления. - М.: ИД
ФОРУМ: НИЦ ИНФРА-М, 2014. - 368 с.
26. Шипулин Л. В., Сазонова Н. С. Базы данных: учебное пособие. -
Челябинск: ЮУрГУ, 2016. - 96 с.
91
Приложение 1
Программный код системы
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
form2.DBGrid1.Columns[0].title.cpption:='Код';
form2.DBGrid1.Columns[1].title.cpption:='Наименование';
form2.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
with form1.Adqqery2 do
begin
close;
sql.Clear;
sql.Add('select * from dolgn');
active:=true;
end;
form3.DBGrid1.Columns[0].title.cpption:='Код';
form3.DBGrid1.Columns[1].title.cpption:='Подразделение';
form3.Show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
with form1.Adqqery3 do
begin
close;
sql.Clear;
sql.Add('select * from zp1');
92
active:=true;
end;
form4.DBGrid1.columns[0].Title.cpption:='Код';
form4.DBGrid1.columns[1].Title.cpption:='ФИО';
form4.DBGrid1.columns[2].Title.cpption:='Подразделение';
form4.DBGrid1.columns[3].Title.cpption:='Должность';
form4.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');
active:=true;
end;
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
form6.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form7.Show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form8.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
with form1.Adqqery1 do
begin
close;
93
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
form9.Show;
end;
end.
procedure TForm4.RzBitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TForm4.RzBitBtn1Click(Sender: TObject);
begin
with form1.Adqqery2 do
begin
close;
sql.Clear;
sql.Add('select * from dolgn');
active:=true;
end;
form5.Edit1.clear;
form5.Edit2.clear;
form5.Edit3.clear;
form5.show;
end;
procedure TForm4.RzBitBtn2Click(Sender: TObject);
begin
with form1.adqqery4 do
begin
close;
sql.Clear;
sql.Add('delete from sotr where
code_sotr='+form1.Adqqery3code_sotr.AsString);
execsql;
close;
sql.Clear;
sql.Add('select * from sotr');
open;
end;
94
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');
active:=true;
end;
showmessage('Удалено');
end;
end.
procedure TForm5.RzBitBtn1Click(Sender: TObject);
begin
form1.Adqqery4.Open;
form1.Adqqery4.appendrecord([edit1.Text,form1.Adqqery2code.AsInteger,edit
2.Text,edit3.Text]);
edit2.clear;
edit3.clear;
edit1.text:=inttostr(1+strtoint(edit1.Text));
with form1.Adqqery3 do
begin
close;
sql.Clear;
sql.Add('select * from zp1');
active:=true;
end;
showmessage('Записано');
end;
end.
procedure TForm6.RzBitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm6.RzBitBtn1Click(Sender: TObject);
var year1,mon1,dt1:word; m1,d1:string[2]; day1,day2:string[20]; code:integer;
begin
if datetimepicker1.Date>datetimepicker2.D
ate then
showmessage('Некорректно указан интервал дат') else
95
begin
with form1.Adqqery6 do
begin
close;
sql.Clear;
sql.Add('select max(code) from tabel');
open;
end;
code:=1+form1.Adqqery6Expr1000.AsInteger;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery5 do
begin
close;
sql.Clear;
sql.Add('delete from tabel where (day>=#'+day1+'#) and
(day<=#'+day2+'#) and (code_sotr='+form1.Adqqery4code_sotr.AsString+')');
execsql;
close;
sql.Clear;
sql.Add('select * from tabel');
open;
end;
datetimepicker3.Date:=datetimepicker1.Date;
while datetimepicker3.Date<=datetimepicker2.Date do
begin
if checkbox1.Checked=true then
begin
if (dayofweek(datetimepicker3.Date)>1) and
(dayofweek(datetimepicker3.Date)<7) then
form1.Adqqery5.AppendRecord([form1.Adqqery4code_sotr.AsInteger,datetime
picker3.Date,form1.Adqqery1code.AsInteger,code]);
end
else
form1.Adqqery5.AppendRecord([form1.Adqqery4code_sotr.AsInteger,datetime
picker3.Date,form1.Adqqery1code.AsInteger,code]);
code:=code+1;
96
datetimepicker3.Date:= datetimepicker3.Date+1;
end;
showmessage('Записано');
end;
end;
end.
procedure TForm7.RzBitBtn1Click(Sender: TObject);
var i,j:integer; excclapp:variant; year1,mon1,dt1:word; m1,d1:string[2];
day1,day2:string[20];
begin
ExcclApp := CreateOleObject('Exccl.Application');
ExcclApp.workbooks.open('C:\sv_mes\xlt\ot_sotr.xlt');
ExcclApp.WorkSheets[1].Activate;
ExcclApp.Visible := False;
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
for i:=1 to form1.Adqqery1.RecordCount do
begin
excclapp.cells[6,i+1]:=trim(form1.Adqqery1nam.AsString);
excclapp.cells[6,i+1].borders.linestyle:=1;
form1.Adqqery1.Next;
end;
form1.Adqqery1.first;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');