Разработка ЭИС планирования закупок для предприятия химической отрасли

 

Общая сумма  затрат на оплату труда ( ) определяется по формуле:

 

           (3.1)

 

где   - часовая ставка i-го работника, руб.,

– время на разработку АИС, час

- категория работника,

- количество работников, занятых  разработкой АИС.

Общее время  работы программиста Т определяется из Таблицы 3.2 и равно 280 часов. Нормы затрат рабочего времени на одну дипломную работу: руководитель работы 33 (15ч –преддипломная практика, 18ч – дипломное проектирование), консультант по практической части – 10 ч.

Среднечасовая заработная плата разработчика (студента-дипломника) рассчитывается по формуле:

 

,                                                                                           (3.2)

 

где – среднемесячная заработная плата разработчика АИС, руб.;

– среднемесячный фонд рабочего времени (приблизительно 160 часов в месяц)

Стоимость одного часа работы программиста равна:

 

ЧС1 = 12 800 : 160 = 80 руб.

 

Общая сумма  затрат на оплату труда равна 43 900 руб. (Таблица 3.2)

 Страховые взносы составляют 30 % от затрат на основную заработную плату.

Сумма страховых  взносов  составят:

 

руб.

 

Расчет амортизационных  отчислений приведен в Таблице 3.4.

 

Таблица 3.4 - Расчет амортизационных отчислений

Наименование оборудования	Стоимость оборудования, руб.	Годовая норма амортизации, %	Время работы оборудования во время  разработки АИС, ч	Сумма, руб.
Компьютер	16000	20	256	411,2
Принтер	3000	20	2	0,6
Итого	19000	-	-	411,8

 

Общая сумма  амортизационных отчислений определяется по формуле:

,                                                                 (3.3)

 

где   - стоимость i-го оборудования, руб.;

- годовая норма амортизации i-го оборудования, %;

- время работы i-го оборудования за весь период разработки АИС, ч;

- эффективный фонд времени работы  i-го оборудования за год, ч/год;

- вид оборудования;

- количество оборудования.

Эффективный фонд времени работы оборудования можно  вычислить по формуле:

 

Тэфi = Dр ´ Нэ,                                                                                  (3.4)   

 

где  Dp –  количество рабочих дней в году. Dp = 249;

Нэ – норматив среднесуточной загрузки, час./день, Нэ = 8.

Таким образом, эффективный фонд времени работы оборудования составит

 

Fэфi =249´8=1992 час.

 

Сумма амортизационных  отчислений составит:

 

8

,

411

1992

100

2

20

3000

1992

100

2560

20

16000

=

´

´

´

+

´

´

´

=

З

АМ

руб.

 

В статью «Прочие  затраты» включаются расходы на содержание административно-управленческого и  учебно-вспомогательного персонала, на отопление, освещение и текущий  ремонт помещений, канцелярские, командировочные  и прочие хозяйственные расходы. Затраты по этой статье принимаются  в размере 70 % от затрат на оплату труда.

 

 руб.

 

На основании  полученных данных по отдельным статьям  составляется смета затрат на разработку АИС по форме, приведенной в Таблице 3.5.

Таблица 3.5 - Смета затрат на разработку АИС

Статьи затрат	Сумма, руб.
1. Затраты на оплату труда	43900
2. Отчисления на социальные нужды	13170
3. Амортизация основных фондов	411.8
4. Прочие затраты	30730
Итого по смете	88212

 

Затраты на разработку АИС составят 88 212 руб.

Исходя из данных о стоимостных затратах при  базовом и проектном варианте, их разница в пользу проектного варианта составит 142278 рублей.(Таблица 3.1). 

Если разделить  эту разницу на количество рабочих  дней в году (254), то получится значение, отражающее выгодность использования  проектируемой системы за каждый день ее использования – 

 

V_D = 59946 : 254 = 560 руб.

 

Разделив общую  сумму проекта (88 212 руб.)  на полученное значение 560 руб. получим срок - 157 рабочих дней, за которые проект окупит свою себестоимость.

 

 

Заключение

В заключение необходимо подвести итоги  проделанной  работы.

В соответствии с целью проведенного исследования, в дипломной работе обоснована необходимость и выполнена разработка информационной системы планирования закупок для предприятия химической отрасли.

Объектом исследования дипломной работы являлась научно-производственная фирма ООО "НПФ "АгроЛидер"

В первой части  дипломной работы были рассмотрены следующие аспекты:

