Данное событие выводит в ListBox дисциплины которые изучаются по специальности, выбранной в объекте ComboBox. Для этого сначала ListBox очищается командой Clear, после этого с помощью команды поиска Lokate в таблице special осуществляется поиск кода выбранной специальности. Сравнение производится с названием специальности записанной в данный момент в объекте ComboBox. По коду в таблице specdis спомощью все той же команды поиска Lokate находится первый код дисциплины, и по коду дисциплин в таблице disiples с помощью все той же команды Lokate осуществляется поиск названия дисциплин по данному коду и с помощью команды List1.AddItem добавляется в ListBox. После этого используется команда Continue которая продолжает поиск в таблицах. Весь процесс поиска осуществляется с помощью цикла Do while и условия not eof() - пока не конец файла.

Command1.Click:

Данное событие делает переход к окну «Главное меню», скрывая при этом видимую в момент до нажатия форму. Это происходит с помощью команд скрытия и отображения форм, а именно show и hide.

3.3 Обеспечение надежности и удобства эксплуатации

Для выбора специальностей используется объект ComboBox. Для надежности работы программы и избавления ее от ошибок. В ComboBox используется свойство Style=2-Dropdown List, дающее пользователю возможность только выбирать данные из списка и не дающего вводить с клавиатуры.

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

3.4 Программа тестирования

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

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

4. Описание программного модуля №2 (Form2)

4.1 Входные и выходные данные

В качестве входных данных используется таблица spesial, используется атрибут names данной таблицы, который содержит названия специальностей. Сама таблица содержит атрибуты kodspec который является первичным ключом, и names в котором и содержатся названия. Также в качестве входных данных используется информация в объектах TextBox вводимая пользователем. В качестве выходных данных используются таблицы disciples и specdis. в таблицу disiples в атрибут name записывается новая дисциплина из одного из объектов TextBox. В таблицу specdis записывается информация о коде специальности и дисциплины, которая пренадлежит этой специальности а также дополнительная информация с формы.

4.2 Процессы обработки и методы решения

Данный модуль вызывается из главной формы при нажатии на кнопку «Закрепление дисциплин». В данном модуле на форме размещены пять объектов label для надписи и 4 объекта TextBox для записи. Также размещен объект ComboBox в котором находится список всех специальностей из таблицы special с помощью свойств: RowSourceTyp=6-Fields, RowSource=special.name, style=2-Dropdown List. По умолчанию уже выбран объект - первый из списка в таблице. Для объекта ComboBox используется событие InteractiveChange. Также размещен объект Command для перехода на форму «Главное меню».

Рис. 5. Форма - Закрепление дисциплин

В данной экранной форме используются следующие события:

Form2.Init:

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

Command1.Click:

Данное событие добавляет в таблицу disiples название дисциплины, которую ввел пользователь для закрепления, автоматически генерируя код дисциплины. Данная процедура сначала проверяет, введена ли дисциплина и если нет, то выводится соответствующее сообщение с помощью команды MessageBox. Если дисциплина введена то с помощью команды Recount проверяется кол-во записей в таблице и следующий номер будет являться ключом для этой таблицы. С помощью команды replace в таблицу добовляется новая запись с полученным кодом и названием дисциплины, которая должна быть введена в объекте TextBox. Далее команда locate осуществляет поиск кода специальности в таблице special по названию специальности в объекте ComboBox. Затем используя команду replace, в таблицу specdis записываю полученный код дисциплины и код специальности. Также в эту таблицу записывается кол-во часов на дисциплину, на каком курсе и в каком семестре она проходится. Данные поля не являются обязательными для заполнения и если при нажатии кнопки эти поля будут пустыми или не будут соответствовать типу, то команда перефода текста числа в строку запишет в таблицу значение 0. Для того чтобы пользователь понял что запись добавлена после добавления записи в таблицу, появится диалоговое окно с сообщением об успешном добавлении записи.

Command2.Click:

Данное событие делает переход к окну «Главное меню», скрывая при этом видимую в момент до нажатия форму. Это происходит с помощью команд скрытия и отображения форм, а именно show и hide.

4.3 Обеспечение надежности и удобства эксплуатации

Для выбора специальностей используется объект ComboBox. Для надежности работы программы и избавления ее от ошибок. В ComboBox используется свойство Style=2-Dropdown List, дающее пользователю возможность только выбирать данные из списка и не дающего вводить с клавиатуры. Для того чтобы в базу данных ввелась дисциплина ее нужно сначала написать, для этого при обработке события Click требуется обязательное заполнение поля, если поле не будет заполнено об этом выведется сведение и информация не будет добавлена в базу данных.

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

4.4 Программа тестирования

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

5. Описание программного модуля №3 (Form3)

5.1 Входные и выходные данные

В качестве входных данных используется таблица specdis со всеми атрибутами, а также используются таблицы diciples и special. В качестве входных данных таблиц diсiples и special используестя названия дисциплин и специальностей. Выходным данным служит объект grid который связан с таблицей specdis, diciples и special.

