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

6. Программные тексты методов

Form.frame.page1.colorList.InteractiveChange

do case

            case Form.frame.page1.colorList.value == "Black"

            Form.BackColor = rgb(0, 0, 0)

            case Form.frame.page1.colorList.value == "White"

            Form.BackColor = rgb(255, 255, 255)

            case Form.frame.page1.colorList.value == "Red"

            Form.BackColor = rgb(255, 0, 0)

            case Form.frame.page1.colorList.value == "Green"

            Form.BackColor = rgb(0, 255, 0)

            case Form.frame.page1.colorList.value == "Blue"

            Form.BackColor = rgb(0, 0, 255)

Endcase

Form.frame.page1.colorCheck.InteractiveChange

if Form.frame.page1.colorCheck.value == 1

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

            Form.frame.page1.colorList.Enabled = 0

else

            Form.frame.page1.colorList.Enabled = 1

            Form.frame.page1.colorList.InteractiveChange

endif   

Form.frame.page2.sortButton.MouseDown

LPARAMETERS nButton, nShift, nXCoord, nYCoord

do case

            case Form.frame.page2.sortList.value == 'Lastname'

            index on Lastname to indx

            case Form.frame.page2.sortList.value == 'Name'

            index on Name to indx         

            case Form.frame.page2.sortList.value == 'Otchestvo'

            index on Otchestvo to indx

            case Form.frame.page2.sortList.value == 'Age'

            index on Age to indx

            case Form.frame.page2.sortList.value == 'Group'

            index on Group to indx         

endcase

Form.refresh

Form.frame.page3.Command1.Click

Go Top

Form.refresh  

Form.frame.page3.Command2.Click

if !BOF()

            SKIP -1

endif

Form.refresh

Form.frame.page3.Command3.Click

if !EOF()

            SKIP +1

endif

Form.refresh

Form.frame.page3.Command4.Click

Go Bottom

Form.refresh

Form.frame.page4.Command1.Click

do case

            case Form.frame.page4.reportSelect.value == 1

            report form report1.frx preview

            case Form.frame.page4.reportSelect.value == 2

            report form report2.frx preview

endcase

CLOSE ALL

USE inform.dbf

Form.frame.page5.Command1.Click

Form.release

7. Выводы

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