48235 (Программа контроля учебного процесса образовательного учреждения), страница 4
Описание файла
Документ из архива "Программа контроля учебного процесса образовательного учреждения", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48235"
Текст 4 страницы из документа "48235"
Рис. 9. Форма – Дисциплины
В данной форме используется событие Command1.Click. Событие осуществляет переход к форме «Главное меню». Скрывая эту форму и делая главную форму видимой используя команды hide и show.
8.3 Обеспечение надежности и удобства эксплуатации
Для надежности в объекте grid используется свойтсво readonly=true, чтобы пользователь не мог редактировать данные.
Сам объект grid позволяет полностью просматривать информацию, о том какие дисциплины находятся в базе данных и какой у них уникальный код.
8.4 Программа тестирования
Для тестирования модуля можно использовать незаполненную таблицу. Но в этом случае объект griв выведет пустую таблицу или частично заполненную. В данной ситуации ошибки быть не должно.
V. Заключение
Программа закрепление дисциплин предназначена для закрепления дисциплин изучаемых по специальности, так же для просмотра закрепленных дисциплин. Программа используется для быстрого и удобного редактирования, просмотра и хранения информации, в котором предусмотрен удобный интерфейс и от пользователя, благодаря максимальной автоматизации, требуется минимум действий. Были достигнуты такие цели как: возможность добавлять информацию о дисциплинах, изучаемых по специальности; возможность просматривать дисциплины по конкретной выбранной специальности; удобны интерфейс и обеспечение надежности, а так же защита от случайных ошибок при работе в виде напоминания или подтверждения. Программа позволяет просматривать все таблицы необходимые для работы. Позволяет безопасно добавлять данные в базу данных, так как в программе имеются программные средства обработки ошибок и неполноты данных. Программа обладает удобным меню, которое позволяет быстро перейти на нужную форму и достичь нужного результата. Во время работы над курсовой мной были приобретены навыки в работе с формами и объектами, получены знания многих команд, процедур и функций, а так же получены знания о среде разработки Visual FoxPro.
Библиографический список
-
Бутанов Е. А., Методы создания качественного программного обеспечения, М.: Энергоатомиздат 1998 г.
-
7. Вендров, Проектирование программного обеспечения, М.: Финансы и статистика 2000 г.
-
8. В.Липаев, Надежность программных средств, М.: Синтег 1998 г.
-
Голицина О.Л., Попов И.И. Основы алгоритмизации и программирования: Учебное пособие – М.: ФОРУМ: ИНФРА-М, 2002
-
Семакин И.Г., Шестаков А.П. Основы программирования: Учебник – М.: Мастерство; НМЦ СПО; Высшая школа, 2001
-
Технологии разработки программного обеспечения: Учебник / С. Орлов – СПб.: Питер, 2002
-
Брукс Ф. Мифический человеко-месяц, или Как создаются программные комплексы. – М.: Символ-Плюс, 2000
-
Методические указания по дисциплине технология разработки программного продукта Маршала О. Ю.
Приложение
Листинг программного модуля №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(п)
Колосов Николай Сергеевич
(фамилия, имя, отчество)
Курсовая работа заслуживает оценки _____________________
________________________ ________________________
(дата) (подпись)
