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

­ t₂ - длительность обработки информации при решении задачи, определяемая отношением объема операций на быстродействие работы компьютера;

­ t₃ - время вывода результативной информации пользователю на печать или по каналам связи, определяемое отношением объема выводимой информации на скорость работы печатающего устройства или канала связи;

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

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

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

Интерфейс приложения

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

Рис.2. Главная форма приложения

При нажатии на кнопку «Перечень входных параметров» произойдет переход в диалоговое окно, в котором в виде рисунка отображена таблица исходных данных (см. рис.3). Создание подобной формы позволяет оценить трудоемкость работы, изучить перечень экономических показателей, необходимых для работы и сократить временные затраты на выполнение итогового расчета.

Рис.3. Диалоговое окно с таблицей исходных данных

Выбор кнопки «О разработчике» приводит к выводу на экран окна сообщений, содержащего информацию о разработчике (см. рис.4).



Рис.4. Окно сообщений с информацией о разработчике

При нажатии на кнопку «Расчет показателей» произойдет переход в диалоговое окно расчета трудовых и стоимостных показателей. Для начала работы в котором необходимо нажать кнопку «Начать» (см. рис.5).

Рис.5. Диалоговое окно расчета трудовых и стоимостных показателей

После нажатия кнопки «Начать» появится окно сообщений, в котором необходимо ввести число технологических процессов (см. рис.6).



Рис.6. Окно сообщений для ввода количества технологических процессов

После ввода количества технологических процессов и нажатия кнопки «ОК», появится окно сообщений, в котором необходимо ввести число операций первого технологического процесса (см. рис.7). И так будет происходить до тех пор, пока не будет введено количество операций по каждому из заданных технологических процессов.

Рис.7. Окно сообщений для ввода количества операций первого технологического процесса

После завершения ввода информации о числе технологических операций в диалоговом окне появятся поля для ввода основных экономических показателей (см. рис.8).



Рис.8. Диалоговое окно расчета трудовых и стоимостных показателей с появившимися полями для ввода основных экономических показателей.

После ввода экономических показателей всего количества операций на данном диалоговом окне появляется кнопка «Рассчитать» (см. рис.9), при нажатии на которую производится непосредственный расчет.

Рис. 9. Диалоговое окно расчета трудовых и стоимостных показателей с кнопкой «Рассчитать»

В завершении расчетов появится диалоговое окно с результатами расчетов (см. рис.10).

Рис. 10. Диалоговое окно с результатами расчета трудовых и стоимостных параметров

Заключение

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

Рациональное обоснование выбора необходимых информационных технологий и грамотное их использование на предприятии позволяет существенно повысить конкурентоспособность продукции и предприятия в целом, снизить трудоемкость рутинных работ, ускорить процессы получения информации, необходимой для принятия управленческого решения. Затраты на внедрение информационных технологий не только окупаются, но и дают прибыль. Крупные западные корпорации тратят на информационные системы от 1,5 до 4% своего годового оборота, то есть в пересчете на одного работающего от 3 до 12 000$. Прибыль от инвестиций в информационные технологии доходит до 81% на каждый вложенный доллар.

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

Список литературы

1. Абдикеев Н. М. «Проектирование интеллектуальных систем в экономике», учебник/ под редакцией Н. П. Тихомирова. - М.: Издательство «Экзамен», 2004. - 528 с.

2. «Автоматизированные информационные технологии в экономике», Учебник/под редакцией проф. Г. А. Титоренко. - М: ЮНИТИ, 2006 . - 399 с.

3. «Автоматизированные информационные технологии в экономике», Учебник/ М. И. Семенов, И. Т Трубилин, В. И. Лойко, Т. П. Барановская, под общей редакцией И. Т. Трубилина. - М.: Финансы и статистика, 2000.- 416 с.

4. Балдин К. В., Воробъев С. Н., Уткин В. Б. «Управленческие решения»: Учебник- 3-е издание- Москва: Издательско-торговая корпорация « Дашков и Ко», 2007. - 496 с.

5. Белоголов И. А. «Обработка данных с помощью компьютера»: Учебное пособие- Киев: Высшая школа, 1991 г.

6. Вендров А. М. «Проектирование программного обеспечения экономических информационных систем»: Москва: Финансы и статистика, 2002 г.

7. Гринберг А. С., Горбачев Н. Н., Бондаренко А. С. «Информационные технологии управления», учебное пособие для вузов. - М.: «ЮНИТИ-ДАНА», 2004. - 479 с.

8. «Информатика»: Учебник.- 3-е перераб. изд./ Под ред. Н. В. Макаровой. М.: Финансы и статистика, 2005. - 768 с.

9. «Информационные системы в экономике»: Учебник / Под ред. проф. В. В. Дика. - М.: Финансы и статистика, 1996 - 272 с.

10. Евдокимова В. В. «Экономическая информатика», учебник для вузов: СПб, 1997 год

11. Ефимов Е. Н., Патрушина С. М., Панферова Л. В., Хашиева Л. И. «Информационные системы в экономике», М: ИКЦ «МарТ», 2004. - 352 с.

12. Иванова Г. С. «Технология программирования», Учебник для вузов: Москва, 2003 г.

13. Кирия В. Г. «Информатика. Учебное пособие»: Иркутск, ИрГТУ, 1998 год

14. Козырев А.А. «Информатика. Учебник для вузов» - Спб.:Изд-во Михайлова В.А., 2002. - 511 с.

15. Козырев А.А. «Информационные технологии в экономике и управлении: Учебник» - Спб.: Изд-во Михайлова В.А., 2005. - 448 с.

16. Липаев В. В. «Проектирование программных средств», учебное пособие, Москва: «Высшая школа», 1999 г.

17. Ломтадзе В. В., Шишкин Л. П. «Информатика», учебное пособие: Иркутск: ИрГТУ, 1999 г.

18. Макарова Н. В. «Информатика», учебник- 3-е издание переработанное, Москва: Финансы и статистика, 2000 г.

19. Мишенин А. И. «Теория экономических информационных систем» - М.: Финансы и статистика, 2002. - 240 с.

20. Никитин А. В., Рачковская И. А., Савченко И. В. «Управление предприятием (фирмой) с использованием информационных систем: Учебное пособие - М.: ИНФРА-М, 2007, 188 с.

21. Орлов С. А. «Технология разработки программного обеспечения», учебник: СПб, Питер, 2002 г.

22. Романов В. П. «Интеллектуальные информационные системы в экономике. Учебное пособие» Под редакцией д.э.н., проф. Н.П. Тихомирова) М.: Издательство «Экзамен», 2003 г.

23. Тебекин А. В. Касаев Б. С. «Менеджмент организации»: учебник-Москва: КНОРУС, 2006. - 416 с.

24. Борисов Е.Ф. Основы Экономики изд .Юрист 1998г.

25. Киперман Г.Я. Рыночная экономика изд.Республика 1994 г.

26. Лен Роджерс “Маркетинг в малом бизнесе” -- Москва, “Аудит”, 1996.

27. Справочник экономиста промышленного предприятия. Под ред. С.Е. Каменицера. М., «Экономика», 1974.

28. Фатхутдинов Р.А. организация призводства: Учебник. - М.: ИНФРА-М, 2001.-672 с.- (Серия «Высшее образование»).

29. Савицкий Н.И. Технологии организации, хранения и обработки данных: Учеб. Пособие. - М.: ИНФРА-М, 2001.- 232 с. - (Серия «Высшее образование»).

30. Финансы. Денежное обращение. Кредит: Учебник для вузов/ Л.А. Дробозина, Л.П.Окунева, Л.Д.Андросова и др., под ред. проф. Л.А. Дробозиной. - М.: Финансы, ЮНИТИ, 1997.

31. А.Н. Трошин, В.И. Фомкина “Финансы, денежное обращение и кредиты” - М., 2000.

32. Экономическая информатика: «Введение в экономический анализ информационных систем»: Учебник. - Э.: ИНФРА-М, 2005 - 958 с.

Приложения

Листинг главной формы приложения

unit Unit1;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

uses Unit2, Unit3;

procedure TForm1.Button3Click(Sender: TObject);

begin

ShowMessage('Работа выполнена студентом 5 курса Бокситогорского филиала, Ленинградского государственного областного университета имени А.С. Пушкина, факультета МФИ (прикладная информатика) Фукст Романом Сергеевичем ')

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Hide;

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Hide;

Form3.Show;

end;

end.

Листинг формы с таблицей исходных данных, необходимых для расчета

unit Unit2;

interface

uses

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

StdCtrls, ExtCtrls, jpeg;

type

TForm2 = class(TForm)

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

Form1.Show;

end;

end.

Листинг формы, предназначенной для ввода исходных данных, а также расчета трудовых и стоимостных показателей

unit Unit3;

interface

uses

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

StdCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

Button4: TButton;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Label16: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

s, st:string;

n, m, j, i, k, kol :integer;

mass:array[1..50] of integer;

input:array[1..50,1..14] of real;

res:array[1..50,1..10] of real;

implementation

{$R *.DFM}

uses Unit1;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Hide;

Form1.Show;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Button2.Hide;

s:=InputBox('Описание процесса','Введите число технологических процессов','');

n:=StrToInt(s);

for i:=1 To n do

begin

st:= 'Введите число операций '+IntToStr(i)+' технологического процесса';

s:=InputBox('Описание процесса',st,'');

mass[i]:=StrToInt(s);

end;

Button3.Show;

for i:= 1 to n do m:=m+mass[i];

Label1.Show;

Label2.Show;

Label3.Show;

Label4.Show;

Label5.Show;

Label6.Show;

Label7.Show;

Label8.Show;

Label9.Show;

Label10.Show;

Label11.Show;

Label12.Show;

Label13.Show;

Label14.Show;

Label15.Show;

Edit2.Show;

Edit3.Show;

Edit4.Show;

Edit5.Show;

Edit6.Show;

Edit7.Show;

Edit8.Show;

Edit9.Show;

Edit10.Show;

Edit11.Show;

Edit12.Show;

Edit13.Show;

Edit14.Show;

Edit15.Show;

Label16.Caption :='Введите показатели '+IntToStr(k+1)+'операции';

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Label2.Hide;

Label3.Hide;

Label4.Hide;

Label5.Hide;

Label6.Hide;

Label7.Hide;

Label8.Hide;

Label9.Hide;

Label10.Hide;

Label11.Hide;

Label12.Hide;

Label13.Hide;

Label14.Hide;

Label15.Hide;

Edit2.Hide;

Edit3.Hide;

Edit4.Hide;

Edit5.Hide;

Edit6.Hide;

Edit7.Hide;

Edit8.Hide;

Edit9.Hide;

Edit10.Hide;

Edit11.Hide;

Edit12.Hide;

Edit13.Hide;

Edit14.Hide;

Edit15.Hide;

Button1.Hide;

Button3.Hide;

Button4.Hide;

m:=0;

kol:=0;

k:=0;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

kol:=kol+1;

k:=k+1;

input[k,1]:=StrToFloat(Edit2.Text);

input[k,2]:=StrToFloat(Edit3.Text);

input[k,3]:=StrToFloat(Edit4.Text);

input[k,4]:=StrToFloat(Edit5.Text);

input[k,5]:=StrToFloat(Edit6.Text);

input[k,6]:=StrToFloat(Edit7.Text);

input[k,7]:=StrToFloat(Edit8.Text);

input[k,8]:=StrToFloat(Edit9.Text);

input[k,9]:=StrToFloat(Edit10.Text);

input[k,10]:=StrToFloat(Edit11.Text);

input[k,11]:=StrToFloat(Edit12.Text);

input[k,12]:=StrToFloat(Edit13.Text);

input[k,13]:=StrToFloat(Edit14.Text);

input[k,14]:=StrToFloat(Edit15.Text);

if k<m then Label16.Caption :='Введите показатели '+IntToStr(k+1)+'операции' else

Label16.Caption :='Для выполнения расчета нажмите кнопку "Расчитать"';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Edit8.Text:='';

Edit9.Text:='';

Edit10.Text:='';

Edit11.Text:='';

Edit12.Text:='';

Edit13.Text:='';

Edit14.Text:='';

Edit15.Text:='';

if kol=m then

begin

Button3.Hide;

Button4.Show;

Label2.Hide;

Label3.Hide;

Label4.Hide;

Label5.Hide;

Label6.Hide;

Label7.Hide;

Label8.Hide;

Label9.Hide;

Label10.Hide;

Label11.Hide;

Label12.Hide;

Label13.Hide;

Label14.Hide;

Label15.Hide;

Edit2.Hide;

Edit3.Hide;

Edit4.Hide;

Edit5.Hide;

Edit6.Hide;

Edit7.Hide;

Edit8.Hide;

Edit9.Hide;

Edit10.Hide;

Edit11.Hide;

Edit12.Hide;

Edit13.Hide;

Edit14.Hide;

Edit15.Hide;

Button1.Hide;

Button3.Hide;

end;

end;

procedure TForm3.Button4Click(Sender: TObject);

var T, C, t0, t1, t2, t3, tm, cm, cib, c1, czp, cnr, ca, cmv :real;

begin

t0:=0;

t1:=0;

t2:=0;

t3:=0;

tm:=0;

cm:=0;

cib:=0;

c1:=0;

czp:=0;

cnr:=0;

ca:=0;

cmv:=0;

for i:=1 to n do

begin

res[i,1]:=input[i,1]/input[i,2];

res[i,2]:=res[i,1]*input[i,3];

res[i,3]:=res[i,2]*input[i,4];

res[i,4]:=res[i,1]*input[i,5];

res[i,5]:=input[i,7]/input[i,8];

res[i,6]:=input[i,7]*input[i,9];

res[i,7]:=res[i,6]/input[i,10];

res[i,8]:=input[i,11]/input[i,12];

res[i,9]:=res[i,5]+res[i,7]+res[i,8];

res[i,10]:=res[i,9]*input[i,6];

end;

for i:=1 to n do

begin

t0:=t0+res[i,1];

t1:=t1+res[i,5];

t2:=t2+res[i,7];

t3:=t3+res[i,8];

tm:=tm+res[i,9];

cm:=cm+input[i,13];

cib:=cib+input[i,14];

c1:=c1+input[i,6];

czp:=czp+res[i,2];

cnr:=cnr+res[i,3];

ca:=ca+res[i,4];

cmv:=cmv+res[i,10];

end;

T:=t0+t1+t2+t3+tm;

C:=cm+cib+c1+czp+cnr+ca+cmv;

Button4.Hide;

Label16.Caption :='Суммарные трудозатраты по данному варианту составляют '+FloatToStr(T)+' чел/час'+#13+

Суммарные стоимостные затраты по данному варианту составляют '+FloatToStr(C)+' руб';

end;

end.

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