5.2 Процессы обработки и методы решения

Данный модуль вызывается из главной формы при нажатии на кнопку «Учебный план». На данной форме размещен объект grid который имеет свойство readonly=True, чтобы пользователь мог только просматривать информацию, так же у объекта grid имеются дополнительные компоненты header для каждой колонки (всего их 6) , в свойствах caption которых описывается название колонки. Объект Column1 (первая колнка) связан с атрибутом kodspeс (код специальности) таблицы specdis для вывода в этой колонке всех кодов. Для второй и третьей колонки используются атрибуты names и name таблиц special и diciples, чтобы в данных колонках были записаны названия специальностей и дисциплин. Оставшиеся 3 колонки используют таблицу specdis для отображения курса, семестра и кол-ва часов, запланированных по конкретной дисциплине. Также на форме размещена кнопка перехода на форму «Главное меню»

Рис. 6. Форма - Учебный план

В данной форме используется событие Command1.Click. Событие осуществляет переход к форме «Главное меню». Скрывая эту форму и делая главную форму видимой используя команды hide и show.

5.3 Обеспечение надежности и удобства эксплуатации

Для надежности в объекте grid используется свойтсво readonly=true, чтобы пользователь не мог редактировать данные.

Сам объект grid позволяет полностью просматривать следующую информацию: на каком курсе и по какой специальности изучается данная дисциплина, в каком семестре, сколько часов на нее выделено. Это является удобным в использовании.

5.4 Программа тестирования

Для тестирования модуля можно использовать незаполненные таблицы. Но в этом случае объект grid выведет пустую таблицу или частично заполненную. В данной ситуации ошибки быть не должно.

6. Описание программного модуля №4 (Form4)

6.1 Входные и выходные данные

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

6.2 Процессы обработки и методы решения

Данный модуль является главной формой и вызывается при запуске программы. На форме размещен объект CommandGroup, который содержит 7 кнопок. Шесть из них предназначены для перехода на другие формы и одна кнопка для выхода из программы.

Рис.7 Форма - Главное меню

В данной форме используется 6 событий Command.Click для перехода на другие формы. Переход осуществляется с помощью команд срытия данной формы hide и вызова формы с помощью команды show.

Событие command7.click в объекте CommandGroup используется команды выхода из программы release, так же дополнительное диалоговое окно в котором пользователь должен подтвердить, что он действительно желает выйти.

6.3 Обеспечение надежности и удобства эксплуатации

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

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

6.4 Программа тестирования

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

7. Описание программного модуля №5 (Form5)

7.1 Входные и выходные данные

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

7.2 Процессы обработки и методы решения

Данный модуль вызывается из главной формы при нажатии на кнопку «Специальности». На данной форме размещен объект grid который имеет свойство readonly=True, чтобы пользователь мог только просматривать информацию, так же у объекта grid имеются дополнительные компоненты header для каждой колонки (всего их 2) , в свойствах caption которых описывается название колонки. Объект Column1 (первая колнка) связан с атрибутом kodspeс (код специальности) таблицы special для вывода в этой колонке всех кодов. Для второй колонки используется атрибут names таблицы special, чтобы в данных колонках были записаны названия специальностей. Также на форме размещена кнопка перехода на форму «Главное меню»

Рис. 8. Форма - Специальности

В данной форме используется событие Command1.Click. Событие осуществляет переход к форме «Главное меню». Скрывая эту форму и делая главную форму видимой используя команды hide и show.

7.3 Обеспечение надежности и удобства эксплуатации

Для надежности в объекте grid используется свойтсво readonly=true, чтобы пользователь не мог редактировать данные.

Сам объект grid позволяет полностью просматривать информацию, о том какие специальности находятся в базе данных и какой у них уникальный код.

7.4 Программа тестирования

Для тестирования модуля можно использовать незаполненную таблицу. Но в этом случае объект grid выведет пустую таблицу или частично заполненную. В данной ситуации ошибки быть не должно.

8. Описание программного модуля №6 (Form6)

8.1 Входные и выходные данные

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

8.2 Процессы обработки и методы решения

Данный модуль вызывается из главной формы при нажатии на кнопку «Дисциплины». На данной форме размещен объект grid который имеет свойство readonly=True, чтобы пользователь мог только просматривать информацию, так же у объекта grid имеются дополнительные компоненты header для каждой колонки (всего их 2) , в свойствах caption которых описывается название колонки. Объект Column1 (первая колнка) связан с атрибутом kodsdisc (код дисциплины) таблицы disiples для вывода в этой колонке всех кодов. Для второй колонки используется атрибут name таблицы disiples, чтобы в данных колонках были записаны названия дисциплин. Также на форме размещена кнопка перехода на форму «Главное меню»

Рис. 9. Форма - Дисциплины

