Разработка автоматизированного учебно-методического комплекса по дисциплине "Бухгалтерские информационные системы"

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.ru

Министерство образования и науки Российской Федерации

ФГБОУ ВОП «Дагестанский государственный университет»

Факультет информатики и информационных технологий

Кафедра ИТ и МЭП

КУРСОВАЯ РАБОТА

по дисциплине

«Программная инженерия»

на тему:

«Разработка автоматизированного учебно-методического комплекса по дисциплине «Бухгалтерские информационные системы»»

Выполнила:

Сидоренко Е.Ю.

студентка 3 курса

специальности ПИМ

Научный руководитель:

Магомедгаджиев Ш.М.

к.э.н., доц. каф. ИТ и МЭП

Махачкала - 2014г



Введение

В современном обществе образование является одним из важнейших институтов. Обучение в высшем учебном заведении дает человеку в дальнейшем много возможностей для реализации своего потенциала в науке, на производстве и в других сферах деятельности. В высшем учебном заведении студенты стремятся впитать в себя все те знания, которые им дает преподаватель, а многое и изучить самостоятельно. Именно на ознакомление и самообучение дисциплинам ВУЗа направлено создание учебно-методического комплекса.

Учебно-методический комплекс (УМК) - совокупность учебно- методических материалов, направленных на повышение эффективности освоения студентами учебной дисциплины. [1]

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

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

Разработка учебно-методического комплекса является первым шагом на пути к повышению качества образования в учебном заведении, необходимо также организовать единую систему доступа к учебно-методическому комплексу по дисциплинам ВУЗа.

Развитие сетевых информационных технологий даёт много новых возможностей для развития технологий обучения. Поэтому целесообразнее всего будет организовать систему разработки и доступа к учебно-методическому комплексу с использованием современных компьютерных технологий. Необходимо разработать программный инструментарий, который позволит сделать работу с УМК максимально комфортной и продуктивной как для преподавателей, так и для студентов и абитуриентов.

Целью курсовой работы является разработка автоматизированного учебно-методического комплекса по дисциплине "Бухгалтерские информационные системы".

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

1) произвести анализ применения информационных технологий в организации обучения;

2) рассмотреть особенности организации автоматизированных информационно-справочных систем;

3) осуществить проектирование пользовательского интерфейса;

4) определить функции интерфейса;

5) произвести обзор средств создания приложения и осуществить на основе обзора выбор программных средств для разработки приложения;

6) разработать структуру пользовательского интерфейса;

7) осуществить опытную эксплуатацию разработанной информационной системы.

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

В первой главе рассматриваются: понятие, состав, структура УМК, а так же выбор средств реализации ЭУМК.

Во второй главе осуществляется постановка задачи и описывается состав и структура программного продукта.

В заключении приведены выводы и результаты проведённой работы.

Список литературы включает 11 источников.

Курсовая работа содержит 6 рисунков.

В курсовой работе 42 листа.

информационный автоматизированный учебный справочный



1. Разработка учебно-методического комплекса как объект автоматизации.

1.1 Понятие, состав и структура учебно-методического комплекса

Требования к учебно-методическому обеспечению учебного процесса определены Федеральными государственными образовательными стандартами высшего профессионального образования. Учебно-методические комплексы учебных дисциплин (далее УМК) являются одной из основных составляющих образовательных программ направлений (специальностей) (в ред. Положения от 31.03.2011). [5]

УМК создаются в целях повышения качества преподавания и учебно-методического обеспечения учебных дисциплин, внедрения в учебный процесс последних достижений науки и практики. УМК в обязательном порядке формируется по всем дисциплинам учебного плана и, согласно п.7.17. Федеральных государственных образовательных стандартов, должны быть представлены в сети Интернет или локальной сети университета (в ред. Положения от 31.03.2011).

УМК - это комплект учебных, учебно-методических, раздаточных, наглядных, аудио-, видео- и мультимедийных материалов по учебной дисциплине конкретного рабочего плана специальности (направления), необходимых для организации и осуществления с их помощью учебного процесса. [10]

