Система управления базами данных Visual FoxPro5.0 - от начальных навыков к профессиональной работе. Крушель Е.Г - 58 стр.

                                         104

                            SET PROCEDURE TO quartal
и повторите запрос. Будет получен правильный ответ.

                     2.7. Программные модули в Visual FoxPro 5.0

      каждая Visual FoxPro 5.0-программа, созданная как самостоятельная, может
быть использована без переделки в любой другой Visual FoxPro 5.0-программе (никаких
добавок - например, типа команды RETURN, при этом делать НЕ надо). В этом смысле
язык Visual FoxPro 5.0 похож на Pascal (с натяжкой и на QuickBasic, команда chain...).
      Модульность Visual FoxPro 5.0 обеспечивает простоту «склеивания» программ
программой-диспетчером или «подвешивание» их к пользовательскому меню (см. раздел
3).
      Рассмотрим создание программы-диспетчера на примере - демонстрация всех
программ, созданных в ходе чтения пособия. Наберите и выполните программу demo.prg:

*Программа demo.prg (иллюстрирует модульность Visual FoxPro 5.0)
CLEAR
SET COLOR TO to g+*/b
WAIT «Для вызова программы macr.prg нажмите пробел»
* Команда для ожидания нажатия любой клавиши с выдачей сообщения
SET COLOR TO gr+/b
DO macr                  && Выполняется первая программа

*После выполнения первой программы:*
SET COLOR TO g+*/b
WAIT «Macr.prg завершена, для вызова whilloop.prg нажмите пробел»
SET COLOR TO to gr+/b
DO whilloop              && Выполняется вторая программа

*После выполнения второй программы:
SET COLOR TO g+*/b
WAIT «Whilloop.prg завершена, для вызова scn.prg нажмите пробел»
SET COLOR TO to gr+/b
DO scn
SET COLOR TO g+*/b
WAIT «scn.prg завершена, для выхода в командное окно нажмите пробел»
SET COLOR TO to gr+/b
CLEAR                     && Очистка экрана после показа всех программ.

Как видите, схема программы-диспетчера очень проста:
      DO...
      DO...
      .....
      DO...
      В тексте программы много повторений одних и тех же операторов. Ее можно
сделать гораздо эстетичной, если заранее присвоить имена программ, подлежащих
вызову, некоторым переменным памяти, имеющим различия только в номере (например,
pr1, pr2,...). Используя макроподстановку, последовательный вызов программ можно
провести в цикле.

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

              2.8. Переменные памяти в структурированных программах