Учет лекарственных средств

DИS = 1 200 000 + 266 000 + 1400 = 1 467 400  тенге

 

 

4.2 Расчет показателей  экономической эффективности проекта

 

 

Для построения системы мы используем существующую ЛВС. В ее состав входят:

• файл-сервер сети Windows Server;
• компьютеры на базе Pentium 4;
• кабельная система на основе тонкого коаксиального кабеля;
• активное кабельное оборудование.

По техническим характеристикам сеть подходит для создания на ее основе клиент/серверной системы финансового учета. Для этого необходимы дополнительные компоненты:

• сервер баз данных;
• программное обеспечение для сервера БД;
• программное обеспечение для клиентских компьютеров;

Цена сервера баз данных на основе Pentium IV  составит :

Цсбд = 200 000 тенге

Сетевая карта Intel EtherExpress Pro для сервера БД D-Link 10-100

Цск = 1500 тенге

Сетевая ОС Windows NT 4.0

Цос = 60 000 тенге

Программный сервер на 10 одновременных подключений:

Цпс = 140 000 тенге

Для внедрения новой системы рассчитывается использовать группу из 3-х специалистов.

Время разработки системы определено как:

Tp = 1000 часов, или 6 месяцев.

Т.о. затраты на оплату труда разработчиков составят:

Зпрог = Зз/п * 18 = 60 000 * 18 = 360 000 тенге;

Пакет Delphi 7.0 имеет рыночную стоимость

ЦDelphi = 250 000 тенге

Итого единовременные капиталовложения составят:

      К = Цсбд + Цск + Цос +Цпс + Зпрог + ЦDelphi,                                   (6)

К = 200 000 + 18 500 + 175 000 + 140 000 + 360 000 + 250 000 = 1 143 500 тенге.

Годовая эффективность создания системы определяется из  выражения:

                      Эг = DЗ/(Ен + Кр),                                                          (7)

где  DЗ – изменение размера затрат на создание и обслуживание информационной системы  определяется  из  выражения:

                       DЗ = DИS – К(Ен + Кр),                                                (8)

где  DИS – абсолютное изменение издержек работы отдела; 

         Ен  – норматив эффективности кап.вложений, для компьютерной техники и программного обеспечения принимается равным 0.15;

Кр – коэффициент реновации, принимается как норма амортизации с учетом срока службы существующего оборудования (срок службы системы Тсл – 3 года) и определяется по формуле:

                     Кр = Ен / ((1 + Ен)Тсл – 1),                                                 (9)

Кр = 0.15 / ((1 + 0.15)3 – 1) = 0.29;

Тогда, изменение размера затрат составит:  

DЗ = 1 466 700 – 1 143 500*(0.15+0.29) = 963 560 тенге,

Таким образом годовая эффективность планируется в размере

                     Эг = 963 560 / (0.15+0.29) = 2 189 909 тенге.

Теперь мы можем определить срок окупаемости Ток  создания новой системы из выражения:

                            Ток  = К / Эг  ,                                                             (10)

                       Ток = 1 143 500 / 2 189 909 = 0,52 года.

Причем данный срок окупаемости учитывает только материальные преимущества создания новой системы.

Таким образом, мною осуществлен расчет  всех затрат на создание системы и обоснованы все преимущества ее внедрения. 

 

 

ЗАКЛЮЧЕНИЕ.

 

 

В результате проделанной работы разработана информационная система (ИС) для сети аптек «Солнечная». Система разработана в соответствии с требованиями заказчика, учитывая особенности данной предметной области.

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

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

С приложением несложно работать даже неопытному пользователю. Она красочно оформлена (добавлены картинки, иконки и т.п.) чтобы пользователю было приятно и весело работать в данной программе.

Данный проект может быть более подробно и тщательно разработан в будущем, что принесет его разработчику немалую прибыль.

Система Delphi позволяет решать множество задач, в частности:

1. Создавать законченные приложения для Windows самой различной направленности: от чисто вычислительных и логических, до графических и мультимедиа.
2. Быстро создавать (даже начинающим программистам) профессионально выглядящий оконный интерфейс для любых приложений.
3. Создавать мощные системы работы с локальными и удаленными базами данных
4. Создавать справочные системы (файлы . hlp) для своих приложений и мн. др.

Delphi - это комбинация нескольких  важнейших технологий:

1. Высокопроизводительный компилятор в машинный код
2. Объектно-ориентированная модель компонент
3. Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов
4. Масштабируемые средства для построения баз данных.

В процессе выполнения курсового проекта я усвоил некоторые возможности Delphi. Но даже этот небольшой объем материала позволил мне убедиться в колоссальности данной среды.

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

При выполнении курсовой работы:

