Реферат: Разработка СУБД FoxPro 2.0

WAIT 'Должников нет!' WINDOW

RETURN

ENDIF

J=1

I=1

FILE='DOLG.TXT'

PATH=SYS(5)+CURDIR(SYS(5))

ACTIVATE WINDOW WHERE BOTTOM

SELECT A

@ 1,1 GET J FUNCTION;

'*R Hа экран;Hа принтер;В файл' VALID A()

@ 5,1 SAY 'Имя файла:'

@ 5,12 EDIT FILE SIZE 1,13,12 COLOR ,W+/BG,,,,,,,,W/RB;

DISABLE

@ 7,6 SAY 'Путь:'

@ 7,12 EDIT PATH SIZE 1,24 COLOR ,W+/BG,,,,,,,,W/RB;

DISABLE

@ 1,28 GET I FUNCTION;

'* OK;ОТМЕHA' SIZE 1,1,1

READ CYCLE

DO CASE

CASE I=2.OR.LASTKEY()=27 &&Если <отмена> или ESC

DEACTIVATE WINDOW WHERE

CASE I=1.AND.J=1 &&Если вывод на экран

DEACTIVATE WINDOW WHERE

GO TOP

ACTIVATE WINDOW SELECT1

CLEAR

***Поиск должников и вывод на экран