Вход

Разработка информационно-обучающей системы правилам промышленной безопасности.

Дипломная работа*
Код 99203
Дата создания 2011
Страниц 97
Источников 24
Мы сможем обработать ваш заказ 25 июня в 10:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
7 680руб.
КУПИТЬ

Содержание

СОДЕРЖАНИЕ
ВВЕДЕНИЕ
1.ОБЗОР РАБОТ ПО РЕШАЕМОЙ ПРОБЛЕМЕ И ПОСТАНОВКА
ЗАДАЧИ
2.ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ
2.1 Создание пространства обучения
2.2 Построение базы знаний информационно-обучающей системы
2.3 Выбор инструментальных средств разработки информационно-обучающей системы
3.РАЗРАБОТКА МЕТОДА ПОИСКА РЕШЕНИЙ
3.1 Разработка алгоритма поиска решений
3.2 Разработка архитектуры информационно-обучающей системы
3.3 Программная реализация системы
4.ИССЛЕДОВАНИЕ И ТЕСТИРОВАНИЕ ИНФОРМАЦИОННО-ОБУЧАЮЩЕЙ СИСТЕМЫ
5.ОХРАНА ТРУДА И ТЕХНИКА БЕЗОПАСНОСТИ ПРИ РАБОТЕ ЗА КОМПЬЮТЕРОМ
5.1 Общие положения
5.2 Эксплуатация ПЭВМ
5.3 Противопожарные мероприятия
5.4 Характеристика условий труда пользователя ПЭВМ
5.5 Требования к помещениям для работы с ПЭВМ
6.ОЦЕНКА ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ РАЗРАБОТКИ КОМПЬЮТЕРНОЙ ПРОГРАММЫ
6.1 Описание программного продукта
6.2 Гарантии и защита потребительских прав
6.3 Оценка рынка сбыта
6.4 Конкуренция
6.5 Ценообразование
6.6 Оценка риска и страхования
6.7 Финансовый план
6. 8. Выводы по результатам разработки бизнес – плана
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
Приложение А Листинг разработанной программы

Фрагмент работы для ознакомления

Это так называемая минимальная цена.Реальную цену назначим 1250 руб.Тогда прибыль после перерасчета составит: 1400/1,2-463,51 =703.16 (92 %).Налог на прибыль составляет 30%, поэтому чистый доход, полученный от реализации одной копии, равен разности между прибылью и налогом на нее и составляет:703.16-0,3703.16= 492,21 руб.6.6 Оценка риска и страхованияНаиболее вероятными рисками могут быть:несанкционированное копирование с целью дальнейшего использования;несанкционированное копирование с целью продажи.Уменьшить степень риска можно с помощью страхования в страховых компаниях. Для предотвращения несанкционированного копирования можно применить электронные ключи. Каждый ключ имеет уникальный код, который совпадает с внутренним кодом программного продукта. Такой ключ будет поставляться потребителю при покупке программного продукта. Работа программы без такого ключа невозможна.6.7 Финансовый планСоставленный финансовый план расходов и доходов охватывает период времени в три года. В таблице 6.4 приведен финансовый план на первый год (помесячно):Таблица 6.4 Карта расходов и доходов за 1-й год (помесячно)Доходы и затратыСумма, рубВсегоянв.февмарапрмайиюниюлавгсеноктноядекОбъем продаж (шт)033710101310710131096доходы от реализации НДС01476,61476,63445,44922,14922,16398,74922,13445,44922,16398,74922,147252,16І. Постоянные затраты, руб.На разра-ботку71584,45На рекламу052,1752,17121,7173,9173,9226,1173,9121,7173,9226,1173,91669,4Всего052,1752,17121,7173,9173,9226,1173,9121,7173,9226,1173,973253,9ІІ. Переменные затраты, рубНа тиражи-рование02132134977107109237104977109237106816Налоги и отчисления071711492132132762131492132762132044Всего8860В таблице 6.5 представлена карта доходов и затрат поквартально за 2-й год продаж.Таблица 6.5 Карта расходов и доходов за 1-й год (поквартально)Доходы и затратыСумма, рубВсегоI кварталIІ кварталІIІ кварталІV кварталОбъем продаж (шт)627303396доходы от реализации НДС3543,8415947,417719,5619491,5256702,59І. Постоянные затраты, руб.На разработку-На рекламу1094595105611632Всего1094595105611632ІІ. Переменные затраты, рубНа тиражи-рование4261917213023436816Налоги и отчис-ления182383.4426702,91363,2Всего4154,17В таблице 6.6 показаны доходы и затраты при реализации программы в течении 3-х лет:Таблица 3.6 -Таблица доходов и затрат за 3 года реализацииДоходы и затратыСумма, рубВсегоНачало реализации1-й год2-й год3-й годОбъем продаж (шт)0978365245доходы от реализации НДС056702,59І. Постоянные затраты, руб.Зарплата разработчиков52249,62---52249,62Материалы1100---1100Отчисления в бюджет18886,37---18886,3Аренда ЭВМ136,8---136,8На рекламу01632145012004282Всего72372,7916321450120076654,79ІІ. Переменные затраты, рубНа тиражи-рование068165832,25455017198,25Налоги и отчис-ления01363,21166,459103439,65Всего08179,26998,69546020637,89На основании анализа финансового плана построим график безубыточности.По графику можно найти точку безубыточности, т.е. объем производства, при котором совокупные расходы и доходы от реализации продукции становятся равными. Дальнейшее увеличение объемов сбыта увеличивает прибыль.Точку безубыточности рассчитаем по формуле 6.9:, (6.9)где Ц – цена одной копии = 1250 руб; Х – количество копий программного продукта, окупающие затраты на разработку; Зпост – условно – постоянные затраты – себестоимость разработки программного продукта = 76654 руб; Зпер – условно–переменные затраты – тиражирование и адаптация одной проданной копии = 1180 руб;Рис.6.1 – График достижения безубыточности разработки.Точка безубыточности х = 65. Следовательно, только после реализации 66ой копий программного продукта, проект станет рентабельным.6. 8. Выводы по результатам разработки бизнес – планаВ результате разработки элементов бизнес плана можно сказать, что созданное ПО оказывается конкурентоспособным продуктом, имеет достаточное количество потенциальных покупателей для покрытия всей совокупности затрат, связанных с его разработкой, внедрением и сопровождением. Указанная цена одной копии программного продукта (99,99 руб.) оказывается приемлемой для потенциальных покупателей.ЗАКЛЮЧЕНИЕВ рамках выполнения дипломной работы, в соответствии с полученным техническим заданием была разработана информационно-обучающая система правилам промышленной безопасности. В рамках работы над этой системой было проанализировано техническое задание на разработку информационно-обучающей системы, разработана его информационная часть, сформированы требования к аппаратной, информационной частям системы, выполнено функциональное проектирование системы.На основании полученных результатов спроектирована информационная часть информационно-обучающей системы по правилам промышленной безопасности, разработано алгоритмическое и программное обеспечение системы проведения тестирующего опроса база данных.С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:Созданная система выполняет все функции, указанные в ТЗ.Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов.При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок.В ходе тестирования на разных конфигурациях было определено, что система способна работать в среде Windows на машине минимальной конфигурацией.ЛИТЕРАТУРААрхангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. - СПб.: Питер,2002.-496 с.Мацяшек Л Анализ требований и проектирование систем. Разработка информационных систем с использованием UML. - М.: Издательский дом «Вильямс», 2002.-432 с.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освіта», 1999.- 186с.Актуальные проблемы качества педагогического образования: материалы науч.-практ. конф., 1 февр. 2002 г. - Новосибирск : НГПУ, 2002. - 214 с.Башмаков А.И., Башмаков И.А. Разработка компьютерных учебников и обучающих систем. – М.: Информационно-издательский дом «Филинъ», 2003.Белов А.А. Система анализа результатов тестирования // Университетское образование: Сборник материалов VIII Междунар. науч.-методич. конф. - Пенза: ПДЗ, 2004. - С.497-498.Бершадский А.М., Кревский И.Г., Вергазов Р.И. Использование компьютерных средств контроля знаний для проведения междисциплинарного экзамена // Университетское образование: Сборник материалов VII Междунар. науч.-методич. конф. - Пенза: ПДЗ, 2003. - С.492-493.Беспалько В.П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск. психол.-соц. Ин-та-Воронеж: Изд-во НПО "МОДЭК", 2002. - 352 с.Васильев В.И., Демидов А.Н., Малышев Н.Г., Тягунова Т.Н. “Методологические правила конструирования компьютерных педагогических тестов”, М., ВТУ, 2000, 64 с.Фридланд А.Я. Информатика и компьютерные технологии. - М.: Астрель, 2002. – 279 с.Челышкова М.Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003.- 440 с.Каймин В.А., Горелов Ю.Н., "Об электронных учебниках по информатике и финансовому менеджменту", / Материалы конференции "Информационные технологии в образовании", Троицк. 1998 г.Смирнов А.Н. Проблемы электронного учебника // "Математика в школе", 2000 год., №5Гиндикин С.Г., Рассказы о физиках и математиках. - 3-е изд., расширенное. М.: МЦНМО, 2001. - 448 с.Приложение АЛистинг разработанной программыunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzDlgBtn, RzButton, ExtCtrls, RzPanel, view, RzLabel, StdCtrls;type Tmainform = class(TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; Label1: TLabel; RzLabel1: TRzLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure RzButton2Click(Sender: TObject); procedure RzButton3Click(Sender: TObject); procedure RzButton4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RzButton1Click(Sender: TObject); procedure RzButton5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TVopros= record tema:integer; soder:string[100]; otvet1:string[50]; otvet2:string[50]; otvet3:string[50]; prav:integer; end; totvet=record FIO:string[20]; Nomer:string[6]; test:string[25]; datetest:string[15]; vsego:word; osh:word; v: array[1..10] of string[1]; end; TVoprosFile = file of TVopros; TOtvetFile = file of TOtvet;var mainform: Tmainform; path,name_file:string; cur_tem,cur_vopros,cur_count:word; vopros:array[1..10] of Tvopros; student, f_student:totvet; //Файловая переменная. gF : TVoprosFile; gf2:TOtvetFile; //Полное имя файла gFileName,gShortFileName : String; gFileName1,gShortFileName1 : String;implementation uses Htmlabt , edit, test;{$R *.dfm}procedure Tmainform.FormCreate(Sender: TObject);begin Left := Left div 2+100;Top := Top div 2;cur_vopros:=0;end;procedure Tmainform.RzButton1Click(Sender: TObject);begin mainform.Visible:=false;// Update; path:=ExtractFilePath(Application.ExeName); name_file:=path+'html\index.html'; htmlform.Viewer.LoadFromFile(name_file); Caption := htmlform.Viewer.DocumentTitle;htmlform.Show;end;procedure Tmainform.RzButton2Click(Sender: TObject);begin mainform.Visible:=false;testform.Show;testform.RzPanel1.Top:=0;testform.RzPanel1.left:=0;end;procedure Tmainform.RzButton3Click(Sender: TObject);begin mainform.Visible:=false; if InputBox('ввод пароля','Введите пароль','') = 'admin' then editform.Show else begin ShowMessage('Пароль неправильный'); mainform.Visible:=true;; end;end;procedure Tmainform.RzButton4Click(Sender: TObject);beginAboutBox := TAboutBox.CreateIt(Self, 'Промышленная безопасность', 'TFrameViewer');try AboutBox.ShowModal;finally AboutBox.Free; end;end;procedure Tmainform.RzButton5Click(Sender: TObject);beginmainform.Close;end;end.unit rezult;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, RzGrids, RzButton;type TRezForm = class(TForm) RzStringGrid1: TRzStringGrid; RzBitBtn1: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var RezForm: TRezForm; jj:integer;implementation uses main, edit;{$R *.dfm}procedure TRezForm.FormCreate(Sender: TObject);vari:word;begin Rezform.RzStringGrid1.ColWidths[0]:=100;Rezform.RzStringGrid1.Cells[0,0]:='Студент';Rezform.RzStringGrid1.ColWidths[1]:=50;Rezform.RzStringGrid1.Cells[1,0]:='Группа';Rezform.RzStringGrid1.ColWidths[2]:=75;Rezform.RzStringGrid1.Cells[2,0]:='Дата';Rezform.RzStringGrid1.ColWidths[3]:=150;Rezform.RzStringGrid1.Cells[3,0]:='Тема';Rezform.RzStringGrid1.ColWidths[4]:=100;Rezform.RzStringGrid1.Cells[4,0]:='всего';Rezform.RzStringGrid1.ColWidths[5]:=100;Rezform.RzStringGrid1.Cells[5,0]:='ошибки';Rezform.RzStringGrid1.ColWidths[6]:=25;Rezform.RzStringGrid1.Cells[6,0]:='1';Rezform.RzStringGrid1.ColWidths[7]:=25;Rezform.RzStringGrid1.Cells[7,0]:='2';Rezform.RzStringGrid1.ColWidths[8]:=25;Rezform.RzStringGrid1.Cells[8,0]:='3';Rezform.RzStringGrid1.ColWidths[9]:=25;Rezform.RzStringGrid1.Cells[9,0]:='4';Rezform.RzStringGrid1.ColWidths[10]:=25;Rezform.RzStringGrid1.Cells[10,0]:='5';Rezform.RzStringGrid1.ColWidths[11]:=25;Rezform.RzStringGrid1.Cells[11,0]:='6'; gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath(Application.ExeName) + gShortFileName1; AssignFile(gF2, gFileName1); jj:=1; if FileExists(gFileName1) then begin Reset(gF2); while not Eof(gF2) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. Read(gF2, f_student); Rezform.RzStringGrid1.ColWidths[0]:=100;Rezform.RzStringGrid1.Cells[0,jj]:=f_student.FIO;Rezform.RzStringGrid1.Cells[1,jj]:=f_student.Nomer;Rezform.RzStringGrid1.Cells[2,jj]:=f_student.datetest;Rezform.RzStringGrid1.Cells[3,jj]:=f_student.test;Rezform.RzStringGrid1.Cells[4,jj]:=inttostr(f_student.vsego);Rezform.RzStringGrid1.Cells[5,jj]:=inttostr(f_student.osh); for I := 1 to 6 do Rezform.RzStringGrid1.Cells[5+i,jj]:=f_student.v[i]; jj:=jj+1; Rezform.RzStringGrid1.RowCount:=jj; end; end; //Закрываем файл. CloseFile(gF2);end;procedure TRezForm.RzBitBtn1Click(Sender: TObject);beginrezform.Close;end;end.unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, RzRadChk, RzRadGrp, StdCtrls, Mask, RzEdit,main;type TTestForm = class(TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; RzPanel3: TRzPanel; RzPanel4: TRzPanel; RzCheckGroup1: TRzCheckGroup; RzCheckBox1: TRzCheckBox; RzCheckBox3: TRzCheckBox; RzCheckBox2: TRzCheckBox; RzPanel5: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzEdit1: TRzEdit; RzEdit2: TRzEdit; Label1: TLabel; Label2: TLabel; procedure RzBitBtn1Click(Sender: TObject); procedure RzButton6Click(Sender: TObject); procedure RzButton4Click(Sender: TObject); procedure RzButton3Click(Sender: TObject); procedure RzButton2Click(Sender: TObject); procedure RzButton5Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var TestForm: TTestForm; j:integer; a:array[0..10] of word; t,s:word; gf1:TOtvetFile;implementation{$R *.dfm}procedure TTestForm.RzBitBtn1Click(Sender: TObject);begin a[cur_vopros]:=0;if testform.RzCheckBox1.Checked then a[cur_vopros]:=1;if testform.RzCheckBox2.Checked then a[cur_vopros]:=2;if testform.RzCheckBox3.Checked then a[cur_vopros]:=3;cur_vopros:=cur_vopros+1;testform.RzCheckBox1.Checked:=false;testform.RzCheckBox2.Checked:=false;testform.RzCheckBox3.Checked:=false;if cur_vopros<Cur_count thenbegintestform.RzCheckBox1.Caption:= vopros[cur_vopros].otvet1;testform.RzCheckBox2.Caption:= vopros[cur_vopros].otvet2;testform.RzCheckBox3.Caption:= vopros[cur_vopros].otvet3;testform.RzPanel5.Caption:=vopros[cur_vopros].soderendelsebegins:=0;for t := 1 to 6 do student.v[t]:=' ';for t:= 1 to cur_vopros-1 dobegin student.v[t]:='+'; if a[t]<>vopros[t].prav then begin s:=s+1; student.v[t]:='-'; end;end; showmessage('Количество вопросов = '+inttostr(cur_vopros-1)+ ' Количество ощибок = '+inttostr(s) ) ; gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath(Application.ExeName) + '\' + gShortFileName1; AssignFile(gF1, gFileName1); if FileExists(gFileName1) then begin Reset(gF1); while not Eof(gF1) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. Read(gF1, f_student); end; end else begin //Создаём файл. И открываем созданный файл в режиме "только запись". Rewrite(gF1); end; student.datetest:=datetostr(now); student.vsego:= cur_vopros-1; student.osh:= s; cur_vopros:=0; Write(gF1, student); //Закрываем файл. CloseFile(gF1); testform.RzBitBtn2.Visible:=true;end;end;procedure TTestForm.RzBitBtn2Click(Sender: TObject);begintestform.RzPanel1.Visible:=true;testform.RzPanel3.Visible:=false;end;procedure TTestForm.RzButton1Click(Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin cur_tem:=0;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true; student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text;testform.RzPanel4.Caption:='Производственная среда'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton2Click(Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=1;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Исследование промышленной безопасности'; student.test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton3Click(Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=2;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Промышленная безопасность на опасном объекте'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton4Click(Sender: TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=3;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Нормативная база промышленной безопасности'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton5Click(Sender: TObject);begin testform.Close; mainform.Visible:=true;end;procedure TTestForm.RzButton6Click(Sender: TObject);beginif ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=4;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='__'; student.test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;end.unit HTMLAbt;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Htmlview, ExtCtrls, RzButton;const Version = 'Информационная система промышленной безопасности';type TAboutBox = class(TForm) BitBtn1: TBitBtn; Panel1: TPanel; Viewer: THTMLViewer; RzButton5: TRzButton; procedure RzButton5Click(Sender: TObject); private { Private declarations } public { Public declarations } constructor CreateIt(Owner: TComponent; const ProgName, CompName: string); end;var AboutBox: TAboutBox;implementation{$R *.DFM}constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string);var S: string[210];begininherited Create(Owner);Viewer.DefFontName := 'MS Sans Serif';Viewer.DefFontSize := 9;Viewer.DefFontColor := clNavy;S :='<body bgcolor="ffffeb" text="000080">'+ '<center>'+ '<h1>'+ProgName+'</h1>'+ '<font color="Maroon"> Информационно-обучающая система правилам промышленной безопасности' + '</center>'+ '</body>';Viewer.LoadFromBuffer(@S[1], Length(S), '');end;procedure TAboutBox.RzButton5Click(Sender: TObject);begin AboutBox.Close;end;end.unit edit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, Grids, RzGrids, ExtCtrls, RzPanel, StdCtrls, RzCmboBx, Mask, RzEdit, RzSpnEdt, main, rezult;type TEditForm = class(TForm) RzStringGrid1: TRzStringGrid; RzSpinEdit1: TRzSpinEdit; RzComboBox1: TRzComboBox; Label1: TLabel; Label2: TLabel; RzPanel1: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; Label3: TLabel; procedure RzBitBtn4Click(Sender: TObject); procedure RzComboBox1Change(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RzSpinEdit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var EditForm: TEditForm; j:integer;implementation{$R *.dfm}procedure TEditForm.FormCreate(Sender: TObject);begineditform.RzStringGrid1.ColWidths[0]:=250;editform.RzStringGrid1.Cells[0,0]:='Вопрос';editform.RzStringGrid1.ColWidths[1]:=100;editform.RzStringGrid1.Cells[1,0]:='Вариант 1';editform.RzStringGrid1.ColWidths[2]:=100;editform.RzStringGrid1.Cells[2,0]:='Вариант 2';editform.RzStringGrid1.ColWidths[3]:=100;editform.RzStringGrid1.Cells[3,0]:='Вариант 3';editform.RzStringGrid1.ColWidths[4]:=100;editform.RzStringGrid1.Cells[4,0]:='№ прав.';editform.RzComboBox1Change(sender);end;procedure TEditForm.RzBitBtn1Click(Sender: TObject); var j:integer;begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + '\' + gShortFileName; AssignFile(gF, gFileName); Rewrite(gF); for j:=1 to editform.RzStringGrid1.rowcount-1 do begin vopros[j].tema:=editform.RzComboBox1.ItemIndex; vopros[j].soder:=editform.RzStringGrid1.Cells[0,j]; vopros[j].otvet1:=editform.RzStringGrid1.Cells[1,j]; vopros[j].otvet2:=editform.RzStringGrid1.Cells[2,j]; vopros[j].otvet3:=editform.RzStringGrid1.Cells[3,j]; if editform.RzStringGrid1.Cells[4,j]='' then showmessage('не введен правильный ответ в строке '+inttostr(j)) else vopros[j].prav:=strtoint(editform.RzStringGrid1.Cells[4,j]); //Записываем данные Write(gF, vopros[j]); end; //Закрываем файл. CloseFile(gF); editform.Label3.Caption:='файл успешно сохранен';end;procedure TEditForm.RzBitBtn2Click(Sender: TObject);begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; editform.RzStringGrid1.RowCount:=5; while not(eof(gf)) do begin read(gF, vopros[j]); editform.RzStringGrid1.Cells[0,j]:= vopros[j].soder; editform.RzStringGrid1.Cells[1,j]:=vopros[j].otvet1; editform.RzStringGrid1.Cells[2,j]:=vopros[j].otvet2; editform.RzStringGrid1.Cells[3,j]:=vopros[j].otvet3; editform.RzStringGrid1.Cells[4,j]:= inttostr(vopros[j].prav); j:=j+1; end; //Закрываем файл. editform.RzSpinEdit1.IntValue:=j-1; CloseFile(gF); editform.Label3.Caption:='файл успешно загружен'; //close(gf);end;procedure TEditForm.RzBitBtn3Click(Sender: TObject);begin editform.Close; mainform.Visible:=true;end;procedure TEditForm.RzBitBtn4Click(Sender: TObject);begin rezform.FormCreate(sender); rezform.show;end;procedure TEditForm.RzComboBox1Change(Sender: TObject);begin gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; editform.RzStringGrid1.RowCount:=5; while not(eof(gf)) do begin read(gF, vopros[j]); editform.RzStringGrid1.RowCount:=j+1; editform.RzStringGrid1.Cells[0,j]:= vopros[j].soder; editform.RzStringGrid1.Cells[1,j]:=vopros[j].otvet1; editform.RzStringGrid1.Cells[2,j]:=vopros[j].otvet2; editform.RzStringGrid1.Cells[3,j]:=vopros[j].otvet3; editform.RzStringGrid1.Cells[4,j]:= inttostr(vopros[j].prav); j:=j+1; end; editform.RzSpinEdit1.IntValue:=j-1; CloseFile(gF);end;procedure TEditForm.RzSpinEdit1Change(Sender: TObject);begineditform.RzStringGrid1.RowCount:=editform.RzSpinEdit1.IntValue+1;end;end.unit view;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, Htmlview, Menus, Readhtml, FramView; const MaxHistories = 6; {size of History list}type Thtmlform = class(TForm) RzPanel1: TRzPanel; FwdButton: TRzBitBtn; backbutton: TRzBitBtn; RzBitBtn3: TRzBitBtn; ReLoadButton: TRzBitBtn; MainMenu: TMainMenu; File1: TMenuItem; PrinterSetup1: TMenuItem; Printpreview: TMenuItem; Print1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; HistoryMenuItem: TMenuItem; About1: TMenuItem; Viewer: TFrameViewer; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure About1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure Exit1Click(Sender: TObject); procedure ViewerHistoryChange(Sender: TObject); procedure FwdButtonClick(Sender: TObject); procedure HistoryClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure backbuttonClick(Sender: TObject); procedure ReLoadButtonClick(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); private { Private declarations } Histories: array[0..MaxHistories-1] of TMenuItem; public { Public declarations } end;var htmlform: Thtmlform; i:word;implementationuses main, Htmlabt;{$R *.dfm}procedure Thtmlform.ReLoadButtonClick(Sender: TObject);beginwith htmlform.Viewer do begin ReLoadButton.Enabled := False; ReLoad; ReLoadButton.Enabled := CurrentFile <> ''; Viewer.SetFocus; end;end;procedure Thtmlform.Exit1Click(Sender: TObject);begin htmlform.Close; mainform.Visible:=true;end;procedure Thtmlform.FormCreate(Sender: TObject);begin Left := Left div 2;Top := Top div 2;{Width := (Screen.Width * 8) div 10;Height := (Screen.Height * 6) div 8; }Viewer.HistoryMaxCount := MaxHistories; {defines size of history list}for I := 0 to MaxHistories-1 do begin {create the MenuItems for the history list} Histories[I] := TMenuItem.Create(HistoryMenuItem); HistoryMenuItem.Insert(I, Histories[I]); with Histories[I] do begin OnClick := HistoryClick; Caption := 'XX'; Tag := I; end; end;{DragAcceptFiles(Handle, True);HintWindow := THintWindow.Create(Self);HintWindow.Color := $CCFFFF; }end;procedure Thtmlform.FwdButtonClick(Sender: TObject);begin htmlform.Viewer.GoFwd;end;procedure Thtmlform.About1Click(Sender: TObject);beginAboutBox := TAboutBox.CreateIt(Self, 'Информационно-обучающая система', 'TFrameViewer');try AboutBox.ShowModal;finally AboutBox.Free; end;end;procedure Thtmlform.backbuttonClick(Sender: TObject);begin with Viewer do begin if Sender = BackButton then HistoryIndex := HistoryIndex +1 else HistoryIndex := HistoryIndex -1; Self.Caption := DocumentTitle; end;end;procedure Thtmlform.HistoryClick(Sender: TObject);begin Viewer.HistoryIndex := (Sender as TMenuItem).Tag;end;procedure Thtmlform.RzBitBtn1Click(Sender: TObject);begin htmlform.Close; mainform.Visible:=true;end;procedure Thtmlform.RzBitBtn2Click(Sender: TObject);begin // htmlform. htmlform.close; mainform.RzButton1Click(sender);end;procedure Thtmlform.RzBitBtn3Click(Sender: TObject);begin htmlform.close; mainform.RzButton1.Click;end;procedure Thtmlform.ViewerHistoryChange(Sender: TObject);var I: integer; Cap: string[80];beginwith Sender as TFrameViewer do begin {check to see which buttons are to be enabled} FwdButton.Enabled := FwdButtonEnabled; BackButton.Enabled := BackButtonEnabled; HistoryMenuItem.Visible := History.Count > 0; for I := 0 to MaxHistories-1 do with Histories[I] do if I < History.Count then Begin Cap := History.Strings[I]; if TitleHistory[I] <> '' then Cap := Cap + '--' + TitleHistory[I]; Caption := Cap; {Cap limits string to 80 char} Visible := True; Checked := I = HistoryIndex; end else Histories[I].Visible := False;Caption := DocumentTitle; {keep the caption updated} end;end;end.