1. была изучена теория и технология работы с средой программирования Borland Delphi7;
2. была изучена и проанализирована соответствующая литература;
3. был проведён сравнительный анализ языков этого класса и показаны преимущества и недостатки языка Delphi;
4. были приведены элементы методической работы в виде разработки вариантов заданий (из прикладных областей) для учащихся старших классов школ изучающих Delphi на уроках информатики.

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

 

1. Шумаков П.В. «Delphi 7 и разработка приложений баз данных.» - М.: “Нолидж”, 2007 год;

2. http://www.licinfo.com.ua/ru/biznes-plan-seti-aptek.html

3. http://www.aip.ru/list_articles/preimushestva_.html.

4. http://www.nedug.ru/news/популярно_о_здоровье/2000/5/22/Будущее-за-аптечными-сетями#.VI3aiFVwt6Q.
5. Омарова Ш.Е., Дрозд В.Г., Косова Е.Г. –Учебное пособие «Проектирование баз данных».
6. Пестриков, В. М. Delphi на примерах / В. М. Пестриков, А. Н. Маслобоев. — СПб. : БХВ-Петербург, 2005. — 496 с.
7. Стивене, Р. Delphi. Готовые алгоритмы / Род Стивене; Пер. с англ. Мерещука П. А. - 2-е изд. , стер. - М. : ДМК Пресс ; СПб. : Питер, 2004. - 384 с.
8. www.wikipedia.com
9. Сапков В. В. Информационные технологии и компьютеризация делопроизводства: учебное пособие. Киев: ACADEMIA, 2009.
10. Тен Т.Л., Муканова Ж.А. Программные средства ИС/ уч.пособие. – Караганда: КЭУК, 2010
11. Тен Т.Л., Муканова Ж.А. Программные средства ИС/ уч.-практ.пособие для ДО. – Караганда: КЭУК, 2009
12. Лабор В.В. Си Шарп: Создание приложений для Windows/ В.В.Лабор. – Мн.: Харвест, 2003
13. http://business-up.ucoz.ru/publ/2-1-0-10
14. Тимошонок, Т. Microsoft Access 2003. Краткое руководство /Т. Тимоше-нок.− М:Вильямс, 2005. – 320с.
15. Cамоучитель MS Access. [Электронный ресурс]. — Режим доступа: http://www.taurion.ru/access.
16. http://business.gov.kz/ru/aspiring-entrepreneurs/business-ideas/detail.php?ID=60897
17. Когловский М.Р. - Технология баз данных на персональных ЭВМ.- М.: Финансы и статистика, 2008.
18. Информатика / Под ред. Н.В. Макаровой. М.: Финансы и статистика, 2010.
19. Орлов С. А. Технология разработки программного обеспечения: Учебник. – СПб.: Питер, 2008..
20. http://www.1001statya.ru/
21. http://forum.triz-ri.ru/forum/mess.asp?thr=19407
22. Strange K. Magic Quadrant for Data Warehouse DBMSs// Gartner Research Note M-22-2154. 2011

 

 

 

ПРИЛОЖЕНИЕ А

unit Unit1;

 

interface

 

uses

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

  Dialogs, Grids, DBGrids, Menus, ImgList, StdCtrls, DBCtrls, Mask, Buttons;

 

type

  TForm1 = class(TForm)

    DBGrid1: TDBGrid;

    MainMenu1: TMainMenu;

    ImageList1: TImageList;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N4: TMenuItem;

    DBGrid2: TDBGrid;

    Edit1: TEdit;

    Label1: TLabel;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    GroupBox1: TGroupBox;

    N18: TMenuItem;

    Label2: TLabel;

    Label3: TLabel;

    DBEdit2: TDBEdit;

    Label4: TLabel;

    DBEdit3: TDBEdit;

    Label5: TLabel;

    DBEdit4: TDBEdit;

    Label6: TLabel;

    DBEdit5: TDBEdit;

    DBLookupComboBox1: TDBLookupComboBox;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Label7: TLabel;

    Edit2: TEdit;

    BitBtn3: TBitBtn;

    Label8: TLabel;

    DBEdit1: TDBEdit;

    Label9: TLabel;

    DBEdit6: TDBEdit;

    Label10: TLabel;

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

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure DBLookupComboBox1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;

 

{$R *.dfm}

 

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

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

if DataModule2.ADOTable2.Modified then

DataModule2.ADOTable2.Post;

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

DataModule2.ADOTable1.Insert;

DataModule2.ADOTable2.Insert;

Form3.ShowModal;

end;

 

procedure TForm1.N5Click(Sender: TObject);

begin

Form3.ShowModal;

end;

 

procedure TForm1.N8Click(Sender: TObject);

begin

DataModule2.ADOTable1.IndexFieldNames:='Название';

end;

 

procedure TForm1.N9Click(Sender: TObject);

begin

DataModule2.ADOTable1.IndexFieldNames:='Цена';

end;

 

procedure TForm1.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text)>0 then

DataModule2.ADOTable1.Filtered:=true

else

