1.4.3 Среда визуальной разработки

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

Преимущества и недостатки

Преимущества:

1) быстрота разработки;

2) лёгкость освоения;

3) стандартизация внешнего вида программ.

Недостатки:

1) привязка к конкретной среде разработки связана с проблематичностью перехода на другую среду разработки;

2) затруднённое использование нестандартных компонентов;

3) наличие недокументированных особенностей компонент.

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

Так же следует учитывать некоторые изменения, которые могут вносится в язык программирования. Конкретный пример - среда разработки Delphi, в которой за основу взят Pascal, но по сути это уже новый язык программирования). Среду разработки, как и язык программирования, следует выбирать на этапе проектирования ПО. Правильно спроектированное ПО должно учитывать развитие и внедрение новых технологий, поэтому перенос разработки такого ПО в другую среду разработки не должен представлять трудностей.

Примеры сред визуальной разработки:

1) Microsoft Visual Studio;

2) Borland Developer Studio;

3) Borland Delphi;

4) Borland C++ Builder;

5) ГРАФИТ.

В дипломной работе используется среда визуальной разработки - Borland Delphi.

Глава 2. Практическая часть. Проектирование и разработка программного обеспечения

2.1 Цель разработки программного обеспечения

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

2.2 Состав программного обеспечения

В состав программного обеспечения рабочей станции входят:

1) Редактор баз данных Interbase&Firebird Development Studio ;

2) Среда программирования Delphi 7.0;

3) GetDataGraphDigitizer;

4) MS Excel;

5) MS Paint;

6) MS Windows XP Professional;

7) MS Word.

2.3 Требования к программному обеспечению

Основные требования к программно-аппаратной совместимости:

1) ПО должно работать в операционной системе Windows XP и выше;

2) Программное обеспечение должно иметь соединение с сервером баз данных;

Основные функциональные требования к программному обеспечению:

1) Программное обеспечение должно обеспечивать соединение с базой данных;

2) Программное обеспечение должно представлять данные, которые хранятся в базе данных;

3) Программное обеспечение должно представлять данные на основе запроса к базе данных, данные отбираются по типу размыкателя, по дате опыта и характерному времени нарастания тока в нагрузке;

4) Программное обеспечение должно представлять данные о количестве опытов, проведенных с размыкателем определенного типа;

5) Программное обеспечение должно представлять данные в форме отчетов.

2.4 Обработка результатов экспериментов

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

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

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

Зная напряжение (в вольтах) и время (в секундах), можно перейти к току (в амперах) и производной тока (в А/с).

Расчет тока (в амперах) по его измерению поясом Роговского:

, (1)

где N - число витков пояса,

Rш - сопротивление шунта, Ом,

U(t) - напряжение на осциллографе, В.

Расчет производной тока (в А/с) по ее измерению дифференцирующим датчиком:

, (2)

где N - число витков датчика,

h, D, d - соответственно толщина, наружный и внутренний диаметр каркаса датчика, см,

U(t) - напряжение на осциллографе, В.

Расчет сопротивления размыкателя производится по формуле:

(3)

где Lk, Lн - соответственно индуктивность разрываемого контура и нагрузки;

;

Iн, I0 - ток в нагрузке и ток в разрываемом контуре в момент начала его разрыва;

Ток в нагрузке рассчитывается путем интегрирования импульса производной тока, ток I0 - по результату его измерения поясом Роговского.

Если ток в нагрузке в момент начала разрыва контура Iн0 не равен нулю, формулу (3) можно представить в виде:

Параметры датчиков и цепи, в которой работает размыкатель, представлены в карте опыта.

2.5 Разработка базы данных

База данных носит название «Opity».

Схема базы данных:

Рисунок 3. - Схема базы данных.

На основании данной схемы был написан sql-код в редакторе Interbase&Firebird Development Studio:

create table razmykatel(

nomer_raz char(50) not null,

eskiz_raz char(50),

tip char(50),

folga char(50),

podlogka char(50),

vv char(50),

razmery_folgi char(100),

razmery_podlogki char(100),

razmery_vv char(100),

primary key (nomer_raz));

create table opit(

nomer_opita integer not null,

data_opita date,

karta_opita char(50),

nomer_raz char(50),

razrkontr char(50),

kontrnagr char(50),

razryvtok char(50),

nachtokvnag char(50),

tokvnag char(50),

proizvtok char(50),

shirinanapolvys char(50),

charvrem char(50),

donachraz char(50),

dovychnapov char(50),

graphproizvtokavnagr char(50),

resulttif char(50),

foreign key(nomer_raz) references razmykatel(nomer_raz) ,

primary key(nomer_opita));

create table oscillograma

(

nomer_osc integer not null,

nomer_opita integer,

nazvanie char(100),

osc char(50),

foreign key(nomer_opita) references opit(nomer_opita),

primary key(nomer_osc));

Результатом выполнения этого кода стала структура таблиц в заранее созданной базе данных «Opity».

2.6 Разработка пользовательского интерфейса

2.6.1 Разработка меню

Для создания меню использовался компонент MainMenu1 класса TmainMenu библиотеки Standart.

Компонент расположен на форме Form1 (первый слева):

В меню имеются пять пунктов меню: «Просмотр», «Запросы», «Диаграммы», «Отчеты», «Выход». Каждый пункт меню содержит локальное меню.

Рассмотрим содержимое пункта меню «Просмотр». В нее входят три локальных меню:

1) «Просмотр списка опытов»;

2) «Просмотр осциллограмм»;

3) «Просмотр размыкателей».

Рассмотрим содержимое пункта меню «Запросы». В нее входит локальное меню «Фильтр и сортировка по дате опыта и характерному времени нарастания тока, фильтр по типу размыкателя».

Рассмотрим содержимое пункта меню «Диаграммы». В нее входит локальное меню «Диаграмма «Количество опытов, проведенных с определенным типом размыкателя»».

