Изучение возможностей создания различного рода меню в прикладных программах

Министерство культуры и науки

НГТУ

Кафедра ВТ

Лабораторные работы №5

по курсу СУБД

Выполнили студенты: Скопина Т.Л.                                                                                                                                  Беляевский А.В.

Проверила:                   Трошина Г. В.       

Группа: АМ-110

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

Вариант: 3

Новосибирск 2004

Цель работы:

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

Задание:

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

Текст составленной программы:

SET DEFAULT TO c:\Laba5

use dat

SCAN

replace selected with .F.

ENDSCAN

CLEAR

DEFINE MENU myMenu

DEFINE pad _dat OF myMenu PROMPT 'Дата' AT 6,60

DEFINE pad _go OF myMenu PROMPT 'Выбор сделан' AT 6,110

ON PAD _dat OF myMenu ACTIVATE POPUP dat

DEFINE POPUP dat

go top

FOR i=1 to RECCOUNT()

DEFINE BAR i OF dat PROMPT mesyac+'  '+den+'  '+STR(chislo)

ON SELECTION BAR i OF dat;

      DO choice WITH BAR(), PROMPT()

      skip

ENDFOR

ON SELECTION PAD _go OF myMenu DO sel

ACTIVATE MENU myMenu

PROCEDURE choice

PARAMETER nBar, txt

DEFINE BAR nBar OF dat PROMPT txt SKIP FOR .T.

go nBar

replace selected with .T.

ENDPROC

PROCEDURE sel

CLEAR

INDEX on chislo to costind for selected = .T.

? 'Вы Выбрали:'

SCAN FOR selected = .T.

      ? mesyac+den+STR(chislo)

ENDSCAN

ENDPROC

Результаты работе программы:

Выбираем из списка дни…

… а после выводится отсортированный по числам список выбранных нами дат: