При запуске Visual FoxPro, окружение разработки, используемое по умолчанию, устанавливает определенные значения для команд SET и системных переменных. Однако, эти установки могут быть задавать не самое лучшее окружение для вашего приложения. Поэтому первой задачей главного файла объекта приложения должна быть установка окружения для приложения.

NoteСовет

Рекомендуется, чтобы вы сохраняли начальные установки окружения, а затем изменяли их для создания конкретного окружения для вашего приложения. Для того, чтобы просмотреть значения по умолчанию для окружения разработки Visual FoxPro, запустите Visual FoxPro без использования конфигурационного файла, напечатав в окне Run операционной системы команду VFP -C с последующим вызовом команды DISPLAY STATUS. Для получения более подробной информации смотрите описание команды DISPLAY STATUS.

Для просмотра и сохранения текущего окружения

  1. В меню Tools щелкните на Options.

  2. В диалоговом окне Options нажмите и удерживайте клавишу SHIFT и одновременно щелкните на OK.

    Команды SET и прочие установки окружения отобразятся в окне Command .

  3. В окне Command скопируйте полученные данные и затем вставьте команды SET и установки окружения в установочный программный файл.

Теперь вы можете редактировать команды SET и установки окружения для нужд вашего приложения. В окружение для вашего приложения вы можете пожелать включить код для производства приведенного ниже:

  • Иниуиализировать переменнык.

  • Установить путь по умолчанию.

  • Открыть необходимые базы данных, свободные таблицы и индексы. Если ваше приложение требует доступа к удаленным данным, процедура инициализации может запросить у пользователя необходимую информацию для входа в систему (login).

  • Установить ссылку на внешние файлы библиотек и процедур.

Например, предположим, что вы желаете протестировать начальное значение комады SET TALK, сохранить это значение и установить для вашего приложения TALK в OFF. Вы можете поместить приведенный ниже код в вашу установочную процедуру:

  CopyCode imageСкопировать код
IF SET('TALK') = "ON"
   SET TALK OFF
   cTalkVal = "ON"
ELSE
   cTalkVal = "OFF"
ENDIF

Для получения более подробной информации смотрите SET Command Overview.

Смотрите также