Создание простейших программ в среде СУБД FoxPro

Цель работы: Получить практические навыки в работе по созданию простейших командных файлов, формирования удобного интерфейса. Создание динамических изображений. Элементы букв наименования программы и её авторов изображаются средствами псевдографики. Построение рамок с различной формой окантовки и цветовой гаммой, перекрашивание заданной области, музыкального сопровождения. Получение навыков работы с генератором отчётов, изучение возможностей для вычисления некоторых простых числовых характеристик данных.

          Задание: Составить программу построения меню в форме “>”. В пунктах меню указывается наименование поля, по которому надо провести сортировку. Программа должна отсортировать файл базы данных, созданный в лабораторной работе №1, по выбранному полю и показывать отсортированные списки студентов на экране. Составить отчет по базе данных, созданной в лабораторной работе №1. Разбить на группы по факультетам, на подгруппы по курсам и по номеру студенческого билета всех студентов. Вычислить средний размер стипендии у студентов по каждому факультету. Вывести итоги.

Программа:

clear

store 0 to sel

store '' to k

do while sel<>8

close all

use d:\ngtu\субд\2\st1

set message to 16 center

@ 2,90 say      'СОРТИРОВКА ...'

@ 4,77 prompt 'ФАМИЛИЯ      ' message 'FNAME'

@ 5,88 prompt 'ИМЯ             '          message 'MNAME'

@ 6,99 prompt 'ОТЧЕСТВО     ' message 'LNAME'

@ 7,110 prompt'КУРС               ' message 'COURSE'

@ 8,99 prompt'СТИПЕНДИЯ               ' message 'STIPENDIA'

@ 9,88 prompt'ДАТА РОЖДЕНИЯ                 ' message 'DATA'

@ 10,77 prompt'ВЫХОД         ' message 'EXIT'

@ 11,77 prompt'РАПОРТ         ' message '??'

menu to sel

set message to

@ 15,113

erase temp.dbf

do case

      case sel=4

            sort to temp.dbf on  COURSE

             case sel=5

            sort to temp.dbf on  STIPENDIA

             case sel=6

            sort to temp.dbf on  DATA

     case sel=1

            sort to temp.dbf on  FNAME

     case sel=2

            sort to temp.dbf on  MNAME

     case sel=3

            sort to temp.dbf on LNAME

     case sel=7

                        exit

     case sel=8

            sort to temp.dbf on FAKULTET,COURSE,STUDID

                        use temp

                        report form rep4

            exit

     case sel=7

                        exit

            case sel=0

            exit

set message to

@ 15,13

endcase

if sel <>8 and sel<>0 THEN

            use temp

&&      report form rep

            list FNAME,MNAME,LNAME,FAKULTET,COURSE,STIPENDIA,DATA

ENDIF

enddo

            Вывод: