Создание формы с элементами Label, TextBox, EditBox, CommandButton, OptionGroup, CheckBox, ComboBox, Spinner, Image, CommonGroup, Grid, страница 3

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi_1" on предмет

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'учебник'

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi_1" on учебник

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'автор'

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi_1" on автор

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'стоимость'

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi_1" on стоимость

endif

if thisform.pageframe1.page2_index_sort.combo1.value == 'год_издания'

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi_1" on год_издания

          endif

          *use "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\sort_file"

          *browse

endif

*use "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\knigi2"

*browse

thisform.pageframe1.page1_records.Grid1.RecordSource = 'Knigi2'

thisform.pageframe1.page1_records.refresh

Свойства раскрывающегося списка, связанного с операцией индексирования:

.

Рис.5. Раскрывающийся список, источником данных для которого является структура таблицы.


3.         Вкладка Report.

На данной вкладке располагается список, позволяющий выбрать тип отчёта - многоколоночный или простой и кнопка для подтверждения выбора и показа отчёта на экране.

Выполняемая процедура:

if (thisform.pageframe1.page3_Report.List1.value == "Одноколоночный") Then

report form "D:\учеба\7 семестр\Базы данных\=Labs\Lab#4\Famas\KNIGI_1_ONECOLUMNS" preview

Else

report form "D:\учеба\7 семестр\Базы данных\=Labs\Lab#4\Famas\KNIGI_1_MCOLUMNS" preview

Endif

Рис.6. Третья вкладка формы.


4.         Вкладка Options.

Здесь располагаются:

1).        Переключатель, которым можно управлять цветовой схемой всех вкладок (вид переключателя - графический)

2).        Счётчик (все свойства – по заданию)

3).        Выбор стиля вкладки Records реализован с использованием флажков.

Рис.7. Четвертая вкладка формы.

Переключатель создавался в построителе, он имеет графический вид:

Рис.8. Свойства переключателя (вид - графический).


Ниже представлены свойства счётчика на данной вкладке:

Рис.9. Свойства объекта Spinner.


Примерработы переключателя: процедура возврата цветовой схемы «по умолчанию» - Default:

thisform.pageframe1.page1_records.BackColor = RGB(236,233,216)

thisform.pageframe1.page2_index_sort.BackColor = RGB(236,233,216)

thisform.pageframe1.page3_report.BackColor = RGB(236,233,216)

thisform.pageframe1.page4_options.BackColor = RGB(236,233,216)

thisform.pageframe1.page1_records.ForeColor = RGB (0,0,0)

thisform.pageframe1.page2_index_sort.ForeColor = RGB (0,0,0)

thisform.pageframe1.page3_report.ForeColor = RGB (0,0,0)

thisform.pageframe1.page4_options.ForeColor = RGB (0,0,0)

thisform.Shape3.FillColor = RGB (0,0,0)

Примерработы объекта Check Box (флажки) – управление стилем вкладки Records:

IF thisform.pageframe1.page4_options.check2.Value = 0

thisform.pageframe1.page4_Options.check2.Value = 1

Else

thisform.pageframe1.page4_Options.check2.Value = 0

Endif

IF thisform.pageframe1.page4_options.check1.Value = 1 and thisform.pageframe1.page4_options.check2.Value = 0

thisform.pageframe1.page1_records.Grid1.Visible = 0

thisform.pageframe1.page1_records.Label1.Visible = 1

thisform.pageframe1.page1_records.Label2.Visible = 1

thisform.pageframe1.page1_records.Label3.Visible = 1

thisform.pageframe1.page1_records.Label4.Visible = 1

thisform.pageframe1.page1_records.Label5.Visible = 1

thisform.pageframe1.page1_records.Label6.Visible = 1

thisform.pageframe1.page1_records.Label7.Visible = 1

thisform.pageframe1.page1_records.Label8.Visible = 1

thisform.pageframe1.page1_records.Label9.Visible = 1

thisform.pageframe1.page1_records.Label10.Visible = 1

thisform.pageframe1.page1_records.Label11.Visible = 1

thisform.pageframe1.page1_records.Фамилия1.Visible = 1

thisform.pageframe1.page1_records.Имя1.Visible = 1

thisform.pageframe1.page1_records.Отчество1.Visible = 1

thisform.pageframe1.page1_records.Дата_рождения1.Visible = 1