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

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

 

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

 

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

 

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

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

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

 

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

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

 

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

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

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

 

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

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

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

 

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

 

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

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

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

 

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

Для тестирования модуля можно использовать незаполненную таблицу. Но в этом случае объект 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(п)

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

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

 

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

 

________________________ ________________________

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

⇐ Предыдущая12

Поделиться: