Реферат: Курсовик по FoxPro

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C:\MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Вызов процедуры, выводящей сведения об искомых товарах

DO Show_units_for_date

?''

* Вызов процедуры, показывающей товары с единицей измерения 'шт.'

DO Show_units_for_measure

* Описание процедуры Show_units_for_date

PROCEDURE Show_units_for_date

?'Товары, поступившие позже 15.02.2001.'

?''

?'Наименование цена количество'

SCAN FOR date_recep>{^2001/02/15}

* Выводим наименование, цену и количество товара

? name_unit+' '+STR(price_unit)+' '+STR(amount)

ENDSCAN

ENDPROC

* Описание процедуры Show_units_for_measure

PROCEDURE Show_units_for_measure

?'Товары, у которых единица измерения - шт.'

?''

?'Наименование цена количество'

SCAN FOR unit_measure='Штука'

* Выводим наименование, цену и количество товара

? name_unit+' '+STR(price_unit)+' '+STR(amount)

ENDSCAN

ENDPROC