Разработка программного обеспечения информационной системы "Ювелирный магазин"

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

В «Преподаватели» хранится информация о преподавателях (рис. 9).



Рисунок 9 - Преподаватели

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask;

type

TPrepod = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

abel3: TLabel;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit2: TDBEdit;

Label5: TLabel;

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

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Prepod: TPrepod;

implementation

uses

Unit1, Unit2, Unit3, Unit5, Unit6, Unit7;

«Справочник» содержит информацию о предметах, направлениях и конкурсах(рис. 10).

Рисунок 10 - Форма предметов

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;

type

TPredmet = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

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

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

Public declarations }

end;

var

Predmet: TPredmet;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7;

На форме «Направления» предоставляются данные о направлениях (рис. 11).



Рисунок 11 - Форма направлений

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls;

type

TNapravlenia = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

DBEdit1: TDBEdit;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

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

procedure FormCreate(Sender: TObject);

private

Private declarations }

public

Public declarations }

end;

var

Napravlenia: TNapravlenia;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7;

Во вкладке «Конкурсы» находятся данные о проведенных конкурсах (рис. 12).

Рисунок 12 - форма Конкурсы

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, Mask;

type

TKonkurs = class(TForm)

DBGrid1: TDBGrid;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

abel3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

DBEdit1: TDBEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Edit1: TEdit;

Label6: TLabel;

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

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Konkurs: TKonkurs;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;

Проектирование интерфейса пользователя

3. ЭКСПЕРИМЕНТАЛЬНЫЙ РАЗДЕЛ

3.1 Обоснование экономической эффективности программного продукта

Для определения стоимости разработки программы, необходимо для начала определить трудоёмкость работ программиста при разработке программы (Qпр). Для этого используем следующую формуле:

Qпр = tп + tа + tбл

где tп - затраты труда на постановку задачи (час);

tа - затраты труда на разработку алгоритма (час);

tбл - затраты труда на разработку блок - схемы (час).

Используя формулу рассчитаем трудоёмкость работ программиста при разработке программы:

Qпр = 5 + 76 + 3 = 84 (час).

Определим стоимость разработки программы в соответствии с формулой :

Спр = Qпр * Фпр * Кнр + См/час * tотп,

Спр = 84 * 100 * 1,4 + 50 * 2 = 11860(руб.),

где Спр = 11860(руб.) - стоимость разработки программы;

Qпр = 84 - трудоемкость работ программиста при разработке программы (час);

Фпр = 100 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста в размере 20000 руб. на 25 дней - количество рабочих дней в месяце, и делим на 8 часов - продолжительность рабочего дня).

Кнр = 1,4 - коэффициент накладных расходов - 40%;

См/час = 50 - стоимость 1 машино - часа (руб.);

Tотп = 2 - машинное время откладки программы (час).

Рассчитаем стоимость решения задачи на ЭВМ, используя формулу:

Ср = См/час * Тр + Фпр * Qр * Кнр,

Ср = 50 * 40 + 100 * 40 * 1,4 = 7600 (руб.).

Где Ср = 7600 (руб) - стоимость решения задачи на ЭВМ;

См/час = 50 - стоимость 1 машино - часа (руб.);

Тр = 40 - время работы на ЭВМ;

Фпр = 100 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста в размере 20000 руб. на 25 дней - количество рабочих дней в месяце, и делим на 8 часов - продолжительность рабочего дня);

Qр = 40 - трудоемкость затрачиваемая программистом на решение задачи (час);

Кнр = 1,4 - коэффициент накладных расходов - 40%.

После расчетов стоимости разработки программы и стоимости решения задачи на ЭВМ, рассчитаем полную стоимость решения задачи на ЭВМ (См) в соответствии с формулой:

См = Спр + Ср,

См = 11860 + 7600 = 19460 (руб).

Для определения стоимости решения задачи вручную (Свр) воспользуемся формулой:

Свр = qр * Фр * Кнр * n,

Свр = 1* 20000 * 1,4 * 1 = 28000 (руб.),

где qр = 1 - количество времени обработки информации по данной задаче вручную;

Фр = 20000 - фонд заработной платы работника;

Кнр = 1,4 - коэффициент накладных расходов - 40%;

N = 1 - количество работников.

В результате полученных данных, определим годовую экономическую эффективность по формуле:

Эгод = (Свр - Ср) * 12 месяцев,

Эгод = (28000 - 7600) * 12 = 244800(руб.).

Далее определим капитальные вложения (Кд), которые включают затраты на обследование объекта механизации учёта, разработку основных положений технического задания, стоимость вычислительной техники по формуле:

Кд = 3оом + Зтз + Звт,

где 3оом - стоимость обследования объекта механизации (руб.);

Зтз - стоимость разработки технического задания (руб.);

Звт - стоимость вычислительной техники (руб.);

Кд = 20000 + 100000 + 90000 = 210000 (руб.).

Теперь определим срок окупаемости по формуле:

Ток = Кд/Эгод,

Ток = 210000 / 244800= 0,86 (года),

где Кд = 210000 - стоимость капитальных вложений (руб.);

Эгод = 244800- годовая экономическую эффективность (руб.).

Рассчитаем коэффициент эффективности по формуле:

Ер = 1/Ток,

Ер = 1 / 0,86 = 1,16

где Ер = 1,16- расчетный коэффициент эффективности;

Ток = 0,86 - срок окупаемости.

Нормативный срок окупаемости Ток находится в пределах от 0 до 1 года, а коэффициент эффективности 1,16, что входит в предел 0,15…2

Размещено на Allbest.ru

...