Рассмотрим содержимое пункта меню «Отчеты». В нее входит подменю «Отчет об опытах».

Наконец, пункта меню «Выход» содержит локальное меню: «Выход из программы».

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

Если пользователь выбирает локальное меню «Просмотр списка опытов» пункта меню «Просмотр», то на экране появляется форма Form4, которая вызывается с помощью процедуры:

procedure TForm1.N5Click(Sender: TObject);

begin

Form4.ShowModal;

end;

Если пользователь выбирает локальное меню «Просмотр осциллограмм» пункта меню «Просмотр», то на экране появляептся форма Form3, которая вызывается с помощью процедуры:

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.ShowModal;

end;

Если пользователь выбирает локальное меню «Просмотр размыкателей» пункта меню «Просмотр», то на экране появляется форма Form2, которая вызывается с помощью процедуры:

procedure TForm1.N4Click(Sender: TObject);

begin

Form2.ShowModal;

end;

Если пользователь выбирает локальное меню «Фильтр и сортировка по дате опыта и характерному времени нарастания тока, фильтр по типу размыкателя» пункта меню «Запросы», то на экране появляется форма Form6, которая вызывается с помощью процедуры:

procedure TForm1.N12Click(Sender: TObject);

begin

Form6.ShowModal;

end;

Если пользователь выбирает локальное меню «Диаграмма «Количество опытов, проведенных с определенным типом размыкателя»» пункта меню «Диаграммы», то на экране появляется форма Form5, которая вызывается с помощью процедуры:

procedure TForm1.N12Click(Sender: TObject);

begin

Form5.ShowModal;

end;

Если пользователь выбирает локальное меню «Отчет об опытах» пункта меню «Отчеты», то на экране появляептся форма Form7, которая вызывается с помощью процедуры:

procedure TForm1.N14Click(Sender: TObject);

begin

form7.QuickRep1.Preview;

end;

Если пользователь выбирает локальное меню «Выход из программы» пункта меню «Выход», то происходит выход из программы, который осуществляется с помощью процедуры:

procedure TForm1.N3Click(Sender: TObject);

begin

Close;

end;

2.6.2 Разработка форм

А) Форма Form1

На форме были установлены компоненты: MainMenu1, описанный выше, и Database1 класса TDataBase из библиотеки BDE.

Компонент Database1 служит для соединения с базой данных. Для осуществления соединения создавался alias в SQL Explorer, а в редактор параметров соединения компонента Database1, указывались следующие параметры, смотрим рисунок:

Свойство компонента Database1 Connected определялось, как True.

Б) Форма Form2

На форме расположены следующие компоненты: DBGrid1 класса TDBGrid из библиотеки Data Controls, DataSource1, DataSource2 класса TDataSource из библиотеки Data Access, DBNavigator1 класса TDBNavigator из библиотеки Data Controls, Query1, Query2 класса TQuery из библиотеки BDE, DBLookupComboBox1 класса TDBLookupComboBox, Image1 класса TImage из библиотеки Additional, Label1 класса TLabel из библиотеки Standart, Button1, Button2, Button3 класса TButton библиотеки Standart, StoredProc_Del класса TStoredProc из библиотеки BDE.

Данные из база данных отображаются с помощью компонента DBGrid1. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

select * from razmykatel

DataSource1 является источником данных для DBGrid1, DBNavigator1.

C помощью DBLookupComboBox1 осуществляется выбор имени файла, в котором хранится изображение эскиза размыкателя. Для занесения в DBLookupComboBox1 значений выбора используется DataSource2, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query2, который генерирует запрос:

select eskiz_raz from razmykatel

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

procedure TForm2.DBLookupComboBox1Click(Sender: TObject);

begin

Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\Geometry\'+Form2.DBLookupComboBox1.KeyValue);

end;

C помощью кнопки Button1, имеющей свойство Caption: «добавить», осуществляется добавление данных в таблицу «Razmykatel». Пользователь нажимает кнопку «добавить», в ответ на это запускается форма Form8 (описание смотрим ниже). Процедура, с помощью которой реализуется вызов формы Form8 и задание свойств объектов формы:

procedure TForm2.Button1Click(Sender: TObject);

begin

flag:=1;

form8.Edit1.Text:=' ';

form8.Edit2.Text:=' ';

form8.Edit3.Text:=' ';

form8.Edit4.Text:=' ';

form8.Edit5.Text:=' ';

form8.Edit6.Text:=' ';

form8.Edit7.Text:=' ';

form8.Edit8.Text:=' ';

form8.Edit9.Text:=' ';

form8.ShowModal;

end;

C помощью кнопки Button3, имеющей свойство Caption: «изменить», осуществляется изменение данных в таблице «Razmykatel». Пользователь нажимает кнопку «изменить», в ответ на это запускается форма Form8. Процедура, с помощью которой реализуется вызов формы Form8 и задание свойств ее объектов:

procedure TForm2.Button3Click(Sender: TObject);

begin

flag:=2;

form8.Edit2.Text:= Query1.FieldByName('ESKIZ_RAZ').Value;

form8.Edit3.Text:=Query1.FieldByName('TIP').Value;

form8.Edit4.Text:=Query1.FieldByName('FOLGA').Value;

form8.Edit5.Text:=Query1.FieldByName('PODLOGKA').Value;

form8.Edit6.Text:=Query1.FieldByName('VV').Value;

form8.Edit7.Text:=Query1.FieldByName('RAZMERY_FOLGI').Value;

form8.Edit8.Text:=Query1.FieldByName('RAZMERY_PODLOGKI').Value;

form8.Edit9.Text:=Query1.FieldByName('RAZMERY_VV').Value;

form8.Edit1.Enabled:=false;

form8.ShowModal;

end;

C помощью кнопки Button2, имеющей свойство Caption: «удалить», осуществляется удаление данных из таблицы «Razmykatel». Пользователь нажимает кнопку «удалить», в ответ на это данные удаляются из базы данных. Процедура, с помощью которой реализуется функция удаления:

