Автор работы: Пользователь скрыл имя, 30 Марта 2014 в 22:04, курсовая работа
Цель. Разработка тестовой программы в системе программирования Delphi 6.0.
Задачей данной работы являлось создание специализированного тестового программного обеспечения, рассчитанного на управление заранее определённой структурой информации и решение вполне определённого и ограниченного круга задач для сотрудников организации, которое одновременно позволяло бы не отвлекаться будущим пользователям на изучение вопросов, связанных с их деятельностью и средствами управления ими.
ВВЕДЕНИЕ 6
1 КОМПЬЮТЕРИЗАЦИЯ ДЕЯТЕЛЬНОСТИ НА ПРЕДПРИЯТИИ 8
1.1 Информационное обеспечение управления предприятием на современном этапе 8
1.2 Содержание и требования, предъявляемые к информации 9
2 СРЕДА DELPHI 6.0 КАК СРЕДСТВО ДЛЯ РАЗРАБОТКИ ПО 11
2.1 Визуальное программирование 11
2.2 Интегрированная среда разработки 12
2.3 Библиотека визуальных компонент 15
2.4 Формы, модули и методы разработки "Two-Way Tools" 19
2.5 Средства программирования на Pascal 20
2.5.1 Краткие сведения о структуре программы 20
2.5.2 Система типов 24 2.5.3 Стандартные процедуры и функции 28
2.5.4 Стандартные функции 31
3 ЭКОНОМИЧЕСКАЯ ЧАСТЬ 33
3.1 Оценка затрат на разработку ПО 33
3.2 Расчёт технических показателей и эффективности проекта 41
3.3 Безопасность жизнедеятельности 42
3.3.1 Характеристика санитарно-гигиенических условий труда 42
3.3.2 Основные требования к искусственному освещению в производственном помещении 46
3.4 Инженерно-технические мероприятия по созданию благоприятных условий труда 46
ЗАКЛЮЧЕНИЕ 52
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 53
ПРИЛОЖЕНИЯ 55
Table1.Last;
DatabaseName:=ExtractFilePath(
TableName:='File' + Table1Ind.AsString + '.DB';
TableType:=ttParadox;
with FieldDefs do
begin
Add('Quest_M', ftFmtMemo);
Add('Quest_B', ftBlob);
Add('Answer', ftInteger);
end;
CreateTable;
end;
Table2.DatabaseName := ExtractFilePath(Application.
Table2.TableName := 'File' + Table1Ind.AsString + '.DB';
Table2.Active := true;
Gauge1.MaxValue := Table.Rows.Count;
Panel3.Visible := true;
for iRec := 1 to Table.Rows.Count do
Table2.Append;
Table2Quest_M.AsVariant := Table.Cell(iRec, 1).Range.FormattedText;
CellText := Table.Cell(iRec, 2).Range.FormattedText;
for i := 1 to Length(CellText) do
begin
if (CellText[i] in ['1'..'5']) then
begin
Table2Answer.AsInteger := StrToInt(CellText[1]);
break;
end;
Table2Answer.AsInteger := 3;
end;
Table2.Post;
Application.ProcessMessages;
Gauge1.AddProgress(1);
end;
Table2.Active := false;
Panel3.Visible:=false;
Gauge1.Progress := 0;
end;
end;
MSWord.Quit;
end;
end;
end.
Информация о работе Компьютеризация деятельности на предприятии