Составление программы построения системы меню приложения. Создание двухуровневого меню

Министерство высшего и профессионального образования РФ

НГТУ

Кафедра ВТ

Лабораторная работа по СУБД N4

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

Группа: АМ – 89

Студенты: Бобров Д.В.

                Гурченко Б.Ф.      

Преподаватель: Трошина Г.В.

Новосибирск

2001 год.

Задание к лабораторной работе N4:

Составить программу построения системы меню приложения 

согласно варианту задания лабораторной работы N1.

Меню должно быть двухуровневое,определять команды,тексты и процедуры

пунктов строк меню и подменю,определены оперативные клавиши ускоренного

действия.

Создать и запомнить БД в разных областях,взяв за основу поля БД

из лабораторной работы N1.установить связи между ними.

Форма , к которой привязанно двухуровневое меню .

Внешний вид двухуровнего меню :

Код программы двухуровнего меню :

set talk off

use laba4

set message to 20

 dimension a(4,2)

  a(1,1)=' ИНДЕКСИРОВАНИЕ '

  a(2,1)='    ВЫБОРКА     '

  a(3,1)='     ПОИСК      '

   a(4,1)=' ВЫХОД   '

a(1,2)=''

a(2,2)=''

a(3,2)=''

a(4,2)=''

dimension b(3)

b(1)=' по фамилиии    '

b(2)=' по имени   '

b(3)=' по отчеству '

dimension c(3)

c(1)=' в диапазоне возрастов (20-45)      '

c(2)=' все с полом "М"     '

c(3)=' имен начинающихся на "О" '

dimension d(3)

d(1)=' фамилии "Иванов" '

d(2)=' фамилии "Иванов" с именем (Иван)  '

d(3)=' самого "старого"   '

menu bar a,4

menu 1,b,3

menu 2,c,3

menu 3,d,3

x=1

Y=1

do while .T.

read menu bar to x,y

 do case

        case x=4   

                cancel

        case x=1

                             if y==1

                 INDEX ON family to family.idx

                 browse

                 endif

                if y==2

                 INDEX ON name to name.idx

                 browse

                 endif

                 if y==3

                 INDEX ON family to family.idx

                 browse

                 endif

        case x=2 

                   if y==1

                 select * from laba4 where year>20 and year<45

                 *browse

                 endif

                if y==2

                  select * from laba4 where pol="М"

                 *browse

                 endif

                 if y==3

                 select * from laba4 where name like "О%"

                 *browse

                 endif

         case x=3

                    if y==1

                     select * from laba4 where family='Иванов'

                                                                        endif               

                                                                        if y==2

                     select * from laba4 where family='Иванов' and name='Иван'

                                                                        endif                

                                                                        if y==3

                     select * from laba4 where year>50

                                                                        endif               

    endcase

 enddo

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

Создали и запомнилиь БД в разных областях, взяв за основу поля БД

из лабораторной работы N1 и установив  связи между ними.