Новости



Visual FoxPro 9 позволяет создавать ещё более производительные приложения баз данных.
Двадцатиление FoxPro! Microsoft принимает поздравления.
Visual FoxPro Toolkit for .NET - более 225 функций VFP 7.0, для языков .NET (подробнее)

fox00020.gif

* В данном примере открывается таблица customer и на экране появляется
* небольшое окно с кнопками, позволяющими перемещать указатель
* записи по таблице. В зависимости от направления движения указателя,
* Visual FoxPro будет проверять, находится ли указатель записи в конце
* файла (EOF) или в начале файла (BOF). Если значение такого условия есть
* "истина" (.T.), Visual FoxPro выдает соответствующее сообщение и
* изменяет позицию указателя записи.

CLOSE DATABASES

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

USE customer && Open customer table

SET TALK OFF

CLEAR

ACTIVATE SCREEN

@ 2,1 SAY 'Company: '+ company

DEFINE WINDOW wSkip FROM 9,10 TO 14,65 DOUBLE COLOR SCHEME 5

ACTIVATE WINDOW wSkip

@ 1,5 GET gnChoice FUNCTION '*HN \<Forward;\<Backward;\<Quit' ;

DEFAULT 0 SIZE 2,14 VALID CHOICE( )

READ CYCLE

RELEASE WINDOW wSkip

PROCEDURE choice

DO CASE

CASE gnChoice = 1

SKIP

IF EOF('CUSTOMER')

WAIT WINDOW 'End of file encountered' NOWAIT

SKIP -1

ENDIF

CASE gnChoice = 2

SKIP -1

IF BOF('CUSTOMER')

WAIT WINDOW 'Beginning of file encountered' NOWAIT

GO TOP

ENDIF

CASE gnChoice = 3

CLEAR READ

ENDCASE

ACTIVATE SCREEN

@ 2,1 CLEAR TO 2,50

@ 2,1 SAY 'Company: '+ company

RETURN .T.



Новое на сайте

  • Обновлен портфель программиста

    Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский)
  • Новые примеры программ

    Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2)
  • Обновленна справка

    Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.