Вам нужна дипломная работа?
Интересует Программирование?
Оставьте заявку
на Дипломную работу
Получите бесплатную
консультацию по
написанию
Сделайте заказ и
скачайте
результат на сайте
1
2
3

12726 Разработка автоматизированной обучающей системы для технического колледжа

  • 90 страниц
  • 21 источник
  • Добавлена 27.06.2015
5 390 руб. 7 700 руб.
  • Содержание
  • Часть работы
  • Список литературы
  • Вопросы/Ответы
Содержание


ВВЕДЕНИЕ 4
1 АНАЛИТИЧЕСКАЯ ЧАСТЬ 7
1.1 Технико-экономическая характеристика предметной области 7
1.1.1 Характеристика предприятия 7
1.1.2 Краткая характеристика подразделения или видов его
деятельности 9
1.2 Техническая и технологическая сущность задачи 10
1.3 Обоснование необходимости и цели использования
вычислительных и телекоммуникационных средств для
решения задачи 12
1.4 Постановка задачи 13
1.4.1 Цель и назначение создания или модернизации модулей или
сервисов информационной системы 13
1.4.2 Общая характеристика организации решения задачи вычислительными и телекоммуникационными средствами 17
1.4.3 Формализация алгоритма решения задачи 18
1.5 Анализ существующих разработок и обоснование выбора
технологии проектирования модулей (сервисов) 21
1.6 Обоснование проектных решений по видам обеспечения: 24
1.6.1 по техническому обеспечению 24
2. ПРОЕКТНАЯ ЧАСТЬ 32
2.1. Техническое обеспечение автоматизированной информационной системы 32
2.1.1. Модель информационных потоков в информационной системе и ее описание 32
2.1.2. Физическая схема взаимодействия отдельных частей информационной системы 33
2.1.3. Функции и назначение отдельных аппаратных компонентов проектируемой системы 33
2.1.4. Характеристика аппаратного комплекса в целом 34
2.2. Программное обеспечение автоматизированной информационной системы 36
2.2.1. Общие положения 36
2.2.2. Структурная схема пакета 41
2.2.3. Описание программных модулей 42
2.2.4. Схема взаимосвязи программных модулей и информационных файлов 47
2.3. Технологическое обеспечение автоматизированной информационной системы 47
2.3.1. Организация технологии сбора, передачи, обработки и выдачи информации 47
2.3.2. Схема технологического процесса сбора, передачи, обработки и выдачи информации 49
2.4. Экспериментальная часть 50
2.4.1 Назначение эксперимента 50
2.4.2 Тестирования разработанной автоматизированной информационной системы 50
2.4.3 Результат тестирования системы 56
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА 65
3.1 Анализ источников экономической эффективности 65
3.2 Оценка экономической эффективности разработки компьютерной программы 65
Выводы 75
4. ЭКОЛОГИЧНОСТЬ И БЕЗОПАСНОСТЬ ПРОЕКТА 76
4.1 Обеспечение безопасности при эксплуатации компьютерной техники 76
4.1.1 Электромагнитные поля и излучения 76
4.1.2 Неблагоприятный микроклимат рабочей зоны 78
4.1.3 Повышенный уровень шума 79
4.1.4 Повышенный уровень вибрации 80
4.1.5 Повышенное значение напряжения в электрической цепи 81
4.2 Расчет общей освещенности 82
4.3 Пожарная безопасность 86
ЗАКЛЮЧЕНИЕ 88
ЛИТЕРАТУРА 90
Приложение А Листинг программы 92

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

