Автор работы: Пользователь скрыл имя, 12 Июля 2011 в 12:05, курсовая работа
В процессе дипломной разработки был создана программа «Документирования результатов учебной деятельности учреждения образования» Пинского колледжа легкой промышленности. В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу, проведен анализ условий труда, организации рабочего места пользователя системы. Рассмотрены вопросы экономической эффективности внедрения разработки. Была проведена проверка работоспособности программы.
РЕФЕРАТ 3
ВВЕДЕНИЕ 4
1. НАЗНАЧЕНИЕ И ЦЕЛИ СОЗДАНИЯ СИСТЕМЫ 6
2. ПРОЕКТИРОВАНИЕ ЗАДАЧИ 7
2.1. Обоснование среды разработки 7
2.2 Описание алгоритма решения задачи 8
3. ПРОГРАММА РЕШЕНИЯ ЗАДАЧИ 14
3.1 Логическая модель данных 14
3.2 Физическая модель 17
4. ТЕСТИРОВАНИЕ ПРОГРАММЫ 19
5. ОПИСАНИЕ ПРОГРАММЫ 21
5.1 Вызов и загрузка 21
5.2 Входные данные 21
5.3 Выходные данные 21
5.4 Инсталляция программы 21
5.5 Диалог с пользователем 23
5.6 Система помощи 23
6. РАЗДЕЛ ОХРАНЫ ТРУДА 25
6.1 Описание рабочего места программиста 25
6.2 Освещенность рабочего места 30
6.3 Параметры микроклимата на рабочем месте 34
6.4 Нормирование шума 35
6.5 Методы защиты от шума 36
6.6 Вентиляция 37
6.7 Расчет информационной нагрузки программиста 37
7. ЭКОНОМИЧЕСКИЙ РАЗДЕЛ 42
7.1 Планирование разработки программного продукта 42
7.2 Расчет трудоемкости разработки программного продукта 42
7.3 Составление необходимого перечня работ и ее кодирование 42
7.4 Установка оценок времени продолжительности работ 43
7.5 Расчет себестоимости и цены разработки программного продукта 44
7.6 Методика расчета статей калькуляции 44
7.6.1 Расчет материальных затрат 44
7.6.2 Расчет заработной платы программиста 45
7.6.3 Расчет единого социального налога 46
7.6.4 Расчет накладных расходов 46
7.6.5 Расчет калькуляции затрат на разработку программного продукта 48
7.6.6 Определение цены программного продукта 48
ЗАКЛЮЧЕНИЕ 50
ПРИЛОЖЕНИЕ 1 52
l:=l+1;
combobox2.ItemIndex:=-1;
end
else begin
append(gruppa);
label5.Caption:='Выберите оценку по '+stringgrid1.Cells[l-1,0];
stringgrid1.Cells[l-1,k]:=
s:=s+combobox2.text+' ';
l:=l+1;
combobox2.ItemIndex:=-1;
writeln(gruppa);
write(gruppa,s);
combobox2.Visible:=false;
label5.Visible:=false;
button5.Visible:=false;
button4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
closefile(gruppa);
edit5.Text:='';
if k=chel then begin
combobox1.Enabled:=true;
button1.Enabled:=true;
button4.Visible:=false;
edit5.Visible:=false;
edit6.Visible:=false;
edit7.Visible:=false;
edit8.Visible:=false;
label6.Visible:=true;
button8.Enabled:=true;
for i:=0 to stringgrid1.ColCount do begin
stringgrid1.Cells[i,0]:='';
stringgrid1.Cells[i,1]:=''
end;
stringgrid1.RowCount:=2;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
button10.Visible:=false;
stringgrid1.RowCount:=2;
for i:=0 to stringgrid1.ColCount do begin
stringgrid1.Cells[i,1]:='';
stringgrid1.Cells[i,0]:='';
end;
label1.Visible:=true;
label2.Visible:=true;
label3.Visible:=true;
edit1.Visible:=true;
edit2.Visible:=true;
edit3.Visible:=true;
button2.Visible:=true;
button1.Enabled:=false;
combobox1.Enabled:=false;
button6.Enabled:=false;
label6.Visible:=false;
button8.Enabled:=false;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ss:='';
button6.Enabled:=true;
button11.Enabled:=false;
button10.Visible:=true;
assignfile(gruppa,ComboBox1.
reset(gruppa);
readln(gruppa,s);
readln(gruppa,s);
chel:=strtoint(s);
readln(gruppa,s);
pr:=strtoint(s);
stringgrid1.ColCount:=pr+5;
stringgrid1.RowCount:=2;
stringgrid1.Cells[0,0]:='ФИО';
stringgrid1.Cells[pr+1,0]:='
stringgrid1.Cells[pr+2,0]:='
stringgrid1.Cells[pr+3,0]:='
stringgrid1.Cells[pr+4,0]:='
for i:=1 to pr do begin
readln(gruppa,s);
stringgrid1.Cells[i,0]:=s;
end;
for i:=1 to chel do begin
readln(gruppa,s);
stringgrid1.Cells[0,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+2,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+3,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+4,i]:=s;
readln(gruppa,s);
l:=1;
for k:=1 to length(s) do begin
if s[k]<>' ' then
ss:=ss+s[k]
else begin
stringgrid1.Cells[l,i]:=ss;
l:=l+1;
sr:=sr+strtoint(ss);
ss:='';
end;
end;
stringgrid1.Cells[pr+1,i]:=
sr:=0;
for j:=0 to stringgrid1.ColCount do
stringgrid1.Cells[j,i+1]:='';
stringgrid1.RowCount:=
end;
closefile(gruppa);
stringgrid1.Width:=
for i:=1 to stringgrid1.ColCount do
stringgrid1.Width:=
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
stringgrid1.Options:=[
button1.Enabled:=false;
combobox1.Enabled:=false;
button7.Enabled:=true;
button8.Enabled:=false;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
stringgrid1.Options:=[
button1.Enabled:=true;
button8.Enabled:=true;
combobox1.Enabled:=true;
button7.Enabled:=false;
button6.Enabled:=false;
reset(gruppa);
readln(gruppa,s);
closefile(gruppa);
rewrite(gruppa);
writeln(gruppa,s);
writeln(gruppa,inttostr(chel))
writeln(gruppa,inttostr(pr));
for i:=1 to pr do
writeln(gruppa,stringgrid1.
for i:=1 to chel do begin
s:='';
writeln(gruppa,stringgrid1.
writeln(gruppa,stringgrid1.
writeln(gruppa,stringgrid1.
writeln(gruppa,stringgrid1.
for j:=1 to pr do
s:=s+stringgrid1.cells[j,i]+'
';
writeln(gruppa,s);
end;
closefile(gruppa);
assignfile(gruppa,ComboBox1.
reset(gruppa);
readln(gruppa,s);
readln(gruppa,s);
chel:=strtoint(s);
readln(gruppa,s);
pr:=strtoint(s);
stringgrid1.ColCount:=pr+5;
stringgrid1.RowCount:=2;
stringgrid1.Cells[0,0]:='ФИО';
stringgrid1.Cells[pr+1,0]:='
stringgrid1.Cells[pr+2,0]:='
stringgrid1.Cells[pr+3,0]:='
stringgrid1.Cells[pr+4,0]:='
for i:=1 to pr do begin
readln(gruppa,s);
stringgrid1.Cells[i,0]:=s;
end;
for i:=1 to chel do begin
readln(gruppa,s);
stringgrid1.Cells[0,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+2,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+3,i]:=s;
readln(gruppa,s);
stringgrid1.Cells[pr+4,i]:=s;
readln(gruppa,s);
l:=1;
for k:=1 to length(s) do begin
if s[k]<>' ' then
ss:=ss+s[k]
else begin
stringgrid1.Cells[l,i]:=ss;
l:=l+1;
sr:=sr+strtoint(ss);
ss:='';
end;
end;
stringgrid1.Cells[pr+1,i]:=
sr:=0;
for j:=0 to stringgrid1.ColCount do
stringgrid1.Cells[j,i+1]:='';
stringgrid1.RowCount:=
end;
closefile(gruppa);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
button1.Visible:=true;
button6.Visible:=true;
button7.Visible:=true;
button8.Visible:=true;
button11.Visible:=true;
button12.Visible:=true;
combobox1.Visible:=true;
label6.Visible:=true;
stringgrid1.Visible:=true;
button9.Visible:=false;
label7.Visible:=false;
image1.Visible:=false;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
for i:=1 to 10 do
stringgrid1.Rows[chel+i].
button11.Enabled:=true;
stringgrid1.RowCount:=
stringgrid1.Cells[0,chel+1]:='
stringgrid1.Cells[pr+3,chel+3]
stringgrid1.Cells[pr+3,chel+4]
for i:=1 to pr+1 do begin
sr1:=0;
for j:=1 to chel do begin
ss:=stringgrid1.Cells[i,j];
sr1:=sr1+strtofloat(ss);
end;
stringgrid1.Cells[i,chel+1]:=
d:=sr1/chel;
end;
n:=2;
for i:=10 downto 3 do begin
stringgrid1.RowCount:=
stringgrid1.Cells[0,chel+n]:='
for j:=1 to pr do begin
sr1:=0;
for l:=1 to chel do begin
ss:=stringgrid1.Cells[j,l];
if strtofloat(ss)=i then
sr1:=sr1+1;
end;
stringgrid1.Cells[j,chel+n]:=
end;
n:=n+1;
end;
sum:=0;
for i:=1 to chel do
sum:=sum+strtofloat(
Информация о работе Документирования результатов учебной деятельности учреждения образования