Изучение средств Visual Fox Pro 6.0, позволяющих создавать экранные формы ввода-вывода данных в удобном для пользователя виде

МоиН РФ

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

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

«Разработка экранных форм ввода-вывода данных»

Выполнили:   Куприянов П.М.                        Проверила: Трошина Г.В.

                        Ильин М.Э.

Группа: АП-218

Факультет: АВТ

Вариант: 9

Курс: 4

г. Новосибирск

Цель работы: изучить средства Visual Fox Pro 6.0, позволяющие создавать экранные формы ввода-вывода данных в удобном для пользователя виде, сопровождая их пояснительными надписями, использовать другие элементы оформления: рамки, выделение цветом. Изучить различные элементы управления такие, как кнопки, переключатели, списки, раскрывающиеся списки, счетчики, флажки, поля ввода и редактирования.

Задание: Создать  форму на основе лабораторной работы №1. в формеобязательно присутствие элементов таких, как label (метка), textbox (поле ввода), editbox (поле редактирования), commandbutton (кнопка),option group (переключатель), chrckbox (флажок), combobox (ракрывающицся список), spinner (счетчик), image (изображение), commongroup (группа кнопок), grid (таблица). Элементы формы в качестве выполняемого действия должны содержать результаты предыдущих лабораторных работ: создание отчета, поиск, сортировка, редактирование, просмотр данных, индексирование по заданному критерию и т.д. Форма должна быть озаглавлена, а так же содержать кнопки перемещения по базе данных и кнопку «Выход». Предполагается, что база данных создана ранее, либо предусматривается ее создание стандартными средствами в среде Visual Fox Pro 6.0. также обязательным условием является нагладное представление работы созданной элементов.

Form1          showtips(true)

                     Initevent ( Public ar(3)

                                       Store 1 to ar(1)

                                       Store 2 to ar(2)

                                       Store 3 to ar(3)

                     )

Check box   Mousedownevent(THISFORM.BackColor = RGB(178,150,255))

                     Mouseupevent(THISFORM.BackColor = RGB(255,255,255))

Button exit  clickevent(quit)

                     Statusbartext(quit)

                     Tooltiptext(exit)

Image           picture (g:\ngtu\bjd\metoda\dsc01306_1.jpg)

Optiongroup1           button do (

                        if (thisform.Pageframe1.Page3.optiongroup1.option1.value==1)

                                    report form obshaga_ver2.frx preview

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option2.value==1)

                                    DISPLAY STRUCTURE

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option3.value==1)

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option4.value==1)

                                    use obshaga

                                    index on Familiya to "index.idx"

                                    seek 'Губарев'

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option5.value==1)

                                    sort to sveden on Familiya

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option6.value==1)

                                    go top

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option7.value==1)

                                    go bottom

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option8.value==1)

                                    skip +1

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option9.value==1)

                                    skip -1

                                    browse

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option10.value==1)

                                    do menu1.mpr

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option11.value==1)

                                    do menu2.mpr

                        endif

                        if (thisform.Pageframe1.Page3.optiongroup1.option12.value==1)

                                    set sysmenu to default

                        endif

                     )

Counter       Increment(0.90)

                     Keyboardhighvalue(1)

                     Keyboardlowvalue(-10)

                     Spinnerhighvalue(2.00)

                     Spinnerlowvalue(-11.00)

                     Value(0.0)

Spisok          Combo1 ( Rowsourse(obshaga.imya)

                                      Rowsoursetype(6-fields)

                                    )

                     Combo2 ( Rowsourse(ar)

                                      Rowsoursetype(5-array)

                                    )

Вывод:          изучили средства Visual Fox Pro 6.0, позволяющие создавать экранные формы ввода-вывода данных в удобном для пользователя виде, сопровождая их пояснительными надписями, использовали другие элементы оформления: рамки, выделение цветом. Изучили различные элементы управления такие, как кнопки, переключатели, списки, раскрывающиеся списки, счетчики, флажки, поля ввода и редактирования.