Цикл SCAN

Цикл FOR

CONTINUE

Пример использования команды LOCATE

Из таблицы заказов выбираются заказчики находящиеся в Москве и подсчитывается их число.

USE customer && Open Customer table

SET TALK OFF

STORE 0 TO gnCount

LOCATE FOR ALLTRIM(UPPER(customer.city)) = 'Москва'

DO WHILE FOUND()

gnCount = gnCount + 1

? company

CONTINUE

ENDDO

? 'Всего заказчиков в Москве: '+ LTRIM(STR(gnCount))

SEEK <выражение>

Осуществляет поиск в таблице первой записи такой, что значение индекса совпадает с указанным выражением, указатель текущей записи устанавливается на найденную запись.

SEEK eExpression

[ORDER nIndexNumber | IDXIndexFileName

| [TAG] TagName [OF CDXFileName]

[ASCENDING | DESCENDING]]

[IN nWorkArea | cTableAlias]

Циклы:

DO WHILE <условие>

<команды>

[exit]

[loop]

EndDO

<команды > выполняются когда <условие> истинно.

[EXIT] -Прерывает выполнение цикла(управление передается оператору следующему за enddo, endfor, endscan)

[LOOP] -переход к началу цикла(на проверку условия)

Пример DO WHILE... ENDDO

В примере суммируется количество товаров на складе цена которых превышает 20 рублей

USE products && Opens Products table

SET TALK OFF

gnStockTot = 0

DO WHILE.T. && Begins loop

IF EOF()

EXIT

ENDIF

IF unit_price < 20

SKIP

LOOP

ENDIF

gnStockTot = gnStockTot + in_stock

SKIP

ENDDO && Ends loop

CLEAR

? 'Всего товаров стоимостью больше 20 руб.:'

?? gnStockTot

FOR <перем>=<вырN1> TO <вырN2> [STEP <вырN3>]

<команды>

[exit]

[loop]

EndFOR

<Перем> - используется в качестве управляющего параметра цикла для которого N1 является начальным значением, N2- конечным, а N3 шагом изменения переменной. По умолчанию шаг изменения параметра цикла =1.

[EXIT] -Прерывает выполнение цикла(управление передается оператору следующему за enddo, endfor, endscan)

[LOOP] -переход к началу цикла(на проверку условия)

Пример FOR... ENDFOR

* Пример 1

CLEAR

FOR gnCount = 1 TO 10

? gnCount

ENDFOR

* Пример 2

SET TALK OFF

CLOSE DATABASES

OPEN DATABASE (HOME() + 'samples\data\testdata')

USE customer && Opens Customer table

STORE 2 TO gnI && Initial value

STORE 10 TO gnJ && Final value

STORE 2 TO K && Step value

FOR gnCount = gnI TO gnJ STEP K

GOTO gnCount && Move record pointer

DISPLAY company && Display company name

ENDFOR

Просматривает таблицу в текущей рабочей области и выполняет команды для каждой записи которая удовлетворяет условиям.

SCAN [<границы>] [FOR <условие>] [ WHILE <условие>]

<команды>

[exit]

[loop]

ENDSCAN

[EXIT] -Прерывает выполнение цикла(управление передается оператору следующему за enddo, endfor, endscan)

[LOOP] -переход к началу цикла(на проверку условия)

Контрольные вопросы.

1. Перечислите основные компоненты входящие в состав проекта Visual Foxpro.

2. Какие типы данных могут использоваться в таблицах Visual Foxpro?

3. Какой оператор используется для описания массивов?

4. Перечислите операторы организации циклов.

Дата добавления: 2015-06-25