procedure TForm2.Button2Click(Sender: TObject);

begin

if MessageDlg('Удалить данные о размыкателе',mtConfirmation, [mbYes,mbNo],0)=mrYes then

begin

StoredProc_Del.ParamByName('nom').Value:=Query1.FieldByName('nomer_raz').Value;

StoredProc_Del.ExecProc;

Query1.Close;

Query1.Open;

end;

end;

С помощью компонента StoredProc_Del осуществляется загрузка хранимой процедуры, которая отвечает за удаление данных из таблицы «Razmykatel».

Для реализации функций: удаление, изменение и добавление, использовались хранимые процедуры, описаны в приложении.

С помощью компонента DBNavigator1 осуществляется перемещение по таблице DBGrid1.

Конечным результатом работы формы является:

1) сделан выбор имени файла эскиза размыкателя:

2) нажата кнопка «добавить»:

3) нажата кнопка «OK»:

4) нажата кнопка «изменить»:

5) нажата кнопка «OK»:

6) нажата кнопка «удалить»:

7) нажата кнопка «Yes»:

В) Форма Form3

На форме расположены следующие компоненты: DBGrid1 класса TDBGrid из библиотеки Data Controls, DataSource1, DataSource2, DataSource3 класса TdataSource библиотеки Data Access, DBNavigator1 класса TDBNavigator из библиотеки Data Controls, Query1, Query2, Query3 класса Tquery из библиотеки BDE, DBLookupComboBox1, DBLookupComboBox2 класса TDBLookupComboBox, Image1 класса Timage из библиотеки Additional, OpenDialog1 класса TopenDialog из библиотеки Dialogs, Label1, Label2 класса TLabel библиотеки Standart , Button1, Button2, Button3 класса TButton библиотеки Standart, StoredProcDel класса TStoredProc из библиотеки BDE.

Данные из базы данных отображаются с помощью компонента DBGrid1. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

select * from OSCILLOGRAMA

DataSource1 является источником данных для DBGrid1, DBNavigator1.

C помощью DBLookupComboBox1 осуществляется выбор имени файла, в котором хранится изображение осциллограммы. Для занесения в DBLookupComboBox1 значений выбора используется DataSource2, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query2, который генерирует запрос:

select osc from oscillograma

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

procedure TForm3.DBLookupComboBox1Click(Sender: TObject);

begin

Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\Oscillograms\'+Form3.DBLookupComboBox1.KeyValue);

end;

C помощью DBLookupComboBox2 осуществляется выбор имени папки, в которой хранятся изображения осциллограмм. Для занесения в DBLookupComboBox2 значений выбора используется DataSource3, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query3, который генерирует запрос:

select nazvanie from oscillograma

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

procedure TForm3.DBLookupComboBox2Click(Sender: TObject);

begin

Form3.OpenDialog1.InitialDir:='C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\'+Form3.DBLookupComboBox2.KeyValue;

if(OpenDialog1.Execute) then

Image1.Picture.LoadFromFile(OpenDialog1.FileName);

end;

C помощью кнопки Button1, имеющей свойство Caption: «добавить», осуществляется добавление данных в таблицу «Oscillograma». Пользователь нажимает кнопку «добавить», в ответ на это запускается форма Form9 (описание смотрим ниже). Процедура, с помощью которой реализуется вызов формы Form9 и задание свойств объектов формы:

procedure TForm3.Button1Click(Sender: TObject);

begin

flag:=1;

form9.Edit1.Text:=' ';

form9.Edit2.Text:=' ';

form9.Edit3.Text:=' ';

form9.Edit4.Text:=' ';

form9.ShowModal;

end;

C помощью кнопки Button2, имеющей свойство Caption: «изменить», осуществляется изменение данных в таблице «Oscillograma». Пользователь нажимает кнопку «изменить», в ответ на это запускается форма Form9. Процедура, с помощью которой реализуется вызов формы Form9 и задание свойств ее объектов:

procedure TForm3.Button2Click(Sender: TObject);

begin

flag:=2;

form9.Edit2.Text:= Query1.FieldByName('NOMER_OPITA').Value;

form9.Edit3.Text:=Query1.FieldByName('NAZVANIE').Value;

form9.Edit4.Text:=Query1.FieldByName('OSC').Value;

form9.Edit1.Enabled:=false;

form9.ShowModal;

end;

C помощью кнопки Button3, имеющей свойство Caption: «удалить», осуществляется удаление данных из таблицы «Oscillograma». Пользователь нажимает кнопку «удалить», в ответ на это данные удаляются из базы данных. Процедура, с помощью которой реализуется функция удаления:

procedure TForm3.Button3Click(Sender: TObject);

begin

if MessageDlg('Удалить данные о размыкателе',mtConfirmation, [mbYes,mbNo],0)=mrYes then

begin

StoredProcDel.ParamByName('nom').Value:=Query1.FieldByName('nomer_osc').Value;

StoredProcDel.ExecProc;

Query1.Close;

Query1.Open;

end;

end;

С помощью компонента StoredProcDel осуществляется загрузка хранимой процедуры, которая отвечает за удаление данных из таблицы «Oscillograma».

С помощью компонента DBNavigator1 осуществляется перемещение по таблице DBGrid1.

Конечным результатом работы формы является:

1) сделан выбор осциллограммы:

2) сделан выбор папки с файлами, содержащими осциллограммы, и открыта нужная папка:

3) пользователь сделал выбор файла и нажал кнопку «Открыть»:

4) нажата кнопка «добавить»:

5) нажата кнопка «OK»:

6) нажата кнопка «изменить» и внесены необходимые изменения:

7) нажата кнопка «OK»:

8) нажата кнопка «удалить»:

Программа ожидает подтверждения от пользователя.

9) нажата кнопка «Yes»:

Г) Форма Form4

