79
Рисунок 3.1 – Общая диаграмма трудоемкости.
В отделе
каждая
кадров компании
главе
работает два менеджера
расчет
по работе с персона-
лом. При
расчета
столь высоком
среднее
коэффициенте снижения
вести
затрат, за счет
вываются
проекта автома-
тизации
исследовать
задачи, возможно
димой
сократить штат
предмет
сотрудников до одного
всех
человек. Зара-
ботная
если
плата менеджера по работе
таблица
с персоналом составляет 27000 рублей
bpwin
в ме-
сяц, таким
тельно
образом можно
относительного
получить стоимостные
рынке
показатели затрат
результатом
на обработ-
ку информации
тизации
по данной операции,
фективности
они составляют:
C
0
= 12*2*27000рублей = 648000 рублей
персоналу
в год
C
1
= 12*1*27000рублей = 324000 рублей
описать
в год
Теперь рассчитаем
могут
абсолютное снижение
стоимостные
стоимостных затрат:
менеджера
С = С
0
- С
1
= 648000 рублей-324000 рублей = 324000 рублей
весь
за год
На рисунке 3.2 представлена
номакс
общая диаграмма,
процессе
демонстрирующая общие
удаление
стоимостные расходы
трудовых
на обработку необходимой
матизации
информации в год
раздела
при базовом
рисунке
варианте обработки («как
столь
есть») и при
инвестиций
внедряемом («как
этапов
должно быть») в
работы
целом.
80
Рисунок 3.2 – Общая диаграмма стоимостных затрат
Далее рассчитаем
показатели
общий индекс
тестирование
снижения стоимостных
главе
затрат.
Y
С
= С
0
димой
/ С
1
= 648000/324000 = 2
Общие
изложена
затраты на проект
будут
составляют:
Стоимость программного
главе
продукта составляет 31266 рублей. Поэтому К
п
расчета
=
31266
ской
рублей.
Т
ок
= К
П
/C = 31266 рублей/324000
трудовые
рублей = 0,10 года
Данный
киномакс
показатель говорит
access
о том, что
изложена
минимум через 0,10 года
ектное
проект ав-
томатизации
будут
окупится.
81
Заключение
В
стоимостные
ходе выполнения
обеспечить
дипломной работы
целью
была проанализирована
киномакс
деятель-
ность менеджера
этапов
по работе с персоналом мультикомплекса «Киномакс». На
если
ос-
новании изученного
будут
материала и полученных
стремятся
выводов было
регистрацию
разработано про-
ектное
рисунке
решение задачи
предмет
автоматизации деятельности
персонала
менеджера по работе
регистрацию
с пер-
соналом.
коэффициент
Результатом работы
столь
стало АРМ
которых
менеджера по персоналу мультиком-
плекса «Киномакс».
раздела
Для
менеджера
достижения поставленной
всего
в работе цели было
индекс
выполнено:
изучение предметной
обеспечения
области менеджера
материала
по персоналу;
проведение анализа
стоимостных
аналогичных программ;
изучение
киномакс
компьютерных технологий,
трат
используемых при
коэффициент
написании
АРМ;
изучение
киномакс
методов проектирования
внедряемом
реляционных БД;
проектирование
вложений
реляционной БД предметной
компании
области;
создание оболочки
относительного
АРМ и разработка
данной
модулей АРМ;
подключение
ность
модулей АРМ
реляционных
к БД;
тестирование и отладка;
составление
bpwin
перечня безопасной
внедряемом
работы с ПК;
расчет
исследовать
себестоимости и цены
рынке
программного продукта.
Разработка
главе
АРМ выполнена
персоналу
согласно требованиям,
вышесказанное
предъявляемым к со-
временным
система
автоматизированным рабочим
киномакс
местам. АРМ проходит
ность
опытную экс-
плуатацию
обеспечения
в мультикомплексе «Киномакс-Краснодар».
Вышесказанное
предмет
свидетельствует о том,
работе
что все
ратному
задачи дипломного
выполнена
проек-
тирования решены
материала
и его цель
соответствии
достигнута.
82
Список литературы
1. Автоматизация проектирования вычислительных систем. Языки, мо-
делирование и базы данных / ред. М. Брейер. – М.: Мир, 2014. – 463 c.
2. Архангельский А.Я. Программирование в Delphi: Учебник по класси-
ческим версиям Delphi. – М.: Бином-Пресс, 2013. – 816 c.
3. Бекаревич Ю., Пушкина Н. Самоучитель Microsoft Access. – СПб.:
БХВ-Санкт-Петербург, 2017. – 426 с.
4. Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное,
объектно-ориентированное, визуальное: Учебное пособие для вузов. – М.: РиС,
2014. – 240 c.
5. Быкова В.В. Базы данных. Модели, проектирование [текст]: Учебно-
практическое пособие в схемах/ Гос. образоват. учреждение «ГАЦМиЗ». – Крас-
ноярск, 2011. – 260 с.
6. Выбор и обоснование стратегии автоматизации задачи [Электронный
ресурс] // URL: http://studopedia.info/5-66311.html (дата обращения: 28.10.2017).
7. Гвоздева В.А., Лаврентьева И.Ю. Основы построения автоматизиро-
ванных информационных систем. – М.: Форум, Инфра-М, 2016. – 320 c.
8. Зегжда Д.П. Ивашко А.М. Основы безопасности информационных си-
стем. – М.: Горячая линия-Телеком, 2013. – 452 c.
9. Карпова И.П. Базы данных: Учебное пособие. – СПб.: Питер, 2013. –
240 c.
10. Маккарти Джим, Маккарти Мишель. Правила разработки программ-
ного обеспечения. – М.: Русская Редакция, Питер, 2013. – 240 c.
11. Мартин Дж. Вычислительные сети и распределенная обработка дан-
ных: программное обеспечение, методы и архитектура. – М.: Финансы и стати-
стика, 2015. – 525 c.
12. Модели жизненного цикла ИС [Электронный ресурс] // URL:
http://iadshpory.narod.ru/shp/razd2/1.html (дата обращения: 28.10.2017).
13. Осипов Д. Delphi. Профессиональное программирование. – СПб.:
Символ-плюс, 2015. – 1056 c.
14. ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ [Электронный ресурс] // URL:
http://www.hr100.ru/wmc/info/soft/ (дата обращения: 28.10.2017).
83
15. Пшенко А.В. Делопроизводство. Документальное обеспечение работы
офиса. – М.: Академия, 2016. – 176 c.
16. Санников Е. Курс практического программирования в Delphi. Объект-
но-ориентированное программирование. – М.: Солон-пресс, 2013. – 188 c.
17. Сидоров В.Д., Струмпэ Н.В. Аппаратное обеспечение ЭВМ. Учебник.
– М.: Академия, 2014. – 336 c.
18. Советов Б.Я. Цехановский В.В., Чертовской В.Д. Базы данных: теория
и практика: Учебник для бакалавров. – М.: Юрайт, 2013. – 463 c.
19. Ярочкин В. Безопасность информационных систем: моногр. – М.: Ось-
89, 2015. – 320 c.
20. Database в Delphi [Электронный ресурс] // URL: http://delphi-
box.ru/database-%D0%B2-delphi.html (дата обращения: 28.10.2017).
84
Приложение 1
Листинг программы
StartUnit.pas
unit StartUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, ComCtrls, Buttons;
type
TStartForm = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DateTimePicker1: TDateTimePicker;
DBLookupComboBox1: TDBLookupComboBox;
Label4: TLabel;
Edit1: TEdit;
DBLookupComboBox2: TDBLookupComboBox;
procedure FormShow(Sender: TObject);
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
AVAR:Boolean;
CanClose:Boolean;
end;
var
StartForm: TStartForm;
implementation
uses MainUnit, DMUnit, SplashUnit;
{$R *.dfm}
procedure TStartForm.FormShow(Sender: TObject);
begin
CanClose:=False;
DateTimePicker1.DateTime:=Now;
85
end;
procedure TStartForm.DateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
Key:=#0;
end;
procedure TStartForm.BitBtn1Click(Sender: TObject);
VAR
I:Integer;
begin
MainForm.readOrgList(DBLookupCombobox1.Text);
If not (DBLookupComboBox1.Text='') then
If MainForm.LOrg.Find(DataModule1.OrgListNameOrg.Value,I) then
If Edit1.Text=DataModule1.UsersListPassword.Value then
begin
MainForm.Date:=DateTimePicker1.DateTime;
MainForm.CurOrg:=DataModule1.OrgListNameOrg.Value;
MainForm.CurUser:=DataModule1.UsersListNameUser.Value;
MainForm.Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
CanClose:=True;
Close;
end
else
begin
ShowMessage('Пароль неверный!');
MainForm.CanClose:=true;
SplashForm.AVAR:=true;
MainForm.Close;
end
else ShowMessage('Данный пользователь не имеет доступа к данным выбранной организации!')
else ShowMessage('Не выбран пользователь!');
end;
procedure TStartForm.BitBtn2Click(Sender: TObject);
begin
MainForm.CanClose:=True;
SplashForm.AVAR:=True;
MainForm.Close;
end;
procedure TStartForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If not CanClose then
begin
86
ShowMessage('Пароль неверный!');
SplashForm.AVAR:=True;
MainForm.CanClose:=True;
MainForm.Close;
end;
end;
procedure TStartForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=StartForm.CanClose;
end;
end.
MainUnit.pas
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Grids, DBGrids;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
87
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N45: TMenuItem;
N55: TMenuItem;
N56: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
DBGrid1: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
88
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
N61: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N64: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
N75: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N85: TMenuItem;
N86: TMenuItem;
N87: TMenuItem;
Timer1: TTimer;
Label8: TLabel;
Label9: TLabel;
N88: TMenuItem;
N89: TMenuItem;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N93: TMenuItem;
N94: TMenuItem;
N95: TMenuItem;