На рисунке 3.1 приведена диаграмма снижения трудовых затрат после
внедрения информационной системы
Рис.3.1 Диаграмма снижения трудовых затрат
На рисунке 3.2 представлена диаграмма снижения стоимостных затрат
после внедрения информационной системы.
Рис. 3.2 Диаграмма снижения стоимостных затрат
Снижение затрат составит К
Т
=0,60.
Сокращение трудовых затрат в абсолютном выражении составило 1476
чел./ч, сокращение стоимостных затрат – 395568 руб. в год.
Рассчитаем затраты на создание проекта. Заработная плата разработчиков:
Электроэнергия:
Оплата доступа в Интернет:
Срок окупаемости проекта:
Расчетный коэффициент эффективности капитальных затрат:
Годовая экономия в равна:
Окупаемость проекта, равная 4 месяцам, показывает возврат средней
продолжительности капитальных вложений. Также это подтверждает и
полученный годовой экономический эффект, равный 59335,2 руб. Внедрение
системы позволяет снизить трудовые и стоимостные затраты на 60%.
Приведённые расчёты позволяют сделать вывод о высокой экономической
эффективности разработанного проекта.
Приведённые расчёты позволяют сделать вывод о высокой экономической
эффективности разработанного проекта.
Заключение
В процессе написания выпускной квалификационной работой была
разработана информационная система учета рабочего времени сотрудников. Для
выполнения этой цели были решены следующие задачи:
изучена предметная область и выявлены недостатки существующей
организации обработки информации, определяющие необходимость разработки
данного проекта;
разработана постановка задачи;
обоснован выбор основных проектных решений;
разработаны все виды обеспечивающих подсистем;
обоснована экономическая эффективность проекта.
Разработанная информационная система решает основные проблемы, с
которыми сталкивался табельщик:
ошибки при заполнении ведомостей;
большое количество ведомостей от руководителей подразделений,
вследствие чего сложно найти нужный документ;
низкая скорость обработки ведомостей;
математические ошибки в расчетах.
Для разработки информационной системы использовалась среда
программирования Embarcadero RAD Studio, а для хранения информации СУБД
MySQL.
Готовая информационная система прошла тестирование, которое выявило
незначительные ошибки, которые были устранены.
В ходе оценки экономической эффективности проекта было определено,
что:
окупаемость проекта равна 4 месяцам;
трудовые и стоимостные затраты снижены на 60%;
годовой экономический эффект равен 59335,2 руб.
В дальнейшем информационную систему можно доработать, добавив
функции учета документов подтверждающих отпуска, больничные и нарушения
трудовой дисциплины.
Список использованной литературы
1. Вендров А.М. CASE-технологии. Современные методы и средства
проектирования информационных систем: учебник. – М.: Финансы и статистика,
2012. – 478 с.
2. Ларман К. Применение UML и шаблонов проектирования, 2-ое
издание / К. Ларман. – М.: Вильямс, 2014. – 624 с.
3. Маклаков С.В. BPwin ERwin CASE-средства разработки ИС / С.В.
Маклаков. – М.: Диалог-МИФИ, 2015. – 304 с.
4. Маклафлин Б. PHP и MySQL. Исчерпывающее руководство / Б.
Маклафлин. – СПб.: «Питер», 2014. – 544 с.
5. Нейгард М. Release it! Проектирование и дизайн ПО для тех, кому
не все равно / М. Нейгард. – СПб.: Питер, 2016. – 320 с.
6. Петров В.Н., Избачков Ю.С. Информационные системы: Учебник
для вузов. 2-е изд. – СПб.: Питер Принт, 2014. – 656 стр.
7. Семакин И.Г. Информационные системы и модели. – М.: БИНОМ,
2012. – 159 с.
8. Сорокин А.В. Delphi. Разработка баз данных / А.В.Сорокин. – СПб.:
Питер, 2014. – 477 с.
9. Трофимов С. А. CASE-технологии. Практическая работа в Rational
Rose. – М.: Бином-Пресс, 2015. – 272 с.
10. Фаронов, В. В. Delphi. Программирование на языке высокого
уровня: Учебник для вузов. – СПб.: Питер, 2012. – 640 с.
11. Якобсон А. Унифицированный процесс разработки программного
обеспечения / А. Якобсон, Г. Буч, Дж. Рамбо. – СПб.: Питер, 2016. – 496 с.
12. Embarcadero RAD Studio [Электронный ресурс]. – URL:
https://www.embarcadero.com/ru/products/rad-studio (19.02.2018)
13. LS Табель и графики [Электронный ресурс]. - URL:
https://lugasoft.ru/tabel/licen (19.02.2018)
14. Зарплата Табель Кадры [Электронный ресурс]. - URL:
http://www.pravkons.ru/bsprice2.htm (19.02.2018)
15. Отдел кадров плюс [Электронный ресурс]. - URL: http://okpartner.ru/
(19.02.2018)
16. SQL.ru - все про SQL [Электронный ресурс] – URL:
http://www.sql.ru/ (19.02.2018)
Приложения
Приложение 1
Программный код модуля «MainForm.pas»
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, CategoryButtons, ExtCtrls, ToolWin, ComCtrls,
Menus,
DBCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N131: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
ToolBar1: TToolBar;
Panel1: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
CategoryButtons1: TCategoryButtons;
Panel3: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
StringGrid1: TStringGrid;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
DBLookupComboBox1: TDBLookupComboBox;
ComboBox1: TComboBox;
procedure FormShow(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure CategoryButtons1SelectedCategoryChange(Sender: TObject;
const Category: TButtonCategory);
procedure DBLookupComboBox1CloseUp(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure PrintTabel();
end;
var
Form1: TForm1;
implementation
uses DataModul, AddSotr, ListSotr, pInfo, ListPodr, ListDolg;
{$R *.dfm}
procedure TForm1.PrintTabel();
var i: integer;
begin
//Шапка таблицы
StringGrid1.Cells[0,0]:='№';
StringGrid1.ColWidths[0]:=20;
StringGrid1.Cells[1,0]:='ФИО, должность';
StringGrid1.ColWidths[1]:=250;
StringGrid1.Cells[2,0]:='Табельный номер';
StringGrid1.ColWidths[2]:=100;
for i := 1 to 31 do
begin
StringGrid1.Cells[i+2,0]:=IntToStr(i);
StringGrid1.ColWidths[i+2]:=20;
end;
dm.Query.SQL.Clear;
dm.Query.SQL.Add('Select * From sotr Where
pdID='+IntToStr(Integer(CategoryButtons1.Categories.Items[CategoryButtons1.Select
edItem.Index].Data)));
dm.Query.Active:=true;
dm.Query.First;
i:=2;
while not dm.Query.Eof do
begin
StringGrid1.RowCount:=i;
StringGrid1.Cells[0,i-1]:=FloatToStr(i/2);
StringGrid1.Cells[1,i-1]:=dm.Query.FieldByName('FIO').Value;
StringGrid1.Cells[2,i-1]:=dm.Query.FieldByName('sID').Value;
i:=i+2;
dm.Query.Next;
end;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow:
Integer;
var CanSelect: Boolean);
var R: TRect;
begin
if ((ACol >= 3) and ((ARow+1) mod 2 = 0)) then
begin
R := StringGrid1.CellRect(ACol, ARow);
R.Left := R.Left + StringGrid1.Left;
R.Right := R.Right + StringGrid1.Left;
R.Top := R.Top + StringGrid1.Top;
R.Bottom := R.Bottom + StringGrid1.Top;
DBLookupComboBox1.Left := R.Left + 1;
DBLookupComboBox1.Top := R.Top + 1;
DBLookupComboBox1.Width := (R.Right + 21) - R.Left;
DBLookupComboBox1.Height := (R.Bottom + 3) - R.Top;
DBLookupComboBox1.Visible := True;
DBLookupComboBox1.SetFocus;
end;
if ((ACol >= 3) and ((ARow+1) mod 2 <> 0)) then
begin
R := StringGrid1.CellRect(ACol, ARow);
R.Left := R.Left + StringGrid1.Left;
R.Right := R.Right + StringGrid1.Left;
R.Top := R.Top + StringGrid1.Top;
R.Bottom := R.Bottom + StringGrid1.Top;
ComboBox1.Left := R.Left + 1;
ComboBox1.Top := R.Top + 1;
ComboBox1.Width := (R.Right + 21) - R.Left;
ComboBox1.Height := (R.Bottom + 3) - R.Top;
ComboBox1.Visible := True;
ComboBox1.SetFocus;
end;
CanSelect := True;
end;