Автоматизированный учебно-методический комплекс (АУМК) - программная система, предназначенная для автоматизации процесса обучения по различным техническим дисциплинам различных форм обучения и базирующаяся на документах УМК по дисциплине.[10]

АУМК направлен на полную или частичную автоматизацию традиционных форм проведения занятий и форм контроля знаний, составляющих цикл освоения технических дисциплин в вузах и состоит из следующих блоков и межблочных связей:

- входного интерфейса (F), позволяющего работать с основными структурными единицами АУМК и содержащего документы, регламентирующие учебный процесс по дисциплине в целом и каждую дидактическую единицу в отдельности;

- ресурсов (R), представляющих собой текстовый и графический материал в электронном виде;

- учебных модулей (М), предназначенных для автоматизации дидактических единиц и контроля знаний студентов при аудиторных компьютеризированных занятиях;

- инструментария (I), позволяющего в автоматизированном режиме выполнять те или иные задания, полученные на разных стадиях обучения;

- внешних связей (V), предназначенных для связи обучаемого с электронными вариантами различных материалов и электронными библиотеками с необходимой литературой;

- системы управления ресурсами (SBD), позволяющей структурировать данные в виде базы данных, используемых в учебных модулях АУМК. [6]

Нормативные документы АУМК

Карта учебно-методического комплекса по дисциплине (карта УМКД) - документ, структурирующий АУМК под определенную дисциплину с указанием того, какие виды занятий, самостоятельной работы, текущего или итогового контроля предполагается проводить по данной дисциплине и в какой форме они будут проводиться.

Выписка из ГОСа (государственного образовательного стандарта) - стандарт, устанавливающий подлежащие освоению темы в рамках данной дисциплины и общее количество часов, затрачиваемое на данную дисциплину.

Рабочая программа (РП) по дисциплине формируется преподавателем дисциплины на основе выписки из ГОСа и карты УМКД. В ней общее количество часов, отведенное на дисциплину, расписывается по конкретным дидактическим единицам, а также производятся и согласуются с часами темы лекционных, практических занятий, лабораторных работ, формы промежуточной и итоговой отчетности студента в каждом семестре данной дисциплины.

Подготовка исходных данных для ЭУМК и создание самого ЭУМК выполняется ведущим преподавателем дисциплины.

ЭУМК могут разрабатываться преподавателями.

ЭУМК должен иметь следующие разделы:

1) Титульные данные.

2) Учебная программа.

3) Материалы лекционного курса.

4) Материалы для практических занятий.

5)Тестовые задания.

6) Дополнительные материалы.

7) Данные о подразделении сопровождения ЭУМК.

В разделе «Титульные данные» приводятся следующие данные:

- Наименование кафедры или иного подразделения, где был изготовлен ЭУМК.

- Перечень направлений и профилей подготовки, для которых предназначен ЭУМК.

- Информация об авторах (составителях, правообладателях) ЭУМК.

В разделе «Учебная программа» приводятся следующие данные:

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

- Информация о специфике рабочих программ для различных форм обучения (очной, заочной и т.п.).

В разделе «Материалы лекционного курса» приводятся следующие данные:

- Материалы лекций с разбивкой на разделы и схемой переходов между разделами.

- Иллюстрации к лекциям в форматах .gif, .jpg, .jpeg, .png, собранных в отдельную папку. Названия файлов должны соответствовать названиям рисунков в тексте лекций.

В разделе «Материалы для практических занятий» приводятся следующие данные:

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

- Для каждой практической работы указываются: название, вид отчетности, инструкция для работы, инструкция для оценки, критерии оценки.

В разделе «Тестовые задания» приводятся следующие данные:

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

- Текст тестовых упражнений со списком ответов, указанием правильных ответов и критериев оценки.

- Информацию об авторе тестовых упражнений и вопросов.

В разделе «Дополнительные ресурсы» содержатся:

- Список наименований электронных ресурсов с календарной привязкой к учебной программе курса (текстовый файл).

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

В разделе «Дополнительные материалы» приводятся дополнительные сведения об объектах, которые могут понадобиться при работе с ЭУМК по дисциплине. Это могут быть служебное программное обеспечение, информация, расположенная внешних серверах в сети Интернет и т.п.