• дана характеристика предприятия и подразделений, задействованных в процессе планирования закупок
• определена экономическая сущность задачи;
• построена функциональная модель «КАК ЕСТЬ», выявлены недостатки существовавшей технологии планирования закупок
• обоснована необходимость использования вычислительной техники для решения задачи;
• построена функциональная модель «КАК ДОЛЖНО БЫТЬ», на основании которой разработана постановка задачи на автоматизацию планирования закупок;
• проведен анализ существующих разработок. Выявлены недостатки существующих программных средств и обосновано решение по разработке программного продукта собственными силами;
• обоснованы проектные решения по видам обеспечения: техническое, информационное, программное, технологическое, математическое.

 Во второй части дипломной работы были выполнены работы:

• определена входная, нормативно-справочная и выходная информация;
• построена информационная модель системы;
• разработана логическая и физическая модель базы данных;
• выполнена программная реализация задачи;
• дано описание программных модулей;
• разработано руководство пользователя;

В третьей  части был проведен расчет экономической эффективности, который показал, что разрабатываемая система является эффективнее, чем существовавшая ранее система, основанная на обмене файлами Excel. Расчет выявил, что срок окупаемости составляет 157 рабочих дней.

 

 

 

 

Библиографический список

 

1. Аникин, Б.А. Коммерческая логистика: учебник / Б.А. Аникин, А.П. Тяпухин. ― Москва : Проспект, 2006. ― 432с.
2. Базы данных: проектирование и использование: Учебник. ― М.: Финансы и статистика, 2005. ― 592 с.
3. Базы данных: Учебник для высших учебных заведений / Под ред.  Проф. А. Д. Хомоненко. ― СПб.: КОРОНА принт, 2000. ― 416 с.
4. Базы данных: Учебник для высших учебных заведений / Под ред.  проф. А. Д. Хомоненко. ― СПб.: КОРОНА принт, 2000. ― 416 с.
5. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 2001.
6. Вендров А. М. CASE-технологии. Современные методы м средства проектирования информационных систем. ― М.: Финансы и статистика, 2000. ― 176 с.
7. Верников Г. Г. Основные методологии обследования организаций. Стандарт IDEF0 ― http://www.cfin.ru/vernikov/idef/idef0.shtml.
8. Гаджинский, А.М. Практикум по логистике / А.М. Гаджинский. ― 2 - е изд.,перераб. и доп. ― М.: Маркетинг, 2001. ― 180с.
9. Голиков, Е.А. Маркетинг и логистика: Учеб. пособие. ― М. : ИД «Дашков и К», 1999. ― 412с.
10. Дурович А.П. Основы маркетинга: Учеб. пособие/ А.П. Дурович.― М.: Новое знание,2004.―512с.
11. Информационные системы и технологии в экономике: Учебник. ― 2-е изд., доп. и перераб. / Т. П. Барановская, В. И. Лойко, М. И. Семенов, А. И. Трубилин; Под ред. В. И. Лойко. ― М.: Финансы и статистика, 2005. ― 416 с.
12. Корняков В. Н. Программирование документов и приложений MS Office в Delphi. ― СПб.: БХВ-Петербург, 2005. ― 496 с.
13. Котлер, Филипп, Армстронг, Гари, Сондерс, Джон, Вонг, Вероника. Основы маркетинга: Пер. с анг.―2-е европ. изд. ― М., Спб., К., Издательский дом Вильямс, 2001.―994с. : ил.―Парал. тит. англ.
14. Культин, Н. Б. Delphi в задачах и примерах [Текст] / Н. Б. Культин. ― СПб. : БХВ-Петербург, 2004.
15. Логистика: учеб. пособ./под ред. Б.А. Аникина ― М.: ТК Велби, 2007. ― 408 с.
16. Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. ― М.: ДИАЛОГ-МИФИ, 2008 - 304 с.
17. Минеев В.Г. Агрохимия: учебник ― 2-е изд., перераб. И доп. ― М.: Изд-во МГУ, изд-во Колоса 2004. ― 720 с.
18. Моделирование бизнес-процессов средствами BPWin ― http://www.intuit.ru/department/se/devis/8.
19. Моделирование потоков данных (процессов) ― http://www.info-system.ru/designing/methodology/dfd/dfd_theory_dfd.html.
20. Муравин Э.А. Агрохимия. ― М.: КолосС 2003. ― 384 с.
21. Немнюгин, С. А. Turbo Pascal. Программирование на языке высокого уровня [Текст] : учебник для вузов / С. А. Немнюгин. ― 2-е изд., перераб. и доп. ― СПб. : Питер, 2006.
22. Неруш Ю.М. Логистика: учеб. ― М.: ЮНИТИ-ДАНА, 2005. ― 389 с.
23. Описание операционной системы Windows ― http://www.interface.ru/home.asp?artId=143.
24. Описание типов тестирования ― http://www.a1qa.ru/service/software_testing/description_testing_type.
25. Павловская, Т. А. Паскаль. Программирование на языке высокого уровня [Текст] : учебник для вузов / Т. А. Павловская. ― СПб. : Питер, 2004. (допущен Министерством образования).
26. Панкратов Ф.Г. Коммерческая деятельность: учеб. - М.: «Дашков и К», 2004. ― 504 с.
27. Разработка приложений баз данных в системе DELPHI: Учеб. Пособие / Т. Д. Шейкер. ― Владивосток: Изд-во ДВГТУ, 2009. ― 138  с.
28. Советов Б.Я., Яковлев С. А. Моделирование систем. ― М.:Высш. шк., 2009.
29. Степанов В.И. Логистика: учеб. ― М.: ТК Велби, 2006. - 488 с.
30. Технико-экономическое обоснование проекта ― http://www.finanalis.ru/litra/392/.
31. Фаронов В. В. Программирование баз данных в Delphi 7. Учебный курс. ― СПб.: Питер, 2006. ― 459 с.
32. Фленов М. Е. Библия Delphi. ― СПб.: БХВ-Петербург, 2004. ― 880 с

 

Приложения

Приложение А. Фрагмент исходного кода программы

 

unit U_MAIN;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, xlcClasses, xlEngine, xlReport, StdCtrls;

 

type

  TMAIN = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    xlReport1: TxlReport;

    xlReport2: TxlReport;

    xlReport3: TxlReport;

    N4: TMenuItem;

    N7: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    procedure FormCreate(Sender: TObject);

    procedure Connection_Load;

    procedure N2Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  MAIN: TMAIN;

 

implementation

 

uses U_DM, U_PST, U_MAT, U_GP, U_PAR, U_PLAN_ZAK, U_PLAN_PR, U_PRIH_MAT,

  U_RASH_MAT;

 

{$R *.dfm}

procedure TMAIN.Connection_Load;

var

 f: TextFile;

 Connection_String: WideString;

begin

try

  AssignFile(f, 'ConnectionString.txt');

  Reset(f);

  read(f, Connection_String);

  CloseFile(f);

 

  DM.ADOConnection1.Connected := false ;

  DM.ADOConnection1.ConnectionString :=  Connection_String;

  DM.ADOConnection1.Connected := true ;

Except

  Showmessage('Не удалось соединиться с базой данных.');

end;

end;

 

procedure TMAIN.FormCreate(Sender: TObject);

begin

  Connection_Load;

end;

 

procedure TMAIN.N11Click(Sender: TObject);

begin

  if PLAN_PR = nil then Application.CreateForm(TPLAN_PR,PLAN_PR);

  PLAN_PR.Filter_Gr;

  PLAN_PR.Show;

end;

 

procedure TMAIN.N12Click(Sender: TObject);

begin

  if PRIH_MAT = nil then Application.CreateForm(TPRIH_MAT,PRIH_MAT);

  PRIH_MAT.Filter_Gr;

  PRIH_MAT.Show;

end;

 

procedure TMAIN.N13Click(Sender: TObject);

begin

  if RASH_MAT = nil then Application.CreateForm(TRASH_MAT,RASH_MAT);

  RASH_MAT.Filter_Gr;

  RASH_MAT.Show;

end;

 

procedure TMAIN.N15Click(Sender: TObject);

begin

xlReport1.Report(false);

end;

 

procedure TMAIN.N16Click(Sender: TObject);

begin

{ WITH DM.Q_REP DO

  BEGIN

    SQL.Clear;

    SQL.ADD('EXEC REP_2');

    OPEN ;

  end;

  xlReport2.Report(FALSE);

}

xlReport2.Report(false);

 

end;

 

procedure TMAIN.N17Click(Sender: TObject);

begin

xlReport3.Report(false);

end;

 

procedure TMAIN.N2Click(Sender: TObject);

begin

  Close;

end;

 

procedure TMAIN.N3Click(Sender: TObject);

begin

  if GP = nil then Application.CreateForm(TGP,GP);

  GP.Filter_Gr;

  GP.Show;

 

end;

 

procedure TMAIN.N5Click(Sender: TObject);

begin

  if PST = nil then Application.CreateForm(TPST,PST);

  PST.Filter_Gr;

  PST.Show;

 

end;

 

procedure TMAIN.N6Click(Sender: TObject);

begin

  if PAR = nil then Application.CreateForm(TPAR,PAR);

  PAR.Filter_Gr;

  PAR.Show;

end;

 

procedure TMAIN.N8Click(Sender: TObject);

begin

  if MAT = nil then Application.CreateForm(TMAT,MAT);

  MAT.Filter_Gr;

  MAT.Show;

end;

 

procedure TMAIN.N9Click(Sender: TObject);

begin

  if PLAN_ZAK = nil then Application.CreateForm(TPLAN_ZAK,PLAN_ZAK);

  PLAN_ZAK.Filter_Gr;

  PLAN_ZAK.Show;

end;

 

end.

unit U_Login;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, Buttons;

 

type

  TF_Login = class(TForm)

    E_User: TLabeledEdit;

    Panel2: TPanel;

    Btn_Ok: TSpeedButton;

    SpeedButton1: TSpeedButton;

    E_PW: TLabeledEdit;

    procedure Btn_CloseClick(Sender: TObject);

    procedure Btn_OkClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  F_Login: TF_Login;

  PTR : PCHAR ;

  UCOUNT :DWORD;

 

implementation

 

uses U_Main, U_DM;

 

{$R *.dfm}

 

procedure TF_Login.Btn_CloseClick(Sender: TObject);

begin

  Main.Close;

end;

 

procedure TF_Login.Btn_OkClick(Sender: TObject);

begin

      DM.Q_W.SQL.Clear;

      DM.Q_W.SQL.ADD(' select * '+

                     ' from DOSTUP '+

                     ' where login = '+QuotedStr(E_User.text)+' and PW = '+QuotedStr(E_PW.Text)) ;

      DM.Q_W.Open;

      if not DM.Q_W.IsEmpty then

      Begin

          close;

 

      End else

      Begin

        Showmessage('Пользователь не зарегистрирован.');

        Abort;

      End;

end;

 

end.

unit U_MAT;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, MemTableDataEh, Db, ADODB, MemTableEh, DataDriverEh, ADODataDriverEh,

  Buttons, GridsEh, DBGridEh, ExtCtrls, StdCtrls;

 

type

  TMAT = class(TForm)

    GroupBox1: TGroupBox;

    Panel1: TPanel;

    Grid: TDBGridEh;

    BTN_INS: TSpeedButton;

    BTN_ED: TSpeedButton;

    BTN_DEL: TSpeedButton;

    BTN_CLOSE: TSpeedButton;

    DD: TADODataDriverEh;

    MT: TMemTableEh;

    DS: TDataSource;

    MTID_MAT: TAutoIncField;

    MTEI: TStringField;

    MTNAIM: TStringField;

    MTHAR: TStringField;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Filter_Gr ;

    procedure GridApplyFilter(Sender: TObject);

    procedure BTN_CLOSEClick(Sender: TObject);

    procedure BTN_INSClick(Sender: TObject);

    procedure BTN_EDClick(Sender: TObject);

    procedure BTN_DELClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  MAT: TMAT;

 

implementation

 

uses U_DM, Automate, U_MAT_ADD;

 

{$R *.dfm}

 

procedure TMAT.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  action := cafree;

  MAT := nil ;

end;

procedure TMAT.FormShow(Sender: TObject);

begin

DataSourceIni(MAT_ADD, DS) ;

end;

 

procedure TMAT.GridApplyFilter(Sender: TObject);

begin

  Filter_Gr;

end;

 

procedure TMAT.BTN_CLOSEClick(Sender: TObject);

begin

CLOSE ;

end;

 

procedure TMAT.BTN_DELClick(Sender: TObject);

begin

 if MT.State in [dsInsert, dsEdit] then MT.Post ;

 

 If  MessageDlg('Удалить запись',MTCONFIRMATION , [MBYES, MBNO], 0)= mrYes then

   MT.Delete ;

 

   MT.CLOSE ;

   MT.Open;

 

end;

 

procedure TMAT.BTN_EDClick(Sender: TObject);

begin

 if MT.State in [dsInsert, dsEdit] then MT.Post ;

 MT.EDIT ;

 if MAT_ADD.ShowModal = mrOk then

 begin

   MT.Post ;

   MT.CLOSE ;

   MT.Open;

 end;

 

end;

 

procedure TMAT.BTN_INSClick(Sender: TObject);

begin

 if MT.State in [dsInsert, dsEdit] then MT.Post ;

 MT.Insert ;

 if MAT_ADD.ShowModal = mrOk then