ID: 63940

Название работы: Создание электронного учебника по предмету АИС

Категория: Дипломная

Предметная область: Информатика, кибернетика и программирование

Описание: Чтобы создать свою страничку, вам необязательно знать даже основы html, т.к. программа возьмет на себя львиную долю работы по написанию html-кода. Можно порекомендовать Macromedia Dreamweaver и как своеобразный учебник

Язык: Русский

Дата добавления: 2014-07-03

Размер файла: 1.03 MB

Работу скачали: 9 чел.

АННОТАЦИЯ

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

Электронный учебник по АИС составлен для учащихся общеобразовательных учреждений. На сегодняшний день разработано множество электронных учебников на совершенно разные темы, удобные и для домашнего обучения, и для использования в образовательных учреждениях. Электронные учебники существенно повышают качество визуальной информации, она становится ярче, красочнее, а, как известно, чем интереснее представлен материал, тем интереснее его изучать. Поэтому возможности электронных учебников не ограничиваются только изложением и демонстрацией материала, они призваны заинтересовать ученика.

Эффективность разработанного электронного учебника определялась оценкой качества подготовки учеников.

Для этого в программе предусмотрена процедура тестирования с сохранением результатов в базе данных.

В пояснительной записке расмотрены следующие разделы: введение, постановка задачи, метод решения задачи, логическая структура программы, руководство систмного прораммиста, руководство пользователя, интерпритация и анализ результатов решения, информационная безопасность, расчет себестоимости информационной системы, техника безопасности и охрана труда.

СОДЕРЖАНИЕ

	Введение	5
1.	Постановка задачи	7
2.	Метод решения задачи	8
3.	Логическая структура программы	10
4.	Руководство системного программиста	12
5.	Руководство пользователя	14
6.	Интерпретация и анализ результатов решения	26
7.	Информационная безопасность                                                                       7.1. Требования к уровню обеспечения информационной безопасности 7.2. Объекты, подлежащие защите 7.3. Цели и задачи защиты информации 7.4. Виды мер обеспечения информационной безопасности 7.5. Основные защитные механизмы	27 27 27 27 28 28
8.	Расчет себестоимости информационной 8.1. Расчет себестоимости информационной системы 8.2. Расчет отпускной цены информационной системы                               8.3.Рекомендации по снижению себестоимости информационной          Системы 8.4. Расчёт себестоимости информационной системы 8.5. Расчёт отпускной цены информационной системы	29 30 36 37 38 45
9.	Техника безопасности и охрана труда	46
	Заключение	52
	Литература	54
	Приложение	56
	Текст программы на 71 листах

Введение

На сегодняшний день разработано множество электронных учебников на совершенно разные темы, начиная от простеньких небольших программок, заканчивая сложными и серьезными проектами, которые создавались годами.

В чем же причина такого большого количества электронных учебников?

Наверное, ответ очень прост: причина во всеобщей компьютеризации общества. Наряду с традиционными учебными пособиями стали использоваться, так называемые, электронные учебники, удобные и для домашнего обучения, и для использования в образовательных учреждениях.

Электронные учебники существенно повышают качество визуальной информации, она становится ярче, красочнее, а, как известно, чем интереснее представлен материал, тем интереснее его изучать. Поэтому возможности электронных учебников не ограничиваются только изложением и демонстрацией материала, они призваны заинтересовать ученика.

Именно поэтому, следуя современным тенденциям, была выбрана данная тема дипломного проекта.

Цель работы –  создать электронный учебник по предмету АИС,, который можно использовать на предметах АИС, а также для самостоятельного изучения.

Достижение цели работы осуществлялось решением следующих основных задач:

1. Изучить и провести анализ литературы по теме работы.

2. На основе методики изучения информатики, создать учебник.

3. Разработать тест для проверки изученного материала.

Новизна проекта состоит в том, что в работе представлена интерпретация данной темы эффективными средствами Macromedia Dreamweaver MX 2004 совместно с язык визуального программирования Borland Delphi 7.

Macromedia Dreamweaver — один из самых мощных визуальных HTML-редакторов, поддерживающий практически все современные стандарты Интернета и облегчающий выполнение любых сложных задач, с которыми приходится столкнуться web-мастеру.

Чтобы создать свою страничку, вам необязательно знать даже основы html, т.к. программа возьмет на себя львиную долю работы по написанию html-кода. Можно порекомендовать Macromedia Dreamweaver и как своеобразный учебник HTML - достаточно лишь поглядывать на автоматически создаваемый код и, для полной ясности, в какой-либо из учебников html или справочник HTML-тегов.

Для реализации данного проекта так же был использован язык визуального программирования Borland Delphi 7.

Delphi – общепризнанный лидер среди инструментов для создания приложений и систем, функционирующих на платформе Windows. Версия Delphi 7 включает уникальные средства интеграции с существующими Windows-приложениями. Возможность работы с разнообразными источниками информации и прозрачность подключения новых механизмов доступа к данным делает Delphi 7 наиболее оптимальным выбором для профессионалов индустрии информационных технологий.

Совместное использование данных программ обусловлено тем, что необходимо было создать электронный учебник в виде страничек html, а также обеспечить проверку полученных знаний пользователей с помощью теста с сохранением результатов в базе данных. Кроме того, сами тесты также сохраняются в базах данных стандарта Paradox 7.

1. ПОСТАНОВКА ЗАДАЧИ

Наиболее эффективный способ усвоения материала – наглядно-иллюстративный. В этом заключается актуальность выбранной темы.

На первом этапе создания электронного учебника проведен анализ литературы, содержащей информацию по выбранной теме, т.е. исходные данные.

Для наполнения электронного учебника было выбрано следующие пособии:

•  Гвозьдева В.Л., Лаврентьева И.Ю., Основы постороения автоматизированных информационных систем.

Материал, взятый из этого источника был систематизирован и обработан. Были выделены следующие темы: общая характеристика АИС, принципы создания информационногообеспечения, особенности функционирования автоматизированных информационных систем.

Эффективность разработанного электронного учебника определялась оценкой качества подготовки учеников.

Для этого в программе предусмотрена процедура тестирования с сохранением результатов в базе данных.

Для проведения тестирования необходимы такие исходные данные как ФИО ученика, выбранный тест, включающий в себя вопрос, варианты ответов и правильный ответ.

2. Метод решения задачи

Представленный в данном дипломном проекте программный продукт реализован средствами Macromedia Dreamweaver MX 2004.

С его помощью организована следующая структура элекронного учебника:

Заголовок
Оглавление со ссылками на разделы текста	Основной текст

Рисунок

Кроме того с помощью языка программирования Delphi 7 в нашем проекте осуществляется ведение базы данных тестов по информатике и результатов тестирования учеников.

При разработке проекта использовались методы работы с базами данных, входящие в состав системы Delphi 7.

Структура базы данных:

1. Тест

 

                    Рисунок

2. Результаты тестирования

 

                      Рисунок

3. лОГИЧЕСКАЯ СТРУКТУРА ПРОГРАММЫ 

Список процедур:

Button1click - начать тестирование ученика;

Button2click - вернуться к предыдущему вопросу теста;

Button3Click - перейти к следующему вопросу теста;

Button4Click - закончить тестирование;

N2Click - открыть форму установления настроек и результатов;

Button12Click - создать новый тест;

Button18Click - удалить тест;

Button3Click - установить пароль администратора;

N3Click - выйти из программы.

4. Руководство системного программиста

Настоящий программный продукт поставляется на лазерном дисках. Проект состоит из  файлов Book.exe (его размер составляет 1,6 Мб),  файлы базы данных (1,7 Мб), где хранятся  вопросы и варианты ответов теста, файлы, содержащие информацию, необходимую для запуска программы,  и вспомогательные файлы-библиотеки Delphi формата .dll (8,40 Мб).

Таблицы БД:

1.  Question – таблица, на основе которой создаются базы данных с вопросами и ответами.
2.  Rezult – таблица, содержащая результаты тестирований.

Текстовый файл p.001, содержащий пароль администратора.

Файлы – библиотеки позволяют избежать установки BDE Administrator (Borland Database Engine) из инсталляционного пакета Delphi 7, расположенного на диске Delphi 7, необходимого для работы с базами данных. Для того чтобы начать работу с программой, необходимо запустить самостоятельный файл Book.exe.

Файл index.htm и папка Book содержат электронный учебник по предмету АИС.

Все перечисленные выше файлы и файл Book.exe должны находиться строго вместе в одной любой директории на жестком диске ПК.

Для правильного функционирования данной программы необходимо соблюдать следующие минимальные требования к системе:

Процессор: Pentium 200 МГц и выше

Оперативная память: не менее 64 Мб

Жесткий диск (HDD): размер HDD не меньше объема  

                                     дискового пространства, занимаемого

                                     операционной системой, плюс размер

                                     данного программного продукта.

Дисковод CD-ROM для установки данного программного продукта с

лазерного диска

Монитор, поддерживающий разрешение 800х600 и выше.

Требования к операционной системе: Windows 98 и выше.

Дополнительно рекомендуется наличие браузера Internet Explorer 5.0 и выше.

В настройках браузера рекомендуется не отключать вывод изображений и поддержку настроек разработчика.

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

Запустите файл Book.exe, находящийся на жестком диске Вашего ПК, поставив указатель на данный файл и нажав клавишу Enter или дважды щелкнув по нему левой кнопкой мыши. Через несколько секунд появится заставка к программе:

Рисунок

После запуска программы на экран будет выведена следующая форма:

Рисунок

Заклака «Учебник» содержит теоретический материал по Автоматизированным информационным системам и предназначена для обучения.

Для навигации по учебнику предназначена левая панель оглавления со ссылками на разделы текста.

С главной страницы можно приступить к работе с учебником, для этого необходимо нажать на кнопку перехода.

На всех страницах учебника есть дополнительные кнопки перехода .

При нажатии на кнопку пользователь возвращается к предыдущему разделу учебника.

