Информатика и выч. техника \ Базы данных

Создание экранных форм, содержащей четыре вкладки, страница 2

Тип элемента управления

Объект

Свойство или функция

Значение

CommandGroup

Page2.CommandGroup1

CommandGroup1.

Command1.Click Event

[User Procedure]

CommandGroup1.

Command2.Click Event

[User Procedure]

CommandGroup1.

Command3.Click Event

[User Procedure]

ComboBox

Page3.Combo1

RowSourceType

1 - Value

RowSource

Фамилия, Курс, Учебник

Page3.Combo1

RowSourceType

8 - Structure

OptionGroup

Myform.Optiongroup1

Optiongroup1.

Option1.Style

1 - Graphical

Optiongroup1.

Option1.Click Event

[User Procedure]

. . .

. . .

Optiongroup1.

Option6.Style

1 - Graphical

Optiongroup1.

Option1.Click Event

[User Procedure]

Form

Myform

ShowTips

True

Page

Page1

RightClick Event

[User Procedure]

. . .

. . .

. . .

Page4

RightClick Event

[User Procedure]

Ниже приводятся функции объектов элементов управления, которые были изменены.

Page1.Command1.Click Event

if !EOF()

skip +1

endif

myform.refresh

Перемещается по таблице вниз, пока не дойдет до конца.

Page1.Command1.Click Event

if !BOF()

skip -1

endif

myform.refresh

Перемещается по таблице вверх, пока не дойдет до начала.


Page3.Command1.Click Event

do case

case myform.pageframe1.page3.combo1.value = "Фамилия"

            myform.pageframe1.page3.Text1.value = sorted_table2. Фамилия

case myform.pageframe1.page3.combo1.value = "Курс"

            myform.pageframe1.page3.Text1.value = sorted_table2. Курс

case myform.pageframe1.page3.combo1.value = "Учебник"

            myform.pageframe1.page3.Text1.value = sorted_table2. Учебник

endcase

myform.refresh

Устанавливает источник данных в объекте myform.pageframe1.page3.Text1 типа TextBox в зависимости от выбора в объекте myform.pageframe1.page3.combo1 типа ComboBox.

Page4.Command1.Click Event

if myform.pageframe1.page4.check1.value = 0

            report form report3.frx preview

else

            modify report report3.frx

endif

Открывает отчет для редактирования или просмотра в зависимости от значения объекта myform.pageframe1.page4.check1 типа CheckBox.

Pageframe1.Command1.Click Event

myform.release

Закрывает форму.

Page1.RightClick Event – Page4.RightClick Event

do menu2.mpr

Запускает контекстное меню.

Page2.CommandGroup1.Command1.Click Event

index on Фамилия to indx1

myform.refresh

Индексирует таблицу по фамилии.

Page2.CommandGroup1.Command1.Click Event

index on Курс to indx1

myform.refresh

Индексирует таблицу по курсу.

Page2.CommandGroup1.Command1.Click Event

index on Факультет to indx1

myform.refresh

Индексирует таблицу по факультету.

Myform.Optiongroup1.Option1.Click Event

myform.BackColor = rgb(212,208,200)

Изменяет цвет формы. Переключатели из этой группы выполняют аналогичные функции, различается лишь цвет.

Выводы

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

Скачать файл