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

Выполнение операции ускоренного поиска по фамилии осуществляется при нажатии на соответствующую кнопку, за которой закреплена следующая процедура:

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

index on  фамилия to "D:\учеба\7 семестр\Базы данных\=Labs\Lab#4\Famas\index_famyly"

seek thisform.pageframe1.page2_index_sort.combo2.value

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

thisform.pageframe1.page1_records.refresh

.

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

Индексирование выполняется нажатием на кнопку «Выполнить», которая анализирует значение в раскрывающемся списке (по какому признаку производить индексирование):

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

if thisform.pageframe1.page2_index_sort.optiongroup1.option1.value = 0 then

          if thisform.pageframe1.page2_index_sort.combo1.value == 'фамилия'

          index on фамилия to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\index_file"

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'имя'

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

          *index on имя to index_file

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'отчество'

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

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'дата_рождения'

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

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'курс'

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

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'факультет'

          index on факультет to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\index_file"

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'предмет'

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

          endif

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

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

          endif

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

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

          endif

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

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

          endif

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

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

          endif

*        browse

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

else

          if thisform.pageframe1.page2_index_sort.combo1.value == 'фамилия'

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

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'имя'

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

          endif

          if thisform.pageframe1.page2_index_sort.combo1.value == 'отчество'

          sort to "D:\учеба\7 семестр\Базыданных\=Labs\Lab#4\Famas\sort_file" 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 == 'предмет'