Дипломная работа: Формирование баз данных по учёту планов и остатков сырья в цехе (FoxPro)

@ 8,19,15,57 box' '

SET COLOR TO n/w,+w/br

@ 9,20 say 'средняя цена заготовления пост. сырья'

@ 10,20 prompt '1. ввод планов и остатков в цехе'

@ 11,20 prompt '2. ввод ост. на скл. и поступивш. сырья '

@ 12,20 prompt '3. расчет цены заготовления'

@ 13,20 prompt '4. печать'

@ 14,20 prompt '5. выход'

menu to r

DO case

CASE r=1

SET COLOR TO +w/b

DO vdat

DO vposc

CASE r=2

SET COLOR TO +w/b

DO voskl

CASE r=3

SET COLOR TO +w/b

DO rasc

CASE r=4

SET COLOR TO +w/b

DO pechat

CASE r=5

SET COLOR to+w/b

CLOSE ALL

? SYS (2002,1)

QUIT

ENDCASE