На форме расположены следующие компоненты: DBGrid1 класса TDBGrid из библиотеки Data Controls, DataSource1, DataSource2, DataSource3, DataSource4 класса TdataSource библиотеки Data Access, DBNavigator1 класса TDBNavigator из библиотеки Data Controls, Query1, Query2, Query3, Query4 класса Tquery из библиотеки BDE, DBLookupComboBox1, DBLookupComboBox2, DBLookupComboBox3 класса TDBLookupComboBox, Image1 класса Timage из библиотеки Additional, OpenDialog1 класса TopenDialog из библиотеки Dialogs, Label1, Label2, Label3 класса TLabel библиотеки Standart, Button1, Button2, Button3 класса TButton библиотеки Standart, StoredProcDel класса TStoredProc из библиотеки BDE.

Данные из базы данных отображаются с помощью компонента DBGrid1. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

select *from OPIT

DataSource1 является источником данных для DBGrid1, DBNavigator1.

C помощью DBLookupComboBox1 осуществляется выбор имени файла, в котором хранится карта опыта . Для занесения в DBLookupComboBox1 значений выбора используется DataSource2, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query2, который генерирует запрос:

select karta_opita from opit

После того, как пользователь осуществит выбор имени файла, с помощью компонента OpenDialog1 будет открыт файл в MS Word, в котором хранится карта опыта. Это осуществляется с помощью процедуры:

procedure TForm4.DBLookupComboBox1Click(Sender: TObject);

var

f: Variant;

begin

f:=CreateOleObject('Word.Application');

f.Visible:=true;

f.Documents.Open('C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\Results_doc\'+ Form4.DBLookupComboBox1.KeyValue);

end;

C помощью DBLookupComboBox2 осуществляется выбор имени файла, в котором хранятся результаты опыта. Для занесения в DBLookupComboBox2 значений выбора используется DataSource3, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query3, который генерирует запрос:

select resulttif from opit

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

procedure TForm4.DBLookupComboBox2Click(Sender: TObject);

begin

OpenDialog1.InitialDir:='C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\Results_tif\';

OpenDialog1.FileName:='C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\Results_tif\'+ Form4.DBLookupComboBox2.KeyValue;

if(OpenDialog1.Execute) then

Image1.Picture.LoadFromFile(OpenDialog1.FileName);

end;

C помощью DBLookupComboBox3 осуществляется выбор имени файла, в котором хранятся результаты опыта. Для занесения в DBLookupComboBox3 значений выбора используется DataSource4, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query4, который генерирует запрос:

select GRAPHPROIZVTOKAVNAGR from opit

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

procedure TForm4.DBLookupComboBox3Click(Sender: TObject);

begin

Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\Дипломный проект Власов С.Ю\bd_stend_2013\'+Form4.DBLookupComboBox3.KeyValue);

end;

C помощью кнопки Button1, имеющей свойство Caption: «добавить», осуществляется добавление данных в таблицу «Opit». Пользователь нажимает кнопку «добавить», в ответ на это запускается форма Form10 (описание смотрим ниже). Процедура, с помощью которой реализуется вызов формы Form10 и задание свойств объектов формы:

procedure TForm4.Button1Click(Sender: TObject);

begin

flag:=1;

form10.Edit1.Text:=' ';

form10.DateTimePicker1.Date:=Now;

form10.Edit3.Text:=' ';

form10.Edit4.Text:=' ';

form10.Edit5.Text:=' ';

form10.Edit6.Text:=' ';

form10.Edit7.Text:=' ';

form10.Edit8.Text:=' ';

form10.Edit9.Text:=' ';

form10.Edit9.Text:=' ';

form10.Edit10.Text:=' ';

form10.Edit11.Text:=' ';

form10.Edit12.Text:=' ';

form10.Edit13.Text:=' ';

form10.Edit14.Text:=' ';

form10.Edit15.Text:=' ';

form10.Edit16.Text:=' ';

form10.ShowModal;

end;

C помощью кнопки Button2, имеющей свойство Caption: «изменить», осуществляется изменение данных в таблице «Opit». Пользователь нажимает кнопку «изменить», в ответ на это запускается форма Form10. Процедура, с помощью которой реализуется вызов формы Form10 и задание свойств ее объектов:

procedure TForm4.Button2Click(Sender: TObject);

begin

flag:=2;

form10.DateTimePicker1.Date:=

Query1.FieldByName('DATA_OPITA').Value;

form10.Edit3.Text:=Query1.FieldByName('KARTA_OPITA').Value;

form10.Edit4.Text:=Query1.FieldByName('NOMER_RAZ').Value;

form10.Edit5.Text:=Query1.FieldByName('RAZRKONTR').Value;

form10.Edit6.Text:=Query1.FieldByName('KONTRNAGR').Value;

form10.Edit7.Text:=Query1.FieldByName('RAZRYVTOK').Value;

form10.Edit8.Text:=Query1.FieldByName('NACHTOKVNAG').Value;

form10.Edit9.Text:=Query1.FieldByName('TOKVNAG').Value;

form10.Edit10.Text:=Query1.FieldByName('PROIZVTOK').Value;

form10.Edit11.Text:=Query1.FieldByName('SHIRINANAPOLVYS').Value;

form10.Edit12.Text:=Query1.FieldByName('CHARVREM').Value;

form10.Edit13.Text:=Query1.FieldByName('DONACHRAZ').Value;

form10.Edit14.Text:=Query1.FieldByName('DOVYCHNAPOV').Value;

form10.Edit15.Text:=Query1.FieldByName('GRAPHPROIZVTOKAVNAGR').Value;

form10.Edit15.Text:=Query1.FieldByName('RESULTTIF').Value;

form10.Edit1.Enabled:=false;

form10.ShowModal;

end;

C помощью кнопки Button3, имеющей свойство Caption: «удалить», осуществляется удаление данных из таблицы «Opit». Пользователь нажимает кнопку «удалить», в ответ на это данные удаляются из базы данных. Процедура, с помощью которой реализуется функция удаления:

procedure TForm4.Button3Click(Sender: TObject);

begin

if MessageDlg('Удалить данные о размыкателе',mtConfirmation, [mbYes,mbNo],0)=mrYes then

begin

StoredProcDel.ParamByName('nom').Value:=Query1.FieldByName('nomer_opita').Value;

StoredProcDel.ExecProc;

Query1.Close;

Query1.Open;

end;

end;

С помощью компонента StoredProcDel осуществляется загрузка хранимой процедуры, которая отвечает за удаление данных из таблицы «Opit».

С помощью компонента DBNavigator1 осуществляется перемещение по таблице DBGrid1.

Конечным результатом работы формы является:

1) сделан выбор карты опыта:

2) выбран файл результатов опыта:

3) выбран файла, где хранится график производной тока:

4) нажата кнопка «добавить»:

5) нажата кнопка «OK»:

6) нажата кнопка «изменить»:

7) нажата кнопка «OK»:

8) нажата кнопка «удалить»:

9) нажата кнопка «Yes»:

Д) Форма Form5

На форме расположены следующие компоненты: Query1 класса TQuery из библиотеки BDE, DBChart1 класса TDBChart из библиотеки Data Controls.

C помощью компонента DBChart1 строится диаграмма. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

select razmykatel.tip, count (opit.nomer_opita) from opit, razmykatel where (razmykatel.nomer_raz=opit.nomer_raz) group by razmykatel.tip

Конечным результатом работы формы является:

Е) Форма Form6

На форме расположены следующие компоненты: DBGrid1 класса TDBGrid из библиотеки Data Controls, DataSource1, DataSource2, DataSource3 класса TDataSource библиотеки Data Access, DBNavigator1 класса TDBNavigator из библиотеки Data Controls, Query1, Query2, Query3 класса TQuery из библиотеки BDE, DBLookupComboBox1, DBLookupComboBox2 класса TDBLookupComboBox, Label1, Label2, Label3, Label4, Label5 класса TLabel из библиотеки Standart, DateTimePicker1, DateTimePicker1, DateTimePicker2 класса T DateTimePicker из библиотеки Win32, Button1 класса TButton из библиотеки Standart .

Данные из базы данных отображаются с помощью компонента DBGrid1. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

Select * from opit, oscillograma, razmykatel where (opit.nomer_opita=

oscillograma.nomer_opita) and (opit.nomer_raz=razmykatel.nomer_raz)

and (opit.DATA_OPITA>=:D1 and opit.DATA_OPITA<=:D2) and (razmykatel.tip=:m) and (opit.CHARVREM=:n) order by opit.DATA_OPITA, opit.CHARVREM DESC

DataSource1 является источником данных для DBGrid1, DBNavigator1.

С помощью компонентов DateTimePicker1, DateTimePicker2 пользователь осуществляет выбор диапазона дат, в пределах которого пользователь желает увидеть результаты опытов.

C помощью DBLookupComboBox1 осуществляется выбор типа размыкателя. Для занесения в DBLookupComboBox1 значений выбора используется DataSource2, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query2, который генерирует запрос:

Select tip from razmykatel group by tip

C помощью DBLookupComboBox2 осуществляется выбор характерного времени. Для занесения в DBLookupComboBox2 значений выбора используется DataSource3, для определения тех, значений, из которых пользователь будет делать выбор предназначен компонент Query3, который генерирует запрос:

Select opit.CHARVREM from opit group by CHARVREM

После того, как пользователь осуществит выбор диапазона дат и значение характерного времени, типа размыкателя, с помощью компонента DBGrid1 будет отображен результат запроса, сгенерированного в Query1. Это осуществляется с помощью процедуры, которая реализуется, когда пользователь нажимает кнопку «Результат запроса» (компонент Button1):

procedure TForm6.Button1Click(Sender: TObject);

begin

Query1.Close;

Query1.ParamByName('D1').Value:=Form6.DateTimePicker1.Date;

Query1.ParamByName('D2').Value:=Form6.DateTimePicker2.Date;

Query1.ParamByName('m').Value:=Form6.DBLookupComboBox1.KeyValue;

Query1.ParamByName('n').Value:=Form6.DBLookupComboBox2.KeyValue;

Query1.Open;

end;

С помощью компонента DBNavigator1 осуществляется перемещение по таблице DBGrid1.

Конечным результатом работы формы является:

1) выбран диапазон дат и характерное время, тип размыкателя:

Ж) Форма Form7

На форме расположены следующие компоненты: Query1 класса TQuery из библиотеки BDE, QRLabel1: QRLabel11 класса TQRLabel, QRDBText1:QRDBText11 класса TQRDBText, QRBand1 класса TQRBand, QuickRep1 класса TQuickRep из библиотеки QReport .

Данные из базы данных отображаются с помощью компонента QuickRep1. Данные, которые необходимо загрузить определяются с помощью компонента Query1. Query1 генерирует запрос:

select opit.nomer_opit a, opit.data_opita, razmykatel.tip, razmykatel.folga, razmykatel.podlogka, razmykatel.vv, razmykatel.razmery_folgi, razmykatel.razmery_podlogki, razmykatel.razmery_vv, opit.proizvtok, opit.charvrem from opit, razmykatel where (opit.nomer_raz=razmykatel.nomer_raz)

Для компонентов QRDBText устанавливаются свойства: DataSet - Query1, DataField - название поля, например, nomer_opita.

Конечным результатом работы формы является:

З) Форма Form8

На форме расположены следующие компоненты: Label1:Label9 класса TLabel из библиотеки Standart, Edit1:Edit9 класса TEdit из библиотеки Standart, Button1, Button2 класса TButton из библиотеки Standart, StoredProcIns и StoredProcUpd класса TStoredProc из библиотеки BDE.

Компоненты Edit1:Edit9 служат для ввода пользователем информации.

Компонент Button1, свойство которого Caption - OK, запускает процедуру обработки информации, которую ввел пользователь и добавление этой информации в базу данных или внесения изменений в содержимое базы данных:

procedure TForm8.Button1Click(Sender: TObject);

begin

if (flag=1) then

begin

StoredProcIns.ParamByName('nom').Value:=Edit1.Text;

StoredProcIns.ParamByName('er').Value:=Edit2.Text;

StoredProcIns.ParamByName('tr').Value:=Edit3.Text;

StoredProcIns.ParamByName('f').Value:=Edit4.Text;

StoredProcIns.ParamByName('p').Value:=Edit5.Text;

StoredProcIns.ParamByName('vv').Value:=Edit6.Text;

StoredProcIns.ParamByName('rf').Value:=Edit7.Text;

StoredProcIns.ParamByName('rp').Value:=Edit8.Text;

StoredProcIns.ParamByName('svv').Value:=Edit9.Text;

StoredProcIns.ExecProc;

Form2.Query1.Close;

Form2.Query1.Open;

Close;

end;

if (flag=2) then

begin

StoredProcUpd.ParamByName('nom').Value:=Form2.Query1.FieldByName('nomer_raz').Value;

StoredProcUpd.ParamByName('er').Value:=Edit2.Text;

StoredProcUpd.ParamByName('tr').Value:=Edit3.Text;

StoredProcUpd.ParamByName('f').Value:=Edit4.Text;

StoredProcUpd.ParamByName('p').Value:=Edit5.Text;

StoredProcUpd.ParamByName('vv').Value:=Edit6.Text;

StoredProcUpd.ParamByName('rf').Value:=Edit7.Text;

StoredProcUpd.ParamByName('rp').Value:=Edit8.Text;

StoredProcUpd.ParamByName('svv').Value:=Edit9.Text;

StoredProcUpd.ExecProc;

Form2.Query1.Close;

Form2.Query1.Open;

Edit1.Enabled:=true;

Close;

end;

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

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

Компонент Button2, свойство которого Caption - Закрыть, запускает процедуру, обеспечивающую закрытие формы:

procedure TForm8.Button2Click(Sender: TObject);

begin

Edit1.Enabled:=true;

Close;

end;

И) Форма Form9

На форме расположены следующие компоненты: Label1:Label4 класса TLabel из библиотеки Standart, Edit1:Edit4 класса TEdit из библиотеки Standart, Button1, Button2 класса TButton из библиотеки Standart, StoredProcIns и StoredProcUpd класса TStoredProc из библиотеки BDE.

Компоненты Edit1:Edit4 служат для ввода пользователем информации.

Компонент Button1, свойство которого Caption - OK, запускает процедуру обработки информации, которую ввел пользователь и добавление этой информации в базу данных или внесения изменений в содержимое базы данных:

procedure TForm9.Button1Click(Sender: TObject);

begin

if (flag=1) then

begin

StoredProcIns.ParamByName('nom').Value:=StrToInt(Edit1.Text);

StoredProcIns.ParamByName('nomo').Value:=StrToInt(Edit2.Text);

StoredProcIns.ParamByName('n').Value:=Edit3.Text;

StoredProcIns.ParamByName('osc').Value:=Edit4.Text;

StoredProcIns.ExecProc;

Form3.Query1.Close;

Form3.Query1.Open;

Close;

end;

if (flag=2) then

begin

StoredProcUpd.ParamByName('nom').Value:=Form3.Query1.FieldByName('nomer_osc').Value;

StoredProcUpd.ParamByName('nomo').Value:=StrToInt(Edit2.Text);

StoredProcUpd.ParamByName('n').Value:=Edit3.Text;

StoredProcUpd.ParamByName('osc').Value:=Edit4.Text;

StoredProcUpd.ExecProc;

Form3.Query1.Close;

Form3.Query1.Open;

Edit1.Enabled:=true;

Close;

end;

end;

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

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

Компонент Button2, свойство которого Caption - Закрыть, запускает процедуру, обеспечивающую закрытие формы:

procedure TForm9.Button2Click(Sender: TObject);

begin

Edit1.Enabled:=true;

Close;

end;

Й) Форма Form10

На форме расположены следующие компоненты: Label1:Label16 класса TLabel из библиотеки Standart, Edit1, Edit2:Edit16 класса TEdit из библиотеки Standart, DateTimePicker1 класса TDateTimePicker из библиотеки Win32, Button1, Button2 класса TButton из библиотеки Standart, StoredProcIns и StoredProcUpd класса TStoredProc из библиотеки BDE.

Компоненты Edit1, Edit3:Edit16, DateTimePicker1 служат для ввода пользователем информации.

Компонент Button1, свойство которого Caption - OK, запускает процедуру обработки информации, которую ввел пользователь и добавление этой информации в базу данных или внесения изменений в содержимое базы данных:

procedure TForm10.Button1Click(Sender: TObject);

begin

if (flag=1) then

begin

StoredProcIns.ParamByName('nom').Value:=StrToInt(Edit1.Text);

StoredProcIns.ParamByName('dop').Value:=DateTimePicker1.Date;

StoredProcIns.ParamByName('ko').Value:=Edit3.Text;

StoredProcIns.ParamByName('nr').Value:=Edit4.Text;

StoredProcIns.ParamByName('rk').Value:=Edit5.Text;

StoredProcIns.ParamByName('kn').Value:=Edit6.Text;

StoredProcIns.ParamByName('rt').Value:=Edit7.Text;

StoredProcIns.ParamByName('nt').Value:=Edit8.Text;

StoredProcIns.ParamByName('tn').Value:=Edit9.Text;

StoredProcIns.ParamByName('pt').Value:=Edit10.Text;

StoredProcIns.ParamByName('sn').Value:=Edit11.Text;

StoredProcIns.ParamByName('cv').Value:=Edit12.Text;

StoredProcIns.ParamByName('dc').Value:=Edit13.Text;

StoredProcIns.ParamByName('dov').Value:=Edit14.Text;