В данной форме используется событие Command1.Click. Событие осуществляет переход к форме «Главное меню». Скрывая эту форму и делая главную форму видимой используя команды hide и show.

8.3 Обеспечение надежности и удобства эксплуатации

Для надежности в объекте grid используется свойтсво readonly=true, чтобы пользователь не мог редактировать данные.

Сам объект grid позволяет полностью просматривать информацию, о том какие дисциплины находятся в базе данных и какой у них уникальный код.

8.4 Программа тестирования

Для тестирования модуля можно использовать незаполненную таблицу. Но в этом случае объект griв выведет пустую таблицу или частично заполненную. В данной ситуации ошибки быть не должно.

V. Заключение

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

Библиографический список

1. Бутанов Е. А., Методы создания качественного программного обеспечения, М.: Энергоатомиздат 1998 г.

2. 7. Вендров, Проектирование программного обеспечения, М.: Финансы и статистика 2000 г.

3. 8. В.Липаев, Надежность программных средств, М.: Синтег 1998 г.

4. Голицина О.Л., Попов И.И. Основы алгоритмизации и программирования: Учебное пособие - М.: ФОРУМ: ИНФРА-М, 2002

5. Семакин И.Г., Шестаков А.П. Основы программирования: Учебник - М.: Мастерство; НМЦ СПО; Высшая школа, 2001

6. Технологии разработки программного обеспечения: Учебник / С. Орлов - СПб.: Питер, 2002

7. Брукс Ф. Мифический человеко-месяц, или Как создаются программные комплексы. - М.: Символ-Плюс, 2000

8. Методические указания по дисциплине технология разработки программного продукта Маршала О. Ю.

Приложение

Листинг программного модуля №1 (Form1)

Unit Form1

Form1.Init

ThisForm.Combo1.ListIndex=1

ThisForm.Combo1.InterActiveChange

Combo1.InteractiveChange

ThisForm.List1.Clear

sp=ThisForm.Combo1.ListItem(ThisForm.Combo1.ListIndex)

select 'special'

locate for sp=special.names

if found('special') then

spk=special.kodspec

select 'specdis'

locate for spk=specdis.kodspec

do while not eof('specdis')

spd=specdis.koddisc

select 'disiples'

locate for spd=disiples.koddisc

if found('disiples')

ThisForm.List1.AddItem(disiples.name)

endif

select 'specdis'

continue

enddo

endif

Command1.Click

thisformset.form4.show

thisformset.form1.hide

Листинг программного модуля №2 (Form2)

Unit Form2

Form2.Init

ThisForm.Combo1.ListIndex=1

Command1.Click

if Len(AllTrim(ThisForm.Text1.Text))=0 then

MessageBox('Не введена дисциплина!',16,'Ошибка')

Cancel

endif

select 'disiples'

nk=RecCount()+1

append blank

replace 'koddisc' with nk in 'disiples'

replace 'name' with ThisForm.Text1.Text

select 'special'

sp=ThisForm.Combo1.ListItem(ThisForm.Combo1.ListIndex)

locate for special.names=sp

sk=special.kodspec

select 'specdis'

append blank

replace 'koddisc' with nk in 'specdis'

replace 'kodspec' with sk in 'specdis'

replace 'kurs' with val(ThisForm.Text2.Text) in 'specdis'

replace semestr with val(ThisForm.Text3.Text) in 'specdis'

replace 'chasov' with val(ThisForm.Text4.Text) in 'specdis'

messagebox('Запись добавлена!',48,'Сообщение')

Command2.Click

thisformset.form4.show

thisformset.form2.hide

Листинг программного модуля №3 (Form3)

Unit Form3

Command1.Click

thisformset.form4.show

thisformset.form3.hide

Листинг программного модуля №4 (Form4)

Unit Form3

Command1.Click

thisformset.form5.show

thisformset.form4.hide

Command2.Click

thisformset.form6.show

thisformset.form4.hide

Command3.Click

thisformset.form1.show

thisformset.form4.hide

Command4.Click

thisformset.form2.show

thisformset.form4.hide

Command5.Click

thisformset.form3.show

thisformset.form4.hide

Command6.Click

if messagebox ('Вы действительно хотите выйти?',4+32+256,'Bыход')=6

thisformset.release()

else

thisformset.refresh()

endif

Листинг программного модуля №5,6 (Form5, Form6)

Unit Form5

Command1.Click

thisformset.form4.show

thisformset.form5.hide

Unit Form6

Command1.Click

thisformset.form4.show

thisformset.form5.hide

Отзыв

на курсовую работу

по дисциплине «Технология разработки программных продуктов»

на тему Программа контроля процесса образовательного учреждения № 3.10

(тема курсовой работы и номер задания)

Выполнил студент 3 курса группы 07 - 3(п)

Колосов Николай Сергеевич

(фамилия, имя, отчество)

Курсовая работа заслуживает оценки _____________________

________________________ ________________________

(дата) (подпись)

Страницы: 1, 2, 3