Курсовик по FoxPro
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат модель, доклад на тему
| Добавил(а) на сайт: Talalin.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Текст программы поиска с помощью циклов WHILE и SCAN
* Очищаем экран
CLEAR
* Открываем таблицу из базы данных
USE C:MY_WORKSTRANSF~1MYPROJ~1Table_goods
* Ищем все товары, поставленные из России, с помощью цикла WHILE
?'Товары из России (цикл WHILE) :'
* Ищем первый товар
LOCATE FOR supplier='Россия'
* Если нашли...
IF FOUND()
* Печатаем название
?name_unit
ENDIF
* Продолжаем поиск до исчерпания записей
DO WHILE .NOT. EOF()
CONTINUE
IF FOUND()
?name_unit
ENDIF
ENDDO
* Ищем все товары из России с помощью SCAN-цикла
?'Товары из России (цикл SCAN) :'
SCAN FOR supplier='Россия'
* Выводим наименование, цену и количество товара
Рекомендуем скачать другие рефераты по теме: методы дипломной работы, шпаргалки.
Категории:
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата