Шаг 5 - Улучшения

Ну, во-первых, вы наверно обратили внимание, что при работе выскакивают всякие символы. Это FoxPro показывает значение переменных и тому подобное. Давайте отключим это.

SET TALK OFF

Отключает вывод на экран результатов вывода большинства команд.

Дальше напрашивается вопрос о том как выбирать файл, а не вводить его. Для этого нужно ораганизовать меню и процедуру его обработки

DEFINE POPUP fl PROMPT FILE LIKE *.DBF 
 ON KEY LABEL ENTER DO procOpen
 ACTIVATE POPUP fl
ON KEY
.........

PROCEDURE procOpen
 filename=PROMPT()
 use &filename
 DEACTIVATE POPUP
RETURN

Можно использовать ALLTRIM - эта функция удалит все пробелы, что позволяет не иcпользовать LTRIM и RTRIM

gosnomer=ALLTRIM(gosnomer)

Теперь весь код выглядит так:

SET TALK OFF
clear
close databases
filename='         '
gosnomer='             '
nomera=0001
DEFINE POPUP fl PROMPT FILE LIKE *.DBF 
ON KEY LABEL ENTER DO procOpen
ACTIVATE POPUP fl
ON KEY
clear
@ 12,10 SAY 'госномер'  GET gosnomer
@ 14,10 SAY 'количество ' GET nomera
READ
gosnomer=ALLTRIM(gosnomer)
for x=1 to nomera
 append blank
 replace nn     with STR(x)
 replace gosnom with gosnomer
next x
browse
close databases
return

PROCEDURE procOpen
 filename=PROMPT()
 use &filename
 DEACTIVATE POPUP
RETURN

Предыдущий Шаг | Оглавление
Автор Каев Артем - 13.02.2000