Составление программы построения меню в форме «Т»

Министерство Общего и Профессионального Образования РФ

Н Г Т У

Кафедра ВТ

Лабораторная работа

по СУБД №2

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

Группа:                   АМ – 811

Студент:                  Курамшин А.А.

Вариант:                  6

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

г. Новосибирск

 2002г.

Цель работы:

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

Задание:

      Составить программу построения меню в форме «Т». В пунктах меню указывается наименование поля, по которому надо провести сортировку. Программа должна отсортировывать файл базы данных, созданный в лабораторной работе №1 по выбранному полю и показывать отсортированные списки студентов на экране. Составить отчет по БД, созданный в лабораторной работе №1. Разбить на группы по факультетам, на подгруппы по курсам и по году рождения всех студентов. Вычислить среднюю стоимость учебников по каждому факультету. Вывести итоги.

Программа:

use 'd:\work\alex\subd\my\lab2\data_table1.dbf'     && файл базы данных

clear

set message to 1 center

@ 10,10 prompt ' Фамилия ' message 'Фамилия'

@ 10,19 prompt ' Имя ' message 'Имя'

@ 10,27 prompt '  Отчество  ' message 'Отчество'

@ 10,37 prompt ' Группа  ' message 'Группа'

@ 10,45 prompt '   Курс  ' message 'Курс'

@ 11,27 prompt 'Факультет' message 'Факультет'

@ 12,27 prompt '  Предмет ' message 'Предмет'

@ 13,27 prompt ' Оценка  ' message 'Оценка'

@ 14,27 prompt ' Учебник  ' message 'Учебник'

@ 15,27 prompt '   Автор    ' message 'Автор'

@ 16,27 prompt 'Стоимость' message 'Стоимость'

@ 17,27 prompt '  Возраст  ' message 'Возраст'

menu to sel

DO WHILE sel<1

  RETURN

ENDDO

DO WHILE sel==1

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'  

  sort to 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON surname

  EXIT

ENDDO

DO WHILE sel==2

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON name_p

  EXIT

ENDDO

DO WHILE sel==3

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON lastname

  EXIT

ENDDO

DO WHILE sel==4

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON group_p

  EXIT

ENDDO

DO WHILE sel==5

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON kurs

  EXIT

ENDDO

DO WHILE sel==6

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON faculty

  EXIT

ENDDO

DO WHILE sel==7

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON subject

  EXIT

ENDDO

DO WHILE sel==8

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON mark_p

  EXIT

ENDDO

DO WHILE sel==9

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON book

  EXIT

ENDDO

DO WHILE sel==10

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON author

  EXIT

ENDDO

DO WHILE sel==11

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON price

  EXIT

ENDDO

DO WHILE sel==12

  erase 'd:\work\alex\subd\my\lab2\out_table1.dbf'

  sort To 'd:\work\alex\subd\my\lab2\out_table1.dbf' ON date_p

  EXIT

ENDDO

use 'd:\work\alex\subd\my\lab2\out_table1.dbf'

browse

do 'd:\work\alex\subd\my\lab2\program.prg'

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