При нажатии на кнопку пользователь совершает переход к следующему разделу электронного учебника.

Каждую страницу пособия можно вывести на печать в удобном для изучения виде.

Чтобы распечатать страницу,  необходимо нажать на кнопку (версия для печати) в верхнем правом углу.

Страница будет выведена в отдельном окне:

Рисунок

Для отправки материала на принтер необходимо нажать пункт меню браузера Файл – Печать.

Также переход на определенную страницу можно осуществить, нажав текстовую ссылку.

Каждый раздел электронного учебника содержит теоретический материал. В конце электронного учебника предусмотрены контрольные вопросы к каждому разделу для закрепления пройденного материала.

Для прохождения тестирования предназначена закладка «Тест».

Рисунок

Прежде чем начать тестирование Вам необходимо зарегистрироваться, то есть:

1.  внести свои данные в поле «Тестируемый»;
2.   выбрать нужный тест из списка «Теста».

После того, как Вы прошли регистрацию, нажмите кнопку «ОК» для перехода к тестированию.

При работе на данной закладке, могут появиться следующие сообщения:

Рисунок

Причина выдачи сообщения: тестируемый учащийся не внес свои данные в поле «Тестируемый» и нажал кнопку «ОК».

Действия пользователя: введите в поле «Тестируемый» свои данные.

Рисунок

Причина выдачи сообщения: не выбрана база данных теста.

Действия пользователя: выберите из списка «Тест» нужное значение.

После нажатия кнопки «ОК» Вам следует внимательно прочитать вопрос и выбрать правильный на Ваш взгляд вариант ответа, поставив точку одним щелчком мыши возле выбранного Вами ответа.

Правильным является только один вариант ответа из четырех предложенных. Для перехода к следующему вопросу нажмите кнопку «>>», расположенную снизу. Отвечая на вопросы, Вы можете возвращаться назад и менять выбранные варианты ответов. При переходе к последнему вопросу появляется внизу кнопка «Закончить тест», которую необходимо нажать, если Вы хотите завершить тестирование.

После нажатия кнопки «Закончить тест» появляется результат проверки Ваших знаний, здесь следует нажать кнопку «OK».

Рисунок

После нажатия кнопки «ОK» тестирования прекращается, и Ваш результат автоматически заносится в Журнал оценок.

При тестировании переход на другие закладки запрещен. При попытке перехода появится сообщение

Рисунок

Чтобы продолжить работу, нажмите кнопку «OK» на сообщении. Для перехода на другие страницы программы завершите работу на данной закладке.

Прежде чем начать тестирование, необходимо установить соответствующие настройки. Для этого предназначен пункт меню Файл-Администрирование.

Рисунок

Если Вы ввели неправильный пароль, то на экране появиться следующее сообщение:

Рисунок

Нажмите «ОК» и введите верный пароль.

Работа на форме «Настройки».

Рисунок

Закладка «Настройки» содержит саму базу вопросов и вариантов ответов, также в этой закладке имеется возможность вносить новые, удалять старые и редактировать существующие данные. Здесь также осуществляется создание и удаление целиком баз данных.  

Просматривать вопросы можно с помощью соответствующих кнопок, передвигаясь по шагам вперед/назад.

Настоящая закладка имеет все средства, необходимые для удобной работы с базой данных:

1. поле Вопрос – для отображения или внесения самого вопроса;

2. поля Варианты ответов – для отображения или внесения вариантов ответов;

3. список «Номер правильного ответа» – для выбора номера того поля, которое содержит правильный вариант ответа;

4. кнопка «Добавить» - организует ввод нового вопроса а базу данных;

5. кнопка «Редактировать» - позволяет редактировать текущий вопрос;

6. кнопка «Удалить» - удаляет из базы данных текущий вопрос с вариантами ответа;

7. кнопка «Записать» - записывает новый вопрос или внесенные изменения в редактируемый вопрос;

8. кнопка «Отмена» - выход из режима редактирования или внесения нового вопроса;

9. кнопка «Новый тест» - позволяет создать новую пустую базу данных для теста. При нажатии на эту кнопку появляется следующее окно, в которое необходимо внести название новой базы данных:

Рисунок

Затем нажмите кнопку «ОК» для создание базы с указанным именем, или кнопку “Cancel” для отмены создания БД, в случае отмены появится сообщение о том, что БД не создана:

Рисунок

Если Вы ввели имя, которое уже имеет другая БД, то появится сообщение

Рисунок

При ответе Да уже существующая БД заменяется новой БД, при ответе Нет существующая база остается без изменений, а создание новой БД прекращается, об этом говорится в следующем сообщении:

Рисунок

Нажмите кнопку ОК для продолжения работы.

Кнопка «Удалить тест» позволяет удалить выбранную из списка «Удаление БД теста» БД теста. Если в списке не указали базу данных и нажали кнопку «Удалить тест», то появится сообщение

Рисунок

Нажмите кнопку «ОК» для продолжения работы с программой.

При внесении нового (кнопка «Добавить») или редактировании существующего вопроса (кнопка «Редактирование») на закладке «Настройки» переход на другие закладки запрещен.

При попытке перехода появится сообщение

Рисунок

Чтобы продолжить работу, нажмите кнопку «OK» на сообщении. Для перехода на другие страницы программы завершите работу на данной закладке.

Работа на закладке «Результаты»

Данная закладка позволяет просматривать, выводить на печать, удалять некоторые поля базы данных результатов тестирования.

Рисунок

Просматривать записи о прошедших тест можно с помощью навигатора базы данных, передвигаясь по шагам вперед/назад или сразу на конец или начало базы.

Кнопки «Удалить» и «Удалить всё» - удаляет из базы данных одну или все записи соответственно, при нажатии на эту кнопку появляется подтверждающее удаление сообщение.

Рисунок

На основной форме программы с помощью пункта меню Файл – Изменить пароль осуществляется изменение параметров идентификации администратора.

Рисунок

Для смены пароля необходимо ввести старый пароль. Если Вы ввели неправильный старый пароль, то на экране появиться следующее сообщение:

Рисунок

и поле для ввода старого пароля станет пустым.

В случае успешной смены пароля появляется сообщение:

Рисунок

Для выхода из программы пердназначен пункт мнею Файл –Выход.

6. Интерпретация и анализ результатов

Целью данной дипломного проекта было написание электронного учебника по теме «Автоматизированные информационные системы», доступного для самостоятельного изучения, а также проверки полученных знаний с помощью тестирования.

Прежде чем начать тестирование студенты должны ознакомиться с теоретическим материалом (закладка «Учебник»). Материал представлен в удобной для восприятия форме, с развитой системой навигации и возможностью распечатки изучаемого материала.

Начиная тестирование (пункт меню «Тест») ученик должен зарегистрироваться. Затем  в соответствии с выбранным тестом отбираются вопросы тестирования, при чем вопросы отбираются случайным образом. Это позволяет исключить списывание и проверить знания студентов.

После окончания теста выводится общий результат тестирования (количество правильных ответов из общего количества ответов).

Рисунок

Все данные о тестируемых программно вводятся в Журнал оценок и хранятся в базе данных о результатах тестирования.

7. ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ

7.1. Определение требований к уровню обеспечения информационной безопасности

Возможными угрозами информационной безопасности являются вирусы, которые могут попасть в компьютер через электронную почту, Интернет, информационные носители (CD-диски, Flash-носители). Так же угрозами служат нарушение физической целостности, несанкционированное получение и размножение информации.

Для надёжного противостояния этим угрозам устанавливают антивирусное программное обеспечение, парольная защита, проводится разграничение уровней доступа в сети: на первом уровне доступа находится администратор сети, на втором - пользовательские имена.

7.2. Объекты, подлежащие защите

Защите подлежат технические средства - персональные электронные вычислительные машины (ПЭВМ), модемы, сервер.

Программные средства - программный продукт Book.exe, стандартное программное обеспечение: пакет Microsoft Office 2003, Internet Explorer.

Базы данных - Question, Rezul. Текстовые файлы: Ozen.001, p.001, w.001.

Документация - сохраненные в файлах результаты тестирования.

7.3. Цели и задачи защиты информации

Главной целью защиты информации является сохранение целостности информации. К основным задачам защиты информации относятся обеспечение санкционированного доступа. Для этого проводится разграничение уровней доступа в сети, имеются пароли для отдельных пользователей.

7.4. Виды мер обеспечения информационной безопасности

Для обеспечения информационной безопасности пользуются организационными средствами защиты, ограничивающими доступ в здание, компьютерные помещения и к шкафам с оборудованием. Такими средствами являются кодовый замок, вахтёр.

Технические средства защиты - это сигнализация и видеонаблюдение.

Программно-математическими средствами защиты выступает программное обеспечение для защиты от вирусов и парольная защита, разграничение уровней доступа в сети.

7.5. Основные защитные механизмы

Для защиты информации используются следующие механизмы: ограниченный доступ к некоторым разделам программы – для доступа к настройкам тестов и результатам необходимо знать пароль администратора.

Пароль сохраняется в определнном файле в закодированном виде.

8. Расчёт себестоимости информационной системы

В этой части дипломного проекта необходимо определить себестоимость и цену разработки информационной системы «Электронный учебник по предмету АИС».

Себестоимость – это сумма затрат в денежном выражении на производство и реализацию продукции.

Цена – это экономическая категория, которая позволяет установить связь между производителем и покупателем.

Калькуляция – это себестоимость единицы продукции в денежном выражении.

Стоимость – это экономическая категория, выражающая отношения между людьми по поводу воплощённого в товаре и овеществлённого в нём общественного труда товаропроизводителей.

Прибыль – разница между доходами и расходами.

Для того, чтобы определить себестоимость необходимо определить трудоёмкость работ.

Таблица 1

Перечень работ для создания ИС

Наименование услуг	Единица измерения	Количество
Работа с заказчиком	Час	6
Изучение материалов для создания данного информационного продукта	Час	8
Изучение конкретных программных продуктов	Час	10
Обработка информационных массивов	Час	15
Работа с периодической литературой	Час	7
Работа с Internet	Час	12
Работа по созданию объектов базы данных	Час	27
Работа по оформлению информационной системы	Час	31
Проверка работоспособности информационной системы	Час	12
Разработка инструкции по эксплуатации	Час	12
Распечатка документов	Час	2
Профилактические работы	Час	4
Гигиенический уход за компьютером	Час	2
Установка информационной системы	Час	2
Обучение персонала работе с информационной системой	Час	10
Итого	Час	160

8.1. Расчёт себестоимости информационной системы

Затраты на материалы

Таблица 2

Затраты на материалы

Название материала	Единица измерения	Количество	Цена	Сумма
Бумага	лист	150	0.5	75
Диск	штук	1	18	18
Заправка картриджа	заправка	1	200	200
Папка	штук	1	80	80
Салфетки	упаковка	1	145	145
Итого:				518

Затраты на электроэнергию на технологические цели

Мощность: -системный блок – 350 Вт -монитор –  24 Вт -принтер – 700 Вт	Общее количество часов работы: -системный блок –  137 часов -монитор – 137 часов -принтер – 2 часа
	Даётся с учётом отработанного времени

Общая мощность рассчитывается по формуле:

Мобщ.=Мсб+Мм+Мпр,

где Мсб – мощность системного блока за отработанное время;

Мм – мощность монитора за отработанное время;

Мп – мощность принтера за отработанное время.

Мобщ.= 137*350+137*24+2*700 = 52638 Вт = 52.63 КВт/час.

Стоимость 1КВт/час=2.41  руб.

Стоимость электроэнергии за отработанное время рассчитывается по формуле:

Сэл= Мобщ.*Скв,

Где Мобщ. – общая мощность;

      Скв – стоимость 1КВт/час.

Сэл=52.63*2.41=126.83 руб.

Заработная плата основная

Она определяется по количеству затраченного времени на создание информационной системы:

Количество затраченного времени: 160 часов.

Оклад 5800 руб.

РК=  1.15  = 5800*0.15=870 руб.

Оклад с РК  6670  руб.

Количество рабочих часов месяц: 151 час

Стоимость одного часа работы: 44.17 руб./час

Заработная плата основная рассчитывается по формуле:

ЗПосн=tзатр*Счас,

где tзатр – количество затраченного времени;

     Счас – стоимость одного часа работы.

ЗПосн=160*44.17= 7067,2 руб.

Дополнительная заработная плата

Она равна 13% от заработной платы основной и рассчитывается по формуле:

ДЗП=

где ЗПосн – заработная плата основная.

                              ДЗП= 0.13* 7067,2= 918,73 руб.

Страховые взносы

Страховые взносы составляют 30% от полной заработной платы, они рассчитывается по формуле:

СВ=

где ЗПосн – заработная плата основная;

ДЗП – дополнительная заработная плата.

                            СВ=0.3*(7067,2 +918.73)= 2395,77 руб.

Накладные расходы

Это расходы, не имеющие отношения к выполняемой работе, но они должны быть учтены при составлении сметы на оказание услуги.

Аренда: 15 кв.м (1 кв.м –  200   руб.)

Количество рабочих часов в месяц: 151 час

Арендная плата за час:   19.87  руб.

Стоимость аренды помещения рассчитывается по формуле:

Сар=Счас* tзатр

где Счас – арендная плата за час;

     tзатр – количество затраченного времени.

                         Сар=19.87*160= 3179,2 руб.

Амортизационные расходы

В этой статье должны учесть амортизацию основных фондов:

Здание, мебель –  300  в месяц

Количество рабочих часов в месяц: 151 час

Амортизация за час:  1.99  руб./час

Стоимость амортизации основных фондов рассчитывается по формуле:

Сам оф=Счас*tзатр,

где Счас – амортизация за час;

     tзатр – количество затраченного времени.

                             Сам оф=1.99*160=318,4  руб.

Амортизация ПК и оргтехники:

Вычислим суммарную амортизацию за год по формуле:

Агод

где Цоб – цена оборудования;

     СР – срок службы оборудования.

а) системный блок: Acer Aspire M1470    цена – 15959  руб.    срок службы – 3 года	Агод=
б) монитор: 21,5" LED Монитор серии 2 S22C200B    цена –   5710 руб.    срок службы – 6 лет	Агод=
в) клавиатура: GENIUS KB06X BLACK PS/2    цена – 532 руб.    срок службы – 3 года	Агод=
г) манипулятор – «мышь»: A4TECH CWOP-50 PS/2 +USB (OPTIMAL,SCROLL+5btns)    цена – 274  руб.    срок службы – 1 год	Агод=
Д) принтер: HP “Laser Jet P1102” A4    цена – 4300  руб.    срок службы – 5 лет	Агод=

Рабочих дней в 2014 году – 247 дней

Рабочих часов в 2014 году – 1970 часов

Стоимость амортизации 1 часа работы рассчитывается по формуле:

Ачас=

где Агод – суммарная амортизация за год;

     Ф – годовой полезный фонд работы оборудования.

Агод =5319.66++951.66+177.33+274+860=7582,65 руб.

Стоимость амортизации за час:

а) системный блок:

Ачас=

б) монитор:

Ачас=

в) клавиатура:

Ачас=

г) манипулятор – «мышь»:

Ачас=

д) принтер:

Ачас =

Амортизация за отработанное время рассчитывается по формуле:

Авр=Ачас*tзатр,

где  Ачас – стоимость амортизации 1 часа;

      tзатр – количество затраченного времени.

а) системный блок    Авр=2.7*137=369,9 руб.

б) монитор         Авр=0.48*137=65,76 руб.

в) клавиатура    Авр=0.09*137=12,33 руб.

г) манипулятор – «мышь»     Авр=0.14*137=20.86 руб.

д) принтер     Авр=0.44*137=60,28 руб.

Всего амортизационные отчисления составляют –                            

           369,9+65.76+12.33+20,86+60,28 = 529.13 руб.

ИТОГО: 529.13+318,4 = 847.53 руб.

   Прочие расходы

Составляют 100% от заработанной платы основной – 7067,2 руб.

Таблица3

Калькуляция себестоимости услуг по созданию

информационной системы

№ п/п	Калькуляция статьи	Единица измерения	Сумма
1	Затраты на материалы	руб.	518
2	Затраты на электроэнергию	руб.	126.83
3	Заработная плата основная	руб.	7067.2
4	Заработная плата дополнительная	руб.	918.73
5	Страховые взносы	руб.	2395.77
6	Накладные расходы	руб.	3179.2
7	Амортизационные расходы	руб.	843.53
8	Прочие расходы	руб.	7067.2
9	Производственная себестоимость	руб.	22116,46
10	Коммерческие расходы 3%	руб.	663.49
	Полная себестоимость	руб.	22779,95

             

8.2.  Расчёт отпускной цены информационной системы

Отпускная цена рассчитывается по формуле:

Цотп.=Сп+Пр+НДС,

где Сп - полная себестоимость информационной системы;

     Пр – прибыль;

     НДС – налог на добавленную стоимость.

Прибыль равна 30% от полной себестоимости и рассчитывается по формуле:

Пр=

где Сп – полная себестоимость информационной системы.

                                      Пр=22779,95*0.3=6833,99 руб.

Налог на добавленную стоимость равен 18% от суммы полной себестоимости и прибыли и рассчитывается по формуле:

НДС=

Где Сп – полная себестоимость информационной системы;

Пр – прибыль.

             НДС=(22779,95+6833,99)*0.18=5330,51 руб.

Отпускная цена информационного продукта рассчитывается по формуле:

                                  Цотп.= 22779,95+6833,99+5330,51 = 34944,45 руб.

Расчёт отпускной цены даёт возможность для составления договора с заказчиком.

8.3. Рекомендации по снижению себестоимости информационной системы

Для повышения конкурентоспособности информационного продукта в условиях рыночной экономики необходимо предусмотреть мероприятия по снижению отпускной цены информационного продукта.

Факторы, влияющие на снижение отпускной цены следующие:

1.  Повышение производительности труда.

Таблица 1

Перечень работ для создания ИС

Наименование услуг	Единица измерения	Количество
Работа с заказчиком	Час	4
Изучение материалов для создания данного информационного продукта	Час	6
Изучение конкретных программных продуктов	Час	7
Обработка информационных массивов	Час	14
Работа с периодической литературой	Час	8
Работа с Internet	Час	10
Работа по созданию объектов базы данных	Час	23
Работа по оформлению информационной системы	Час	31
Проверка работоспособности информационной системы	Час	10
Разработка инструкции по эксплуатации	Час	10
Распечатка документов	Час	2
Профилактические работы	Час	3
Гигиенический уход за компьютером	Час	2
Установка информационной системы	Час	2
Обучение персонала работе с информационной системой	Час	9
Итого	Час	141

8.4. Расчёт себестоимости информационной системы

Затраты на материалы

Таблица 2

Затраты на материалы

Название материала	Единица измерения	Количество	Цена	Сумма
Бумага	лист	150	0.5	75
Диск	штук	1	18	18
Заправка картриджа	заправка	1	200	200
Папка	штук	1	80	80
Салфетки	упаковка	1	145	145
Итого:				518

Затраты на электроэнергию на технологические цели

Мощность: -системный блок – 350 Вт -монитор –  24 Вт -принтер – 700 Вт   55726	Общее количество часов работы: -системный блок –  121 часов -монитор – 121 часов -принтер – 2 часа
	Даётся с учётом отработанного времени

Общая мощность рассчитывается по формуле:

Мобщ.=Мсб+Мм+Мпр,

где Мсб – мощность системного блока за отработанное время;

Мм – мощность монитора за отработанное время;

Мп – мощность принтера за отработанное время.

Мобщ.= 121*350+121*24+2*700 = 42350 Вт = 42.35 КВт/час.

Стоимость 1КВт/час=2.41  руб.

Стоимость электроэнергии за отработанное время рассчитывается по формуле:

Сэл= Мобщ.*Скв,

Где Мобщ. – общая мощность;

      Скв – стоимость 1КВт/час.

Сэл=42,35*2.41=102,06 руб.

Заработная плата основная

Она определяется по количеству затраченного времени на создание информационной системы:

Количество затраченного времени: 141 часа.

Оклад 5800 руб.

РК=  1.15  = 5800*0.15=870 руб.

Оклад с РК  6670  руб.

Количество рабочих часов месяц: 151 часов

Стоимость одного часа работы: 44.17 руб./час

Заработная плата основная рассчитывается по формуле:

ЗПосн=tзатр*Счас,

где tзатр – количество затраченного времени;

     Счас – стоимость одного часа работы.

ЗПосн=141*44.17=6227.97 руб.

Дополнительная заработная плата

Она равна 13% от заработной платы основной и рассчитывается по формуле:

ДЗП=

где ЗПосн – заработная плата основная.

                              ДЗП= 0.13*6227.97=809.64 руб.

Страховые взносы

Страховые взносы составляют 30% от полной заработной платы, они рассчитывается по формуле:

СВ=

где ЗПосн – заработная плата основная;

ДЗП – дополнительная заработная плата.

                            СВ = 0.3*(6227.97+809.64) = 2111.28 руб.

Накладные расходы

Это расходы, не имеющие отношения к выполняемой работе, но они должны быть учтены при составлении сметы на оказание услуги.

Аренда: 15 кв.м (1 кв.м –  200    руб.)

Количество рабочих часов в месяц: 151 часов

Арендная плата за час:   19.87 руб.

Стоимость аренды помещения рассчитывается по формуле:

Сар=Счас* tзатр

где Счас – арендная плата за час;

     tзатр – количество затраченного времени.

                         Сар=19.87*141= 2801.67 руб.

Амортизационные расходы

В этой статье должны учесть амортизацию основных фондов:

Здание, мебель –  300  в месяц

Количество рабочих часов в месяц:151 час

Амортизация за час:  1.99  руб./час

Стоимость амортизации основных фондов рассчитывается по формуле:

Сам оф=Счас*tзатр,

где Счас – амортизация за час;

     tзатр – количество затраченного времени.

                             Сам оф=1.99*141= 280.59 руб.

Амортизация ПК и оргтехники:

Вычислим суммарную амортизацию за год по формуле:

Агод

где Цоб – цена оборудования;

     СР – срок службы оборудования.

а) системный блок: Acer Aspire M1470    цена – 15959  руб.    срок службы – 3 года	Агод=
б) монитор: 21,5" LED Монитор серии 2 S22C200B    цена –   5710 руб.    срок службы – 6 лет	Агод=
в) клавиатура: GENIUS KB06X BLACK PS/2    цена – 532 руб.    срок службы – 3 года	Агод=
г) манипулятор – «мышь»: A4TECH CWOP-50 PS/2 +USB (OPTIMAL,SCROLL+5btns)    цена – 274  руб.    срок службы – 1 год	Агод=
Д) принтер: HP “Laser Jet P1102” A4    цена – 4300  руб.    срок службы – 5 лет	Агод=

Рабочих дней в 2014 году – 247 дней

Рабочих часов в 2014 году – 1970 часа

Стоимость амортизации 1 часа работы рассчитывается по формуле:

Ачас=

где Агод – суммарная амортизация за год;

     Ф – годовой полезный фонд работы оборудования.

Агод =5319.66+951.66+177.33+274+860=7582.65 руб.

Стоимость амортизации за час:

а) системный блок:

Ачас=

б) монитор:

Ачас=

в) клавиатура:

Ачас=

г) манипулятор – «мышь»:

Ачас=

д) принтер:

Ачас =

Амортизация за отработанное время рассчитывается по формуле:

Авр=Ачас*tзатр,

где  Ачас – стоимость амортизации 1 часа;

      tзатр – количество затраченного времени.

а) системный блок    Авр=2.7*121= 326,7 руб.

б) монитор         Авр=0.48*121 = 58,08 руб.

в) клавиатура    Авр=0.09*121 = 10,89 руб.

г) манипулятор – «мышь»     Авр=0.14*121 =16,94 руб.

д) принтер     Авр=0.44*121 =53,24 руб.

Всего амортизационные отчисления составляют –                            

           326,7+58,08+10,89+16,94+53,24= 465,85 руб.

ИТОГО: 465,85+280.59 = 746,44 руб.

   Прочие расходы

Составляют 100% от заработанной платы основной – 6227.97 руб.

Таблица3

Калькуляция себестоимости услуг по созданию

информационной системы

№ п/п	Калькуляция статьи	Единица измерения	Сумма
1	Затраты на материалы	руб.	518
2	Затраты на электроэнергию	руб.	102,06
3	Заработная плата основная	руб.	6227.97
4	Заработная плата дополнительная	руб.	809.64
5	Страховые взносы	руб.	2111.28
6	Накладные расходы	руб.	2742.06
7	Амортизационные расходы	руб.	746,44
8	Прочие расходы	руб.	6227.97
9	Производственная себестоимость	руб.	19485,42
10	Коммерческие расходы 3%	руб.	584,56
	Полная себестоимость	руб.	20069,98

             

8.5  Расчёт отпускной цены информационной системы

Отпускная цена рассчитывается по формуле:

Цотп.=Сп+Пр+НДС,

где Сп - полная себестоимость информационной системы;

     Пр – прибыль;

     НДС – налог на добавленную стоимость.

Прибыль равна 30% от полной себестоимости и рассчитывается по формуле:

Пр=

где Сп – полная себестоимость информационной системы.

                                      Пр=20069,98*0.3=6020,99 руб.

Налог на добавленную стоимость равен 18% от суммы полной себестоимости и прибыли и рассчитывается по формуле:

НДС=

Где Сп – полная себестоимость информационной системы;

Пр – прибыль.

                                 НДС=(20069,98+6020,99) *0.18=4696,37руб.

Отпускная цена информационного продукта рассчитывается по формуле:

                                  Цотп.= 20069,98 +6020,99 +4696,37 =30787,34 руб.

Расчёт отпускной цены даёт возможность для составления договора с заказчиком.

34544,45-30787,34= 3757,11

В результате проведенных мероприятий удалось снизить отпускную цену на 3757,11 рублей.

Расчёт отпускной цены даёт возможность для составления договора с заказчиком.

9. техника безопасности и охрана труда

При разработке инструкции учтены требования нормативных актов:

•  Гигиенические требования к персональным электронно-вычислительным машинам и организации работы (СанПин 2.2.2/2.4.1340-03);
•  Правила эксплуатации электроустановок потребителей;
•  Типовая инструкция по охране труда для операторов и пользователей ПЭВМ (ТОИ Р 01-00-01-96)

Общие требования безопасности

1.  К работе с персональными электронно-вычислительными машинами (ПЭВМ) допускаются лица, обученные работе на них, имеющие 1 группу по электробезопасности, прошедшие вводный инструктаж (при приеме на работу) и первичный инструктаж по охране труда на рабочем месте.
2.  Лица, работающие с ПЭВМ более 50% рабочего времени (профессионально связанные с эксплуатацией ПЭВМ), должны проходить обязательно предварительные медицинские осмотры при поступлении на работу.
3.  К непосредственной работе с ПЭВМ допускаются лица, не имеющие медицинских противопоказаний.
4.  Женщины  со  времени установления беременности переводятся  на работы, не связанные с использованием ПЭВМ или для них ограничивается время работы с ПЭВМ (не более 3-х часов за рабочую смену) при условии соблюдения гигиенических требований.
5.  Пользователи ПЭВМ обязаны соблюдать правила внутреннего трудового распорядка, правила пожарной безопасности и правила личной гигиены.
6.  Пользователи ПЭВМ обязаны соблюдать режимы труда и отдыха.

•  Режимы труда и отдыха при работе с ПЭВМ должны организовываться в зависимости от вида категорий трудовой деятельности.
•  Для обеспечения оптимальности работоспособности и сохранения здоровья профессиональных пользователей на протяжении рабочей смены должны устанавливаться регламентированные перерывы.
•  Продолжительность непрерывной работы  с  ПЭВМ без регламентированного перерыва не должна превышать двух часов.
•  Во время регламентированных перерывов с целью снижения нервно-эмоционального напряжения, утомления, устранения гиподинамии целесообразно выполнять комплексы упражнений.
•  В случаях возникновения у работающих с ПЭВМ зрительного дискомфорта и других неблагоприятных субъективных ощущений несмотря на соблюдение санитарно-гигиенических, эргономических требований, режимов труда и отдыха следует применять индивидуальный подход в организации времени работ с ПЭВМ, коррекцию длительности перерывов для отдыха, или проводить смену деятельности на другую, не связанную с использованием ПЭВМ.

1.  Рекомендации к организации и оборудованию рабочих мест с ПЭВМ:

•  рабочие места с ПЭВМ по отношению к световым проемам располагаются так, чтобы естественный свет падал сбоку, преимущественно слева;
•  схемы размещения рабочих мест с ПЭВМ должны учитывать расстояние между рабочими столами с видеомониторами (в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора), которое должно быть не менее 2.0 м, а расстояние между боковыми поверхностями видеомониторов – не менее 1,2 м;
•  Для снижения воздействия на работающих возможных электромагнитных полей рекомендуется устанавливать между рабочими столами защитные экраны;
•  конструкция рабочего стола должна обеспечивать оптимальное размещение на рабочей поверхности используемого оборудования с учетом его количества и конструктивных особенностей (размер ПЭВМ, клавиатуры и др.), характера выполняемой работы. При этом допускается использование рабочих столов     различных     конструкций,     отвечающих     современным     требованиям эргономики;
•  конструкция рабочего стула (кресла) должна обеспечивать поддержание рациональной рабочей позы при работе на ПЭВМ, позволять изменять позу с целью снижения статического напряжения мышц шейно-плечевой области и спины для предупреждения развития утомления;
•  экран  видеомонитора должен  находиться  от  глаз  пользователя  на оптимальном 600-700 мм, но не ближе 500 мм с учетом. размеров алфавитно-цифровых знаков и символов;
•  помещения с ПЭВМ должны быть оснащены аптечкой первой помощи.