DataModule2.ADOTable1.Filtered:=false;

DataModule2.ADOTable1.Filter:='Название>'''+Edit1.Text+'''';

end;

 

procedure TForm1.N7Click(Sender: TObject);

begin

Form4.Show;

end;

 

procedure TForm1.N13Click(Sender: TObject);

begin

Form6.Show;

end;

 

procedure TForm1.N14Click(Sender: TObject);

begin

Form7.Show;

end;

 

procedure TForm1.N11Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.N16Click(Sender: TObject);

begin

Form8.Show;

end;

 

procedure TForm1.N18Click(Sender: TObject);

begin

Form9.Show;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

DataModule2.ADOTable6.Post;

DataModule2.ADOQuery2.Active:=false;

DataModule2.ADOQuery2.SQL.Clear;

DataModule2.ADOQuery2.SQL.Add('UPDATE Склад');

DataModule2.ADOQuery2.SQL.Add('SET Склад.[Количество  на складе]=Склад.[Количество на  складе]-'''+DBEdit4.Text+'''');

DataModule2.ADOQuery2.SQL.Add('WHERE  Склад.[Код] LIKE '''+DBEdit1.Text+'''');

DataModule2.ADOQuery2.ExecSQL;

DataModule2.ADOTable2.Refresh;

DataModule2.ADOTable6.Refresh;

 

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

DataModule2.ADOTable6.Insert;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

DataModule2.ADOQuery1.Active:=false;

DataModule2.ADOQuery1.SQL.Clear;

DataModule2.ADOQuery1.SQL.Add('Select Поставщики.[Код поставщика], Лекарства.[Название], Склад.[Количество на складе], Склад.[Дата поставки]');

DataModule2.ADOQuery1.SQL.Add('FROM Поставщики INNER JOIN (Склад INNER JOIN Лекарства ON Склад.[Ключ]=Лекарства.[Ключ]) ON Поставщики.[Код поставщика]=Склад.[Код поставщика]');

DataModule2.ADOQuery1.SQL.Add('WHERE Поставщики.[Код поставщика] LIKE '''+Edit2.Text+'''');

DataModule2.ADOQuery1.Active:=true;

Form10.ShowModal;

end;

 

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.Clear;

DataModule2.ADOQuery3.SQL.Add('Select Лекарства.[Ключ], Лекарства.[Цена]');

DataModule2.ADOQuery3.SQL.Add('FROM Лекарства');

DataModule2.ADOQuery3.SQL.Add('WHERE Лекарства.[Ключ] LIKE '''+DBEdit6.Text+'''');

DataModule2.ADOQuery3.Open;

DBEdit3.Text:=DataModule2.ADOQuery3.FieldValues['Цена'];

DataModule2.ADOQuery3.Active:=True;

DataModule2.ADOTable6.Refresh;

 

end;

 

end.

 

 

unit Unit2;

 

interface

 

uses

  SysUtils, Classes, DB, ADODB;

 

type

  TDataModule2 = class(TDataModule)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    ADOTable1DSDesigner: TAutoIncField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner5: TDateTimeField;

    ADOTable1DSDesigner6: TBCDField;

    ADOTable2DSDesigner: TAutoIncField;

    ADOTable2DSDesigner2: TDateTimeField;

    ADOTable2DSDesigner3: TWideStringField;

    ADOTable2DSDesigner4: TWideStringField;

    ADOTable3: TADOTable;

    ADOTable4: TADOTable;

    ADOTable5: TADOTable;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

    DataSource5: TDataSource;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable2DSDesigner6: TIntegerField;

    ADOTable3DSDesigner: TWideStringField;

    ADOTable3DSDesigner2: TWideStringField;

    ADOTable3DSDesigner3: TWideStringField;

    ADOTable3DSDesigner4: TWideStringField;

    ADOTable3DSDesigner5: TWideStringField;

    ADOTable4DSDesigner: TAutoIncField;

    ADOTable4DSDesigner2: TWideStringField;

    ADOTable5DSDesigner: TAutoIncField;

    ADOTable5DSDesigner2: TWideStringField;

    ADOTable6: TADOTable;

    DataSource6: TDataSource;

    ADOTable6DSDesigner: TAutoIncField;

    ADOTable6DSDesigner2: TDateTimeField;

    ADOTable6DSDesigner3: TIntegerField;

    ADOTable6DSDesigner5: TWideStringField;

    ADOTable6DSDesigner6: TBCDField;

    ADOTable6Field: TIntegerField;

    ADOQuery1: TADOQuery;

    DataSource7: TDataSource;

    ADOTable2_: TWideStringField;

    ADOQuery2: TADOQuery;

    DataSource8: TDataSource;

    ADOQuery3: TADOQuery;

    DataSource9: TDataSource;

    ADOQuery4: TADOQuery;

    procedure ADOTable6CalcFields(DataSet: TDataSet);