63940
Создание электронного учебника по предмету АИС
Дипломная
Информатика, кибернетика и программирование
Чтобы создать свою страничку, вам необязательно знать даже основы html, т.к. программа возьмет на себя львиную долю работы по написанию html-кода. Можно порекомендовать Macromedia Dreamweaver и как своеобразный учебник
Русский
2014-07-03
1.03 MB
14 чел.
АННОТАЦИЯ
В настоящее время, в образовательных учреждениях большое внимание уделяется компьютерному сопровождению профессиональной деятельности учителя предметника. Реформа современного образования не может состояться без использования обучающих и тестирующих программ по различным образовательным дисциплинам (таких как электронные учебники, пособия, тренажеры, тестеры и прочее).
Электронный учебник по АИС составлен для учащихся общеобразовательных учреждений. На сегодняшний день разработано множество электронных учебников на совершенно разные темы, удобные и для домашнего обучения, и для использования в образовательных учреждениях. Электронные учебники существенно повышают качество визуальной информации, она становится ярче, красочнее, а, как известно, чем интереснее представлен материал, тем интереснее его изучать. Поэтому возможности электронных учебников не ограничиваются только изложением и демонстрацией материала, они призваны заинтересовать ученика.
Эффективность разработанного электронного учебника определялась оценкой качества подготовки учеников.
Для этого в программе предусмотрена процедура тестирования с сохранением результатов в базе данных.
В пояснительной записке расмотрены следующие разделы: введение, постановка задачи, метод решения задачи, логическая структура программы, руководство систмного прораммиста, руководство пользователя, интерпритация и анализ результатов решения, информационная безопасность, расчет себестоимости информационной системы, техника безопасности и охрана труда.
Введение |
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 Мб).
Таблицы БД:
Текстовый файл 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 или дважды щелкнув по нему левой кнопкой мыши. Через несколько секунд появится заставка к программе:
Рисунок
После запуска программы на экран будет выведена следующая форма:
Рисунок
Заклака «Учебник» содержит теоретический материал по Автоматизированным информационным системам и предназначена для обучения.
Для навигации по учебнику предназначена левая панель оглавления со ссылками на разделы текста.
С главной страницы можно приступить к работе с учебником, для этого необходимо нажать на кнопку перехода.
На всех страницах учебника есть дополнительные кнопки перехода .
При нажатии на кнопку пользователь возвращается к предыдущему разделу учебника.
При нажатии на кнопку пользователь совершает переход к следующему разделу электронного учебника.
Каждую страницу пособия можно вывести на печать в удобном для изучения виде.
Чтобы распечатать страницу, необходимо нажать на кнопку (версия для печати) в верхнем правом углу.
Страница будет выведена в отдельном окне:
Рисунок
Для отправки материала на принтер необходимо нажать пункт меню браузера Файл Печать.
Также переход на определенную страницу можно осуществить, нажав текстовую ссылку.
Каждый раздел электронного учебника содержит теоретический материал. В конце электронного учебника предусмотрены контрольные вопросы к каждому разделу для закрепления пройденного материала.
Для прохождения тестирования предназначена закладка «Тест».
Рисунок
Прежде чем начать тестирование Вам необходимо зарегистрироваться, то есть:
После того, как Вы прошли регистрацию, нажмите кнопку «ОК» для перехода к тестированию.
При работе на данной закладке, могут появиться следующие сообщения:
Рисунок
Причина выдачи сообщения: тестируемый учащийся не внес свои данные в поле «Тестируемый» и нажал кнопку «ОК».
Действия пользователя: введите в поле «Тестируемый» свои данные.
Рисунок
Причина выдачи сообщения: не выбрана база данных теста.
Действия пользователя: выберите из списка «Тест» нужное значение.
После нажатия кнопки «ОК» Вам следует внимательно прочитать вопрос и выбрать правильный на Ваш взгляд вариант ответа, поставив точку одним щелчком мыши возле выбранного Вами ответа.
Правильным является только один вариант ответа из четырех предложенных. Для перехода к следующему вопросу нажмите кнопку «>>», расположенную снизу. Отвечая на вопросы, Вы можете возвращаться назад и менять выбранные варианты ответов. При переходе к последнему вопросу появляется внизу кнопка «Закончить тест», которую необходимо нажать, если Вы хотите завершить тестирование.
После нажатия кнопки «Закончить тест» появляется результат проверки Ваших знаний, здесь следует нажать кнопку «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
Перечень работ для создания ИС
Наименование услуг |
Единица измерения |
Количество |
Работа с заказчиком |
Час |
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. техника безопасности и охрана труда
При разработке инструкции учтены требования нормативных актов:
Общие требования безопасности
Требования безопасности перед началом работы
Перед началом работы пользователь обязан:
! Пользователю запрещается приступать к работе при обнаружении неисправности оборудования.
Требования безопасности во время работы
Пользователь во время работы обязан:
Требования безопасности в аварийных ситуациях
Пользователь обязан:
Требования безопасности при работе с принтером
ЗАКЛЮЧЕНИЕ
Электронные учебники в целом упрощают работу преподавателю, при этом делают процесс усвоения сложного материала доступным и наглядным.
Остановимся на преимуществах и недостатках электронного пособия по сравнению с печатным. Существенных недостатков у электронного учебника два:
Достоинств электронных учебников гораздо больше. К ним можно отнести:
Настоящий программный продукт может иметь широкое применение в образовательной сфере.
Новизна проекта состоит в том, что в работе представлена интерпретация данной темы эффективными средствами Macromedia Dreamweaver MX 2004 совместно с язык визуального программирования Borland Delphi 7.
Совместное использование данных программ обусловлено тем, что необходимо было создать электронный учебник в виде страничек html, а также обеспечить проверку полученных знаний пользователей с помощью теста с сохранением результатов в базе данных. Кроме того, сами тесты также сохраняются в базах данных стандарта Paradox 7.
ЛИТЕРАТУРА
Заставка
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
Смена пароля
…
Результат
Журнал оценок
Журнал
А также другие работы, которые могут Вас заинтересовать | |||
4623. | Способы описания различных типов данных в программах на языке Delphi | 477 KB | |
Введение Любые данные, т.е. константы, переменные, значения функций или выражения, в Delphi характеризуются своими типами. Тип определяет множество допустимых значений, которые может иметь тот или иной объект, а также множество допустимых операций... | |||
4624. | Программирование данных статической структуры. Сортировка и поиск в одномерных массивах | 1.37 MB | |
Массив – широко известная структура данных, отличающаяся свое регулярностью и однотипностью своих компонент. Кроме того, массив является структурой с так называемым свободным доступом: все его компоненты могут выбираться произвольно и ... | |||
4625. | Технология разработки программных средств | 229 KB | |
Технология разработки программных средств Программные инструменты в жизненном цикле программных средств. Инструментальные среды и инструментальные системы поддержки разработки программных средств, их классификация. Компьютерная тех... | |||
4626. | Базовая модель Навигация. Анализ особенностей реализации алгоритмов топопривязки в ГЛОНАСС и локальных системах | 90 KB | |
Космические системы позиционирования В настоящее время в мире существует четыре проекта глобальных радионавигационных спутниковых систем (ГНСС): действующие – американский GPS, российский ГЛОНАСС и два развертываемых – европейский Galileo... | |||
4627. | Введение в C Sharp и Net | 273.5 KB | |
Введение в C Sharp и Net C# (произносится Си-Шарп) - это новый язык программирования от компании Microsoft. Он входит в новую версию VisualStudio - VisualStudio.NET. Кроме C# в VisualStudio.NET входят VisualBasic NET и Visua... | |||
4628. | Элементарные программы на С/C++ | 186 KB | |
Почему СИ/СИ++ Си - компилирующий язык программирования. Иными словами, это набор ключевых слов и функций, представленных словами, которые перед выполнением их компьютером должны быть переведены в двоичные коды. За последние годы популярность Си рез... | |||
4629. | Предмет та методи політології. Відповіді на екзаменаційні питання | 1.22 MB | |
Одні вважають таким предметом владу, другі — політичну систему, треті — демократію, четверті — політичну культуру. Особливості політології як окремої науки про політику найповніше відображає категорія політична система суспільства. | |||
4630. | Передача маршрутной информации между сетями | 137.37 KB | |
Передача маршрутной информации между сетями BGP это протокол внешнего шлюза который работает между автономными системами разных провайдеров. Соответственно он оперирует номерами автономных систем при установке смежности и передаче слу... | |||
4631. | Аналіз основних дидактичних концепцій | 121.5 KB | |
Аналіз основних дидактичних концепцій. У сучасну епоху особливого значення набуває завдання комплексного виховання підростаючого покоління. Формування нової людини, що гармонічно сполучає у собі духовне багатство, моральну чистоту і фізичну до... | |||