Автор: Пользователь скрыл имя, 02 Апреля 2013 в 10:14, дипломная работа
В настоящее время трудно себе представить организацию или предприятие без вычислительной техники. Она настолько плотно вошла в нашу жизнь, что стала так же привычна, как письменные принадлежности или иные подсобные средства. Некоторые организации насчитывают до нескольких сотен компьютеров различной конфигурации.
ВВЕДЕНИЕ……………………………………………………………………………………...4
1. АНАЛИЗ ИСХОДНЫХ ДАННЫХ И ПОСТАНОВКА ЗАДАЧИ…………………...…6
1.1 Анализ предметной области……………………………………………………….6
1.2 Анализ аналогов и прототипов…………………………………………….……6
1.3 Перечень задач, подлежащих решению в процессе разработки……………6
1.4 Входная, постоянная, выходная информации…………………………….…..7
2 ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ…………………………8
2.1 Выбор и обоснование средств и методов решения для реализации проекта………………………………………………………………………………......8
2.2 Функциональные назначения программного обеспечения…………………9
2.3 Логическая модель данных………………………………………………….…10
3 РЕАЛИЗАЦИЯ И ТЕСТИРОВАНИЕ………………………………………………….....13
4 ЭКОНОМИЧЕСКАЯ ЧАСТЬ……………………………………………………………..14
4.1 Правовые аспекты использования программного обеспечения……………14
4.1.1 Правовая охрана информации………………………………………………...14
4.1.2 Лицензионные, условно бесплатные и бесплатные программы……….15
4.2 Расчет себестоимости разработанного программного продукта…………16
4.2.1 Общие сведения………………………………………………………….……..16
4.2.2 Расчет себестоимости программного продукта……………………………18
5 ОХРАНА ТРУДА…………………………………………………………………..………..24
5.1 Требования к освещению помещений и рабочих мест………………..……18
5.2 Расчёт искусственного освещения рабочего места…………………..……...25
ЗАКЛЮЧЕНИЕ……………………………………………………………………..…………28
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ………………………………..…………29
ПРИЛОЖЕНИЕ А Техническое задание…………………………………….………...…..30
ПРИЛОЖЕНИЕ Б Описание программы………………………………………………....33
ПРИЛОЖЕНИЕ В Программа и методика испытания…………………………….…....35
ПРИЛОЖЕНИЕ Г Руководство оператора……………………………………………..…37
ПРИЛОЖЕНИЕ Д Содержание электронного носителя…………………….…………..44
ПРИЛОЖЕНИЕ Ж Диаграмма вариантов использования……………………………..45
ПРИЛОЖЕНИЕ К Диаграмма компонентов……………………………………………...46
ПРИЛОЖЕНИЕ Л Листинг программных модулей……………………………….…….48
ДОПОЛНЕНЕНИЕ К ПУНКТУ 1.2 Анализ аналогов и прототипов……95
Form13.mess.Text:=messag.Text;
form13.Show;
// MessageDlg(messag.Text,
{ icon1.BalloonTitle:='
icon1.BalloonHint:=messag.
Icon1.BalloonFlags:=bfInfo;
icon1.ShowBalloonHint }
end;
if FileExists(form4.edpat.Text+
begin
locclos.Lines.LoadFromFile(
h:=findwindow(nil,PChar(
if h<>null then
PostMessage(h,WM_CLOSE,0,0);
DeleteFile(form4.edpat.Text+
end;
if FileExists(form4.edpat.Text+
begin
locproc.Lines.LoadFromFile(
closs(locproc.Text);
DeleteFile(form4.edpat.Text+
end;
// записываем приложения и
Изм.
Лист
№ докум.
Подпись
Дата
Лист
70
ДП 509000.10101 ПЗ
if FileExists(form4.edpat.Text+
begin
dopspis.Lines.LoadFromFile(
rem:=dopspis.Text;
int:=StrToInt(rem[2]);
POS:=StrToInt(rem[1]);
Delete(rem,1,3);
case int of
0 : begin
ed_1.Text:=rem;
if POS=0 then h_1.Checked:=True else h_1.Checked:=False;
end;
1 : begin
ed_2.Text:=rem;
if POS=0 then h_2.Checked:=True else h_2.Checked:=False;
end;
2 : begin
ed_3.Text:=rem;
if POS=0 then h_3.Checked:=True else h_3.Checked:=False;
end;
3 : begin
ed_4.Text:=rem;
if POS=0 then h_4.Checked:=True else h_4.Checked:=False;
end;
4 : begin
ed_5.Text:=rem;
if POS=0 then h_5.Checked:=True else h_5.Checked:=False;
end;
end;
DeleteFile(form4.edpat.Text+
end;
// запись процессов
if FileExists(form4.edpat.Text+
Изм.
Лист
№ докум.
Подпись
Дата
Лист
ДП 509000.10101 ПЗ
begin
proczag.Items.LoadFromFile(
int2:=StrToInt(proczag.Items.
pos2:=StrToInt(proczag.Items.
//tim:=Strtoint(proczag.Items.
case int2 of
0 : begin
ed0.Text:=proczag.Items.
vr0.Text:=proczag.Items.
SpeedButton5Click(self);
if pos2=1 then
begin
ch0.Checked:=True;
ch0Click(self);
end
else
begin
ch0.Checked:=false;
ch0Click(self);
end;
end;
1 : begin
ed2.Text:=proczag.Items.
vr2.Text:=proczag.Items.
SpeedButton6click(self);
if pos2=1 then
begin
ch2.Checked:=True;
ch2click(self);
end
else
begin
ch2.Checked:=false;
ch2Click(self);
end;
end;
2 : begin
ed3.Text:=proczag.Items.
vr3.Text:=proczag.Items.
SpeedButton7click(self);
if pos2=1 then
begin
ch3.Checked:=True;
ch3click(self);
end else
begin
Изм.
Лист
№ докум.
Подпись
Дата
Лист
72
ДП 509000.10101 ПЗ
ch3.Checked:=false;
ch3Click(self);
end;
end;
3 : begin
ed4.Text:=proczag.Items.
vr4.Text:=proczag.Items.
SpeedButton8click(self);
if pos2=1 then
begin
ch4.Checked:=True;
ch4click(self);
end
&nbs