1.  Работник     обязан     немедленно     сообщать     непосредственному руководителю о случаях травмирования при неисправности оборудования.
2.  Работник обязан знать правила оказания первой помощи и оказывать ее пострадавшим при несчастных случаях.

Требования безопасности перед началом работы

Перед началом работы пользователь обязан:

•  осмотреть и привести в порядок рабочее место;
•  отрегулировать    освещенность    на    рабочем    месте,    убедиться    в достаточности   освещенности,    отсутствии   отражений   на   экране,   отсутствии встречного светового потока;
•  проверить правильность подключения оборудования на электросеть;
•  проверить     правильность     установки     стола,     стула,     положения оборудования, угла наклона экрана, положение клавиатуры и, при  необходимости произвести регулировку рабочего стола и кресла, а также расположение элементов компьютера   в соответствии с требованиями эргономики и в целях исключения неудобных поз и длительных напряжении тела.

! Пользователю запрещается приступать к работе при обнаружении неисправности оборудования.

Требования безопасности во время работы

Пользователь во время работы обязан:

•  выполнять только ту работу, которая ему была поручена и по которой он был проинструктирован;
•  выполнять санитарные нормы и соблюдать режимы работы и отдыха;
•  соблюдать установленные режимы рабочего времени регламентированные перерывы   в   работе    и   выполнять   в   физкультпаузах   и   физкультминутках рекомендованные упражнения для глаз, шеи, рук, туловища, ног;
•  соблюдать расстояние от глаз до экрана в пределах 60-80 см. Пользователю во время работы запрещается;
•  прикасаться к задней панели системного блока (процессора) при включенном питании;
•  переключать разъемы интерфейсных кабелей периферийных устройств при включенном питании;
•  загромождать верхние панели устройств бумагами и посторонними предметами;
•  допускать захламленность рабочего места бумагой в целях недопущения накапливания органической пыли;
•  допускать попадание влаги на поверхность системного блока (процессора), монитора, рабочую поверхность клавиатуры, дисководов, принтеров и др. устройств;
•  включать сильно охлажденное (принесенное с улицы в зимнее время) оборудование;
•  производить самостоятельно вскрытие и ремонт оборудования.

Требования безопасности в аварийных ситуациях

Пользователь обязан:

•  во всех случаях обнаружения обрыва проводов питания, неисправности заземления и других повреждений электрооборудования, появления запаха гари немедленно отключить питание и сообщить об аварийной ситуации руководителю и дежурному электрику;
•  при обнаружении человека, попавшего под напряжение, немедленно освободить его от действия тока путем отключения электропитания и до прибытия врача оказать потерпевшему первую медицинскую помощь;
•  при любых случаях сбоя в работе технического оборудования немедленно сообщить в соответствующую службу;
•  в случае появления рези в глазах, резком ухудшении видимости – невозможности сфокусировать взгляд или навести его на резкость, появлении боли в пальцах и кистях рук, усилении сердцебиения немедленно покинуть рабочее место, сообщить о происшедшем руководителю работ и обратиться к врачу;
•  при возгорании оборудования отключить питание и принять меры к тушению очага пожара при помощи углекислого или порошкового огнетушителя, вызвать пожарную команду и сообщить о происшествии руководителю работ.

Требования безопасности при работе с принтером

•  Не всовывайте руки внутрь принтера и не прикасайтесь к чернильным картриджам во время печати;
•  Не блокируйте и не закрывайте отверстия на корпусе принтера;
•  Не пытайтесь самостоятельно ремонтировать принтер;
•  Отключите принтер от электросети и предоставьте для ремонта квалифицированным специалистам в следующих случаях: шнур питания или вилка повреждены; в принтер попала жидкость; принтер уронили, или его корпус поврежден; принтер работает неправильно, или заметно снизилась скорость печати;
•  Не вставляйте предметы в отверстия на корпусе принтера;
•  Не проливайте на принтер жидкости;
•  Чернильные картриджи должны быть всегда установлены в принтере. После удаления картриджей печатающая головка может высохнуть, после чего принтер не сможет печатать нормально.

ЗАКЛЮЧЕНИЕ

Электронные учебники в целом упрощают работу преподавателю, при этом делают процесс усвоения сложного материала доступным и наглядным.

Остановимся на преимуществах и недостатках электронного пособия по сравнению с печатным. Существенных недостатков у электронного учебника два:

•  необходимость специального дополнительного оборудования для работы с ним, прежде всего - компьютера с соответствующим программным обеспечением и качественным монитором, а иногда дополнительно также дисковода для компакт-дисков и/или сетевой карты или модема для работы в локальной или глобальной сети;
•  непривычность, нетрадиционность электронной формы представления информации и повышенной утомляемости при работе с монитором.

Достоинств электронных учебников гораздо больше. К ним можно отнести:

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

Настоящий программный продукт может иметь широкое применение в образовательной сфере.

Новизна проекта состоит в том, что в работе представлена интерпретация данной темы эффективными средствами Macromedia Dreamweaver MX 2004 совместно с язык визуального программирования Borland Delphi 7.

Совместное использование данных программ обусловлено тем, что необходимо было создать электронный учебник в виде страничек html, а также обеспечить проверку полученных знаний пользователей с помощью теста с сохранением результатов в базе данных. Кроме того, сами тесты также сохраняются в базах данных стандарта Paradox 7.

ЛИТЕРАТУРА