StoredProcIns.ParamByName('gp').Value:=Edit15.Text;

StoredProcIns.ParamByName('rti').Value:=Edit16.Text;

StoredProcIns.ExecProc;

Form4.Query1.Close;

Form4.Query1.Open;

Close;

end;

if (flag=2) then

begin

StoredProcUpd.ParamByName('nom').Value:=Form4.Query1.FieldByName('nomer_opita').Value;

StoredProcUpd.ParamByName('dop').Value:=DateTimePicker1.Date;

StoredProcUpd.ParamByName('ko').Value:=Edit3.Text;

StoredProcUpd.ParamByName('nr').Value:=Edit4.Text;

StoredProcUpd.ParamByName('rk').Value:=Edit5.Text;

StoredProcUpd.ParamByName('kn').Value:=Edit6.Text;

StoredProcUpd.ParamByName('rt').Value:=Edit7.Text;

StoredProcUpd.ParamByName('nt').Value:=Edit8.Text;

StoredProcUpd.ParamByName('tn').Value:=Edit9.Text;

StoredProcUpd.ParamByName('pt').Value:=Edit10.Text;

StoredProcUpd.ParamByName('sn').Value:=Edit11.Text;

StoredProcUpd.ParamByName('cv').Value:=Edit12.Text;

StoredProcUpd.ParamByName('dc').Value:=Edit13.Text;

StoredProcUpd.ParamByName('dov').Value:=Edit14.Text;

StoredProcUpd.ParamByName('gp').Value:=Edit15.Text;

StoredProcUpd.ParamByName('rti').Value:=Edit16.Text;

StoredProcUpd.ExecProc;

Form4.Query1.Close;

Form4.Query1.Open;

Edit1.Enabled:=true;

Close;

end;

end;

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

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

Компонент Button2, свойство которого Caption - Закрыть, запускает процедуру, обеспечивающую закрытие формы:

procedure TForm10.Button2Click(Sender: TObject);

begin

Edit1.Enabled:=true;

Close;

end;

Глава 3. Экономическая часть. Расчет себестоимости разработки программного обеспечения

3.1 Расчет заработной платы исполнителя работ по созданию программного продукта и заработной платы руководителя

Начальные условия:

Расчетный период - 4 месяца.

Число рабочих дней - 74 дня.

Оклад исполнителя - 9600 рублей.

Ставка подоходного налога - 13%.

Ставка страховых взносов - 30%.

Отчисление на накопительную часть пенсии - 1000 рублей.

Зональная надбавка - 20%.

Интегрированная стимулирующая надбавка - 2600 рублей.

Расчет:

Подоходный налог = (оклад исполнителя + оклад исполнителя * зональная надбавка + интегрированная стимулирующая надбавка) * ставка подоходного налога = (9600 рублей / 21 день * 74 дня + (9600 рублей / 21 день *74 дня) * 0,2 + 2600 рублей / 21 день * 74 дня) * 0,13 = 6468,3 рублей.

К выдаче: оклад исполнителя + оклад исполнителя * зональная надбавка + интегрированная стимулирующая надбавка - подоходный налог = (9600 рублей / 21 день * 74 дня + (9600 рублей / 21 день *74 дня) * 0,2 + 2600 рублей / 21 день * 74 дня) - 6468,3 рублей = 43287,9 рубля.

Страховые взносы: (оклад исполнителя + оклад исполнителя * зональная надбавка + интегрированная стимулирующая надбавка) * 0,3 = 14926,9 рублей.

Все взносы: страховые взносы + отчисление на накопительную часть пенсии = 14926,9 рублей + 1000 рублей * 4 месяца = 18926,9 рублей.

Зарплата руководителя - 12000 рублей.

Подоходный налог - 12000 рублей * 0,13 = 1560 рублей.

Страховые взносы - 12000 рублей*0,3 = 3600 рублей

3.2 Расчет себестоимости

база данные информация хранение

Плановая калькуляция (фактическая) себестоимости выполнения программного обеспечения информационного сопровождения деятельности лаборатории.

Основание: задание на дипломное проектирование

Заказчик: РФЯЦ ВНИИЭФ отд. 7132

Сроки выполнения: начало - 18.03.2013, окончание - 07.07.2013

Плановая калькуляция:

№	Наименование статьи	Сумма, руб.	Обоснование
1.	Заработная плата (основная)	61756,2
2.	Заработная плата (дополнительная)	6175,62	10% от п.1
3.	Страховые взносы	18526,86	30% от п.1+п.2
4.	Накладные расходы отделения	30013,51	48,6% от п.1+п.2
5.	Обще-объектовые расходы	46934,71	76% от п.1+п.2
6.	Производственная себестоимость продукции	163406,9	сумма п.1-п.5

Таблица 1. Плановая калькуляция.

Себестоимость программного продукта составляет 163406,9 рубля.

3.3 Оценка экономической эффективности разработки

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

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

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

В конечном результате это способствует: экономии электроэнергии,

экономии материалов, экономии вложения капитала, улучшению условий труда и т. д.

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

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

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

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

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

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

Экономический эффект разработки программного продукта образуется за счет экономии времени, необходимого на обработку того же объема документов вручную.

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

Функция	Частота в год	Среднее время (час в месяц)
		Без использования программы	С использованием программы
Поиск информации	50	6	1,5
Добавление/Изменение информации	30	5	3
Отчеты	12	1,5	0,10
Общее время выполнения комплекса функций	92	12,5	4,60

Таблица 2. Комплекс функций, выполняемых программой

Экономия рабочего времени сотрудника за год составит 726,8 часа.

Расчет годовой экономии (Показатели расчета представлены в таблице 3).

Годовая экономия, рассчитывается по формуле:

Эгод = (Сбаз - Снов)*Ргод

Сбаз - эксплуатационные затраты в базовом варианте

Снов - эксплуатационные затраты в новом варианте

Затраты в базовом варианте, рассчитываются по формуле:

Сбаз = Тр*Ср

