Министерство высшего и профессионального образования РФ
НГТУ
Кафедра ВТ
Лабораторная работа по СУБД N2
Факультет: АВТ
Группа: АМ – 89
Студенты:
Преподаватель:
Новосибирск
2001 год.
Вариант 7.
Задание : Согласно варианту задания 7, создать световое меню в форме буквы “Y”, к которой привязана база данных из лабораторной работы номер один. Она должна включать в себя следующие поля : имя, отчество , фамилия, возраст, курс, факультет, группа, предмет, оценки.
Произвести сортировку по всем вышеперечисленным полям.
 |
Внешний вид светового меню:
Результат выполнения работы программы (сортировка по имени) :
Остальные виды сортировки выполняются аналогично.
Код, используемый для сортировки полей базы данных :
*программа:*******
clear
set talk off
do while 5>2
set message to 16 center
@ 5,31 say 'Произвести сортировку по:'
@ 7,50 prompt 'NAME'
@ 8,45 prompt 'MIDLNAME'
@ 9,40 prompt 'SURNAME'
@ 10,35 prompt ' OLD '
@ 11,30 prompt 'COURS'
@ 12,35 prompt 'FAKULTET'
@ 13,40 prompt 'GROUP'
@ 14,45 prompt 'SABJECT'
@ 15,50 prompt 'MARK'
@ 16,55 prompt 'EXIT'
menu to R
do case
case R= 1
clear
use inform
sort to inform1 on name
close all
use inform1
list
set message to
@ 17,31 say 'SORTED BY NAME '
close all
erase inform1.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 2
clear
use inform
sort to inform2 on midlname
close all
use inform2
list
set message to
@ 17,31 say 'SORTED BY MIDLNAME '
close all
erase inform2.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 3
clear use inform
sort to inform3 on surname
close all
use inform3
list
set message to
@ 17,31 say 'SORTED BY SURNAME '
close all
erase inform3.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 4
clear
use inform
sort to inform4 on old
close all
use inform4
list
set message to
@ 17,31 say 'SORTED BY OLD '
close all
erase inform4.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 5
clear
use inform
sort to inform5 on cours
close all
use inform5
list
set message to
@ 17,31 say 'SORTED BY COURS '
close all
erase inform5.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 6
clear
use inform
sort to inform6 on fakultet
close all
use inform6
list
set message to
@ 17,31 say 'SORTED BY FAKULTET '
close all
erase inform6.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 7
clear
use inform
sort to inform7 on group
close all
use inform7
list
set message to
@ 17,31 say 'SORTED BY GROUP '
close all
erase inform7.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 8
clear
use inform
sort to inform8 on subject
close all
use inform8
list
set message to
@ 17,31 say 'SORTED BY SUBJEKT '
close all
erase inform8.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 9
clear
use inform
sort to inform9 on mark
close all
use inform9
list
set message to
@ 17,31 say 'SORTED BY MARK '
close all
erase inform9.dbf
@ 18,31 prompt 'MENU'
menu to S
do case
case S= 1
clear
endcase
case R= 10
clear
exit
endcase
enddo
Полный отчет с выводом всех полей
 |
Сортировка по группам
По предметам
 |
По факультетам
Оценки
Вывод : изучили основные возможности среды FoxPro. Научились работать со световым меню. И осуществлять сортировку соответсвующих полей.