Список литературы

ЛИТЕРАТУРА
1.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
2.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
3.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
4.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
5.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
6.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
7.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
8.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
9.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.
10.Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. - СПб.: Питер,2002.-496 с.
11.Мацяшек Л Анализ требований и проектирование систем. Разработка информационных систем с использованием UML. - М.: Издательский дом «Вильямс», 2002.-432 с.
12.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
13.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освіта», 1999.- 186с.
14.Актуальные проблемы качества педагогического образования: материалы науч.-практ. конф., 1 февр. 2002 г. - Новосибирск : НГПУ, 2002. - 214 с.
15.Башмаков А.И., Башмаков И.А. Разработка компьютерных учебников и обучающих систем. – М.: Информационно-издательский дом «Филинъ», 2003.
16.Белов А.А. Система анализа результатов тестирования // Университетское образование: Сборник материалов VIII Междунар. науч.-методич. конф. - Пенза: ПДЗ, 2004. - С.497-498.
17.Бершадский А.М., Кревский И.Г., Вергазов Р.И. Использование компьютерных средств контроля знаний для проведения междисциплинарного экзамена // Университетское образование: Сборник материалов VII Междунар. науч.-методич. конф. - Пенза: ПДЗ, 2003. - С.492-493.
18.Беспалько В.П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск. психол.-соц. Ин-та-Воронеж: Изд-во НПО "МОДЭК", 2002. - 352 с.
19.Васильев В.И., Демидов А.Н., Малышев Н.Г., Тягунова Т.Н. “Методологические правила конструирования компьютерных педагогических тестов”, М., ВТУ, 2000, 64 с.
20.Фридланд А.Я. Информатика и компьютерные технологии. - М.: Астрель, 2002. – 279 с.
21.Челышкова М.Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003.- 440 с.
22.Каймин В.А., Горелов Ю.Н., "Об электронных учебниках по информатике и финансовому менеджменту", / Материалы конференции "Информационные технологии в образовании", Троицк. 1998 г.
23.Смирнов А.Н. Проблемы электронного учебника // "Математика в школе", 2000 год., №5
24.Гиндикин С.Г., Рассказы о физиках и математиках. - 3-е изд., расширенное. М.: МЦНМО, 2001. - 448 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018