Документирования результатов учебной деятельности учреждения образования

Автор работы: Пользователь скрыл имя, 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

Файлы: 1 файл

ВВЕДЕНИЕ .doc

— 872.00 Кб (Скачать файл)
tify">s:=s+combobox2.text+' ';

l:=l+1;

combobox2.ItemIndex:=-1;

end

else begin

append(gruppa);

label5.Caption:='Выберите оценку по '+stringgrid1.Cells[l-1,0];

stringgrid1.Cells[l-1,k]:=combobox2.text;

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.text+'.txt');

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]:=floattostr(RoundTo(sr/pr,-2)); 

sr:=0;

for j:=0 to stringgrid1.ColCount do

stringgrid1.Cells[j,i+1]:='';

stringgrid1.RowCount:=stringgrid1.RowCount+1;

end;

closefile(gruppa);

stringgrid1.Width:=stringgrid1.ColWidths[0];

for i:=1 to stringgrid1.ColCount do

stringgrid1.Width:=stringgrid1.Width+stringgrid1.ColWidths[i];

end; 

procedure TForm1.Button6Click(Sender: TObject);

begin

stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goColSizing,goediting];

button1.Enabled:=false;

combobox1.Enabled:=false;

button7.Enabled:=true;

button8.Enabled:=false;

end; 

procedure TForm1.Button7Click(Sender: TObject);

begin

stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goColSizing];

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.cells[i,0]);

for i:=1 to chel do begin

s:='';

writeln(gruppa,stringgrid1.cells[0,i]);

writeln(gruppa,stringgrid1.cells[pr+2,i]);

writeln(gruppa,stringgrid1.cells[pr+3,i]);

writeln(gruppa,stringgrid1.cells[pr+4,i]);

for j:=1 to pr do

s:=s+stringgrid1.cells[j,i]+' '; 

writeln(gruppa,s);

end;

closefile(gruppa);

assignfile(gruppa,ComboBox1.text+'.txt');

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]:=floattostr(RoundTo(sr/pr,-2));

sr:=0;

for j:=0 to stringgrid1.ColCount do

stringgrid1.Cells[j,i+1]:='';

stringgrid1.RowCount:=stringgrid1.RowCount+1;

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].Clear;

button11.Enabled:=true;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

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]:=floattostr(RoundTo(sr1/chel,-2));

d:=sr1/chel;

end;

n:=2;

for i:=10 downto 3 do  begin

stringgrid1.RowCount:=stringgrid1.RowCount+1;

stringgrid1.Cells[0,chel+n]:='"'+inttostr(i)+'"';

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]:=floattostr(sr1);

end;

n:=n+1;

end;

sum:=0;

for i:=1 to chel do

sum:=sum+strtofloat(stringgrid1.cells[pr+3,i]);

Информация о работе Документирования результатов учебной деятельности учреждения образования