1.       Баженова И. Ю.  «Delphi 7. Самоучитель программиста» Издательство: КУДИЦ-Образ ISBN: 5-93378-072-3.2003 г. 448с.
2.       Борисов Е. Ф. Основы экономики 2-е изд., испр. - М.: Дрофа, 2005 - 416 с.,
3.  Благодатских, В.А. Стандартизация разработки программных средств: Учеб. Пособие / В.А. Благодатских, В.А. Волнин, К.Ф. Поскакалов; Под ред. О.С. Разумова. М.: Финансы и статистика, 2005. – 288 с.
4.  Гагарина, Л.Г. Основы технологии разработки программных продуктов: Учеб. Пособие / Л.Г. Гагарина, Б.Д. Виснадул, А.В. Игошин. – М.: ФОРУМ: ИНФРА-М, 2006. – 192 с.
5.  Гвоздёва В.А., Лаврентьева И.Ю. «Основы построения автоматизированных информационных систем»: Учеб. пособие / В.А. Гвоздёва, И.Ю. Лаврентьева. – М.: ФОРУМ: ИНФРА-М, 2009. – 316 с.
6.    Гагарина Л.Г., Киселев Д.В., Федотова Е.Л. Разработка и эксплуатация автоматизированных информационных систем. ФОРУМ: ИНФРА-М, 2006. – 192 с.
7.    Дарахвелидзе П. Г., Марков Е. П. "Программирование в Delphi 7" БХВ-Петербург 2003 - 784с.
8.    Дронов В.А. «Самоучитель Adobe Dreamweaver» БХВ-Петербург 206. – 320с.
9.  Карпова, Т. С. «Базы данных: модели, разработка, реализация» -  СПб.: Питер, 2001. – 304 с.: ил.
10.  Партыка, Т.Л. Информационная безопасность. Учебное пособие для студентов учреждений среднего профессионального образования / Т.Л. Партыка, И.И. Попов. – 2-е изд., испр. и доп. -  М.: ФОРУМ: ИНФРА-М, 2007. – 368 с.
11.  Рудаков, А.В. Технология разработки программных продуктов: Учеб. Пособие для студ. Сред. Проф. Образования / А.В. Рудаков. – М.: Издательский центр «Академия», 2005. – 208 с.
12.    Гигиенические требования к персональным электронно-вычислительным машинам и организации работы. СанПиН 2.2.2/2.4.1340-03: Постановление Правительства РФ от 30 мая 2003 года № 118 // Собрание законодательства РФ. – 2003.   
13.    Создание таблиц с помощью Database Desktop [http://citforum.ru/] citforum
14.    Borland Database Desktop [http://windog.3dn.ru/ ] 3dn
15.    Контекстая реклама Яндекс Директ [http://direct.yandex.ru/] Яндекс-Директ
16.  Халезина, М.Б. Методические указания по оформлению дипломных работ: утв. 20.04.2007 / М.Б. Халезина. – Миасс, 2007. – 11 с. 

Приложеине

Текст программы

Заставка

unit SplashUnit;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, ExtCtrls, jpeg, StdCtrls;

type

 TSplashForm = class(TForm)

   Timer1: TTimer;

   Image1: TImage;

   Label1: TLabel;

   procedure FormCreate(Sender: TObject);

   procedure Timer1Timer(Sender: TObject);

   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 SplashForm: TSplashForm;

implementation

{$R *.dfm}

procedure TSplashForm.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled := False;

end;

procedure TSplashForm.FormCloseQuery(Sender: TObject;

 var CanClose: Boolean);

begin

CanClose := Not Timer1.Enabled;

end;

procedure TSplashForm.FormCreate(Sender: TObject);

var

LogFont : TLogFont;

begin

GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);

LogFont.lfEscapement := 90;

Canvas.Font.Handle := CreateFontIndirect(LogFont);

end; end.

Основная форма

unit Osn;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ShellAPI, DB, DBTables, jpeg, ExtCtrls, ComCtrls, Math,

 DBCtrls, Mask, Grids, DBGrids, OleCtrls, SHDocVw, Menus, RpRave, RpCon,

 RpConDS, RpConBDE, RpDefine, RpBase, RpSystem;

type

 TOsnow = class(TForm)

   Database1: TDatabase;

   Rezultati: TTable;

   RezultatiFIO: TStringField;

   RezultatiDate: TDateField;

   RezultatiKolWopr: TSmallintField;

   RezultatiKolPrawOtw: TSmallintField;

   RezultatiBall: TFloatField;

   RezultatiOzenka: TSmallintField;

   RezultatiTest: TStringField;

   Wopros: TTable;

   WoprosKod: TSmallintField;

   WoprosVopros: TStringField;

   WoprosOtvet1: TStringField;

   WoprosOtvet2: TStringField;

   WoprosOtvet3: TStringField;

   WoprosOtvet4: TStringField;

   WoprosRightOtv: TFloatField;

   PageControl1: TPageControl;

   TabSheet1: TTabSheet;

   TabSheet2: TTabSheet;

   GroupBox1: TGroupBox;

   Label9: TLabel;

   Edit1: TEdit;

   Label11: TLabel;

   Edit2: TEdit;

   Label12: TLabel;

   Edit3: TEdit;

   Label13: TLabel;

   Edit4: TEdit;

   Label24: TLabel;

   ComboBox2: TComboBox;

   Label14: TLabel;

   Button1: TButton;

   GroupBox2: TGroupBox;

   Memo1: TMemo;

   RadioGroup1: TRadioGroup;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   Timer1: TTimer;

   DataSource2: TDataSource;

   WebBrowser1: TWebBrowser;

   MainMenu1: TMainMenu;

   N1: TMenuItem;

   N2: TMenuItem;

   N3: TMenuItem;

   RezultatiGruppa: TStringField;

   N4: TMenuItem;

   N5: TMenuItem;

   N6: TMenuItem;

   RvSystem1: TRvSystem;

   RvTableConnection1: TRvTableConnection;

   RvProject1: TRvProject;

   Image1: TImage;

   N7: TMenuItem;

   N8: TMenuItem;

   N9: TMenuItem;

   N10: TMenuItem;

   procedure FormCreate(Sender: TObject);

   procedure FormClose(Sender: TObject; var Action: TCloseAction);

   procedure FormActivate(Sender: TObject);

   procedure TabSheet2Show(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure FormActiv();

   procedure ButtonClick(a : integer);

   procedure Button3Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure RadioGroup1Click(Sender: TObject);

   procedure Red_Brow(a: boolean);

   procedure Timer1Timer(Sender: TObject);

   procedure PageControl1Change(Sender: TObject);

   procedure N2Click(Sender: TObject);

   procedure N5Click(Sender: TObject);

   procedure Button13Click(Sender: TObject);

   procedure N6Click(Sender: TObject);

   procedure N3Click(Sender: TObject);

   procedure N7Click(Sender: TObject);

   procedure N8Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Osnow: TOsnow;

 TekForm:TForm;

 TestNach, err: boolean;

 i, j, NomerWoprosa, WsegoWoprosow, a, prosto, prawOtw, ozen, rez, k : integer;

 TimeTest,NachTime : TDateTime;

 Tekwopros : array [0..10] of integer;

 otwet : array [0..10] of integer;

 sr:tsearchrec;

 resKOD : string;

implementation

uses  WwodParol, Avtor, UstTime, UstOz;

{$R *.dfm}

procedure TOsnow.FormCreate(Sender: TObject);

begin

Database1.Params.Clear;

Database1.Params.Add('PATH='+ExtractFilePath(ParamStr(0)));

Database1.Connected:=false;

Rezultati.Active:=true;

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

Wopros.Active:=true;

WebBrowser1.Navigate(extractfilepath(paramstr(0))+'AzbukaKompa\index.htm');

{AssignFile(fil,extractfilepath(paramstr(0))+'oz.001');

 try

          reset(fil);

           except

 on EInOutError do

 begin

   i:=885;

   TrackBar1.Position:=85;

   TrackBar2.Position:=60;

   TrackBar3.Position:=45;

   TrackBar4.Position:=0;

 end;end;

   if i<>885 then

    begin

          readln(fil,s);

          TrackBar1.Position:=strtoint(s);

          readln(fil,s);

          TrackBar2.Position:=strtoint(s);

          readln(fil,s);

          TrackBar3.Position:=strtoint(s);

          readln(fil,s);

          TrackBar4.Position:=strtoint(s);

          CloseFile(fil);

    end;  }

AssignFile(fil,extractfilepath(paramstr(0))+'time.001');

 try

          reset(fil);

           except

 on EInOutError do

 begin

 

 end;

 end;

   if i<>885 then

    begin

      readln(fil,s);

      if s<>'0:00:00' then

      

      Label14.Caption:=s;

    end;

CloseFile(fil);

PageControl1.ActivePage:=TabSheet1;

end;

procedure TOsnow.FormClose(Sender: TObject; var Action: TCloseAction);

var K: integer;

begin

k:=Application.MessageBox('Закончить работу с программой?','',mb_YesNo);

  if k=idYes then

     begin

     Rezultati.Active:=false;

Wopros.Active:=false;

     end;

  if k=idNo then

  begin

  Action := caNone;

  end;

end;

procedure TOsnow.FormActivate(Sender: TObject);

begin

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

//Wopros.TableName:=NastroikiTest.Value;

Wopros.Active:=true;

end;

procedure TOsnow.TabSheet2Show(Sender: TObject);

begin

ComboBox2.Clear;

res:=FindFirst(extractfilepath(paramstr(0))+'*.db',faanyfile,sr);

while res=0 do

begin

if (sr.name='Nastroiki.DB')or(sr.name='Polz.DB')or(sr.name='Rezult.DB')or(sr.name='Wopr.DB') then

else

begin

ComboBox2.Items.Add(sr.name);

end;

res:=findnext(sr);

end;

findclose(sr);

if Form2.CheckBox1.Checked=true then

begin

Label14.Caption:=TimeToStr(Form2.DateTimePicker1.Time);

Label14.Visible:=true ;

end

else

Label14.Visible:=false;

end;

procedure TOsnow.ButtonClick(a : integer);

begin

Wopros.RecNo := Tekwopros[a];

Memo1.Clear;

Memo1.Lines.Add(WoprosVopros.AsString);

radioGroup1.Items.Clear;

radioGroup1.Items.Add(WoprosOtvet1.AsString);

radioGroup1.Items.Add(WoprosOtvet2.AsString);

radioGroup1.Items.Add(WoprosOtvet3.AsString);

radioGroup1.Items.Add(WoprosOtvet4.AsString);

radioGroup1.ItemIndex:=otwet[a];

end;

procedure TOsnow.FormActiv();

begin

if NomerWoprosa=WsegoWoprosow then

begin

Button3.Enabled := false;

Button4.Visible := true;

end

else

begin

Button3.Enabled := true;

Button4.Visible := false;

end;

if NomerWoprosa=0 then

Button2.Enabled := false

else

Button2.Enabled := true;

end;

procedure TOsnow.Button1Click(Sender: TObject);

label 1 ;

begin

if Edit1.Text='' then

begin

Application.MessageBox('Зарегистрируйтесь!','Предупреждение',mb_OK);

Edit1.SetFocus;

exit;

end;

if ComboBox2.Text='' then

begin

Application.MessageBox('Не выбран тест!','Предупреждение',mb_OK);

ComboBox2.SetFocus;

exit;

end;

TestNach:=true;

Wopros.Active:=false;

Wopros.TableName:=ComboBox2.Text;

Wopros.Active:=true;

GroupBox2.Enabled:=true;

Memo1.Enabled:=true;

RadioGroup1.Enabled:=true;

Button2.Enabled:=true;

Button3.Enabled:=true;

Button4.Enabled:=true;

if Form2.CheckBox1.Checked=true then

begin

Timer1.Enabled:=true;

TimeTest:=Form2.DateTimePicker1.DateTime;

end

else

Timer1.Enabled:=false;

NomerWoprosa := 0;

WsegoWoprosow := Wopros.RecordCount-1;

{if (Osnow.Wopros.RecordCount+1)<WsegoWoprosow then

begin

Application.MessageBox('Записей с вопросами в базе данных меньше, '+

                         'чем установлено в настройках. '+

                         'Обратитесь к администратору.' ,'Предупреждение',mb_OK);

Err:=true;

Glaw.Close;

exit;

end; }

{RezTest.StringGrid1.ColCount:=WsegoWoprosow+2;

RezTest.StringGrid1.RowCount:=3; }

Randomize;

for i:=0 to WsegoWoprosow do

 begin

    1:

    prosto:= random(Wopros.RecordCount+1);

    for j:=0 to i do

       if  (prosto=Tekwopros[j])or(prosto=0) then  goto 1;    // проверка на повторное вхождение вопроса

    Tekwopros[i]:= prosto;

    otwet[i]:= -1;

    memo1.Lines.Add(inttostr(Tekwopros[i]));

      end;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button3Click(Sender: TObject);

begin

NomerWoprosa:=NomerWoprosa+1;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button2Click(Sender: TObject);

begin

NomerWoprosa:=NomerWoprosa-1;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button4Click(Sender: TObject);

begin

if Form2.CheckBox1.Checked=true then

Timer1.Enabled:=false;

Timer1.Enabled:=False;

Rezultati.Active:=true;

Rezultati.Append;

RezultatiFIO.Value:=Edit1.Text+' ' +Edit2.Text+' ' +Edit3.Text;

RezultatiGruppa.Value:=Edit4.Text;

RezultatiDate.Value:=Date;

RezultatiTest.Value:=ComboBox2.Text;

prawOtw:=0;

for i:=0 to WsegoWoprosow do

 begin

 Wopros.RecNo := Tekwopros[i];

 if  WoprosRightOtv.AsInteger=otwet[i]+1 then

       prawOtw:=prawOtw+1;

 end;

RezultatiKolPrawOtw.Value:=prawOtw;

RezultatiBall.Value:=roundTo((prawOtw*100)/(WsegoWoprosow+1),-2);

{Osnow.Nastroiki.Active:=true;

Osnow.Nastroiki.Last; }

ozen:=0;

if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar1.Position then

ozen:=5

else

 if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar2.Position then

 ozen:=4

else

 if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar3.Position then

 ozen:=3

else

 ozen:=2;

Osnow.RezultatiOzenka.Value:=ozen;

RezultatiKolWopr.Value:=WsegoWoprosow+1;

RezultatiKolPrawOtw.Value:=prawOtw;

Rezultati.Post;

Application.MessageBox(PChar('Правильных ответов '+IntToStr(prawOtw)+' из '+IntToStr(WsegoWoprosow+1)+' вопросов. ),'Результат',mb_OK);

//Rezultati.Active:=false;

TestNach:=false;

Button4.Enabled:=false;

Memo1.Lines.Clear;

RadioGroup1.Items.Clear;

GroupBox2.Enabled:=false;

end;

procedure TOsnow.RadioGroup1Click(Sender: TObject);

begin

otwet[NomerWoprosa]:= RadioGroup1.ItemIndex;

end;

procedure TOsnow.Timer1Timer(Sender: TObject);

begin

TimeTest:=TimeTest-StrToTime('00:00:01');

If  TimeToStr(TimeTest)='0:00:00' then

begin

Timer1.Enabled:=false;

Application.MessageBox('Время закончилось!' ,'Предупреждение',mb_OK);

Button4Click(Button4);

exit;

end;

Label14.Caption:=timeToStr(TimeTest);

end;

procedure TOsnow.PageControl1Change(Sender: TObject);

begin

if (TestNach = true ) then

 begin

   PageControl1.ActivePage:=TabSheet2;

   Application.MessageBox('Для перехода на другую страницу необходимо завершить тестирование.','Ошибка',mb_OK);

 end;

if PageControl1.ActivePage = TabSheet1 then

 WebBrowser1.Navigate(extractfilepath(paramstr(0))+'AzbukaKompa\index.htm');

end;

procedure TOsnow.N2Click(Sender: TObject);

begin

Parol.Edit1.Clear;

Parol.Show;

end;

procedure TOsnow.N5Click(Sender: TObject);

begin

AvtorForm .Show;

end;

procedure TOsnow.Button13Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TOsnow.N6Click(Sender: TObject);

var

Vf: file;

  j:integer;

begin

j:=ShellExecute(handle, 'open','help/index.htm',Nil,Nil,SW_SHOWNORMAL);

end;

procedure TOsnow.N3Click(Sender: TObject);

begin

Osnow.Close;

end;

procedure TOsnow.N7Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet1;

end;

procedure TOsnow.N8Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet2;

end;

end.

Настройки

unit Nastr;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ShellAPI, DB, DBTables, jpeg, ExtCtrls, ComCtrls, Math,

 DBCtrls, Mask, Grids, DBGrids, OleCtrls, SHDocVw, Menus, RpRave, RpCon,

 RpConDS, RpConBDE, RpDefine, RpBase, RpSystem;

type

 TAdm = class(TForm)

   Database1: TDatabase;

   Rezultati: TTable;

   RezultatiFIO: TStringField;

   RezultatiDate: TDateField;

   RezultatiKolWopr: TSmallintField;

   RezultatiKolPrawOtw: TSmallintField;

   RezultatiBall: TFloatField;

   RezultatiOzenka: TSmallintField;

   RezultatiTest: TStringField;

   Wopros: TTable;

   WoprosKod: TSmallintField;

   WoprosVopros: TStringField;

   WoprosOtvet1: TStringField;

   WoprosOtvet2: TStringField;

   WoprosOtvet3: TStringField;

   WoprosOtvet4: TStringField;

   WoprosRightOtv: TFloatField;

   PageControl1: TPageControl;

   TabSheet3: TTabSheet;

   GroupBox4: TGroupBox;

   Label16: TLabel;

   Label17: TLabel;

   Label18: TLabel;

   Label19: TLabel;

   Label20: TLabel;

   Label21: TLabel;

   DBGrid2: TDBGrid;

   DBEdit7: TDBEdit;

   DBEdit8: TDBEdit;

   DBEdit9: TDBEdit;

   DBEdit10: TDBEdit;

   DBEdit12: TDBEdit;

   DBEdit11: TDBEdit;

   DBNavigator2: TDBNavigator;

   Button7: TButton;

   Button8: TButton;

   Button9: TButton;

   Button10: TButton;

   Button11: TButton;

   Timer1: TTimer;

   TabSheet4: TTabSheet;

   DBGrid1: TDBGrid;

   Label33: TLabel;

   DBEdit1: TDBEdit;

   Label34: TLabel;

   DBEdit2: TDBEdit;

   Label35: TLabel;

   DBEdit6: TDBEdit;

   Label36: TLabel;

   DBEdit4: TDBEdit;

   DBNavigator1: TDBNavigator;

   Button5: TButton;

   Button6: TButton;

   DataSource2: TDataSource;

   ComboBox1: TComboBox;

   Label15: TLabel;

   Button12: TButton;

   Button18: TButton;

   RezultatiGruppa: TStringField;

   Button13: TButton;

   RvSystem1: TRvSystem;

   RvTableConnection1: TRvTableConnection;

   RvProject1: TRvProject;

   GroupBox1: TGroupBox;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   DataSource1: TDataSource;

   procedure FormCreate(Sender: TObject);

   procedure FormActivate(Sender: TObject);

   procedure TabSheet3Show(Sender: TObject);

   procedure Button12Click(Sender: TObject);

   procedure Button18Click(Sender: TObject);

   procedure ComboBox1Change(Sender: TObject);

   procedure DataSource3StateChange(Sender: TObject);

   procedure Button7Click(Sender: TObject);

   procedure Button8Click(Sender: TObject);

   procedure Button9Click(Sender: TObject);

   procedure Button10Click(Sender: TObject);

   procedure Button11Click(Sender: TObject);

   procedure Red_Brow(a: boolean);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure PageControl1Change(Sender: TObject);

   procedure N2Click(Sender: TObject);

   procedure N5Click(Sender: TObject);

   procedure Button13Click(Sender: TObject);

   procedure N6Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure DataSource1StateChange(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Adm: TAdm;

 TekForm:TForm;

 TestNach, err: boolean;

 i, j, NomerWoprosa, WsegoWoprosow, a, prosto, prawOtw, ozen, rez, k : integer;

 TimeTest,NachTime : TDateTime;

 Tekwopros : array [0..10] of integer;

 otwet : array [0..10] of integer;

 sr:tsearchrec;

 resKOD : string;

implementation

uses  WwodParol, Avtor, Osn, UstOz, UstTime, UstParol;

{$R *.dfm}

procedure TAdm.Red_Brow(a: boolean);

begin

 DBEdit7.ReadOnly:=a;

 DBEdit8.ReadOnly:=a;

 DBEdit9.ReadOnly:=a;

 DBEdit10.ReadOnly:=a;

 DBEdit11.ReadOnly:=a;

 DBEdit12.ReadOnly:=a;

End;

procedure TAdm.FormCreate(Sender: TObject);

var

fil: TextFile;

 S: string;

begin

Database1.Params.Clear;

Database1.Params.Add('PATH='+ExtractFilePath(ParamStr(0)));

Database1.Connected:=false;

Rezultati.Active:=true;

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

Wopros.Active:=true;

PageControl1.ActivePage:=TabSheet3;

end;

procedure TAdm.FormActivate(Sender: TObject);

begin

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

Wopros.Active:=true;

end;

procedure TAdm.TabSheet3Show(Sender: TObject);

begin

ComboBox1.Clear;

res:=FindFirst(extractfilepath(paramstr(0))+'*.db',faanyfile,sr);

while res=0 do

begin

if (sr.name='Nastroiki.DB')or(sr.name='Polz.DB')or(sr.name='Rezult.DB')or(sr.name='Wopr.DB') then

else

begin

ComboBox1.Items.Add(sr.name);

end;

res:=findnext(sr);

end;

findclose(sr);

end;

procedure TAdm.Button12Click(Sender: TObject);

var

ii: integer;

begin

k:=0;

s:=inputbox('Ввод данных','Введите имя файла нового теста.','');

if s='' then

begin

 application.MessageBox(pchar('Имя БД теста не введено. Создание теста прекращено.'),'Предупреждение',mb_ok);

 exit;

end

else

begin

if (pos('.',s)>0) then delete(s,pos('.',s),1);

for ii:=0 to combobox1.Items.Count-1 do

if combobox1.Items[ii]=s+'.db' then

 begin

 j:=application.MessageBox(pchar('БД с таким именем уже существует. Заменить БД?'),'Вопрос',mb_yesno);

 if j=7 then

     begin

       application.MessageBox(pchar('Создание теста прекращено.'),'Предупреждение',mb_ok);

       exit;

     end

 else begin k:=2223;break;end;

 end;

 j:=0;

 Wopros.Active:=false;

 Wopros.EmptyTable;

 ComboBox1.Items.Add(s+'.db');

 ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

 Wopros.TableName:=ComboBox1.Text;

 copyfile(pchar(extractfilepath(paramstr(0))+'Wopr.db'),pchar(extractfilepath(paramstr(0))+s+'.db'),false);

 Wopros.Active:=true;

end;

end;

procedure TAdm.Button18Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить базy данных?'),'Удаление записи',mb_YesNo) = id_Yes then

begin

if ComboBox1.Text<>'' then

try

Wopros.Active:=false;

assignfile(f,extractfilepath(paramstr(0))+ComboBox1.Text);

erase(f);

s:=ComboBox1.Text;

delete(s,length(s)-2,3);

ComboBox1.Items.Delete(ComboBox1.ItemIndex);

ComboBox1.ItemIndex:=0;

Wopros.TableName:=ComboBox1.Text;

Wopros.Active:=true;

except

 Application.MessageBox('Невозможно удалить действующую базу данных','Предупреждение',mb_ok)

 end

 else

 Application.MessageBox('Не выбран файл для удаления','Предупреждение',mb_ok);

end;

end;

procedure TAdm.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='' then

begin

 Button7.Enabled:=false;

 Button8.Enabled:=false;

 Button9.Enabled:=false;

 Button10.Enabled:=false;

 Button11.Enabled:=false;

 DBNavigator2.Enabled:=false;

 Button18.Enabled:=false;

 DBEdit7.ReadOnly:=false;

 DBEdit8.ReadOnly:=false;

 DBEdit9.ReadOnly:=false;

 DBEdit10.ReadOnly:=false;

 DBEdit11.ReadOnly:=false;

 DBEdit12.ReadOnly:=false;

end

else

begin

Wopros.Active:=false;

Wopros.TableName:=ComboBox1.Text;

Wopros.Active:=true;

Button18.Enabled:=true;

end;

end;

procedure TAdm.DataSource3StateChange(Sender: TObject);

var

 ss : boolean;

begin

 ss:=((Wopros.State = dsEdit) or (Wopros.State = dsInsert));

 Button7.Enabled:=not ss;

 Button8.Enabled:=not ss;

 Button9.Enabled:=not ss;

 Button10.Enabled:=ss;

 Button11.Enabled:=ss;

 DBNavigator2.Enabled:=not ss;

 Button12.Enabled:=not ss;

 Button18.Enabled:=not ss;

end;

procedure TAdm.Button7Click(Sender: TObject);

begin

Red_Brow(false);

Wopros.Append;

DBEdit7.SetFocus;

end;

procedure TAdm.Button8Click(Sender: TObject);

begin

Red_Brow(false);

Wopros.Edit;

DBEdit7.SetFocus;

end;

procedure TAdm.Button9Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись из базы данных?'),'Удаление записи',mb_YesNo) = id_Yes then

 begin

   try

     Wopros.Delete;

   except

     on EDBEngineError do

     begin

       ShowMessage('Сведения  удалять нельзя. ');

       Exit;

     end;

   end;

 end;

end;

procedure TAdm.Button10Click(Sender: TObject);

begin

if Trim(DBEdit7.Text) = '' then

 begin

   Application.MessageBox('Для записи данных в таблицу поле Вопрос должно быть заполнено.','Предупреждение',mb_OK);

   DBEdit7.SetFocus;

 end

 else

   if (Trim(DBEdit8.Text) = '') then

   begin

     Application.MessageBox('Для записи данных в таблицу поле Вариант 1  должно быть заполнено.','Предупреждение',mb_OK);

     DBEdit8.SetFocus;

   end

 else

if Trim(DBEdit9.Text) = '' then

     begin

       Application.MessageBox('Для записи данных в таблицу поле Вариант 2  должно быть заполнено.','Предупреждение',mb_OK);

       DBEdit9.SetFocus;

     end

     else

if Trim(DBEdit10.Text) = '' then

     begin

       Application.MessageBox('Для записи данных в таблицу поле Вариант 3 должно быть заполнено.','Предупреждение',mb_OK);

       DBEdit10.SetFocus;

     end

     else

if Trim(DBEdit12.Text) = '' then

     begin

       Application.MessageBox('Для записи данных в таблицу поле Вариант 4 должно быть заполнено.','Предупреждение',mb_OK);

       DBEdit12.SetFocus;

     end

     else

if Trim(DBEdit11.Text) = '' then

     begin

       Application.MessageBox('Для записи данных в таблицу поле Номер ответа должно быть заполнено.','Предупреждение',mb_OK);

       DBEdit11.SetFocus;

     end

     else

if (StrToInt(DBEdit11.Text)<>1)and(StrToInt(DBEdit11.Text)<>2)and(StrToInt(DBEdit11.Text)<>3)and(StrToInt(DBEdit11.Text)<>4) then

 begin

   Application.MessageBox('№ ответа должен быть равен 1, 2,3 или 4.','Предупреждение',mb_OK);

   DBEdit11.Text:='';

   DBEdit11.SetFocus;

 end

else

     begin

       Wopros.Post;

       Red_Brow(true);

     end;

end;

procedure TAdm.Button11Click(Sender: TObject);

begin

Wopros.Cancel;

Red_Brow(true);

end;

procedure TAdm.Button5Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись из базы данных?'),'Удаление записи',mb_YesNo) = id_Yes then

 begin

   try

     Rezultati.Delete;

   except

     on EDBEngineError do

     begin

       ShowMessage('Сведения  удалять нельзя. ');

       Exit;

     end;

   end;

 end;

end;

procedure TAdm.Button6Click(Sender: TObject);

var

i: integer;

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить ВСЕ записи из базы данных?'),'Удаление записей',mb_YesNo) = id_Yes then

 begin

   try

     Rezultati.First;

     for i:=1 to Rezultati.RecordCount do

      begin

      Rezultati.Delete;

       end;

   except

     on EDBEngineError do

     begin

       

       Rezultati.Next;

     end;

   end;

 end;

end;

procedure TAdm.PageControl1Change(Sender: TObject);

begin

if (Wopros.State = dsEdit) or (Wopros.State = dsInsert) then

 begin

   PageControl1.ActivePage:=TabSheet3;

   Application.MessageBox('Для перехода на другую страницу необходимо завершить редактирование или ввод новых данных.','Ошибка',mb_OK);

 end;

end;

procedure TAdm.N2Click(Sender: TObject);

begin

Parol.Edit1.Clear;

Parol.Show;

end;

procedure TAdm.N5Click(Sender: TObject);

begin

AvtorForm .Show;

end;

procedure TAdm.Button13Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TAdm.N6Click(Sender: TObject);

var

Vf: file;

  j:integer;

begin

j:=ShellExecute(handle, 'open','help/index.htm',Nil,Nil,SW_SHOWNORMAL);

end;

procedure TAdm.Button1Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TAdm.Button2Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TAdm.Button3Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TAdm.DataSource1StateChange(Sender: TObject);

var

 ss : boolean;

begin

 ss:=((Wopros.State = dsEdit) or (Wopros.State = dsInsert));

 Button7.Enabled:=not ss;

 Button8.Enabled:=not ss;

 Button9.Enabled:=not ss;

 Button10.Enabled:=ss;

 Button11.Enabled:=ss;

  DBNavigator2.Enabled:=not ss;

 end;

end.

Установка пароля

unit UstParol;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls;

type

 TForm3 = class(TForm)

   GroupBox7: TGroupBox;

   Label31: TLabel;

   Label32: TLabel;

   Edit5: TEdit;

   Edit6: TEdit;

   Button20: TButton;

   Button14: TButton;

   procedure Button20Click(Sender: TObject);

   procedure Button14Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

 resKOD : string;

 f: TextFile;

 S: string;

implementation

{$R *.dfm}

procedure TForm3.Button20Click(Sender: TObject);

begin

resKOD:=edit5.Text;

assignfile(f,extractfilepath(paramstr(0))+'p.001');

    reset(f);

    read(f,s);

    closefile(f);

    if resKOD<>s then

    begin

      application.MessageBox('Неверный старый пароль!','Ошибка',mb_OK);

      edit5.Clear;

      edit6.Clear;

      edit5.SetFocus;

      exit;

    end;

    assignfile(f,extractfilepath(paramstr(0))+'p.001');

    rewrite(f);

    resKOD:=edit6.Text;

    write(f,resKOD);

   closefile(f);

   application.MessageBox('Пароль изменен!','Сообщение',mb_OK);

   

edit5.Clear;

edit6.Clear;

Form3.Close;

end;

procedure TForm3.Button14Click(Sender: TObject);

begin

edit5.Clear;

edit6.Clear;

Form3.Close;

end;

end.

Проверка пароля

unit WwodParol;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls;

type

 TParol = class(TForm)

   Button1: TButton;

   Edit1: TEdit;

   Label3: TLabel;

   Button2: TButton;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure FormShow(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Parol: TParol;

 s1,res1,s,s_:string;

 h,j,res:integer;

 sr:tsearchrec;

 fil,fill,realF,f:textfile;

implementation

uses  Osn, Nastr;

{$R *.dfm}

procedure TParol.FormCreate(Sender: TObject);

begin

res:=FindFirst(extractfilepath(paramstr(0))+'p.001',faanyfile,sr);

while res=0 do

 begin

  s_:=sr.name;

  res:=findnext(sr);

 end;

 findclose(sr);

 assignfile(f,extractfilepath(paramstr(0))+'p.001');

 reset(f);

 read(f,s);

 closefile(f);

end;

procedure TParol.Button1Click(Sender: TObject);

begin

  if s=Edit1.Text then

   begin

   Adm.Show;

   hide;

      end

  else

      begin

   application.MessageBox('Неверный пароль!','Ошибка',mb_OK);

   end;

end;

procedure TParol.Button2Click(Sender: TObject);

begin

Parol.Close;

end;

procedure TParol.FormShow(Sender: TObject);

begin

res:=FindFirst(extractfilepath(paramstr(0))+'p.001',faanyfile,sr);

while res=0 do

 begin

  s_:=sr.name;

  res:=findnext(sr);

 end;

 findclose(sr);

 assignfile(f,extractfilepath(paramstr(0))+'p.001');

 reset(f);

 read(f,s);

 closefile(f);

end;

end.

Вопрос

Варианты ответов

Правильный ответ

ФИО ученика

Дата

Количество вопросов

Количество прав. ответов

Тест

Вывод заставки к программе

Ученик

Администратор

Идентификация

выбор закладки

Учебник

Тест

Настройки

Создание,

удаление тестов

Регистрация

Учебник.html

Выбор теста

БД тест

Учебник

Тестирование

БД тест

*.txt

Смена пароля

…

Результат

Журнал оценок

Журнал