Технологическую экспертизу и сопровождение включает адаптацию ЭУМК к новым форматам, организацию хранения и распространения, обеспечение управляемого доступа к ЭУМК.

ЭУМК должны быть предусмотрены данные об авторах УМК и кафедрах БГПУ, осуществляющих поддержку информационного наполнения ЭУМК. Эти данные включают ФИО авторов, наименование кафедры и их контактную информацию.

Информационное наполнение ЭУМК включает в себя подготовку всех электронных документов (учебно-методических материалов), входящих в состав ЭУМК.

1.2 Выбор средств реализации ЭУМК

Инструментальные программные средства (ИПС) - это про-граммы, предназначенные для конструирования программных средств (систем) учебного назначения, подготовки или генериро-вания учебно-методических и организационных материалов, созда-ния графических или музыкальных включений, сервисных «над-строек» программы. [3]

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

В соответствии с указанным критерием возможна следующая классификация инструментальных программных средств разработ-ки ЭУМК:

1) универсальные языки программирования;

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

1) авторские средства разработки (предназначены для соз-дания программных средств учебного назначения).

К универсальным языкам программирования относятся:

- Delphi

- Javascript

- VISUAL BASIC

- OBJECT PASCAL

- Си ++

- Др.

К специализированным программным средствам относятся:

- Microsoft PowerPoint

- Adobe Acrobat

- EasyHelp

- Др.

К авторским средствам разработки относятся:

- HyperMethod

- Adobe Authorware

- ToolBook Assistant

- Web Course Builder

- Др.

При выборе инструментальных программных средств разра-ботки ЭУМК необходимо ориентироваться на следующие крите-рии:

- назначение и специфика разрабатываемого ЭУМК;

- особенности организации учебного процесса с использова-нием будущего ЭУМК;

- уровень подготовки специалистов в области разработки ЭУМК;

- необходимость и сложность модификации ЭУМК;

- аппаратно-программные характеристики инструментально-го программного средства разработки ЭУМК;

- стоимость инструментального программного средства раз-работки ЭУМК.

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

Delphi - императивный, структурированный, объектно-ориентированный язык программирования со строгой статической типизацией переменных. [4]

Borland Delphi представляет собой средство разработки приложений для Microsoft Windows. Delphi является мощным и простым в использовании инструментом для создания автономных программ, обладающих графическим интерфейсом (GUI), или 32-битных консольных приложений (программ, которые не имеют графического интерфейса). [7]

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

При создании графического интерфейса приложений Delphi имеются возможности языка программирования Object Pascal, "завернутого" в среду RAD. Такие компоненты окна графического пользовательского интерфейса, как формы, кнопки и списки объектов, включены в состав Delphi. Это означает, что не нужно писать никакого кода при добавлении их в приложение.

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



1.3 Этапы создания электронного учебно-методического комплекса по дисциплине "Бухгалтерские информационные системы"

В общем виде процесс создания ЭУМК представлен на рисунке 1:

Рис.1. Процесс создания ЭУМК

Определение цели.

Разработку ЭУМК следует начать с составления (или тщательного анализа уже имеющейся) модели специалиста. Рабочая программа должна отвечать требованиям традиционного обучения по лекционно-практической форме с элементами самостоятельной работы. [11]

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

Создание педагогического сценария.

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

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

- построить детальную структуру курса;

- построить возможные траектории обучения и определить способы взаимодействия с преподавателем;

- выбрать средства проведения контроля и контрольные точки.

Определение детальной структуры курса.

На основании анализа модели специалиста, требований ГОС, учебного плана, рабочей программы и выделенных преподавателем целей обучения определяется структура ЭУМК. Чем более детально будет построена структура курса, тем проще будет строить возможные траектории изучения курса, модернизировать структуру в дальнейшем.

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

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

- Иерархия;

- Атомность дидактические единицы и изучения материала;

- Обособленность и взаимосвязь учебного, вспомогательного и контролирующего материала ЭУМК.

Создания дизайна. Разработка основных элементов дизайна ЭУМК.

В данном контексте под дизайном мы понимаем оформление ЭУМК, которое, как правило, включает в себя следующие элементы:

