Автор работы: Пользователь скрыл имя, 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
stringgrid1.cells[pr+3,i]:=
sum:=0;
for i:=1 to chel do
sum:=sum+strtofloat(
stringgrid1.cells[pr+4,i]:=
sum:=0;
for i:=2 to 9 do begin
sr1:=0;
for j:=1 to pr do
sr1:=sr1+strtofloat(
sum:=sum+sr1;
stringgrid1.Cells[pr+2,chel+i]
end;
stringgrid1.Cells[pr+4,chel+3]
stringgrid1.Cells[pr+4,chel+4]
end;
procedure TForm1.Button11Click(Sender: TObject);
var x,c:integer;
Ap : Variant;
begin
Ap := CreateOleObject('Excel.
Ap.Workbooks.Add;
Ap.Cells[4,((pr+3) div 2)]:='СВОДНАЯ ВЕДОМОСТЬ';
Ap.Cells[5,1]:='успеваемости учащихся Пинского ГПТК легкой промышленности';
Ap.Cells[6,((pr+3)
div 2)]:='группа '+combobox1.Text+'
for x:=0 to StringGrid1.RowCount do
for c:=0 to StringGrid1.ColCount do
Ap.Cells[x+7,c+1] :=StringGrid1.Cells[c,x];
Ap.Cells[x+6,1]:='Средний балл по группе';
Ap.Cells[x+6,6]:=floattostr(
Ap.Cells[x+7,1]:='Мастера п/о:';
Ap.Cells[x+8,1]:='Куратор группы:';
Ap.Visible := True;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
form2.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
str:string;
spr:textfile;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
assignfile(spr,'spravka.txt');
reset(spr);
while eof(spr)<>true do begin
readln(spr,str);
label1.Caption:=label1.
end;
end;
end.
Информация о работе Документирования результатов учебной деятельности учреждения образования