Создание формы ввода в файл DBF, используя объекты типа Label, TextBox, EditBox, CommandButton, OptionGroup, CheckBox, Spinner, Image, CommonGroup и Grid

Министерство общего и профессионального образования Российской Федерации

Новосибирский государственный технический университет

Кафедра вычислительной техники

Лабораторная работа №3

по дисциплине “Базы данных”

Тема: “Создание форм”

Группа: АМ-015

Студент: Козицын О. Г.

Вариант: 8

Проверил: Трошина Г. В.

Новосибирск 2003

Цель работы

Целью данной лабораторной работы является изучение работы с формами в среде Visual FoxPro 6.0.

Задание

Создать форму ввода в файл DBF на основе лабораторной работы №1. В форме обязательно использовать объекты типа Label, TextBox, EditBox, CommandButton, OptionGroup, CheckBox, Spinner, Image, CommonGroup и Grid. Форма должна быть озаглавлена, а также содержать кнопки перемещения по БД и кнопку «ВЫХОД». Обеспечить наглядное представление созданных элементов.

Форма должна изменять цвет и возвращать его к обычному с помощью группы. Переключатель должен иметь 3 положения, вид переключателя – графический. Счетчик ограничивается значениями 10000 и 40000, эти же значения являются минимумом и максимумом для ввода в поле счетчика, шаг изменения – 500. Раскрывающийся список создать таким, чтобы из него пользователь мог выбрать значение или ввести его в поле ввода списка, источником данных для которого является заданный список значений.

Результаты работы

• Check Box – меняет свой параметр backstyle. Код процедуры Click:

if thisform.check1.value = 1

      thisform.check1.backstyle = 1

      thisform.check1.value = 0

else

      thisform.check1.backstyle = 0

      thisform.check1.value = 1

endif

• Combo Box 1, 2 – данные в объект добавлены посредством инструмента «Combo Box Builder». Код процедур Click и KeyPress:

thisform.refresh()

• Combo Box 3 – данные в объект добавлены посредством инструмента «Combo Box Builder» (параметр RowSource: «Понедельник, Вторник, Среда, Четверг, Пятница, Суббота, Воскресенье»)
• Command Button 1 – переход на первую запись. Код процедуры Click:

go top

thisform.refresh

• Command Button 2 – переход на предыдущую запись. Код процедуры Click:

skip -1

thisform.refresh

• Command Button 3 – переход на следующую запись. Код процедуры Click:

if !EOF()

skip 1

if EOF()

      skip -1

endif

thisform.refresh

endif

• Command Button 4 – переход на последнюю запись. Код процедуры Click:

go bottom

thisform.refresh

• Command Button 5 – выход из формы. Код процедуры Click:

if messagebox ("Exit?", 4+32, "Author database") = 6

      thisform.release()

endif

• Grid – данные в объект добавлены посредством инструмента «Grid Builder»

• Command Button – вывести результат поиска с заданными в Spinner 1 и Spinner 2 параметрами. Код процедуры Click:

lowcost = thisform.spinner1.value

highcost = thisform.spinner2.value

IF lowcost > highcost

      Messagebox("Нижний предел выше верхнего")

      thisform.spinner1.setfocus()

ELSE

      select autor.name, autor.patronymic, autor.surname, autor.booktitle, autor.bookcost from autor where autor.bookcost < highcost and autor.bookcost > lowcost

ENDIF

• Option Group – изменение цвета формы. Код процедуры InteractiveChange:

IF thisform.optiongroup1.option1.Value = 1

      thisform.BackColor = 12250878

      thisform.label1.ForeColor = 0

      thisform.label2.ForeColor = 0

      thisform.label3.ForeColor = 0

ENDIF

if thisform.optiongroup1.option2.Value = 1

      thisform.BackColor = 12632256

      thisform.label1.ForeColor = 0

      thisform.label2.ForeColor = 0

      thisform.label3.ForeColor = 0

ENDIF

if thisform.optiongroup1.option3.Value = 1

      thisform.BackColor = 4227072

      thisform.label1.ForeColor = 16777215

      thisform.label2.ForeColor = 16777215

      thisform.label3.ForeColor = 16777215

ENDIF

if thisform.optiongroup1.option4.Value = 1

      thisform.BackColor = 12615680

      thisform.label1.ForeColor = 16777215

      thisform.label2.ForeColor = 16777215

      thisform.label3.ForeColor = 16777215

ENDIF

• Spinner 1, 2 – задают цену книги при поиске. Диапазон счетчика отличен от указанного в варианте задания. Это обусловлено значениями цен в базе данных. Заданны параметры:

Increment         50.00

KeyboardHighValue 5000

KeyboardLowValue  0

SpinnerHighValue  5000.00

SpinnerLowValue   0.00

Выводы

Среда Visual FoxPro располагает всеми средствами для создания, редактирования и расширения функциональности форм. Благодаря объектной модели можно легко настроить реакцию элементов управления  на различные события, из свойства и параметры. Для наполнения элементов управления содержимым базы данных проще всего использовать набор инструментов типа «Builder».