- разметка окна ЭУМК, расположения основных структур ЭУМК (меню, основной текст, кнопки быстрого вызова и т.п.);

- цветовая гамма ЭУМК, фон меню, основного текста и т.п.;

- кнопки управления (навигация по ЭУМК, кнопки вызова, подсказки) и другие.

Подготовка программного обеспечения ЭУМК.

Данный этап предлагает выполнения следующих шагов:

- выбор инструментальных программных средств разработки ЭУМК;

- компоновка и оформление основного текста и иллюстративного материала в формате выбранного инструментального программного средства;

- оформления программируемых элементов ЭУМК: текстов, упражнений и т.п.

Выбор инструментальных средств разработки ЭУМК.

Большое количество различных инструментальных программных средств и технологий позволяет преподавателю выбрать адекватные целям ЭУМК средства разработки. В данной работе в главе 1.3 приведен анализ современных инструментальных программных средств разработки ЭУМК. Приведем возможные критерии выбора:

- многоплатформенность;

- простота установки/использования ЭУМК;

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

- стоимость.

Оформление основного текста и иллюстративного материала в формате выбранного инструментального программного средства.

Это самый длительный процесс при создании ЭУМК, удобство и скорость его выполнения зависят от выбранного инструментального программного средства.

Оформление программируемых элементов ЭУМК: тестов, упражнений и т.п.

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

Апробация ЭУМК.

Данный этап предполагает проведение экспериментальной работы по определению эффективности ЭУМК, т.е. соответствия тем критериям, которые были определены на первом этапе.

Апробация ЭУМК должна:

- показать, достигаются ли поставленные цели средствами ЭУМК и насколько эффективно это происходит;

- определить основные недостатки ЭУМК: неудобный интерфейс работы с ЭУМК, недостаточность методического материала и т.п.;

- выявить ошибки в работе ЭУМК если такие возникли.



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

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

Процесс проектирования состоит из следующих этапов:

- исследование и обоснование создания системы;

- разработка технического задания;

- создание эскизного проекта;

- техническое проектирование;

- рабочее проектирование;

- ввод в действие;

- функционирование, сопровождение, модернизация.

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

- предпроектная стадия;

- техно-рабочее проектирование;

- внедрение программного средства;

- эксплуатация и сопровождение.

«Техническое задание» со-гласно ГОСТ 34.602 - 89 «Техническое задание на создание авто-матизированной системы» включает в себя следующие основные разделы. [2]

1. В разделе «Общие сведения о проекте» указывают: полное наименование системы, код системы, код договора, наименова-ние предприятия-разработчика и предприятия-заказчика, пере-чень документов, на основе которых создается система, плано-вые сроки начала и окончания работ по созданию системы, све-дения об источниках финансирования, порядок оформления и предъявления заказчику результатов работ по созданию системы (ее частей).

2. Раздел описания «Назначение, цели создания системы» со-стоит из двух подразделов:

- в подразделе «Назначение системы» даются вид автоматизи-руемой деятельности и перечень объектов автоматизации, на ко-торых предполагается ее использовать;

- в подразделе «Цели создания системы» указываются наиме-нования и требуемые значения технических, технологических, производственно-экономических и других показателей объекта автоматизации, которые будут достигнуты в результате внедре-ния ЭИС.

3. В разделе «Характеристика объекта автоматизации» при-водятся: краткие сведения об объекте автоматизации; сведения об условиях эксплуатации объекта и характеристиках окружаю-щей среды.

4. Раздел «Требования к системе» состоит из следующих под-разделов: требования к системе в целом; требования к функциям (задачам), выполняемым системой; требования к видам обеспе-чения.

На рисунке 2 представлены состав и структура электронного учебно-методического комплекса.



Рис.2. Состав и структура автоматизированного учебно-методического комплекса



2.2 Состав и структура программного продукта

Разработанное приложение является справочно-информационной программой и называется «Автоматизированный учебно-методический комплекс по дисциплине "Бухгалтерские информационные системы"». Программа разработана в среде Borland Delphi 7 на языке Object Pascal.

Программа предназначена для предоставления учебно-методичейской информации по дисциплине "Бухгалтерские информационные системы" студентам, работающим с ЭВМ.

Программа запускается на исполнение либо двойным щелчком левой кнопки мыши по файлу UMK.exe в проводнике Windows, либо нажатием правой кнопки мыши по указанному файлу и выбором пункта меню “Открыть”.

Исполнимый файл программы «Автоматизированный учебно-методический комплекс» имеет название UMK.exe и расположен в каталоге \курсовая новая.

Программа состоит из следующих компонентов:

Label - предназначен для показа текста на форме программы, которые не будет меняются в течение работы программы.

MainMenu - не визуальный компонент Delphi (место размещения которого на форме не имеет значения для пользователя так как он увидит не сам компонент, а меню, сгенерированное им), предназначенный для вывода главного меню на форме. [8]

BitBtn - по сути является компонентом Button, но на нем можно размещать битовый рисунок вместе с текстом этой кнопки.

DBImage - аналог компонента для вывода изображений Image.

RadioGroup - это панель, которая может содержать регулярно расположенные столбцами и строками радиокнопки. [9]

На рисунке 3 представлена главная форма программного продукта.

Рис.3. Главная форма АУМК

В меню главной формы расположены кнопки: "Пройти тест", "Об авторе" и "Выйти".

При наведении курсора на кнопку "Пройти тест" открывается выпадающее меню, в котором есть три варианта тестов.

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

При нажатии на кнопку "Выход" открывается диалог с пользователем.

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

Результаты нажатия всех кнопок представлены в Приложении 1.



Заключение

В результате был разработан Автоматизированный учебно-методический комплекс по дисциплине "Бухгалтерские информационные системы".

В нём содержится следующая информация о данной дисциплине:

- рабочая программа дисциплины;

- цели и задачи изучения дисциплины;

- требования к уровню содержания освоения дисциплин;

- объем дисциплины и виды учебной работы;

- распределение часов по темам и видам учебной работы

- содержание курса;

- лабораторные работы;

- тематика курсовых работ и методические указания по их применению;

- учебно-методическое обеспечение дисциплины;

- литература;

- материально-техническое обеспечение дисциплины;

- методические указания студентам;

- методические рекомендации преподавателю;

- материалы для проведения текущего контроля и промежуточной аттестации.

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



Список использованной литературы

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г.

2. Смирнова Г.Н., Тельнов Ю.Ф. «Проектирование экономических информационных систем (часть 1) »: МЭСИ, 2004г. - 36стр.

3. Информационные бухгалтерские системы: Учебно-методический комплекс по дисциплине, Шмытов Б.Б., 2012г.

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. - 400стр.

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV- СПБ. 2008г. - 480 с.

6. Культин Н.Б. Программирование на Object Pascal в Delphi7. Самоучитель.:Издательство BHV-СПБ. - 464стр.

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г.- 784стр.

9. Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр.

10. ПОЛОЖЕНИЕ об учебно-методическом комплексе учебной дисциплины

учебного плана направления (специальности) в Дагестанском государственном университете (в редакции положения от 31.03.2011, решение Ученого Совета ДГУ, протокол №8)

11. Уроки Delphi начинающим с нуля: http://www.delphi-manual.ru



Приложение 1

Рис.4. Результат нажатия кнопки меню "Пройти тест"



Рис.5. Результат нажатия кнопки меню "Об авторе"

Рис.6. Результат нажатия кнопки меню "Выход"



Приложение 2

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

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, DB, Menus;

type

TForm1 = class(TForm)

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBImage1: TDBImage;

N3: TMenuItem;

N11: TMenuItem;

N4: TMenuItem;

N31: TMenuItem;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N31Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\1.bmp');

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\2.bmp')

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\3.bmp')

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\4.bmp')

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\5.bmp')

end;

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\6.bmp')

end;

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\7.bmp')

end;

procedure TForm1.BitBtn10Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\8.bmp')

end;

procedure TForm1.BitBtn12Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\9.bmp')

end;

procedure TForm1.BitBtn13Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\10.bmp')

end;

procedure TForm1.BitBtn14Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\11.bmp')

end;

procedure TForm1.BitBtn15Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\12.bmp')

end;

procedure TForm1.BitBtn16Click(Sender: TObject);

begin

DBImage1.Picture.LoadFromFile('G:\курсовая новая\13.bmp')

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

Form5.Show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

Button1: TButton;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup5Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure RadioGroup7Click(Sender: TObject);

procedure RadioGroup8Click(Sender: TObject);

procedure RadioGroup9Click(Sender: TObject);

procedure RadioGroup10Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

sum:integer;

implementation

{$R *.dfm}

procedure TForm2.RadioGroup1Click(Sender: TObject);

begin

sum:=0;

if RadioGroup1.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup2Click(Sender: TObject);

begin

if RadioGroup2.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup3Click(Sender: TObject);

begin

if RadioGroup3.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup4Click(Sender: TObject);

begin

if RadioGroup4.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup5Click(Sender: TObject);

begin

if RadioGroup5.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup6Click(Sender: TObject);

begin

if RadioGroup6.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup7Click(Sender: TObject);

begin

if RadioGroup7.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup8Click(Sender: TObject);

begin

if RadioGroup8.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup9Click(Sender: TObject);

begin

if RadioGroup9.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.RadioGroup10Click(Sender: TObject);

begin

if RadioGroup10.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

case sum of

0..4: ShowMessage('Плохо');

5..6: ShowMessage('Удовлетворительно');

7..9: ShowMessage('Хорошо');

10: ShowMessage('Отлично');

end;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

Button1: TButton;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup5Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure RadioGroup7Click(Sender: TObject);

procedure RadioGroup8Click(Sender: TObject);

procedure RadioGroup9Click(Sender: TObject);

procedure RadioGroup10Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

sum:integer;

implementation

{$R *.dfm}

procedure TForm4.RadioGroup1Click(Sender: TObject);

begin

sum:=0;

if RadioGroup1.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup2Click(Sender: TObject);

begin

if RadioGroup2.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup3Click(Sender: TObject);

begin

if RadioGroup3.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup4Click(Sender: TObject);

begin

if RadioGroup4.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup5Click(Sender: TObject);

begin

if RadioGroup5.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup6Click(Sender: TObject);

begin

if RadioGroup6.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup7Click(Sender: TObject);

begin

if RadioGroup7.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup8Click(Sender: TObject);

begin

if RadioGroup8.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup9Click(Sender: TObject);

begin

if RadioGroup9.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.RadioGroup10Click(Sender: TObject);

begin

if RadioGroup10.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

case sum of

0..4: ShowMessage('Плохо');

5..6: ShowMessage('Удовлетворительно');

7..9: ShowMessage('Хорошо');

10: ShowMessage('Отлично');

end;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

Button1: TButton;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup5Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure RadioGroup7Click(Sender: TObject);

procedure RadioGroup8Click(Sender: TObject);

procedure RadioGroup9Click(Sender: TObject);

procedure RadioGroup10Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

sum:integer;

implementation

{$R *.dfm}

procedure TForm5.RadioGroup1Click(Sender: TObject);

begin

sum:=0;

if RadioGroup1.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup2Click(Sender: TObject);

begin

if RadioGroup2.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup3Click(Sender: TObject);

begin

if RadioGroup3.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup4Click(Sender: TObject);

begin

if RadioGroup4.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup5Click(Sender: TObject);

begin

if RadioGroup5.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup6Click(Sender: TObject);

begin

if RadioGroup6.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup7Click(Sender: TObject);

begin

if RadioGroup7.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup8Click(Sender: TObject);

begin

if RadioGroup8.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup9Click(Sender: TObject);

begin

if RadioGroup9.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.RadioGroup10Click(Sender: TObject);

begin

if RadioGroup10.ItemIndex=1 then sum:=Sum+1;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

case sum of

0..4: ShowMessage('Плохо');

5..6: ShowMessage('Удовлетворительно');

7..9: ShowMessage('Хорошо');

10: ShowMessage('Отлично');

end;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls;

type

TForm6 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

Form1.Close

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form6.Close

end;

end.

Размещено на Allbest.ru