Затраты в новом варианте, рассчитываются по формуле:

Снов = Та*Ср

Часовая тарифная ставка разработчика рассчитывается по формуле:

(руб./час)

- месячный оклад разработчика (9600 руб.);

-месячный фонд времени работы разработчика (168 часов);

- зональный коэффициент (1,2).

Таким образом, часовая тарифная ставка разработчика равна 57,14 руб./час.

Показатель	Ед.измерения	Значение	Применение
Р	раз	92	Частота использования программы
Тр	час	12,5	Время выполнения функций без использования программы
Ср	руб.	57,14	Часовая тарифная ставка разработчика
Та	час	4,60	Время выполнения функций с использованием программы
Эгод	руб.	41529,4	Экономия в год

Таблица 3. Показатели расчета для экономии

Годовая экономия при внедрении программного обеспечения составит

41529,4 рублей.

3.4 Оценка окупаемости вложенных средств

Для оценки окупаемости необходимо определить срок окупаемости (расчет представлен в таблице 4).

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

Ток = С/Э

Показатель	Ед.измерения	Значение	Примечание
С	руб.	163406,9	Себестоимость
Э	руб.	41529,4	Экономия в год
Ток	год	3,93	Срок окупаемости

Таблица 4. Срок окупаемости капитальных вложений

Срок окупаемости составляет 3,93 года.

3.5 Экономическая эффективность разработки

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

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

Внедрение программного обеспечения приведет к экономии средств в размере 41529,4 рублей и высвобождению за год 726,8 часа рабочего времени сотрудника, занимающегося учетом результатов опытов. Высвобожденное время сотрудника можно сократить или дополнить список его должностных обязанностей новыми функциями. Учитывая себестоимость разработки программного обеспечения, срок его окупаемости составит - 3,93 года.

Глава 4. Охрана труда

Данная дипломная работа выполнялась с применением компьютерной техники. Для реализации работы использовался персональный компьютер совместимый с IВМ РС/АТ, дисплей LG, печатающее и копировальное устройства. В связи с этим необходимо оценить соблюдение норм охраны труда, связанных с эксплуатацией средств вычислительной техники.

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

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

Требования безопасности при работе на ПЭВМ регламентируются СанПин 2.2.2/2.4.1340-03. «Инструкция по охране труда при работе на персональных электронных вычислительных машинах № 55».

4.1 Требования к помещениям для работы с ПЭВМ

· Помещения для эксплуатации ПЭВМ должны иметь естественное и искусственное освещение.

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

· Площадь на одно рабочее место пользователей ПЭВМ с ВДТ на базе электронно-лучевой трубки (ЭЛТ) должна составлять 6,0 кв. метров, и с ВДТ на базе плоских дискретных экранов (жидкокристаллические и плазменные) - 4,5 метров.

· При использовании ПЭВМ с ВДТ на базе ЭЛТ (без вспомогательных устройств - принтер, сканер и т. д.), отвечающих требованиям международных стандартов безопасности компьютеров, с продолжительностью работы менее 4-х часов в день допускается минимальная площадь 4,5 кв. метров на одно рабочее место пользователя.

· Для внутренней отделки интерьера помещений, где расположены ПЭВМ, должны использоваться диффузионно-отражающие материалы с коэффициентом отражения для потолка 0,7-0,8, для стен 0,5-0,6, для пола 0,3-0,5.

· Помещения, где размещаются рабочие места ПЭВМ, должны быть оборудованы защитным заземлением ("занулением") в соответствии с техническими требованиями по эксплуатации.

4.2 Требования к микроклимату на рабочих местах, оборудованных ПЭВМ

Период года	Категория работ 1а	Температура воздуха гр. С не более	Относительная влажность воздуха, %	Скорость движения воздуха, м/с
Холодный	легкая - 1а	22-24	40-60	0,1
Теплый	легкая - 1а	23-25	40-60	0,1

Таблица 6. Оптимальные требования микроклимата для помещения

К категории 1а относятся работы, производимые и не требующие физического напряжения, при которых расход энергии составляет до 120 ккал/ч.

4.3 Требования к уровням шума и вибрации на рабочих местах, оборудованных ПЭВМ

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

· Шумящее оборудование (печатающие устройства, плоттеры, серверы, кондиционеры и т. п.) должно размещаться вне помещений с ПЭВМ.

Уровни звукового давления в октавных полосах со среднегеометрическими частотами	Уровни звука в дБА
31,5 Гц	63 Гц	125 Гц	250 Гц	500 Гц	1000 Гц	2000 Гц	4000 Гц	8000 Гц
86 дБ	71дБ	61 дБ	54 дБ	49 дБ	45 дБ	42 дБ	40 дБ	38 дБ	50

Таблица 7. Уровни звукового давления

Измерение уровня звука и уровней звукового давления проводится на расстоянии 50 см от поверхности оборудования и на высоте расположения источника (ков) звука. Шумовой порог не должен превышать 50 дБ.

4.4 Требования к освещению на рабочих местах, оборудованных ПЭВМ

· Рабочие столы следует размещать таким образом, чтобы ВДТ были ориентированы боковой стороной к световым проемам, и естественный свет падал преимущественно слева.

· Искусственное освещение в помещениях для эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения. Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300-500 Люкс. Освещение не должно создавать бликов на поверхности экрана. Освещенность поверхности экрана не должна быть более 300 Люкс.

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

· Следует ограничивать отраженную блесткость на рабочих поверхностях (экран, стол, клавиатура и др.) за счет правильного выбора типов светильников и расположения рабочих мест по отношению к источникам естественного и искусственного освещения, при этом яркость бликов на экране ПЭВМ не должна превышать 40 Кд/кв. метр и яркость потолка не должна превышать 200 Кд/кв. метр.

· Яркость светильников общего освещения в зоне углов излучения от 50 до 90 градусов с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 Кд/кв. метр, защитный угол светильников должен быть не менее 40 градусов.