81
Для вычисления годовых затрат затраты машинного времени на решение задачи (С
1
)
применяется формула:
q
q
q
TSС *12
1
(3.4)
S
q
– себестоимость часа работы оборудования q при решении задачи, руб.;
T
q
– время работы оборудования q при решении задачи в течение месяца, машино-
часы.
C
2
рассчитывается по аналогичной формуле.
Для расчета годовых затрат на подготовку оборудования и переподготовку
работников (С
3
) нужно:
С
3
= К
3
* (3.5)
К
3
– годовые единовременные затраты на настройку оборудования, адаптацию и
обучение работников при решении задачи, руб.
- коэффициент подготовки и настройки оборудования.
129691212С
1
руб,
18720012
22
3,12,1)1022000(
С
2
руб.
Что б вычислить единовременные затраты на обучение работников, адаптацию и
настройку оборудования при решении задачи К
3
нужно найти сумму затрат К
3.1
, К
3.2
,
К
3.3
:
К
3
= К
3.1
+К
3.2
+К
3.3
(3.6)
12*11
*
22
1.3
Q
K
TZ
ii
i
(3.7)
Z
2
i
– заработная плата в месяц работника i, руб.;
T
2
i
– трудовые затраты в месяц работника i на обучение, настройку оборудования и
т.п., человеко-дни;
К
3.2
– годовые единовременные затраты машинного времени
2
2.3
**12
q
q
q
TSK
(3.8)
T
2
q
– время работы оборудования q на обучение персонала, адаптацию и настройку
оборудования, машино-часы.
К
3.3
– иные единовременные расходы, руб.:
82
hKKK *
2.31.33.3
(3.9)
h – коэффициент прочих расходов (приобретение техники, комплектующих, бумаги и
т.д.)
К – единовременные затраты на решение задачи, руб.
11572412
22
3,12,1)817000(
K
3.1
руб.
72051212K
3.2
руб.
116441,0)720115724(K
3.3
руб.
12808811644720115724K
3
руб.
128091,0128088С
3
руб.
201305128091872001296С
p2
руб.
Рисунок 3. Сравнение затрат
Годовая экономия составляет:
105873201305307178S
руб.
Следующий шаг это расчет единовременных затрат на создание и внедрение
автоматизированной системы (К). Для этого нужно суммировать затраты на
проектирование (К
1
), затрат на приобретение оборудование (К
2
), единовременные
затраты на переподготовку работников, адаптацию и настройку оборудования (К
3
).
Но при этом К
2
=0, так как проект был рассчитан на имеющееся материальное
обеспечение колледжа, а К
3
=128088 руб.
0
50000
100000
150000
200000
250000
300000
350000
годовые
эксплуатационные
затраты при ручной
обработке информации,
руб
годовые
эксплуатационные
затраты при машинном
варианте обработки
информации, руб
307178
201305
83
К = К
1
+К
2
+К
3
(3.10)
2006208,0
22
3,12,1)817000(
K
1
руб.
13009412808802006K
руб.
Потом делает расчет коэффициента экономической эффективности E
r
по
формуле:
E
r
= S/К (3.11)
Если E
r
≥ Е
nce
, то технология является эффективной.
Е
nce
– нормативный коэффициент эффективности капитальных вложений для
вычислительной техники, его значение определяет нижнюю границу годовой
экономии, которую можно получить на один рубль капитальных затрат.
8,0
130094
105873
Е
r
Коэффициент эффективности данного продукта составляет 0,8, что признает
данный проект эффективным. Он может быть принят для дальнейших
инвестиционных исследований.
Для определения периода окупаемости расходов надо:
Т=К/S (3.12)
Т = 130094/105873 = 1,2 (15 месяцев).
Прогноз эффективности проекта представлен в таблице 3.2.
Таблица 3.2
Прогноз эффективности проекта
Годовая
экономия, руб.
Коэффициент
экономической
эффективности
Период
окупаемости
расходов, мес.
105873
0,8
15
84
ЗАКЛЮЧЕНИЕ
В ходе выполнения выпускной квалификационной работы по
автоматизации и обеспечению информационной безопасности процесса
ведения документации и отчётности в компании ООО «Тандер» была
рассмотрена и проанализирована деятельность организации. Представлена
организация логической схемы компьютерной сети организации, а также
приведено описание функциональных характеристик информационной
системы.
Проведено подробное рассмотрение процесса ведения и движения
документации отдела по аренде, проанализированы функциональные
обязанности и порядок работы менеджера по аренде, сделан вывод по
основным критериям оптимизации системы оборота документов.
Выяснилось, что процесс хранения и формирования данных при
оформлении документов вся информация хранится в разных файлах, что
затрудняет синхронизацию данных и увеличивает время проверки критериев
отбора по аренде.
В результате выполнения выпускной квалификационной работы была
спроектирована и реализована программа на платформе Borland Delphi 7.
Результатом разработанного программного обеспечения выступила
система автоматизированного ведения документации по регистрации заявок от
арендаторов с учетом оплаты за арендуемое посещение. Также в программе
ведется учет сотрудников ООО «Тандер», имеющие доступ к программе. Для
них предусмотрены особые условия в виде просмотра информации.
Разработанная программа выполняет все поставленные задачи как
программного продукта по движению документов и учета оплаты арендаторов.
85
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ ЛИТЕРАТУРЫ
1. Абдуллаев Чингиз Стандарт возмездия; Астрель, АСТ - Москва, 2013.
- 448 c.
2. Гандерлой Автоматизация Microsoft Access с помощью VBA /
Гандерлой, Харкинз Майк; , Сейлз Сьюзан. - М.: Вильямс, 2016. - 416 c.
3. Гринченко Проектирование баз данных. СУБД Microsoft Access /
Гринченко, Н.Н. и. - М.: Горячая Линия Телеком, 2015. - 240 c.
4. Голицына, О.Л. и др. Базы данных; Форум; Инфра-М, 2013. - 399 c.
5. Жаркова, Л.С. Методика организации работы организации в сфере
социально-культурной деятельности [Текст]: научно-практическое пособие /
Л.С. Жаркова. – М.: Литера, 2014. – 111с.
6. Культин, Н. Основы программирования в Delphi 7 / Н. Культин. - М.:
БХВ-Петербург, 2013. - 674 c.
7. Осипов Д. Delphi. Профессиональное программирование / Дмитрий
Осипов. - М.: Символ-плюс, 2014. - 882 c.
8. Попов, Сергей Delphi и 1С:Предприятие. Программирование
информационного обмена / Сергей Попов. - М.: "БХВ-Петербург", 2012. - 592 c.
9. Робинсон, С. Microsoft Access 2013: Учебный курс / С. Робинсон. - М.:
СПб: Питер, 2015. - 512 c.
10. Санников, Е. В. Курс практического программирования в Delphi.
Объектно-ориентированное программирование / Е.В. Санников. - М.: Солон-
Пресс, 2013. - 188 c.
11. Федоров Н.В. Проектирование информационных систем на основе
современных CASE-технологий. – М.: МГИУ, 2014. − 287 с.
12. Хаббард, Дж. Автоматизированное проектирование баз данных / Дж.
Хаббард. - М.: Мир, 2014. - 296 c.
13. Чебышев, П.Л. Избранные труды / П.Л. Чебышев. - М.: [не указано],
2015. - 733 c.
86
14. Черемных С.В., Ручкин В.С., Семенов И.О. Структурный анализ
систем IDEF-технологии. / С.В. Черемных, В.С. Ручкин, И.О. Семенов – М.:
Финансы и статистика, 2013.
15. Ширяев Д., Аншелес В., Мочалин В. Сбор и обработка информации
для принятия управленческих решений. «Открытые системы», 2014, №4
87
ПРИЛОЖЕНИЕ
Программный код модуля «Деятельность аренды»
Программный модуль «Unit_dm.pas»
В данном модуле объявляются все компоненты для работы с данными. Доступ
к данным осуществляется по технологии ADO, через компоненты среды
разработки Borland Delphi 7 категорий «dbGo» и «DataAccess».
unit Unit_dm;
interface
uses
SysUtils, Classes, DB, ADODB, Messages,Dialogs;
type
TDM = class(TDataModule)
Con1: TADOConnection;
ds_gorod: TDataSource;
tab_gorod: TADOTable;
tab_street: TADOTable;
ds_street: TDataSource;
tab_adres: TADOTable;
ds_adres: TDataSource;
tab_gorodWideStringField: TWideStringField;
tab_streetWideStringField: TWideStringField;
tab_adresAutoIncField: TAutoIncField;
tab_adresIntegerField: TIntegerField;
tab_adresIntegerField2: TIntegerField;
tab_adresWideStringField: TWideStringField;
tab_adresWideStringField2: TWideStringField;
tab_adresMemoField: TMemoField;
tab_gorodAutoIncField: TAutoIncField;
tab_streetAutoIncField: TAutoIncField;
tab_adresField: TStringField;
tab_adresField2: TStringField;
tab_qry_adres: TADOTable;
ds_qry_adres: TDataSource;
tab_qry_adresAutoIncField: TAutoIncField;
tab_qry_adresMemoField: TMemoField;
tab_comm: TADOTable;
ds_comm: TDataSource;
tab_status: TADOTable;
ds_status: TDataSource;
tab_statusAutoIncField: TAutoIncField;
tab_statusWideStringField: TWideStringField;
tab_commAutoIncField: TAutoIncField;
tab_commWideStringField: TWideStringField;
tab_vid: TADOTable;
ds_vid: TDataSource;
tab_vidAutoIncField: TAutoIncField;
88
tab_vidWideStringField: TWideStringField;
tab_dolgn: TADOTable;
ds_dolgn: TDataSource;
tab_dolgnAutoIncField: TAutoIncField;
tab_dolgnWideStringField: TWideStringField;
tab_sotr: TADOTable;
ds_sotr: TDataSource;
tab_sotrAutoIncField: TAutoIncField;
tab_sotrWideStringField: TWideStringField;
tab_sotrWideStringField2: TWideStringField;
tab_sotrWideStringField3: TWideStringField;
tab_sotrIntegerField: TIntegerField;
tab_sotrField: TStringField;
tab_arend: TADOTable;
ds_arend: TDataSource;
tab_arendAutoIncField: TAutoIncField;
tab_arendWideStringField: TWideStringField;
tab_arendIntegerField: TIntegerField;
tab_arendWideStringField2: TWideStringField;
tab_arendIntegerField2: TIntegerField;
tab_arendStringField: TStringField;
tab_qry_sotr: TADOTable;
ds_qry_sotr: TDataSource;
tab_arendField: TStringField;
tab_qry_sotrAutoIncField: TAutoIncField;
tab_qry_sotrMemoField: TMemoField;
tab_object: TADOTable;
ds_object: TDataSource;
tab_objectAutoIncField: TAutoIncField;
tab_objectIntegerField: TIntegerField;
tab_objectIntegerField2: TIntegerField;
tab_objectIntegerField3: TIntegerField;
tab_objectBCDField: TBCDField;
tab_objectIntegerField4: TIntegerField;
tab_objectMemoField: TMemoField;
tab_objectField: TStringField;
tab_objectField2: TStringField;
tab_objectField3: TStringField;
tab_comm_ob: TADOTable;
ds_comm_ob: TDataSource;
tab_comm_obAutoIncField: TAutoIncField;
tab_comm_obIntegerField: TIntegerField;
tab_comm_obIntegerField2: TIntegerField;
tab_comm_obField: TStringField;
tab_dogovor: TADOTable;
ds_dogovor: TDataSource;
tab_dogovorAutoIncField: TAutoIncField;
tab_dogovorIntegerField: TIntegerField;
tab_dogovorIntegerField2: TIntegerField;
tab_dogovorDateTimeField: TDateTimeField;
tab_dogovorDateTimeField2: TDateTimeField;
tab_dogovorIntegerField3: TIntegerField;
tab_dogovorBCDField: TBCDField;
tab_dogovorField: TStringField;
tab_dogovorField2: TStringField;
89
tab_objectWideStringField: TWideStringField;
tab_dogovorFloatField: TFloatField;
qry_any: TADOQuery;
tab_oplata: TADOTable;
ds_oplata: TDataSource;
tab_oplataAutoIncField: TAutoIncField;
tab_oplataBCDField: TBCDField;
tab_oplataDateTimeField: TDateTimeField;
tab_customer: TADOTable;
ds_customer: TDataSource;
tab_customerAutoIncField: TAutoIncField;
tab_customerWideStringField: TWideStringField;
tab_customerWideStringField2: TWideStringField;
tab_customerWideStringField3: TWideStringField;
tab_oplataIntegerField: TIntegerField;
tab_qry_dogovor: TADOTable;
ds_qry_dogovor: TDataSource;
tab_qry_dogovorAutoIncField: TAutoIncField;
tab_qry_dogovorWideStringField: TWideStringField;
tab_qry_dogovorWideStringField2: TWideStringField;
tab_qry_dogovorWideStringField3: TWideStringField;
tab_qry_dogovorDateTimeField: TDateTimeField;
tab_qry_dogovorDateTimeField2: TDateTimeField;
tab_qry_dogovorFloatField: TFloatField;
tab_qry_dogovorBCDField: TBCDField;
tab_qry_dogovorWideMemoField: TWideMemoField;
procedure tab_sotrAfterPost(DataSet: TDataSet);
procedure tab_adresAfterPost(DataSet: TDataSet);
procedure Con1BeforeConnect(Sender: TObject);
procedure tab_qry_sotrMemoFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
procedure tab_qry_adresMemoFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
procedure tab_arendStringFieldChange(Sender: TField);
procedure tab_dogovorBeforePost(DataSet: TDataSet);
procedure tab_dogovorNewRecord(DataSet: TDataSet);
procedure tab_dogovorFloatFieldChange(Sender: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.tab_qry_adresMemoFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text:=Sender.AsString; // получаю данные в виде строки из мемополя
end;
procedure TDM.tab_qry_sotrMemoFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text:=Sender.AsString; // получаю данные в виде строки из мемополя
end;
90
procedure TDM.Con1BeforeConnect(Sender: TObject);
var
Dir: string;
begin
Dir := ExtractFilePath(ParamStr(0));
con1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+Dir+'активы_аренда.accdb;Jet
OLEDB:Database Password=""';
end;
procedure TDM.tab_adresAfterPost(DataSet: TDataSet);
begin
DM.tab_qry_adres.Active:=FALSE;
DM.tab_qry_adres.Active:=true;
end;
// поиск в базе по адресам арендуемых помещений, чтобы не выбрать уже занятых адресов
procedure TDM.tab_arendStringFieldChange(Sender: TField);
var
lnKodAdres:integer;
begin
lnKodAdres:=DM.tab_arend['КодАдреса'];
if DM.tab_object.Locate('КодАдреса', lnKodAdres, [loCaseInsensitive, loPartialKey]) then begin
ShowMessage('Данный адрес уже занят объектом '+ DM.tab_object['Наименование']
+'.'+CHR(13)+'Выберите правильный адрес.');
Sender.Clear;
end;
end;
// Проверяю, не превышает ли введенных метров в договоре общего кол-ва метров по объекту
procedure TDM.tab_dogovorBeforePost(DataSet: TDataSet);
var
lnOstatokMetr:Integer;
begin
// запрос на данные
with DM.qry_any do begin
Active:=false;
Close;
SQL.Clear; // очищаем текст запроса при каждом проходе цикла
SQL.Text:='SELECT Sum(Договора.Метры) AS КолМетров '+
'FROM Договора '+
'GROUP BY Договора.КодОбъекта ' +
'HAVING Договора.КодОбъекта=:KodObject';
// объявляю параметры запроса
Parameters.ParamByName('KodObject').Value:=DM.tab_object['КодОбъекта'];
// выполнение запроса через обработчик ошибок
try {перехватчик ошибок}
Open ; {выполняем запрос и открываем набор данных}
if RecordCount<>0 then begin
First;
lnOstatokMetr:= DM.tab_object['Площадь']-FieldByName('КолМетров').value;
if (DataSet['Метры'] > lnOstatokMetr) and (lnOstatokMetr>0) then begin
DataSet['Метры']:=0;
ShowMessage('Кол-во введенных метров для аренды превышает остаток площади объекта!'+CHR(13)+
'Введите правильное значение не более '+IntToStr(lnOstatokMetr)+ ' кв.м.');
end