MemVar Array = Expression

= Пpи указании идентификатоpа массива без аpгументов указанное значение Expression пpисваивается всем элементам массива. Например:

DIMENSION aMembers(4,2) STORE 5 TO aMembers

В Visual Basic такая же процедура будет выглядеть следующим образом (нам придется использовать цикл, о чем мы будем говорить в дальнейшем):

Dim aMembers(4,2), nX As Integer

For nX = 0 To 4 aMembers(nX) = 5 Next nX

Для определения переменной типа даты в Visual FoxPro можно использовать следующую команду, которая одновременно присвоит ей нулевое значение:

STORE CTOD(. TO dDate

STORE {} TO dDate

Для присвоения конкретного значения лучше воспользоваться вариантом с фигурными скобками, например:

SET DATE GERMAN

STORE {01.01.91} TO dDate

Для форматирования значения даты в Visual FoxPro удобно использовать установочную команду SET DATE.

В Visual Basic присвоение значения даты можно выполнить следующим образом:

Dim dToday As Date dToday = #1/11/96 #

А для форматирования даты надо использовать функцию Format(Expression [, Format [, FirstDayOfWeek [, FirstWeekOfYear]]])

Например: dDate = Format(dToday, dd.mm.yy )

Возвращает значение переменной dToday в виде 01.11.96.

Глобальные переменные (public) будут сохранять свои значения во всех программных файлах и вызываемых ими процедурах. Для объявления переменных и элементов массива глобальными в Visual FoxPro используется команда

PUBLIC MemVarList [ARRAY] ArrayName1(nRows1 [, nColumns1]) [, ArrayName2(nRows2 [, nColumns2])]...

В Visual Basic такая команда будет выглядеть аналогично команде Dim Public VarName [([Subscripts])] [As [New] Type][, VarName [([Subscripts])] [As [New] Type]] ...

СУБД Visual FoxPro;

Visual Basic;

СУБД Access.

Писать даже самую простую программу непросто. Из рассматриваемых средств разработки легче всего сделать это в Visual FoxPro. С него и начнем.

Чаще всего самым трудным бывает первый шаг. Не будем искать трудностей и просто избежим этого первого шага. Поручим это самой СУБД, пусть сама напрягает свои электронные мозги .

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

Если мы захотим из таблицы SPPOS.DBF, содержащей список поставщиков, прочитать данные, относящиеся к фирме с названием Компьютерное образование , мы должны из меню File выбрать команду Open, установить тип файла и из списка выбрать SPPOS.DBF. Из меню Database выбрать команду Browse и найти запись, относящуюся к указанной фирме.

Программно тот же результат можно получить, набрав в окне Command следующие команды:

USE Sppos BROWSE

LOCATE FOR Company = Компьютерное образование

Если приведенная выше последовательность команд будет записана в файле, мы получим простейшую программу. Это может быть сделано несколькими способами. Например, можно из меню File выбрать команду New, установить тип файла Program. Откроется окно Редактора FoxPro. В нем можно набрать указанные строчки или скопировать их из окна Command. При закрытии окна редактирования будет необходимо указать имя файла, которое в дальнейшем и будет являться именем программы.

Для изменения или дополнения программы необходимо ее открыть с помощью команды Open в меню File.

Лишь после объявления глобальным переменным можно присвоить какие-либо значения.

Внутренние переменные (local) действуют только в пределах процедуры или функции, в которых были созданы. К ним нельзя обратиться из программы или функции ни более высокого, ни более низкого уровня. Объявить переменные внутренними в Visual FoxPro можно командой

LOCAL MemVarList [ARRAY] ArrayName1(nRows1 [, nColumnsl]) [, ArrayName2(nRows2 [, nColumns2])] ...

В Visual Basic для этой цели можно использовать команду Dim.

Вы должны сначала объявить переменные или массивы внутренними и только потом присвоить им необходимые значения. После выхода из процедуры или функции, в которой были созданы внутренние переменные, они будут удалены из памяти.

Региональные переменные или массивы (regional) могут использоваться только в Visual FoxPro. Они подобны локальным и объявляются с помощью команды

REGIONAL MemVarList

Перед командой помещается директива

#REGION nRegionNumber

с указанием номера региона nRegionNumber (от 0 до 31), в котором действуют переменные, перечисленные в списке MemVarList. В регионе с другим номером та же переменная может иметь другое значение.

4.2. Как написать программу

В этом параграфе мы научимся составлять очень простые программы, которые будут работать

Автоматичистое сох ранение отступя nfiv* переходе

Перенос шсти строки аииэ, если ее АП]лиа превосколкгт ujtipiiMy окнэ pefiaicrope

Использование 1&кпорЮ1к1и первтаскиввнияп

Запысь смм&йла кйнца файла Компиляция поре qqncpaHQHMu CaxprlHtHkic: &TpiiK.ati4MC3 кипи и Эяпись ск*мвснла конца строки

rmnr-

Ггг*п-ГЛ1

t Jil yjy-jnm цг 1 iwvriil -Р L!raL:-3ih.i-Lii4jpt4>i4 . Г rdW-.[h

. Tab WkMv ;с1-агад1 1 ii р

1*11ПРЧППИ

RnriTln Пи1и ] Пп I rj*nni

Сохранить

ПоказыааЕь номер строки и * 1 ломки

Число симе(?лов, лропускв мык при нажатиг1 авишн Tab

выбрпть до выхода из СУБД

для BtMix программных фи й л ив

Ойкрвныть сделанные установки

Рис. 4.1.

При первом запуске программы и в последующем, при ее изменении, FoxPro компилирует исходный код программы в так называемый препроцессорный код, или р-код , который выполняется во много раз быстрее интерпретируемой программы. Файлы с р-кодом получают другое расширение. Обратите внимание на очень удобную возможность компиляции программы перед ее сохранением. Включение этой опции позволяет сразу определить синтаксические ошибки, выявляемые на этом этапе, - недостаток или отсутствие запятых, неправильное написание ключевых слов и т. д.

В связи с тем, что редактор Visual FoxPro используется не только для работы с файлами программ, но и вообще для редактирования текстовых данных, например в полях примечаний, то перечень доступных опций в диалоговом окне Options зависит от типа окна, которое было активным перед его вызовом. Например, если активным окном было окно с данными поля примечаний, то внешний вид окна Options будет таким, как это видно на рис. 4.2. Естественно, при этом некоторые опции, например компиляции, будут недоступны.

Если вы взялись за разработку программ, то вам часто придется проделывать эту операцию и работать с редактором Visual FoxPro. Поэтому уделим ему немного внимания. Начнем с конфигурации, ведь от того, насколько удобно установлены те или иные параметры работы редактора, зависит производительность вашего труда.

Откройте какой-либо файл с программой или создайте новый файл. Выберите команду Options в меню Tools. В появившемся диалоговом окне найдите вкладку Edit. Доступные установки для редактора видны из рис. 4.1.