ПЭВМ генерирует в окружающее пространство широкий спектр ЭМП различной интенсивности, в том числе: - электростатическое поле; - переменные низкочастотные ЭМП; - электромагнитное излучение радиочастотного диапазона; - электромагнитное излучение оптического (видимого) диапазона; - ультрафиолетовое (УФ) и рентгеновское излучения ЭЛТ. Кроме того, на рабочем месте пользователя всегда присутствует электромагнитный фон промышленной частоты, обусловленный как ПЭВМ, так и сторонними источниками.Рентгеновское и ультрафиолетовое излучения практически полностью поглощаются внутри корпуса дисплея, а интенсивность излучений радиочастотного диапазона пренебрежимо мала, поэтому радиочастотные, УФ и рентгеновское излучения в качестве вредных производственных факторов не рассматриваются. Источником электростатического поля является экран дисплея, несущий высокий электростатический потенциал (ускоряющее напряжение ЭЛТ). Заметный вклад в общее электростатическое поле вносят электризующиеся от трения поверхности клавиатуры и мыши.ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТ нормируются в соответствии с СаНПиН 2.2.2.542-96 и приведены в таблице 4.1.Таблица 4.1ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТВид поляДиапазон частотЕдиница измеренияПДУмагнитное поле5Гц- 2кГцнТл250магнитное поле2- 400 кГц,нТл25электрическое поле5Гц- 2кГцВ/м25электрическое поле2- 400 кГцВ/м2,5эквивалентный (поверхностный) электростатический потенциалВ5004.1.2 Неблагоприятный микроклимат рабочей зоныРабота инженера за персональным компьютером малоподвижна, его энергозатраты не превышают 172 Дж/с. Данные работы относятся к категории – легкая (Iа). Нормы микроклимата для теплого и холодного периодов определены в ГОСТ 12.1.005-88 и приведены в таблице 4.2.Таблица 4.2 Нормы микроклиматаПараметрыТеплый периодХолодный периодТемпература, С23-2522-24Относительная влажность, %40-6040-60Скорость движения воздуха, м/с0,10,1Объем помещений, в которых размещены работники вычислительного центра, не должен быть меньше 19.5 м3/чел с учетом максимального числа работающих в смену. Нормы подачи свежего воздуха в помещение, где расположены компьютеры, приведены в таблице 5.3.Таблица 4.3 Нормы подачи свежего воздуха в помещениеХарактеристика помещения, м3/челОбъемный расход подаваемого в помещение свежего воздуха, м3/ч в часОбъем до 20Не менее 30Объем 20-40Не менее 20Объем более 40Естественная вентиляцияДля обеспечения нормирования параметров микроклимата необходимо установить кондиционер. Современные кондиционеры не только регулируют температуру, но и обеспечивают необходимую циркуляцию воздуха, а также влажность. К тому же на них устанавливаются фильтры, что позволяет очищать воздух от примесей и пылей.4.1.3 Повышенный уровень шумаПри работе на персональном компьютере шум, воздействующий на инженера, не должен превышать максимально допустимых уровней звукового давления, определенных в ГОСТ 12.1.003-83* и указанных в таблице 4.4.Таблица 4.4 Нормы уровня шумаУровни звукового давления (дБ), в октавных полосах со средне геометрическими частотами (Гц)Уровни звука и эквивалентные уровни, дБА631252505001000200040008000507161544945424038Существуют разные аппаратные решения для создания «тихих» ПК. Их можно применять как по отдельности, так и в комплексе. Перечислим некоторые из них:Звукоизолирующая прокладка. Прокладка из звукопоглощающей пены, устанавливаемая внутри корпуса, заглушает практически все звуки, создаваемые компонентами ПК. Однако вместе со звуком затрудняется и отвод наружу тепла. Оболочка для жёсткого диска. Диск, заключенный в изолирующую оболочку, гудит тише, но такая конструкция устанавливается только в отсек, соседствующий с CD-приводом. Звукопоглощающий корпус. Если вы собираете ПК самостоятельно, возможно, имеет смысл приобрести корпус с тихими вентиляторами охлаждения как самого корпуса, так и блока питания, а также с расширенными вентиляционными отверстиями. Вентиляторы охлаждения корпуса. Вентиляторы охлаждения корпуса, имеющие специальную конструкцию и термостатический контроль, с одной стороны, подают достаточно воздуха для охлаждения системы, а с другой - создают минимум шума. Вентиляторы охлаждения блока питания. Самым шумным компонентом ПК часто является блок питания. В таких случаях для обретения спокойствия достаточно заменить его на более тихий.4.1.4 Повышенный уровень вибрацииРаботающие персональные компьютеры создают вибрацию, вызванную вращением электродвигателей вентиляторов, дисководов. Нормы вибрации по ГОСТ 12.1.012-90 приведены в таблице 4.5.Таблица 4.5 Нормы вибрацииВид вибрацииСреднеквадратическое значение виброскорости, м/с*10-2 (не более)Логарифмические уровни виброскорости (дБ), в октавных полосах со среднегеометрическими частотами (Гц)В вычислительных центрах12481631,5631252601,18910,063820,032760,028750,028750,02875Однако работающая компьютерная техника не создает значительных вибраций. Исключение составляют только приводы чтения дисков. Но их относительное время работы невелико, и для снижения вибрации достаточно переставить системный блок со стола на пол. Для большего снижения уровня вибрации часто бывает достаточно открыть корпус, снять крышку и хорошенько подтянуть крепежные винты таких компонентов, как блок питания, дисководы, материнская плата и вентиляторы. Иногда в комплекте с блоком поставляются пластиковые или резиновые шайбы, которые еще больше снижают вибрацию. Недорогие наборы пластиковых прокладок изолируют вентиляторы и другие источники вибраций от корпуса. Существуют такие наборы и для жёстких дисков.4.1.5 Повышенное значение напряжения в электрической цепиПредельно допустимые уровни напряжений и токов в зависимости от времени прикосновения регламентируются в ГОСТ 12.1.038-82* и приведены в таблице 4.6Таблица 4.6Предельно допустимые уровни напряжений и токовРод токаНорми-руемая вели-чинаПредельно допустимые уровни, не более, при продолжительности воздействия тока, t, с.0,010,10,20,30,40,50,60,70,80,91,0Пере-менный, 50ГцU, ВI, мА6505002501651251008570656550Посто-янныйU, ВI, мА6505004003503002502402302202102004.2 Расчет общей освещенностиПомещения, где расположены компьютеры, должны иметь определенное освещение. Нормы освещенности определены в СНиП 23-05-95 и приведены в таблице 4.7 для данного типа работ.Рассчитываемое помещение имеет следущие характеристики:длина А – 10 м;ширина В – 8 м;высота – 3,7 м;длина подвеса светильников – 0,2 м;высота рабочей поверхности – 0,8 м;Необходимо рассчитать освещение помещения исходя из того, что будет использоваться 20 светильников.Для данного вида работ достаточно использовать одно общее освещение без применения местного. В качестве источников света выбраны люминесцентные лампы, так как они обладают высокой световой отдачей, большим сроком службы, равномерный спектр.Таблица 4.7Характеристика зрительной работыРазряд и подразряд зрительной работыКонтраст объекта различения с фономХарактеристика фонаМинимальный размер объекта различения,(мм)Искусственное освещениеЕстественное освещениеОсвещенность, лкКЕО, %При комбинированном освещенииПри общем освещенииПри верхнем или верхнем и боковом освещенииСредняяточностьIV (г)БольшойСветлыйот 0,5 до 1,0-2004Световой поток одного светильника определяется по формуле,где EH – нормируемое значение освещенности ( таблицу 4.1),КЗ – коэффициент запасаS – освещаемая площадьZ=EСР/EМИН, где EСР и EМИН – среднее и минимальное значения освещенностиn – число светильниковUОУ – коэффициент использования светового потокаДля люминесцентных ламп коэффициент Z принимается равным 1,1Значения коэффициента запаса для различных помещений приведены в таблице 4.8Таблица 4.8Значения коэффициента запасаТип помещенияТип источника светагазоразрядныенакаливанияС незначительным содержанием пыли и копоти1,51,3Со средним содержанием пыли и копоти1,81,5Открытые территории1,51,4Используя таблицу 4.2 находим Z=1,5Индекс помещения определяется по формуле ,где А и В – длина и ширина помещения соответственно, hР – высота подвеса над рабочей поверхностью.Так как в рассчитываемом помещении побеленный потолок и светлые стены, то примем значения коэффициентов отражения равными ρП=0,7; ρС=0,5; ρР=0,1. Используя найденные коэффициенты отражения и индекс помещения найдем коэффициент использования светового потока UОУ=0,35Вычислим необходимый световой поток светильника лкДля обеспечения требуемого светового потока выберем лампу ЛДЦ40-1, обеспечивающую световой поток в 2200 лкЛампы будем размещать в светильниках ЛСП02-2x40-13-15, которые имеют габаритные размеры 1234x280x159 ммВнешний вид светильника представлен на рисунке 4.1Рис.4.1 – Внешний вид светильникаСветильники с люминесцентными лампами устанавливают рядами, параллельно длинной стороне помещения или стенке с окнами.Расстояние между светильниками по длине и ширине помещения выбирается из условия La / Lb l,5.Расстояние от крайних светильников до стены выбирается из 0,3 0,5 La, 0,3 0,5 Lb. L1 ~ 0, 6-0,7 м, L2 ~2 м.Схема размещения светильников в помещении приведена на рисунке 5.2Рис.4.2 – Схема расположения светильников в помещении4.3 Пожарная безопасностьСогласно НПБ 105-03 помещения, где располагаются персональные компьютеры, относятся к категории ‘В’ пожарной опасности, при которой горючие и трудногорючие жидкости, твердые материалы и вещества, а также материалы, которые при взаимодействии с водой, воздухом или друг с другом способны только гореть.СНиП 2101-97 регламентирует число, размеры и конструкторские решения устройства эвакуационных путей. В соответствии с ним выбираем:число выходов – 2;высота потолка в проходах – не менее 2 м;ширина проходов – не менее 0.8 м. Проходы должны иметь естественное и искусственное освещение.Согласно ГОСТ 12.4.009-83* помещения вычислительного центра объемом 200 м2 должны иметь следующие средства пожаротушения:углекислотный огнетушитель ОУ-8 – 1 шт;порошковый огнетушитель ОП-5-01 – 1 шт;спринклерная система пожаротушения.Технические характеристики спринклеров приведены в таблице 4.9Таблица 4.9 Технические характеристики спринклеровПараметрЗначениерасход Q0,6 - 2,5 л/cрабочее давление Pp6 -10 барзащищаемая площадь Sз12 м2-30 м2угол распыла120°-240°Cинтенсивность орошения qср0,03 -0,08 л/(с·м2)среднеквадратическое отклонение Sq<50%Возможность работы на растворах пенообразователяЗАКЛЮЧЕНИЕВ рамках выполнения дипломной работы, в соответствии с полученным техническим заданием была разработана информационно-обучающая система для технического колледжа по энергосистемам автомобиля. В рамках работы над этой системой было проанализировано техническое задание на разработку информационно-обучающей системы, разработана его информационная часть, сформированы требования к аппаратной, информационной частям системы, выполнено функциональное проектирование системы.На основании полученных результатов спроектирована информационная часть информационно-обучающей системы по энергосистемам автомобиля, разработано алгоритмическое и программное обеспечение системы проведения тестирующего опроса база данных.В качестве средств разработки информационной обучающей системы в виде электронного учебного пособия использовалось средство визуального проектирования Borland Builder C++ 6.0, а так же язык разметки Web документов HTML, для реализации базы данных использовалась система управления база данных MS Access 2007.Было разработано алгоритмическое и программное обеспечение тестирующей системы, которое способнонакапливать сведения о результатах тестирования студентами разных групп и отображать результаты тестирования, а так же дополнять систему новыми тестами и вариантами ответов.С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:Созданная система выполняет все функции, указанные в ТЗ.Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов.При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок.В ходе тестирования на разных конфигурациях было определено, что система способна эффективно работать в среде Windows на компьютере минимальной конфигурацией, все ошибки, выявленные в результате тестирования, были устранены.В завершении работы была проведена оценка экономической эффективности предлагаемых решений, а так же экологической безопасности предлагаемых проектных решений.ЛИТЕРАТУРААрхангельский А.Я. Buider c++. Справочное пособие. — М.: Бином, 2001. — 1024 с.Архангельский А.Я. Программирование в Buider c++. — М.: Бином, 2001. — 564 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2010. –304с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. - СПб.: Питер,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Приложение АЛистинг программы//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"#include "Unit2.h"#include "Unit3.h"#include "Unit4.h"#include "Unit6.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma link "SHDocVw_OCX"#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Form2->Show();}//---------------------------------------------------------------------------void __fastcall TForm1::Button5Click(TObject *Sender){Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ Form1->Visible=false; if (InputBox("ввод пароля","Введите пароль","") == "admin" ) { Form3->ShowModal();} else { ShowMessage("Пароль неправильный"); Form1->Visible=true; }}//---------------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){WideString NewConnection; WideString qqq;ADOConnection1->Close(); // указываем файл .udl для ADOConnection1 String pr,dpr; pr="MSDataShape.1"; dpr="Microsoft.Jet.OLEDB.4.0"; String tmp = ExtractFilePath(Application->ExeName) + "baza.mdb"; const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";if (!ADOConnection1->Connected) {ADOConnection1->ConnectionString = Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp)));Form1->ADOQuery1->ConnectionString=Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp))); ADOConnection1->Open(); }//активация таблицForm1->ADOTable1->Active=true;Form1->ADOTable2->Active=true;}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){Form4->Show();}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){Form6->Show();}//---------------------------------------------------------------------------//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit2.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma link "SHDocVw_OCX"#pragma resource "*.dfm"TForm2 *Form2;//---------------------------------------------------------------------------__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm2::Button1Click(TObject *Sender){CppWebBrowser1->GoBack();}//---------------------------------------------------------------------------void __fastcall TForm2::FormCreate(TObject *Sender){WideString path = ExtractFilePath(Application->ExeName) + "index.html";CppWebBrowser1->Height=800;CppWebBrowser1->Navigate(path.c_bstr());Form2->Button5Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm2::Button2Click(TObject *Sender){CppWebBrowser1->GoForward();}//---------------------------------------------------------------------------void __fastcall TForm2::Button3Click(TObject *Sender){CppWebBrowser1->Stop();}//---------------------------------------------------------------------------void __fastcall TForm2::Button4Click(TObject *Sender){CppWebBrowser1->Refresh();}//---------------------------------------------------------------------------void __fastcall TForm2::Button5Click(TObject *Sender){WideString path = ExtractFilePath(Application->ExeName) + "index.html";CppWebBrowser1->Height=800;CppWebBrowser1->Navigate(path.c_bstr());}//---------------------------------------------------------------------------void __fastcall TForm2::Button6Click(TObject *Sender){Form2->Close();}//---------------------------------------------------------------------------//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"#include "Unit3.h"#include<stdio.h>#include<io.h>#include<io.h>#include<alloc.h>#include<fcntl.h>#include<process.h>#include<sys\stat.h>//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"#include "Unit5.h"TForm3 *Form3;TParameter *P1;//---------------------------------------------------------------------------__fastcall TForm3::TForm3(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm3::FormCreate(TObject *Sender){ DBGrid1->Columns->Items[0]->Width = 30; DBGrid1->Columns->Items[1]->Width =100; DBGrid1->Columns->Items[2]->Width = 200; DBGrid1->Columns->Items[3]->Width = 110; DBGrid1->Columns->Items[4]->Width = 110; DBGrid1->Columns->Items[5]->Width = 110;Form3->ComboBox1Change(Sender);}//---------------------------------------------------------------------------void __fastcall TForm3::ComboBox1Change(TObject *Sender){ Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr(Form3->ComboBox1->Text); Form1->ADOTable1->Filtered=true;}//---------------------------------------------------------------------------void __fastcall TForm3::UpDown1Changing(TObject *Sender, bool &AllowChange){//Form3->StringGrid1->RowCount=Form3->UpDown1->Tag+1;}//---------------------------------------------------------------------------void __fastcall TForm3::BitBtn1Click(TObject *Sender){ Form1->DataSource1->DataSet=Form1->ADOQuery1; Form1->ADOQuery1->Active=false; Form1->ADOQuery1->SQL->Clear(); P1=Form1->ADOQuery1->Parameters->AddParameter(); String S=Form3->ComboBox1->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; P1->Value=S; P1->Value=S;}//---------------------------------------------------------------------------void __fastcall TForm3::Button1Click(TObject *Sender){Form3->GroupBox1->Visible=true;Form3->GroupBox2->Visible=false;}//---------------------------------------------------------------------------void __fastcall TForm3::Button3Click(TObject *Sender){Form3->GroupBox2->Visible=true;Form3->GroupBox1->Visible=false;}//---------------------------------------------------------------------------void __fastcall TForm3::Button2Click(TObject *Sender){Form1->ADOTable1->Insert();Form1->ADOTable1->FieldByName("Тема")->AsString=Form3->ComboBox1->Text;Form1->ADOTable1->FieldByName("содержание")->AsString= Edit1->Text;Form1->ADOTable1->FieldByName("ответ 1")->AsString= Edit2->Text;Form1->ADOTable1->FieldByName("ответ 2")->AsString= Edit3->Text;Form1->ADOTable1->FieldByName("ответ 3")->AsString= Edit4->Text;Form1->ADOTable1->FieldByName("№ правильного")->AsInteger= StrToInt(Edit5->Text);Form1->ADOTable1->Post();Form3->GroupBox1->Visible=false; }//---------------------------------------------------------------------------void __fastcall TForm3::Button4Click(TObject *Sender){TLocateOptions Options;Options << loPartialKey,loCaseInsensitive;int kod=StrToInt(Edit6->Text);Form1->ADOTable1->Locate("код",kod,Options);Form1->ADOTable1->Delete();Form1->ADOTable1->Post();}//---------------------------------------------------------------------------void __fastcall TForm3::Button5Click(TObject *Sender){Form5->ShowModal();}//---------------------------------------------------------------------------//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit4.h"#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm4 *Form4;struct TVopros { Integer tema; String soder; String otvet1; String otvet2; String otvet3; Integer prav;}; TVopros vopros[30]; int a[30]; int cur_vopros=0; int cur_count; int s; String studentFIO, studentNomer, studenttest;//---------------------------------------------------------------------------__fastcall TForm4::TForm4(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm4::Button7Click(TObject *Sender){Form4->Close();}//---------------------------------------------------------------------------void __fastcall TForm4::Button1Click(TObject *Sender){if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Источники тока";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Источники тока"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm4::Button8Click(TObject *Sender){ // cur_vopros=cur_vopros+1; a[cur_vopros]=0;Form4->CheckBox1->Caption= vopros[cur_vopros].otvet1;Form4->CheckBox2->Caption= vopros[cur_vopros].otvet2;Form4->CheckBox3->Caption= vopros[cur_vopros].otvet3;Form4->Panel1->Caption=vopros[cur_vopros].soder ;if (Form4->CheckBox1->Checked)a[cur_vopros]=1;if (Form4->CheckBox1->Checked) a[cur_vopros]=2;if (Form4->CheckBox1->Checked)a[cur_vopros]=3;Form4->CheckBox1->Checked=false;Form4->CheckBox2->Checked=false;Form4->CheckBox3->Checked=false;if (cur_vopros<=cur_count-1){}else{s=0;for (int t = 0; t <=cur_vopros; t++){ if (a[t]==vopros[t].prav) { s=s+1; }}Form1->ADOTable2->Insert();Form1->ADOTable2->FieldByName("Студент")->AsString=studentFIO;Form1->ADOTable2->FieldByName("Группа")->AsString=studentNomer;Form1->ADOTable2->FieldByName("Дата")->AsDateTime=Now();Form1->ADOTable2->FieldByName("тема")->AsString=studenttest;Form1->ADOTable2->FieldByName("Правильно")->AsInteger= s+1;Form1->ADOTable2->FieldByName("Ошибка")->AsInteger= cur_vopros-s-1;Form1->ADOTable2->Post();} if (cur_vopros>=cur_count){Form4->Button8->Visible=false;Form4->Button9->Visible=true;}}//---------------------------------------------------------------------------void __fastcall TForm4::Button9Click(TObject *Sender){Form4->Panel3->Visible=true;Form4->Panel2->Visible=false;}//---------------------------------------------------------------------------//---------------------------------------------------------------------------void __fastcall TForm4::Button2Click(TObject *Sender){if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Потребители тока";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Потребители тока"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm4::Button3Click(TObject *Sender){if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Система пуска двигателя";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Система пуска двигателя"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm4::Button4Click(TObject *Sender){if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Приборы освещения и сигнализации";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Приборы освещения и сигнализации"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm4::Button5Click(TObject *Sender){if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Контрольно-измерительные приборы";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Контрольно-измерительные приборы"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}//---------------------------------------------------------------------------void __fastcall TForm4::Button6Click(TObject *Sender){{if ((Form4->Edit1->Text!="")&& (Form4->Edit2->Text!="")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Неисправности электрооборудования";studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr("Несиправности электрооборудования"); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First(); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].soder= Form1->ADOTable1->FieldByName("содержание")->AsString; vopros[i].otvet1= Form1->ADOTable1->FieldByName("Ответ 1")->AsString; vopros[i].otvet2= Form1->ADOTable1->FieldByName("Ответ 2")->AsString; vopros[i].otvet3= Form1->ADOTable1->FieldByName("Ответ 3")->AsString; vopros[i].prav= Form1->ADOTable1->FieldByName("№ правильного")->AsInteger; Form1->ADOTable1->Next(); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage("Не введена фамилия студента или номер группы");Form4->Button8Click(Sender);}}//---------------------------------------------------------------------------

