1
|
|
|
|
Всего
на комплекс задач (Тобщ)
|
98
|
|
|
|
|
|
Рассчитаем амортизационные
отчисления (таблица 2).
автоматизированный
магазин данные
Таблица 2- Расчёт амортизационных
отчислений
Вид оборудования
|
Стоимость, руб
|
Норма амортизации, %
|
Сумма, руб.
|
Центральный процессор
|
2710
|
20
|
542
|
Оперативное запоминающее
устройство
|
3480
|
696
|
Дисковое пространство
|
1500
|
20
|
300
|
Операционная система
|
10750
|
20
|
2150
|
Монитор
|
5460
|
20
|
1092
|
Итого:
|
4780
|
Таблица 3- Расчёт затрат на оплату труда
Показатель
|
Единицаизмерения
|
Сумма
|
Численность разработчиков
|
Чел.
|
1
|
Трудоёмкость
|
Чел.-час.
|
98
|
Часовая тарифная ставка
|
Руб.
|
380
|
Фонд оплаты труда
|
Руб.
|
37240
|
Отчислениявовнебюджетныефонды
|
30 % от ФОТ
|
11172
|
Составим смету затрат на разработку, внедрение и
обслуживание программного проекта.
Рассчитаем накладные расходы, которые составляют
60% от фонда оплаты труда.
Зн=ФОТ*0,6=37240*0,6=22344 руб.
Рассчитаем прибыль (П), которая составляет 20%
от общей суммы затрат.
П=(37240+11172+4780+22340)*0,2=15106 руб.
Налог на прибыль, в соответствии с налоговым
кодексом РФ, составляет 20% от суммы прибыли.
Нп=15106*0,2=3021 руб.
Выполненные расчеты представим в следующей
таблице 4.
Таблица4- Смета
затрат
Статьи затрат
|
Сумма, руб.
|
Фонд оплаты труда
|
37240
|
Отчисления во внебюджетные фонды
|
11172
|
Амортизация оборудования
|
4780
|
Накладные расходы
|
22344
|
Прибыль
|
15106
|
Налоги
|
3021
|
Итого по смете
|
93663
|
Следовательно, на разработку, внедрение и
обслуживание проекта программирование оболочки книжный магазиннеобходимы
инвестиции в размере 93663 рублей.. Инвестиции используются в течение трёх лет,
годовая процентная ставка за кредит (по программе поддержки развития и
внедрения инновационных технологий) составляет 10%.
Годовой экономический эффект от внедрения
данного проекта получается за счёт сокращения времени на разработку
программного обеспечения книжный магазин. По данным Книжного магазина за
последние 2 года в среднем затраты на книги составляли 101400 рублей. Проект
предусматривает снижение временных затрат на расчеты и оплату работников и
эффективное использование денежных средств, в результате решения полностью
снижаются жалобы со стороны клиентов и сторонних организаций.
Рассчитаем чистую приведенную стоимость (NPV):
,
NPV = - 93663 =
(92181 + 83801 + 76240) - 93663 = 158559 руб.
Очевидно, что если:
NPV> 0, то
проект следует принять;
NPV< 0, то
проект следует отвергнуть;
NPV = 0, то
проект ни прибыльный, ни убыточный.
Расчёты показывают, что чистая
приведенная стоимость составляет 158559 рублей, что значительно больше нуля.
Следовательно, проект следует принять.
Рассчитаем накопленную величину
дисконтированных доходов (PV).
Расчёты показывают, что накопленная
величина дисконтированных доходов составляет 252222 рублей.
Рассчитаем индекс рентабельности
инвестиций (PI):
= = 1,68
Очевидно, что если:
РI> 1, то
проект следует принять;
РI< 1, то
проект следует отвергнуть;
РI = 1, то
проект ни прибыльный, ни убыточный.
Расчёты показывают, что индекс
рентабельности инвестиций больше единицы, следовательно, его следует принять.
Логика критерия PI такова: он
характеризует доход на единицу затрат. В данном случае на один руль затрат
приходится 1,68 рубля дохода.
Рассчитаем срок окупаемости
инвестиций (PP):
Срок окупаемости (PP)
рассчитывается делением единовременных затрат на величину годового дохода,
обусловленного ими, т.е.
PP = IC/Р =
150120/101400 = 1,48 года
Чем короче срок окупаемости, тем
менее рискованным является проект. Следовательно, проект по разработке
программного обеспечения по учету и контролю расчетов с поставщиками в сфере
коммунальных услуг является безрисковым, так как окупится за полтора года и
начнёт приносить прибыль.
Рассчитаем дисконтированный срок
окупаемости инвестиций (DPP):
= года
Дисконтированный срок окупаемости
инвестиций показывает степень рискованности того или иного инвестиционного
проекта, чем меньше срок окупаемости тем меньше риск и наоборот. Следовательно,
данный инвестиционный проект имеет низкую степень рискованности вложения
инвестиций. Программирование оболочки «Книжный магазин» экономически
целесообразно.
. ОРГАНИЗАЦИОННЫЙ РАЗДЕЛ
Правила работы за компьютером
Выбирайте правильную позу. А именно:
прямо напротив экрана, верхняя часть монитора на уровне глаз или чуть ниже.
Соблюдайте расстояние от глаз до
монитора - 55-60 см (расстояние вытянутой руки). Нижняя часть монитора должна
быть наклонена под небольшим углом к работающему (то есть, расположена чуть
ближе).
Выбирайте для работы за компьютером
удобное кресло. Желательно, чтобы это было эргономическое (ортопедическое)
кресло с подлокотником и подголовником.
Высота сиденья кресла (стула) должна
быть такой, чтобы руки, положенные на клавиатуру, были расположены
горизонтально.
Каждый час делайте перерывы на 15-20
минут. Перерыв, в котором Вы просто блуждаете по Интернету или играете за
компьютером, не считается.
Следите за дыханием: оно должно быть
ровным, без задержек.
Выполняйте как можно чаще упражнения
для глаз.
Техника безопасности при работе за
компьютером
Во избежание повреждения изоляции
проводов и возникновения коротких замыканий не разрешается: вешать что-либо на
провода, закрашивать и белить шнуры и провода, закладывать провода и шнуры за
газовые и водопроводные трубы, за батареи отопительной системы, выдергивать
штепсельную вилку из розетки за шнур, усилие должно быть приложено к корпусу
вилки.
Для исключения поражения
электрическим током запрещается: часто включать и выключать компьютер без
необходимости, прикасаться к экрану и к тыльной стороне блоков компьютера,
работать на средствах вычислительной техники и периферийном оборудовании
мокрыми руками, работать на средствах вычислительной техники и периферийном
оборудовании, имеющих нарушения целостности корпуса, нарушения изоляции
проводов, неисправную индикацию включения питания, с признаками электрического
напряжения на корпусе, класть на средства вычислительной техники и периферийном
оборудовании посторонние предметы.
Запрещается под напряжением очищать
от пыли и загрязнения электрооборудование.
Запрещается проверять
работоспособность электрооборудования в неприспособленных для эксплуатации
помещениях с токопроводящими полами, сырых, не позволяющих заземлить доступные
металлические части.
Недопустимо под напряжением
проводить ремонт средств вычислительной техники и переферийного оборудования.
Ремонт электроаппаратуры производится только специалистами-техниками с
соблюдением необходимых технических требований.
Во избежание поражения электрическим
током, при пользовании электроприборами нельзя касаться одновременно каких-либо
трубопроводов, батарей отопления, металлических конструкций , соединенных с
землей.
При пользовании элетроэнергией в
сырых помещениях соблюдать особую осторожность.
После окончания работы необходимо
обесточить все средства вычислительной техники и периферийное оборудование. В
случае непрерывного производственного процесса необходимо оставить включенными
только необходимое оборудование.
Пожарная безопасность при работе за
компьютером
На рабочем месте запрещается иметь
огнеопасные вещества
В помещениях запрещается:
а) зажигать огонь;
б) включать электрооборудование,
если в помещении пахнет газом;
в) курить;
г) сушить что-либо на отопительных
приборах;
д) закрывать вентиляционные
отверстия в электроаппаратуре
Источниками воспламенения являются:
а) искра при разряде статического
электричества
б) искры от электрооборудования
в) искры от удара и трения
г) открытое пламя
При возникновении пожароопасной
ситуации или пожара персонал должен немедленно принять необходимые меры для его
ликвидации, одновременно оповестить о пожаре администрацию
Обязанности оператора компьютера
Контроль работы отдела оформления
документов (старший оператор ПК).
Приём заявок на поставку продукции от
клиентов и менеджеров предприятия.
Своевременная выписка накладных и
счетов-фактур, а также соответствующих сопроводительных документов.
Перед отпуском товара со склада
строго проверять правильность и соответствие оформления сопроводительных
документов согласно законодательства РФ и внутренним правилам предприятия.
Систематизация, архивация и хранение
отгруженных, верно оформленных и исправленных накладных и счетов-фактур,
согласно установленного порядка на предприятии.
Выполнять все распоряжения руководства,
непосредственно относящиеся к производственному процессу, в общем, и к своим
прямым обязанностям.
Строгий контроль своевременной
отгрузки товара покупателям. Ведение необходимых журналов, отчетов и другой
документации (в т.ч. в электронном виде) в помощь выполнению своих трудовых
обязанностей в соответствии с установленными требованиями по их ведению и
хранению.
Знать всю продукцию предприятия и
консультировать покупателей по ассортименту и ценам. Всю свою деятельность
направлять на укрепление клиентской базы, имиджа компании и на увеличение в
конечной цели прибыли предприятия.
Знать все должностные обязанности
кассира-операциониста, специалиста по сертификатам и в случае производственной
необходимости замещать вышеуказанную должность.
Содержать в надлежащем состоянии
средства вычислительной и оргтехники, другого офисного оборудования
закреплённого за ним или общего пользования и свое рабочее место.
Своевременно информировать
руководство о приобретении необходимых материалов непосредственно относящихся к
производственному процессу.
В случае невыполнения трудовых
обязанностей или ненадлежащего контроля повлекшего за собой сбой в
производственном процессе или потерю прибыли предприятия, или другие косвенные
материальные или моральные убытки обязан полностью покрыть расходы или уплатить
штраф в размере установленном руководством предприятия.
Соблюдать дисциплину труда, технику
безопасности и выполнять правила внутреннего распорядка установленного в
компании.
ЗАКЛЮЧЕНИЕ
В результате выполнения дипломного проекта была
сформированная электронно-справочная система хранение данных о книгах
продаваемых в книжном магазине или сети.
Система позволяет продавцам-консультантом
выполнять следующие задачи:
Проводить поиск по книгам (по названию) в
программном обеспечении
Вводить данные о книгах и клиентах, а также
добавление
Добавление фото книг
При создании приложения сформированы основные
навыки разработки, внедрения, адаптации программного обеспечения малого
предприятия. Изучены основные технологии программной обработки базы данных.
Архангельский
А. Я. Приемы программирования в Delphi
на основе VCL:учебник/ А.
Я. Архангельский. -М.:Санкт-Петербург, Бином-Пресс, 2009 г.- 944 с.
Гагарина
Л.Г. Разработка и эксплуатация автоматизированных информационных систем:учебное
пособие/ Л.Г. Гагарина, Д.В. Киселев, Е.Л. Федотова- М.: Инфра-М.2007-384с.
Дмитрий
Осипов. Профессиональное программирование: учебник/Осипов Дмитрий.-М.: Москва,
Символ-Плюс, 2006 г.- 1056 с.
Желонкин.А.Основы
программирования в интегрированной среде DELPHI:
учебник/ ЖелонкинА.-М.:Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.
Климова
Л. М. Delphi 7. Основы
программирования. Решение типовых задач:учебник/Л. М.
Климова.-М.:Санкт-Петербург, КУДИЦ-Образ, 2006 г.-480 с.
Любавин
С. А. Программируем в TurboDelphi:
учебник/ С. А. Любавин. -М.: Москва, НТ Пресс, 2008 г.- 320 с.
Магда
Юрий. Разработка приложений MicrosoftOffice
2007 в Delphi: учебник/
Юрий Магда -М.: Москва, БХВ-Петербург, 2009 г.- 160 с.
Понамарев
Вячеслав. Самоучитель Delphi
7 Studio: учебник/ Вячеслав
ПРИЛОЖЕНИЕ А
;, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,, Menus, DB, ADODB, ExtCtrls, DBCtrls,
Grids, DBGrids, StdCtrls,, jpeg;= class(TForm): TADOTable;: TDataSource;:
TDBGrid;: TDBNavigator;: TADOConnection;: TLabel;: TLabel;: TDBEdit;: TDBEdit;:
TLabel;: TDBEdit;: TButton;: TImage;N1Click(Sender: TObject);N2Click(Sender:
TObject);N3Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm1;Unit2, Unit3, Unit4;
{$R *.dfm}TForm1.N1Click(Sender:
TObject);.show;;TForm1.N2Click(Sender: TObject);.show;;TForm1.N3Click(Sender:
TObject);.show;;TForm1.Button1Click(Sender: TObject);.close;.show;;.Unit2;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB,;= class(TForm):
TADOConnection;: TADOTable;: TDataSource;: TDBNavigator;: TDBGrid;: TLabel;:
TDBEdit;: TLabel;: TDBEdit;: TButton;: TEdit;: TLabel;: TImage;Button1Click(Sender:
TObject);Edit1Change(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm2;Unit4;
{$R
*.dfm}TForm2.Button1Click(Sender:
TObject);.close;.show;;TForm2.Edit1Change(Sender:
TObject);.DataSource.DataSet.Locate('Фамилия',Edit1.Text,
[loCaseInsensitive,loPartialKey]);;.Unit3;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,;= class(TForm): TDBGrid;:
TDBNavigator;: TDataSource;: TADOTable;: TADOConnection;: TLabel;: TLabel;:
TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;:
TButton;: TEdit;: TLabel;: TDBImage;: TButton;: TOpenDialog;:
TImage;Button1Click(Sender: TObject);Edit1Change(Sender:
TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm3;Unit4, Unit8;
{$R
*.dfm}TForm3.Button1Click(Sender:
TObject);.close;.show;;TForm3.Edit1Change(Sender:
TObject);.DataSource.DataSet.Locate('Название',Edit1.Text,
[loCaseInsensitive,loPartialKey]);.DataSource.DataSet.Locate('Автор',Edit1.Text,
[loCaseInsensitive,loPartialKey]);;TForm3.Button2Click(Sender:
TObject);:TJPEGImage;:TBitmap;OpenDialog1.Execute
then:=TJPEGImage.Create;:=TBitmap.Create;.LoadFromFile(OpenDialog1.FileName);.Assign(jpeg);.Edit;.FieldByName('Фото').Assign(BMP);.Post;.Free;.Free;;;;.Unit4;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
jpeg, ExtCtrls, Buttons;= class(TForm): TButton;: TButton;: TBitBtn;: TImage;: TButton;Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender:
TObject);BitBtn1Click(Sender: TObject);Button4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm4;Unit1, Unit2, Unit3, Unit8;
{$R *.dfm}TForm4.Button1Click(Sender:
TObject);.visible:=true;.Visible:=false;;TForm4.Button2Click(Sender:
TObject);.Visible:=true;.Visible:=false;;TForm4.Button3Click(Sender:
TObject);.show;;TForm4.BitBtn1Click(Sender:
TObject);.Close;;TForm4.Button4Click(Sender: TObject);.Visible:=true;.Visible:=false;;.Unit5;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,, jpeg;= class(TForm):
TDBGrid;: TDBNavigator;: TADOConnection;: TADOTable;: TDataSource;: TDBEdit;:
TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;:
TEdit;: TLabel;: TDBImage;: TButton;: TOpenDialog;: TImage;Button1Click(Sender:
TObject);Edit1Change(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm5;Unit4, Unit8;
{$R
*.dfm}TForm5.Button1Click(Sender:
TObject);.close;.show;;TForm5.Edit1Change(Sender:
TObject);.DataSource.DataSet.Locate('Автор',Edit1.Text,
[loCaseInsensitive,loPartialKey]);.DataSource.DataSet.Locate('Название',Edit1.Text,
[loCaseInsensitive,loPartialKey]);;TForm5.Button2Click(Sender:
TObject);:TJPEGImage;:TBitmap;OpenDialog1.Execute
then:=TJPEGImage.Create;:=TBitmap.Create;.LoadFromFile(OpenDialog1.FileName);.Assign(jpeg);.Edit;.FieldByName('Фото').Assign(BMP);.Post;.Free;.Free;;;;.Unit6;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,, Buttons,jpeg;=
class(TForm): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;:
TDBNavigator;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;:
TLabel;: TLabel;: TEdit;: TLabel;: TButton;: TDBImage;: TButton;: TOpenDialog;:
TImage;Edit1Change(Sender: TObject);Button1Click(Sender:
TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm6;Unit8;
{$R *.dfm}TForm6.Edit1Change(Sender:
TObject);.DataSource.DataSet.Locate('Автор',Edit1.Text,
[loCaseInsensitive,loPartialKey]);.DataSource.DataSet.Locate('Название',Edit1.Text,
[loCaseInsensitive,loPartialKey]);;TForm6.Button1Click(Sender:
TObject);.close;.show;;TForm6.Button2Click(Sender:
TObject);:TJPEGImage;:TBitmap;OpenDialog1.Execute
then:=TJPEGImage.Create;:=TBitmap.Create;.LoadFromFile(OpenDialog1.FileName);.Assign(jpeg);.Edit;.FieldByName('Фото').Assign(BMP);.Post;.Free;.Free;;;;.Unit7;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,;= class(TForm):
TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TDBNavigator;: TDBEdit;:
TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;:
TLabel;: TButton;: TDBImage;: TButton;: TOpenDialog;:
TImage;Edit1Change(Sender: TObject);Button1Click(Sender:
TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm7;Unit8;
{$R *.dfm}TForm7.Edit1Change(Sender:
TObject);.DataSource.DataSet.Locate('Автор',Edit1.Text,
[loCaseInsensitive,loPartialKey]);.DataSource.DataSet.Locate('Название',Edit1.Text,
[loCaseInsensitive,loPartialKey]);;TForm7.Button1Click(Sender:
TObject);.close;.show;;TForm7.Button2Click(Sender:
TObject);:TJPEGImage;:TBitmap;OpenDialog1.Execute
then:=TJPEGImage.Create;:=TBitmap.Create;.LoadFromFile(OpenDialog1.FileName);.Assign(jpeg);.Edit;.FieldByName('Фото').Assign(BMP);.Post;.Free;.Free;;;;.Unit8,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
jpeg, ExtCtrls;= class(TForm): TButton;: TButton;: TButton;: TButton;: TImage;:
TButton;Button3Click(Sender: TObject);Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button4Click(Sender:
TObject);Button5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TForm8;Unit3, Unit5, Unit6, Unit7, Unit4;
{$R
*.dfm}TForm8.Button3Click(Sender: TObject);.show;;TForm8.Button1Click(Sender:
TObject);.show;;TForm8.Button2Click(Sender:
TObject);.show;;TForm8.Button4Click(Sender:
TObject);.show;;TForm8.Button5Click(Sender: TObject);.close;.show;;.Unit9;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
ExtCtrls, jpeg;= class(TForm): TButton;: TEdit;: TEdit;: TLabel;: TLabel;:
TImage;Button1Click(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key:
Char);Edit1Change(Sender: TObject);
{ Private declarations };
{ Public declarations };: TForm9;Unit1,
Unit5, Unit4;
{$R
*.dfm}TForm9.chack;:string;:string;:=Form9.Edit1.Text;:=Form9.Edit2.Text;(a='Книги')
and (b='123') then.Visible:=false;.Visible:=true
else
showmessage('Неправильный
логин или пароль');
end;TForm9.Button1Click(Sender:
TObject);;;TForm9.Edit2KeyPress(Sender: TObject; var Key: Char);key=#13 then
chack;;TForm9.Edit1Change(Sender: TObject);;.