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

                                        100

@9,15 SAY «Введите имя файла, поля которого будут показаны»
@10,15 SAY « на экране поочередно. Затем нажмите ввод.»
*Фрагмент программы ввод имени файла
filename=«   »                 && Заготовка переменной памяти для
                         && последующего ввода имени файла.
@14,30 GET filename
READ                           && Прием имени файла, вводимого пользователем,
                               && в переменную памяти filename.

*Фрагмент программы смена инструкции (после ввода имени файла)
CLEAR
SET COLOR TO gr+/b              && Серия команд вывода инструкции
@6,65 SAY «Для смены»           && со сменой цветов.
@7,65 SAY «экранов BROWSE» && Пометка + означает «яркий»
@8,65 SAY «нажимайте Esc.»     && Пометка * означает «мигающий»
SET COLOR TO r+/b              && Символы цветов: см. выше, п.2.5.
@10,65 SAY «Жмите «
SET COLOR TO gr+*/b
@10,71 SAY «HЕ»
SET COLOR TO r+/b
@10,73 SAY «долго!»
SET COLOR TO gr+/b
@11,62 SAY «(иначе - прерывание)»
*Фрагмент программы открытие файла с именем, введенным
*пользователем, и определение числа полей в нем.
USE &filename             && Представьте себе, какой вид примет команда, если
                          && вместо filename записать ее содержимое.
                          && Например, если ввели students, то получится
                    && USE students - откроется файл students
n=FCOUNT( )               && Переменной памяти n присвоено значение =
                          && числу полей файла, имя которого введено пользователем.

*Фрагмент программы : подготовка к циклическому просмотру
i=1                      && Начальный номер поля для вывода на экран
                         && просмотра. Подготовка к циклическому
                         && поочередному просмотру.

*Фрагмент программы циклический поочередный просмотр полей
DO WHILE i<=n             && Цикл по полям от i=1 до i=n, где
                         && n - общее число полей.
 z=FIELD(i)               && Переменной памяти z присваивается
                         && значение = имени очередного поля, i=1,...,n
 SET COLOR TO w+/b        && Вывод текущего сообщения о номере
                         && показанного поля и общего числа полей.
 @13,65 say «ПОЛЕ «+str(i,1)+» из «+str(n,1)
 BROW FIEL &z
 SET COLOR TO gr+/b
 BROWSE FIELDS &z          && Представьте себе, какой вид примет
                           && команда, если вместо z записать ее содержимое.
* Например, при i=2 z=FIELD(2), т.е. z=Группа. Получится: BROWSE FIELDS Группа.
* На экране будет поле Группа файла stud.
 i=i+1                    && Переход к следующему номеру поля.