ЛИТЕРАТУРА

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

Разработка автоматизированной системы учета договоров для отеля

&';Разработка автоматизированной системы учета договоров для отеля &';

Содержание

Введение

1. Описание процесса учета договоров на предприятии

2. Постановка задачи

2.1 Назначение комплекса задач

2.2 Вывод данных

2.3 Входные данные

3. Проектирование информационного обеспечения

3.1 Описание задачи

3.2 Проектирование Базы данных методом &';Сущность - связь&';

3.2.2 Построение диаграммы ER-типа

3.2.3 Генерация набора предварительных отношений

3.2.4 Проверка отношений на НФБК

3.2.5 Исследование окончательного набора отношений на избыточность

3.3 Проектирование структуры БД с помощью CASE-средства Erwin

3.3.1 Проектирование логической и физической схемы БД

3.3.2 Исследование информационной модели

4. Программное обеспечение

4.1 Определение функций на приложение

4.2 Разработка эскиза меню

4.3 Описание компонентов

4.4 Назначение модулей программы

5. Руководство пользователя

5.1 Введение

5.2 Назначение и условия применения

5.2.1 Функции, автоматизируемые программно

5.2.2 Технические и программные требования

5.3 Подготовка к работе

5.4 Описание операций

5.4.1 Работа c основным приложением &';Таблица основных договоров&';

5.4.2 Работа c основным приложением &';Таблица дополнительных договоров&';

5.5 Рекомендации по освоению

Вывод

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

Приложение A. Описание модулей программы

Приложение В. Отчеты

 

Введение

В нашей стране, с каждым днем все больше и больше предприятий. Каждый из них занимается различной деятельностью. Трудно себе представить работу любой фирмы без заключения каких-либо договоров. Примерами являются бесчисленные-в самом деле, до фактического выполнения любого вида деятельности необходимо заключить договор(или несколько договоров). В наше время, договор имеет огромное значение , так как если не заключить-увеличить вероятность быть обманутым(заплатили половину суммы, или вообще ничего не заплатили).

Узнать стоимость работы