Курсовик по FoxPro

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат модель, доклад на тему
| Добавил(а) на сайт: Talalin.

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

ENDSCAN

* С помощью WHILE находим общую цену товаров, поступивших

* в период с 15.01.2001 по 15.03.2001

* _SUM - переменная суммирования

_SUM=0

* Находим первую запись

LOCATE FOR date_recep>={^2001/01/15} .AND. date_recep={^2001/01/15} .AND. date_recep_Max_price

* то делаем текущую максимальной

_Max_price=price_unit

* и запоминаем ее номер

_Number_max_price=I

ENDIF

* Если текущая цена{^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='Штука'

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

Рекомендуем скачать другие рефераты по теме: методы дипломной работы, шпаргалки.

Claw.ru | Рефераты по информатике, программированию | Курсовик по FoxPro