Null — запрет пустого (нулевого) значения поля.

Когда все поля структуры описаны, надо сохранить создан­ную структуру таблицы (пустую) на диске нажатием кнопки Ок. При этом на экран выводится сообщение «Input data record now?» ( рис. 2.3).

Table Designei

Heme

;/ Microsoft Vi ual FosPro

^Ри°‘²-³- Приглашение к заполнению данными созданной таблицы.

Е°^{ли наЖать} кнопку No, то на диске, по указанному адресу, И1ет сохранена пустая структура таблицы. Если нажать кнопку - то на экран будет выведен пустой шаблон записи (рис. 2.4.) я занесения данных в созданной таблице.

ГИИ

iZakaz

>Ч_сш1 ■■ 1сз>_м1амп чву_Ьоок iale_zakaz/ / olume iPfOC

Tip^pplala

Рис. 2.4. Шаблон для заполнения записи данными.

Рис. 2.5. Задание типа создаваемой таблицы

Данные в шаблон заносятся по правилам текстовых редакто­ров. По окончании ввода всех данных (всех записей), их надо сохранить на диске с помощью одной из команд: Ctrl + End или Q_fj + W. Если данные сохранять не надо, то нажимают комби­нацию клавиш Ctrl + Q или клавишу Esc.

б. С помощью Главного меню.

Из Главного меню подать команду File -> New и в появившей­ся на экране диалоговой панели New (рис. 2.5) в радиогруппе File Туре выбрать кнопку Table, а затем нажать кнопку' New File.

Затем на экран выводится диалоговая панель Create, описанная выше. Описание структуры таблицы производится аналогично.

в. С помощью SQL-onepamopa.

Сокращенный формат SQL-оператора для создания таблицы имеет вид (подробнее см. главу 11):

CREATE TABLE <имя таблици> ( <кмя поля1> <тип поля1> (<размер по­ля^) (, <нмя 1шля1> <тнп иатя!> (<размер паля1>),...] )

2. ОТКРЫТИЕ ТАБЛИЦЫ

В FoxPro следует различать два понятия: открытие таблицы и предъявлени таблицы на экран. В каждый момент времени мо­жет быть открыто много таблиц (их количество определяется версией FoxPro). На экран предъявляется, как правило, одна таб­лица.

Открыть ранее созданную таблицу можно двумя способами: с помощью команд или с помощью главного меню.

а. С помощью команд.

В окне Command надо подать команду USE <нмя_таблицы>. Это краткий вариант команды открытия таблицы. При этом со­держимое таблицы на экран не предъявляется. Для того чтобы определить, открыта таблица или нет, надо на экран вывести ста- ТУс-строку, в которой будет указано имя открытой таблицы. Ни- *^{с п}Риведен полный формат команды USE с описанием назна- ения каждой опции. По мере изучения FoxPro будет ясен смысл назначение этих опций.

обозна^ ^{И ДалСе П}Р^И описании команд используются следующие

11 — если опция или параметр указаны в квадратных скобках, то они являются не обязательными.

| — ес.ш используется вертикальная черта, то надо сделать вы- бор опиии или параметра слева или справа от вертикаль, ной черты.

Полный формат команды:

USE Кичя табличного файла>] [IN <рабочая область>]

[AGAIN 1

[INDEX <сннсокимеинндексных_фаАлов>]

[ORDER [ <w.ip.N> | < I ОХ-файл> | TAG <нмя_тега>[ [OF <СОХ-фаил>] [ASCENDING | DESCENDING]

[ALLAS <псевдоннм>]

[NOUPDATE]

[EXCLUSIVE]

[SHARED]

Назначение опций:

IN — указывается номер рабочей области, в которой будет от крыта таблица. В Visual FoxPro допускается одновременное от крытис до 25 таблиц в разных рабочих областях. Рабочие области имеют порядковый номер от 1 до 25, но первые 10 рабочих обла­стей дополнительно имеют однобуквенные имена от А до J.

AGAIN — разрешает повторное открытие таблицы в другой рабо­чей области, но только в режиме просмотра (Read Only).

TNDEX — открывает одновременно с таблицей один или не­сколько индексных файлов, принадлежащих данной таблице.j Причем первый индексный файл в списке считается главным (текущим), если другой файл не определен в опции ORDER. ORDER — переназначает главный (текущий) индексный файл,¹ путем указания его номера (<Bbip.N>) в <списке_имен_индекс* ных_файлов>. При необходимости можно указать тип индексно­го файла (IDX или CDX), а также имя тега (TAG).

ASCENDING или DESCENDING — задает порядок чтения ин­декса, соответственно по возрастанию и по убыванию. NOUPDATE — в открываемой таблице запрещены любые изме­нения (устанавливается режим Read Only).

EXCLUSIVE — открываемая таблица предназначена для личного использования при работе в локальной сети.

SHARED — открываемая таблица предназначена для общего и^с пользования при работе в локальной сети.

Если команда USE используется без опций, то она закрывает

рсс таблицы.

б. С помощью Главного меню.

Aulor DBF

50 Глава 2

3. РЕДАКТИРОВАНИЕ ТАБЛИЦЫ

Команда BROWSE выводит на экран окно BROWSE (рис. 2.7), куда помешает содержимое таблицы.

Рис. 2.7. Окно BROWSE в режиме просмотра Browse с данными табли цы Customer.

^:

Команда BROWSE имеет более тридцати необязательных on ций, которые уточняют действие команды. Команда BROWSE без опций открывает окно BROWSE и помещает в него содержи мое текущей таблицы.

Полный формат команды BROWSE:

BROWSE (FIELDS <список имен полсй>(

[FONT <вырС1> ,[<вырМ>] [STYLE <вырС2>Ц [FOR <BbipLl> [REST11 [FORMAT]

[FREEZE <имя поля>]

[KEY <выр1> [,<выр2>][

[LAST|NOINITJ [LEDIT] | [LOCK <BbipN2>[

ILPARTITION]

_|NOAPPEND]

[NOCLLARl [NODELETE1 [NOFDITI NOMODI FV'J [NOFOLLOW]

[NOLGRID]

[NORGRID]

[NOLINK]

[NOMENU]

[NOOPTIMIZE]

[NORFFRESII]

[NORMAL]

[NOWAIT]

[PARTITION <BupN3>]

[PREFERENCE <вырСЗ>]

IREDIT]

[save]

[TIMEOUT <BupN4>]

[TITLE <вырС4>]

[VALID [:F] <bu_PL2>[ERROR <вырС5>]]

[VSTIEN <вырЫ>]

[WIDTH <BwpN5>]

[[WINDOW <имя «на 1>] [LN [WINDOW] <имя окна 2> | IN SCREEN ]] [COLOR [<спнсок nap цвегов>] | COLOR SCHEME <BwpN5>[

Назначение опций:

[FIELDS <список кмек полей>] — в списке перечисляются имена по- ^{Лсй как} Физических, так и виртуальных, которые будут отражены RRr?¹⁶ ®^OWSE. Виртуальные поля представляются в окне ROWSЕ только в режиме Read Only. Перечисление имен произ- Дится через запятую. После каждого имени поля, по желанию, ^,!° Указать дополнительные параметры, управляющие пред­осеннем информации для данного поля.

:R —

| Устанавливает режим просмотра (редактировать нельзя). VbipN> — описывает ширину поля на экране.

:V <выр1> l:F] [:Е * <вырОЦ — обеспечивает помещение в поле достоверных данных. Если <выр1> истинно, то данные заносятся в поле. В противном случае — нет. В логическом выражении <выр1> может быть указано или правило, или ограничение (под­робнее см. теорию баз данных). По умолчанию контроль досто­верности данных производится в режиме редактирования. Если указать параметр :F, то контроль достоверности будет проводить­ся во всех режимах. Если используется параметр :Е, то на экран выводится заданное пользователем сообщение об ошибке — <вырО.

:Р = <вырО — задаст шаблон для ввода в поле только определен­ных символов. Шаблон представляет собой строку специальных символов. (Подробнее о создании шаблонов см. в разделе «Ко­манды ввода-вывода*.)

:В = <выр1>,<выр2> [:FJ — накладывает ограничение на вводи­мые в поле символы. <выр!>,<выр2> соответственно нижняя и верхняя границы допустимого диапазона.

:Н = <вырО — описывает заголовок столбца. По умолчанию в качестве заголовка столбца используется имя поля.

:\V = <вырЕ> — запрещает перевод курсора в другое поле, ест логическое условие ложно. Логическое выражение может быть функцией, определяемой пользователем.

FONT <вырС1> [,<выр>11>] [STYLE <вырС2>] — описывает парамет­ры шрифта: тип (<вырС1>), размер (<выр1Ч>) и стиль (<вырС2>). Если указанный тип шрифта отсутствует, то FoxPro подставит ближайший (по типу) доступный тип шрифта. После опции 1 STYLE допускается указать один из уточняющих параметров:

В: — полужирный I: — курсив N: - нормальный

О: — контурный Q. — непрозрачный S: - оттененный

—перечеркнутый Т: — прозрачный U: — подчеркнутый

Если опция STYLE отсутствует, то по умолчанию использует-1 ся начертание N.

FOR <вырЬ1> [REST)] — ограничивает количество выводимых на экран записей. На экран выводятся только те записи, которые удовлетворяют логическому условию <выр.И>. При просмотре, записей курсор перемешается снизу вверх (от последней записи к первой)- Если указана опция REST, то при просмотре записей курсор не перемешается.

FORMAT — отображает на экране поля таблицы в соответствии с форматом, указанным в форматном файле (с расширением .fmt). Предварительно форматный файл должен быть открыт коман­дой SET FORMAT ТО <имя форматного файлаХ

FREEZE <имя поля> — разрешает внесение изменений только в одно указанное поле, хотя на экран выводятся все поля.

KEY <ныр1> 1,<выр2>] — предоставляет возможность выбрать и вывести на экран частичное подмножество записей. Отбор производится по полю текущего индекса. Допускается указать диапазон значений от <выр1> до <выр2> или одно значение <выр1> = <выр2>.

LAST | NOINIT — разрешает открыть окно BROWSE в той кон­фигурации, в какой оно использовалось в последнем сеансе ра­боты. Опция NOINIT используется для тех же целей, но обеспе­чивает совместимость с таблицами dBASE.

LEDIT — отображает левую часть разделенного окна BROWSE в режиме просмотра Edit.

LOCK <BbipN2> — запрещает внесение изменений в первые <вырМ2> полей, представленных в окне BROWSE. При этом пе­ревод курсора осуществляется либо мышью, либо комбинацией клавиш Ctrl + Н.

LPARTITION — при открытии окна BROWSE располагает кур­сор в первом поле первой записи левой части разделенного окна BROWSE. По умолчанию курсор располагается в первом поле первой записи правой части разделенного окна BROWSE.

OAPPEND — запрещает добавление новых записей в конец личного файла и блокирует команду Ctrl + N.

OCLEAR — после закрытия окна BROWSE сохраняет на экра- его образ. По умолчанию окно исчезает.

— запрещает пометку записей к удалению и блоки- РУет команду Ctrl + Т.

NOEDIT — запрещает внесение любых изменений в таблице.

NOMODIFY — запрещает модификацию структуры таблицы.

NOFOLLOW — после внесения всех изменений в одну запись со­храняет указатель в этой записи. По умолчанию указатель пере- ходит на следующую запись.

NOLGRID — удаляет вертикальные линии (разделители полей) в левой части разделенного окна BROWSE.

NORGR1D — удаляет вертикальные линии (разделители полей) в правой части разделенного окна BROWSE.

NOLINK — удаляет синхронную связь между разделенными час­тями окна BROWSE.

NOMENU — запрещает вызов системного меню окна BROWSE, то есть блокирует клавишу F10 и кнопку в левом верхнем углу ок­на BROWSE. Опция используется, когда все функциональные клавиши описываются программно.

NOOPTIMIZE — запрещает ускоренную технологию Rushmure. Подробнее см. п. 4.1.

NOREFRESH — запрещает обновление информации в окне BROWSE. Это необходимо при внесении изменений в очень большие базы данных, так как после каждого изменения (по умолчанию) производится переопределение индексов, что требу­ет дополнительного времени.

NORMAL — открывает окно BROWSE с нормальными атрибута­ми, даже если окно BROWSE открывается внутри другого поль­зовательского окна. Если опция отсутствует, то для окна BROWSE берутся атрибуты того окна, внутри которого открыва­ется окно BROWSE.

NOWAIT — после открытия окна BROWSE разрешает работу (без пауз) программы, вызвавшей открытие окна BROWSE. В про* тивном случае работа программы прерывается до закрытия окна BROWSE.

PARTITION <BbipN3> — разделяет экран на левую и правую час­ти, где <BbipN3> определяет размер (число колонок) левой части окна BROWSE.

PREFERENCE <вырСЗ> — предназначена для сохранения и по­вторного использования атрибутов окна BROWSE. Под имеНСМ| указанным в <вырСЗ>, сохраняется текущая конфигурация окН^а rrOVVSE в файле foxuser.dbf с помошью команды SET

Resource on.

rEDIT — устанавливает для правой части разделенного окна PROV/SE режим просмотра Edit.

SAVE — опция используется только в программах и сохраняет на экране образ окна BROWSE вместе с образом окна MEMO, если таковое было открыто, после закрытия окна BROWSE.

TIMEOUT <BbipN4> — задает время в секундах, в течение кото­рого окно BROWSE будет открыто без каких-либо действий пользователя. Эта опция используется только в программах.

TITLE <вырС4> — задаст заголовок окна BROWSE. По умолча­нию в качестве заголовка используется псевдоним рабочей обла­сти, в которой открыт табличный файл. Допускается задавать заголовок таблицы буквами русского алфавита.

VALID [:F[ <BbipL2> [ERROR <вырС5>] — организует проверку логического условия <BbipL2> для текущей записи на логическое соответствие между полями записи (правило). Если выражение <BbipL2> истинно, то разрешается переход к следующей записи. Если выражение <вырЬ2> ложно, то переход к следующей запи­си запрещен и на экран выдается сообщение <вырС5>. Если опция ERROR отсутствует, то на экран выводится стандартное сообщение Invalid Input.

WHEN <вырЬ4> — разрешает редактировать текущую запись только в том случае, если логическое условие <вырЬ4> истинно.

WIDTH <BbipN5> — устанавливает одинаковую ширину столб­цов <вырК5> внутри окна BROWSE.

[WINDOW <нмя окна I>) [IN [WINDOW] Симя окна 2> | IN SCREEN ] - Разрешает открыть окно BROWSE с характеристиками того окна, внутри которого оно и открывается. Это окно сначала должно ®Ыть описано командой DEFINE WINDOW, а его имя указано в ^ПаРаметре <имя окна 2>. По умолчанию окно BROWSE открыва- ^я на экране, то есть используется опция IN SCREEN.

pOLOR [Сспнсок пар цветов>] | COLOR SCHEME <BbipN5> — описы­вает атрибуты цвета окна BROWSE. Атрибуты цвета можно отш­ить либо с помощью списка пар цветов (COLOR ‘B/R’), либо номер цветовой схемы в пределах от I до 24 OLOR SCHEME 4). По умолчанию используется схема 10.

При работе с базой данных часто возникает необходимость исправить данные в таблицах, то есть выполнить рсдактирова- ние данных. Предварительно открывается нужный табличный файл. Вывести па экран таблицу можно в двух режимах: режиВ Browse и режим Edit. В режиме Browse в окно BROWSE выво­дится несколько записей. Количество записей определяется размером окна BROWSE, при этом возможна прокрутка как та горизонтали, так и по вертикали. В режиме Edit в окно BROWSE выводится одна запись (рис. 2.8), при этом записВ можно пролистывать вперед (клавиша PgDn) и назад (клавиша PgUp).

Рис. 2.8. Окно BROWSE в режиме просмотра Edit с данными таблиц^ Customer.

_а С помощью команд:

для задания режима Browse надо в окне Command подать ко­манду BROWSE;

для задания режима Edit надо в окне Command подать коман­ду EDIT или CHANGE.

б. С помощью Главного меню:

для задания режима Browse надо подать команду View -» Browse;

для задания режима Edit надо подать команду View -» Edit или View -> Append.

К ⁹

Перемещение но таблице производится по известным пра­вилам:

• на одно поле вправо — либо клавиша Tab, либо клавиша Enter, либо команда Ctrl + -к

• на одно паче влево — команда Shift + Tab, либо команда Ctrl +

• на одну строку вверх — клавиша ?;

• на одну строку вниз — клавиша 4-;

• на один экран вверх — клавиша PgUp;

• на один экран вниз — клавиша PgDn

Юр _

Bottom —

Skip

Previus — Record _

переход на первую запись таблицы; переход на последнюю запись таблицы; переход на следующую запись таблицы; переход на предыдущую запись таблицы; переход на запись с указанным номером.

_Н0"^{ОМер н}^^жной записи пишется в команде Record в специаль- окошке. Причем указать надо физический номер записи, то - номер в порядке записи на диск, запис ^Я..^{Внесения} однотипных изменений в большое количество ^е используют команду REPLACE. Формат команды:

56 Глава 2 _

REPLACE [SCOPE] <нмя поля 1> WITH <выр.1> [ADDITIVE]

[<имя поля 2> WITH <выр.2> [ADDITIVE]... ]

[FOR <выр.Ь1> ]

[WHILE <Bbip.L2>]

[NOOPTIMIZEJ Назначение огший:

<нмя поля 1>, <имя поля 2>... — имена полей, в которые заносят­ся новые данные.

WITH <выр.1>... — выражение (значение) для поля <имя поля 1>

ADDITIVE — используется только для полей типа Memo. При этом новые данные дописываются в конец имеющимся в поле данным.

Назначение опций FOR, WHILE, SCOPE и NOOPTIMIZE см. в п. 4.1.

Если опция WHILE опущена, то одно и то же выражение (значение) будет подставлено во все указанное поле (столбец), j

Когда редактирование выполнено, то его результаты надо со­хранить с помощью одной из пар клавиш: либо Ctrl + End, либо Ctrl + W. Если результаты редактирования сохранять не надо, то используют клавишу Esc или комбинацию клавиш Ctrl + Q.

Если запись содержит поля типа Memo, то для их редакторов вания используют специальные приемы. Если поле типа Memo пусто, то в окне BROWSE в этом поле будет надпись memo. Если поле типа Memo содержит данные, то в окне BROWSE в этом по­ле будет надпись Memo. Для того чтобы просмотреть (или отре­дактировать) содержимое поля Memo, надо установить курсор Ц*| это поле и либо дважды щелкнуть левой кнопкой мыши, либо по­дать команду Ctrl + PgDn. Изменения вносятся в окно Memo так же, как и в окно BROWSE. Для сохранения изменений, сделан­ных в окне Memo, используют только команду Ctrl + W. Если изменения сохранять не требуется, то нажимают Л)Я комбинацию клавиш Ctrl + Q, либо клавишу Esc.

4. ДОБАВЛЕНИЕ НОВОЙ ЗАПИСИ

В FoxPro новая запись добавляется в конец таблицы. Можно ЛЯ бавлятъ как одну, так и несколько записей. Предварител^Ш открывают табличный файл, а затем одним из способов пода*⁰'* команду добавления записи. I

РАБОТА С ТАБЛИЦАМИ 59

_а с помощью команд: в окне Command подают команду APPEND.

6. С помощью Главного меню.

Из Главного меню подают одну из команд:

fable -> Append New Record — для добавления одной записи.

Table -> Append Mode — для добавления нескольких записей.

При подаче любой из команд на экран выводится окно BROWSE в режиме Edit (см. рис. 2.8), которое содержит пустой шаблон записи. Если надо установить режим Browse, то из Глав­ного меню следует подать команду View -» Browse.

5. УДАЛЕНИЕ ЗАПИСИ ИЗ ТАБЛИЦЫ

В FoxPro удаление записи из таблицы производится за два ша­га: пометка к удалению и физическое удаление записи. На первом шаге производится пометка записи специальным сим­волом — прямоугольник черного цвета перед первым полем за­писи (рис. 2.9). Помеченные к удалению записи остаются в таб­лице и значения полей этих записей участвуют во всех вычисле­ниях. Если в алгоритме приложения предусмотреть проверку на пометку записи к удалению, то можно либо полностью, либо частично исключить помеченные записи из процесса вычисле­ний, что очень удобно в некоторых случаях (например, при на­числении заработной платы и т. д.). На втором шаге все поме­ченные к удалению записи удаляются одной командой. При этом оставшиеся в таблице записи перемешаются вверх, зани­мая освободившееся место, и, таким образом, размер таблицы Уменьшается.

^2<5-1. Пометка записи к удалению

Пометить запись к удалению можно тремя способами.

С помощью мыши.

Щелкнуть левой кнопкой мыши в поле выделения. Поле вы- находится слева от первого поля записи и представляет обой прямоугольник серого цвета. Если запись помечена к уда- то поле выделения окрашивается черным цветом (см.

A+Mtul1Ы 1а:ЛН

ii iztr^lv

Если запись помечена к удалению ошибочно, то для снятия пометки надо еще раз щелкнуть левой кнопкой мыши на поле выделения, при этом поле выделения будет закрашено серы цветом.

б. С помощью клавиатуры.

Предварительно курсор устанавливают на любое поле поме чаемой к удалению записи и нажимают клавиши Ctrl + Т. Пос.» выполнения команды поле выделения окрашивается черным цветом.

Для снятия пометки к удалению надо установить курсор любое поле помеченной записи и нажать клавиши Ctrl + Т.

в. С помощью главного меню.

Из Главного меню надо подать команду Table Toggle Deletion Mark и на экран выводится диалоговая панель Delete. Назначение кнопок диалоговой панели Delete.

Delete — помечает текущую запись к удалению.

Skip — определяет сферу действия команды Delete Records и водит на экран диалоговую панель Scope, где можно указать: All — вся таблица.

Next — в специальном окошке указывается количество мечаемых к удалению записей, считая от текущей запис» Опция задана по умолчанию и в окошке указана "Г. Record — в специальном окошке указывается номер по чаемой записи.

Rest — помечаются к удалению все записи, начиная от кущей до конца файла.

_е , |( While — определяют отбор записей по условию для их метки к удалению и выводят на экран диалоговую панель Expression Builder, которая содержит элементы управления:

Expression — многострочное поле ввода. Предназначено для написания логического выражения, которое определяет записи для пометки к удалению.

Functions — группа раскрывающихся списков, из которых выбирают по мере необходимости: функции для обработки строковых данных (String), логические операторы (Logical), математические операторы и функции (Math), функции обработки дат (Date).

Fields — список имен полей текущей таблицы.

Variables — список системных переменных.

Если запись или группа записей помечена к удалению ошибочно, то для отмены пометки надо подать команду Table -> Recall Records и на экран выводится диалоговая панель Recall, которая полностью аналогична диалоговой панели «Delete».

г. Программно.

Для пометки записей к удалению надо дать команду DELETE. Формат команды:

DELETE

lFOR<L>]

[ WHILE <L> J [ NOOPTIM1ZE J

Назначение опций см. в п. 2.3. Команда DELETE без опций помечает к удалению одну текущую запись.

2-5.2. Физическое удаление записи

Физическое удаление помеченных записей можно выполнить ■ВДУМя способами.

®- С помощью команд.

окне Command надо подать команду PACK.

£ С помощью Главного меню.

^Dcle»cd Re^BH j™ ^{Меню надо подать} команду Table -► Remove

ост?-^{1 и д}РУгом случае помеченные записи будут удалены, а вверх ._^{еся в} таблице записи автоматически перемещаются Н ^Ни"'^1ая освободившееся место.

6. МОДИФИКАЦИЯ СТРУКТУРЫ ТАБЛИЦЫ

Модифицировать можно текущую таблицу, при этом из сущееД вующей структуры можно удалить ненужное поле (поля), доба­вить в структуру новое поле (поля), изменить характеристики су­ществующих полей. При изменении характеристик существую­щих полей возможна потеря информации в некоторых случаях. Например, если тип поля изменяется с Character на Numeric, или при уменьшении размера поля и т. д.

Из окна Command надо подать команду MODIFY STRUC­TURE. Вес команды в Visual FoxPro можно подавать в сокращен­ном варианте написания, указывая не менее четырех букв of каждого слова имени команды, например MODI STRU. В резуль­тате на экран выводится диалоговая панель Table Designer, опи­санная ранее (см. рис. 2.2). Изменения структуры проводятся щ описанным выше правилам с использованием приемов текстовых! редакторов. С целью избежания потерь информации рекоменду! ется перед применением команды MODIFY STRUCTUREсделаш резервную копию таблицы.

6. СОЗДАНИЕ ФАЙЛА БАЗЫ ДАННЫХ

Создавать и работать с табличным файлом можно как с независи­мым объектом, хранящимся внутри каталога, так и как с частью базы данных. Для того чтобы таблица была частью базы данный надо либо сначала создать файл базы данных (или открыть фай! базы данных), а затем создавать таблицы (описанными вышеко-1 мандами), либо специальными командами в открытый файл бааЯ данных поместить (добавить) ранее созданные таблицы. ЕсДЯ файл базы данных создан, то создаваемая база данных будет редИ ционной. В противном случае база данных не реляционная.

Создать файл базы данных можно несколькими способамИ-Я

а. С помощью команд.

В окне Command надо подать команду:

CREATE DATABASE [ <нмя базы данных> | ? ]

Команда создает базу данных и делает ее текущей (открытой Если указана опция «?» или опции не указаны вообще, то на экрЩ выводится диалоговая панель Create, где в специально.м о» представлены имена имеющихся баз данных, и в поле ввода Елд database можно задать имя создаваемой базе данных.

g С помощью Главного меню.

Из Главного меню надо подать команду: File -> New, тогда на н выводится диалоговая панель New (см. рис. 2.5), где в ра- ^Э .огруппс File Туре надо включить кнопку Database и нажать кнопку New File, тогда на экран выведется диалоговая панель Create, работа с которой описана в пункте а.

в. С помощью графического меню.

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

База данных, созданная любым способом, становится теку­щей (открытой). Файл базы данных имеет расширение .DBC.

6. ОТКРЫТИЕ БАЗЫ ДАННЫХ

Для открытия базы данных надо из Главного меню подать коман­ду File -> Open или в графическом меню нажать кнопку Open, на экран выведется диалоговая панель Open, где надо указать имя базы данных и место се хранения. В результате работы команды Open на экран выведется диалоговая панель Database Designer (рис. 2.10).

1. Добавление таблиц в базу данных

Для того чтобы поместить в открытую базу данных ранее со зданную свободную таблицу, надо выполнить одно из дсйст. вий:

• либо из Главного меню подать команду Database -» Ado Table;

• либо установить курсор мыши на рабочее поле диалогов панели Database Designer и правой кнопкой мыши вызват на экран контекстное меню, из которого выбрать команд] Add Table.

В том и другом случае на экран выводится диалоговая панель Open, в окне которой представлены имена табличных файлов i текущего каталога. Надо выбрать имя нужного табличного фай и нажать кнопку Ок. После выполнения операции добавления таблицы, изображение самой таблицы появляется в диалогов панели Database Designer (рис. 2.11).

Добавить свободную таблицу в открытую базу даШ1ЫХ можи также с помощью команды ADD TABLE <имя таблицы> | ?

Назначение опции «?» см. в пункте а в п. 2.7.

2 8.2. Освобождение таблицы

- _{я осв}обождсние таблицы существуют две команды.

Команда REMOVE TABLE <ичя таблицы> ? [DELETE] удаля­ет таблицу из базы данных и делает указанную таблицу свобод­ной. оставляя се в текущем каталоге. Если указана опция DELETE- то таблица удаляется не только из базы данных, но и с диска.

Команда FREE TABLE <имя таблипы> используется при за­крытой базе данных для доступа к указанной таблице. Если оп­ция <имя таблииы> опушена, то на экран выводится диалоговая панель Free Table, которая аналогична диалоговой панели Open, ще можно указать имя освобождаемой таблицы.

Освободить таблицу можно через Главное меню командой Database -* Remove (рис. 2.12).

После выбора команды Remove надо уточнить свое действие: освободить таблицу (Remove) или удалить таблицу (Delete) нажа­тием соответствующей кнопки (рис. 2.13).

Microtofl Vitoel FoxPio

И Do you vmti to remove ihs taUe from ft* database a tWete i from the tiek?

I^arw*. | gebte ( | Canco1 |

Рис. 2.13. Освобождение или удаление указанной таблицы.

кнопки Yes (или No) в появившемся на экране новом запросе.

6. ВЫВОД ЗАПИСЕЙ ТАБЛИЦЫ НА ЭКРАН

В окне Command можно подать одну из команд (DISPLAY или LIST) для вывода на экран одной или нескольких записей, а так-1 же всей таблицы. Формат команд одинаковый:

DISPLAY|LIST JSCOPE]

[FIELDS <елисок имен полей>]

[FOR <выр.Ь1> ]

[WHILE <вырХ2>]

[OFF]

[TO PRINTER [PROMPT] | TO FILE <имя файла> ] [NOCONSOLE]

[NOOPTIMIZE]

Назначение опций:

OFF — номер записи не выводится.

ТО PRINTER — информация выводится на принтер.

ТО FILE — информация выводится в файл с указанным имене'<

NOCONSOLE — запрещает вывод информации на экран. используется совместно с опциями ТО PRINTER или ТО FII^p

Назначение опций FOR, FIELDS, WHILE и NOOPTlM*—,

описано в п. 4.1. Д

Различие между командами DISPLAY и LIST состоит в что команда DISPLAY выводит информацию порциями, то с<4

заполнении экрана ждет нажатия клавиши Enlcr, чтобы вы- ^П£ти следующую порцию информации. Команда LIST выводит ^формацию потоком, без пауз.

6. ЗАКРЫТИЕ ФАЙЛОВ

Efeg закрытия файлов различных типов используется универ­сальная команда CLOSE. Команда CLOSE используется с одной из опций. Формат команды:

CLOSE

ALL

DATABASES | FORMAT | INDEX

| MEMO Сспнсок имен полей memo> | MEMO ALL | PROCEDURE | TABLES [ALL]

Назначение опций.

ALL — закрывает вес типы файлов и назначает рабочую область 1 текущей.

DATABASES — закрывает все открытые базы данных, таблицы, индексы и форматные файлы и назначает рабочую область I те­кущей.

FORMAT — закрывает форматный файл, открытый в текущей рабочей области.

Index — закрывает все индексные файлы в текущей рабочей об- асги, за исключением структурного мультииндексного файла.

MEMO <список имен полей memo> | MEMO ALL—закрывает ок- Врспфопния. в которых были открыты указанные Мето- я или закрывает все Memo-поля во всех рабочих областях.

■ EDURE — закрывает процедурный файл.

^{а с} от ~ закрывает все таблицы в текущей базе данных,

зы ~ ^все таблицы во всех базах данных. Если все ба-

ь® закрыты, то закрывает все свободные таблицы.

6. УПРАВЛЕНИЕ СТАТУС-СТРОКОЙ

Статус-строка располагается в нижней части экрана и содер справочную информацию: имя лиска, где хранится таблицы, имя текущей таблицы, права доступа к таблице, номер текущей запи­си таблицы, общее количество записей таблицы и сведения о включенных режимах клавиатуры.

Для вывода статус-строки на экран надо в окне Command по­дать команду SET STATUS ON.

Для удаления статус-строки с экрана надо подать ту же коман­ду с параметром OFF.

6. УСТАНОВКА ТИПА ДАТЫ

В FoxPro предусмотрены несколько типов дат, которые устанав­ливаются с помощью команды: SET DATE <тип даты>

Аргумент <тип даты> может содержать одну из констант:

AMERICAN — американский тип даты мм/дд/гг ANSY — тип даты ANSY гт.мм.дд BRITISH — английский тип даты дд/мм/гг GERMAN — немецкий тип даты дд.мм.гг ITALIAN — итальянский тип даты дд-мм-гг

Если необходимо установить написание года четырьмя циф рами, то надо подать команду SET CENTURY ON.

Для написания номера года двумя цифрами надо подать ту же команду с параметром OFF.

В приложениях формат даты определяют либо в начале про граммного файла, либо в файле Config.fp.

6. УПРАВЛЕНИЕ РЕДАКТИРОВАНИЕМ ТАБЛИЦЫ

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

а. Команда установки текущего каталога SET DEFAULT ТО Сполное имя каталога>

б. Команда задания альтернативных путей поиска SET PATH ТО [<список путей поиска>].

Если требуемый файл не найден в текущем каталоге, то поиск файла продолжается в каталогах, указанных в Сспнсхе путей поисках

в. Команда управления курсором SET CONFIRM ON

Команда включает автоматический перевод курсора в следу­ющее поле после нажатия клавиши ENTER. Если после нажатия клавиши ENTER курсор должен оставаться в том же поле, то в этой команде следует указать параметр OFF.

г. Команда подачи звукового сигнала SET BELL ON

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

д. Управление выдачей системных сообщений SET TALK ON | OFF

Если установлена опция ON, то на экран выводятся систем­ные сообщения о выполнении некоторых команд и многих фун­кций FoxPro. Если установлена опция OFF, то системные сооб­щения на экран не выводятся.

6. ПРИМЕР

Создадим базу данных, рассмотренную в примере гл. I. Предва­рительно на диске создадим каталог PRIMER, куда и будем помешать вес файлы создаваемой базы данных.

Запустим Visual FoxPro и сделаем каталог PRIMER текущим с помощью команды

SET DEFAULT ТО E:\PRIMER

Таблицы Customer, Sale, Salesman, Account, Order, Catalog, Autor, Town и Street создадим с помощью команды CREATE (см. гл. 2 пп. 2.1.а и 2.1.6). Таблицы Fam, Im и Ot создадим с помощью SQL-опсратора. (Структура всех таблиц приведена в Примере к гл. 1.)

CREATE TABLE Fam (Key_fam n(3),Name_f am с(15) ) CREATE TABLE Im (Key_im n(3). Name_im с(15) ) CREATE TABLE Ot <Key_ot n(3), Name_ot с(15) )

Итак, создано двенадцать пустых таблиц. Для ввода данных в таблицу надо эту таблицу сделать текущей (активной) В каждый момент времени текущей может быть только одна таблица. От­кроем все 12 таблиц, каждую в своей рабочей области и каждой рабочей области присвоим псевдоним (alias).

USE Customer.dbf in 1 alias cus USE order.dbf in 2 alias ord USE Salesman.dbf in 3 alias smn USE Sale.dbf in 4 alias sal USE Account.dbf in 5 alias acnt USE Catalog.dbf in 6 alias ctl USE Author.dbf in 7 alias atr USE Town.dbf in 8 alias twn USE Street.dbf in 9 alias str USE Fam.dbf in 10 alias fam USE Im.dbf in 11 alias im USE Ot.dbf in 12 alias ot

Для того чтобы таблицу сделать текущей, надо подать коман ду SELECT и указать алиас нужной рабочей области. Сделаем те­кущей таблицу Customer, подав команду SELE cus.

Для вывода содержимого текущей таблицы Customer на экра подадим команду Brow.

Используя приемы, описанные в пункте 2.4, заполним табли­цу Customer данными и сохраним их.

После заполнения всех таблиц данными, сделайте текуше таблицу Author с помощью команды Selc atr.

Выведите содержимое таблицы Author на экран с помощью команды Browse.

По умолчанию принят американский стандарт даты — ММ.ДД.ГГ. Для перехода на привычный немецкий стандарт даты надо подать команду SET DATE German.

По умолчанию номер года выводится двумя последними циф рами. Для того чтобы год обозначался четырьмя цифрами, надо подать команду SET CENTURY ON. {

Создадим базу данных Book с помощью команды CREATE DATABASE Book

При этом каталог PRIMER должен быть открыт. После вы­полнения команды на экран будет выведена пустая диалоговая панель Database Designer (см. рис. 2.10).

Поместим созданные двенадцать таблиц в базу данных. Для этого установим курсор мыши на рабочее поле и правой кнопкой мыши выведем на экран контекстное меню, из которого выберем команду Add Table. В появившемся на экране списке имен таб­лиц курсором выделим имя нужной таблицы и нажмем кнопку Ок. Эту процедуру надо выполнить для каждой таблицы.

6. Контрольные вопросы

1. Для каких целей создают таблицу?

2. Назовите способы создания таблицы.

3. Назовите два способа представления данных из таблицы на экране. Как задать каждый из способов представления данных?

4. Какой командой добавляется новая запись в табличный файл? В ка­ком месте таблицы располагается добавленная запись?

5. Назовите особенности удаления записи из таблицы.

6. Укажите преимущества и недостатки двухэтапного удаления записи.

7. Что такое модификация структуры таблицы и в каких случаях она применяется?

8. В каких случаях возможна потеря информации при модификации таблицы?

9. Какие характеристики поля надо указать при создании или модифи­кации таблицы?

10. Назовите два способа открытия таблицы.

11. Каким способом производится предъявление на экран таблицы?

12- Какая команда выводит на экран сведения о текущей таблице?

13. Сколько таблиц можно открыть одновременно и как они будут рас­полагаться в оперативной памяти?

И- Что такое рабочая область и ал нас рабочей области?

15- Какая команда используется для редактирования таблицы?

1®- Как задать в команде BROWSE вывод на экран определенных полей таблицы?

12- Как задать в команде BROWSE ограничения на значения поля?

Как задать в команде BROWSE логическое условие на значение поля?

Как задать в команде BROWSE вывод на экран заголовка столбца таблицы буквами русского алфавита?

20. Как задать в команде BROWSE вывод на экран заголовка таблиц буквами русского алфавита?

21. Как задать в команде BROWSE синхронную и асинхронную связь между половинами разделенного окна BROWSE?

22. Как запретить в команде BROWSE редактирование записей, добав­ление записей, модификацию структуры табличного файла, удале­ние записей?

23. Объясните назначение файла базы данных.

24. Укажите команды для создания и открытия файла базы данных.

25. Укажите команды для помещения таблицы в файл базы данных.

26. Укажите команду для освобождения таблицы из файла базы данных.

27. Укажите команду для вывода на экран отдельных записей из таб­лицы.

28. Какие типы дат используются в FoxPro? Как установить желаемый тип даты?

29. Какая команда задает текущий каталог?

30. Какая команда запрещает (разрешает) вывод на экран системных сообщений?

Глава 3

ИНДЕКСИРОВАНИЕ БАЗ ДАННЫХ

Если записей в таблице много, то найти нужную запись бывает очень трудно. Поиск данных производится методом перебора, то есть просматриваются все записи таблицы от первой записи до последней записи, что приводит к большим затратам времени. Чтобы облегчить поиск данных в таблице, используют индексы. Индекс, иногда его называют указатель, представляет собой поряд­ковый номер записи в таблице. Индекс строится но значениям од­ного поля или по значениям нескольких полей. Индекс, построен­ный по значениям одного поля, называется простым, а по значени­ям двух и более полей — сложным. Во время построения индекса записи в таблице сортируются по значениям поля (или нолей) будущего индекса. Затем первой строке таблицы присваивается индекс номер один, второй строке — индекс номер два и т. д. до конца таблицы.

Как простой, так и сложный индекс имеют свой тип (Туре). Первичный (Primary) индекс (ключ) — это тюле или группа по­лей, однозначно определяющих запись, то есть значения первич­ного индекса уникальны (не повторяются). В реляционной базе Данных каждая таблица может иметь только один первичный ключ. Внешних ключей у таблицы может быть много и они будут иметь один из типов:

• Candidate — кандидат в первичный ключ или альтернатив­ный ключ. Он обладает всеми свойствами первичного ключа.

• Unique (уникальный) — допускает повторяющиеся значе­ния в поле, по которому он построен, но на экран будет вы­водиться только одна первая запись из группы записей с одинаковым значением индексного поля.

• Regular (регулярный) — не накладывает никаких ограниче­ний на значения индексного поля и на вывод записей на эк­ран. Индекс только управляет порядком отображения запи­сей. Эго наиболее популярный тип индекса.

Взаимосвязь между таблицами осуществляется по индексам, которые называют ключами.

Построенный индекс хранится в специальном индексном файле. Если индексный файл хранит только один индекс, то он называется одноиндсксным и имеет расширение .idx. Индекс­ные файлы, которые хранят много индексов, называются муль- тииндексными и имеют расширение .cdx. Каждый индекс, кото­рый хранится в мультииндексном файле, называется тегом. Каждый тег имеет свое уникальное имя.

Мультииндексныс файлы бывают двух типов: просто мульти- индексные файлы (о них рассказано выше) и структурные мульти- индексные файлы. Структурный мультииндексный файл имеет одинаковое имя с таблицей, которой он принадлежит (отличие только в расширении файла), и обладает следующими свойствами:

• автоматически открывается со своей таблицей;

• его нельзя закрыть, но можно сделать не главным.

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

1. СОЗДАНИЕ ИНДЕКСА

Создать индекс можно двумя способами.

а. С помощью команды:

INDEX ON <индексное выражспне> ТО Сн1х-файл>

TAG <нмя тега> [OF <с(1х-файл>]

[FOR <условне>|

[COMPACT]

[DESCENDING]

[UNIQUE]

[ADDITIVE]

[NOOPTIMIZE]

Назначение опций:

<индексное выражение> — имя поля (или полей), по значениям которого надо построить индекс. При построении сложного ин­декса имена полей перечисляются через знак + (плюс). Если сложный индекс построен по:

• числовым полям, то индекс строится по сумме значений полей;

• символьным полям, то индекс строится сначала по значе­нию первого поля, а при повторяющихся значениях перво­го поля — по значениям второго поля; при повторяющихся значениях первого и второго полей — по значениям треть­его поля и т. д.;

• по полям разных типов, то сначала значения полей приво­дят к одному типу, как правило символьному, а затем стро­ят индекс.

Длина индексного выражения не должна превышать 254 сим­вола.

ТО <л<1х-файл> — указывается имя одноиндсксного файла.

TAG <нмя тега> [OF <сёх-файл>] — указывается имя тега в мультииндексном файле. Если используется опция [OF <cdx- файл>1 , то создаваемый тег помешается в указанный мульти- кндексный файл, а если требуемый мультииндексный файл от­сутствует, то будет построен структурный мультииндексный файл. Если опция [OF <с<1х-файл>] опущена, то созданный тег будет помещен в текущий мультииндексный файл.

FOR <условие> — устанавливает режим отбора в индекс тех за­писей таблицы, которые удовлетворяют <усяовию>.

COMPACT — управляет созданием компактного одноиндекс- ного файла. В старших версиях FoxPro не используется.

DESCENDING — строит индекс по убыванию. По умолчанию ис­пользуется построение индекса по возрастанию (ASCENDING). Для одноиндексных файлов можно построить индекс только по возрастанию. Если перед использованием команды INDEX ON... подать команду SET COLLATE, то можно построить одноин- яексный файл по убыванию.

unique — строит уникальный индекс. Если индексное поле (поля) содержит повторяющиеся значения, то в индекс попадает только одна первая запись и остальные записи будут не до- ^ступны.

ADDITIVE — вновь создаваемый индексный файл не закрыва- ^УЖс открытые к этому моменту времени индексные файлы. Ес-

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

NOOPTIMIZE — назначение опции см. II. 4.1

б. С помощью Главного меню:

В этом случае индекс создастся либо при создании таблицы, либо при модификации структуры таблицы. Для этого в ди­алоговой панели Table Designer надо выбрать вкладку Index (рис. 3.1).

Каждый индекс описывается одной строкой в окне диалого­вой панели Table Designer.

В графе Name указывается имя тега мультииндексного фай­ла. Если ранее открыт один из мультииндексеых файлов, то вновь построенный индекс помешается в открытый мупьтиин- дексный файл. Если индекс строится одновременно с создани­ем табличного файла или табличный файл не имеет мультиин- дсксных файлов, то вновь построенный индекс помешается в автоматически создаваемый структурный мультииндексный файл.

В графе Туре, снабженной раскрывающимся списком, ука­зывается один из допустимых типов индекса. Если индекс стро­ится для таблицы, входящей в состав базы данных, то возможны четыре значения: Primary, Candidate, Unique и Regular. Если ин-

йг*е:

Fields'

Рис. 3.2. Построение сложного индекса с помощью построителя вы­ражений

Carg^jl

I able Designoi

Деке строится для свободной таблицы, то в раскрывающемся списке отсутствует значение Primary.

В графе Expression перечисляются имена полей, по значени­ям которых надо построить индекс. Если строится сложный индекс, то удобнее воспользоваться построителем выражений, который запускается нажатием кнопки, расположенной справа от поля ввода.

В графе Filter можно задать логическое условие и построить индекс не для всех записей таблицы, а только для записей, удов­летворяющих условию фильтра. Эта графа также снабжена Построителем выражений Содержание и внешний вид обоих по­строителей одинаковые (рис. 3.2).

На рис. 3.2 показано построение сложного индекса по двум символьным полям ush step и uch zvan (имя тегу uch было Рисвоено до вызова на экран построителя выражений). Знак

«+*, указывающий на построение сложного индекса, взят из рас­крывающегося списка String.

В раскрывающемся списке String приведены допустимые строковые функции. Аналогично в раскрывающихся списках Math, Logical и Date приведены допустимые математические, ло­гические функции и функции даты. Нужная функция из этих раскрывающихся списков выбирается щелчком левой кнопки мыши. Имена полей (список Fields) и имена переменных (спи­сок Variables) выбираются с помощью двойного щелчка левой кнопки мыши. Получившееся в результате выражение помеща­ется в окно Expression.

В раскрывающемся списке From Table указано имя таблицы, из которой берутся поля для построения индекса. При желании можно заказать любую таблицу из текущей базы дан ных и для по­строения индекса взять любое поле.

2. ОТКРЫТИЕ ИНДЕКСНОГО ФАЙЛА

Открыть индексный файл можно только в том случае, если ранее открыт соответствующий табличный файл. В противном случае будет выдано сообщение об ошибке. Для открытия индексного файла надо подать команду:

SET INDEX ТО [список индексных файлов]

[ORDER <BupN> | <|(1х-файл>|[ТАС<имятега>] [ОЕ<сйх-фаИи>]1 [ASCENDING | DESCENDING]

[ADDITIVE]

Назначение опций такое же, как в командах USE и INDEX ON.

Открыть существующий индексный файл можно одновре менно с открытием табличного файла командой USE (см. п. 2.1 «Открытие таблицы»).

Для закрытия всех индексных файлов надо подать одну из ко­манд: либо SET INDEX ТО без опций, либо CLOSE INDEX.

3. ЗАМЕНА ТЕКУЩЕГО ИНДЕКСА

Для каждой таблицы одновременно может быть открыто не­сколько индексных файлов, но текущим (активным) будет толь­ко один индекс. По умолчанию принято, что текущим будет пер­_вЫй по порядку индекс в том индексном файле, имя которого указано первым в списке имен индексных файлов команды USE или команды SET INDEX ТО.

Текущим можно сделать любой индекс из текущего индекс­ного файла с помощью команды

SET ORDER ТО

[<BupNI> | <1йх-файл> | (TAG <имятега> [OF <cdx - файл>] ] [IN <BupN2> | <вырО I [ASCENDING | DESCENDING)

Назначение опций:

<BbipNl> — задает текущий индекс по его порядковому номеру в мультииндексном файле.

<[с!х-файл> — дслаеттскущимодноиндсксныйфайл.

TAG <имятега> [OF <с<1х-файл>] — задает текущий индекс по имени тега из указанного мультиипдексного файла. Если опция [OF <cdx - файл>] опущена, тотег выбирается из текущего мулъ- тииндексного файла.

IN <BupN2> — указывает номер рабочей области, в которой на­ходится индексный файл. Опция используется в том случае, если табличный файл открыт в одной рабочей области, а индексный файл — в другой рабочей области.

Текущим индекс также можно сделать с помощью диалоговой панели Table Designer, переместив строку описания нужного ин­декса на первое место.

4. ПЕРЕСТРОЙКА ИНДЕКСНЫХ ФАЙЛОВ

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

также выполнить, подав из Главного меню команду Table Rebuild Indexes.

5. ПРЕОБРАЗОВАНИЕ ОДНОИНДЕКСНОГО ФАЙЛА В ТЕГ ,

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

COPY INDEXES <имсна Idx - файлов> | ALL [ТО <cdx - файл>]

Опция ALL указывается в том случае, если надо скопировал! все одноиндсксные файлы. При этом список имен <ичсна idx- файлов> не указывается. Тегам присваиваются имена одноин- дексных файлов. При копировании нескольких одноиндексньА файлов их имена перечисляются через запятую. Если опция TO J опущена, то одноидексныс файлы копируются в текущий мул ь-J таиндексный файл. Если опция ТО содержит имя нссушествД ющего мультииндексного файла, то он создастся.

Допустима и обратная операция, то есть один тег прсобразЯ ется (копируется) в одпоиндексный файл с помощью ко.мандьЗГ

COPY TAG <список имея тегов> {OF <cdx - файл> ] ТО <idx - файл>]

Предварительно мультииндексный файл должен бьггь otJ крыт. Можно скопировать отдельные теги, указав Ссписокимен тегов>, либо все теги, используя опцию ALL.

6. Удаление тега из мультииндексного файла

Удалить один тег или все теги из мультииндексного файла, о( крытого в любой рабочей области, можно с помощью командмЦ

DELETE TAG <имя тега 1> [OF <нмясс1х-файла>]

[,<нмя тега 2> [OF <имя сс1х-файла> ] ] ... |

ALL [OF <нмя сйх-файла> ]

Одной командой можно удалить теги, находящиеся в разнЫ^ мультииндексных файлах.

7. Вывод на экран имен индексных файлов и имен тегов

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

NDX(<Bup.N> [,<номср рабочей области | псевдоним рабочей областн> ])

Функция возвращает имена открытых одноинасксных фай­лов.

CDX(<Bnp.N> [,<номср рабочей области | псевдоним рабочей обдастн> ])

Функция возвращает имена открытых мультиплексных фай­лов.

MUX(<Bup.N> [,< номер рабочей облает | псевдоним рабочей области> ])

Функция возвращает имя структурного мультииндсксного файла.

Во всех функциях <выр.1Ч> — порядковый номер индексно­го файла, имя которого должна вернуть функция.

ТАС([<имя сйх-файла> , <выр.!\'> [, <номер рабочей области | псевдоним рабочей области> ])

Функция возвращает для указанного <имя «1х-файла> муль- тииндексного файла имя тега <Bbip.N>, заданного порядковым номером. Если <имя cdx-фaйлa> опущено, то по умолчанию подставляется имя текущего мультииндексного файла.

8. Примеры

Пример 1. В соответствии со структурой таблицы Customer (^см. пример к гл. 1) построить необходимые индексы.

SET DEFAULT ТО Е:\PRIMER &&3адание рабочего каталога

Откроем базу данных Book с помощью команды Главного меню File -> Open

Откроем таблицу Customer и установим режим модифика­ции.

USE Customer.dbf in 1 alias cus uu Открытие таблицы

• Customer

MODI ST3U Задание режима модификации текущей

• таблицы

В появившейся на экране диалоговой панели Table Designer выберем вкладку Index. В графе Name укажим имя тега Cust, в графе Туре укажем тип создаваемого индекса — Primary, в гра­фе Expression укажем имя поля, по значениям которого надо по­строить индекс, — Key_cust. Индекс построим по возрастанию. После нажатия кнопки Ok на экран выводится запрос — надо ли сохранить сделанные изменения? Для сохранения созданного индекса надо нажать кнопку Yes. Можно задать описание сразу нескольких индексов, а сохранение выполнить один раз.

Вызовем на экран диалоговую панель Table Designer другим способом. Установим курсор мыши на пиктограмму таблицы Customer и щелчком правой кнопки мыши выведем на экран контекстное меню. Из контекстного меню надо выбрать коман­ду Modify (аналог команды Modify structure). В соответствии со структурой таблицы Customer (см. пример в п. 1.8), опишем второй индекс. В графе Name зададим имя тега Town, в графе Туре укажем тип Regular, в графе Expression укажем имя поля Key_town. Сохраним описанный индекс. Так как при построе­нии индексов мы не указали имя мультииндексного файла, то автоматически был построен структурный мультииндексный файл с именем Customcr.cdx. Чтобы убедиться в этом, можно дать команду

? CDX{1)

или команду

? МЭХ (1) .

Остальные индексы можно построить с помощью слсдующи команд:

INDEX ON Key_street TAG Street OF Customer.cdx INDEX ON Key_fam TAG Fam OF Customer.cdx INDEX ON Key_im TAG Im OF Customer.cdx INDEX ON Key_ot TAG Ot OF Customer.cdx

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

7 TAG('Customer', 3)

Аналогично любым из способов постройте индексы для ос­тавшихся одиннадцати таблиц в соответствии со структурой таб­лиц (см. пример к гл. 1).

Пр им ер 2. Сортировка даш!ых.

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

CLOSE ALL && Закрытие всех файлев

SET DEFAULT ТО Е:\PRIMER && Задание рабочего

• каталога

USP Customer.dbf in 1 alias cus && Далее открытие

• двенадцати таблиц USE Order.dbf in 2 alias ord

USE Salesman.dbf in 3 alias smn

USE Sale.dbf in 4 alias sal USE Account.dbf in 5 alias acnt USE Catalog.dbf in 6 alias ctl USE Author.dbf in 7 alias atr USE Town.dbf in 8 alias twn USE Street.dbf in 9 alias str USE Fam.dbf in 10 alias fam USE Im.dbf in 11 alias im USE Ot.dbf in 12 alias ot

SELECT im && Задание текущей

таблицы

После подачи команды BROWSE на экран будет выведено ^с°Держимое таблицы Im, записи которой будут отсортированы в возрастающем порядке по значениям поля первичного ключа Key_im (порядковый номер имени). Сделаем текущим индекс (тег) с именем Name с помощью команды SET ORDER ТО Name. После подачи команды BROWSE таблица Im будет от­сортирована в соответствии с этим индексом, то есть имена будут расположены в алфавитном порядке.

Пример 3. Выведем сведения о наличии мультииндексных файлов и имен тегов у таблицы Author CLEAR && Очистка экрана

? «Имя мультииндексного файла» АТ 2,«имя тега» АТ 40

UU Задание строки заголовка

FOR nCount = 1 ТО 254

If !empty(tag(nCount)) && Проверка наличия тегоз

• в мультииндексном файле

? CDX(nCount) АТ 3, TAG('AuthornCount) AT 40

• Stic Вывод на экран имен файла и тегов

ELSE

EXIT &£с Выход, если мультииндексный файл пуст

ENDIF

ENDrOR

9. Контрольные вопросы

1. Что такое индекс?

2. Что такое индекс простой и индекс сложный?

3. Объясните разницу между уникальным и регулярным индексами.

4. Объясните разницу между одноиндексным и мультииндексным файлами.

5. Укажите особенности структурного мультииндексного файла.

6. Что такое тег?

7. Укажите два способа создания индекса.

8. Что значит индекс, построенный по возрастанию или по убыванию?

9. Укажите два способа открытия индексного файла. Как открыва структурный мультиндексный файл?

до. Что значит текущий индекс? Как сделать индекс текущим⁰ ц. Для каких целей используется перестройка индексных файлов? Какой командой выполняется перестройка индексных файлов?

12. Как удалить тег из мультииндексного файла?

13. Укажите команды для вывода на экран имен индексных файлов и имен индексов (тегов) внутри индексного файла.

Глава 4

УПРАВЛЕНИЕ БАЗАМИ ДАННЫХ

Как правило, база данных состоит из нескольких таблиц. Чтобы получить полную информацию об одной сущности, надо прочи­тать запись во всех таблицах базы данных. Между' таблицами могут бьггь установлены взаимосвязи (см. гл. 5), что существенно облегчает работу с такой базой данных. Нели таблицы разроэне-1 ны, то возникают дополнительные проблемы по управлению такими таблицами (совмещение курсоров, обеспечение достовср- I ности, представление данных и т. д.).

Базы данных могут содержать очень большой объем инфор­мации — до нескольких миллионов записей. На поиск нужных данных в таких таблицах уходит много времени. Поэтому предус- • мотрены специальные методы и команды для работы с базами данных.

1. Часто употребляемые опции команд foxpro

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

FIELDS — указывает на то, что команда при своей работе использует только тс поля, имена которых перечислены в списке.¹ FOR и WHILE — указывают на то, что команда будет применена только к тем строкам таблицы, для которых истинны соответст-! вующие логические условия (<выр L>).

SCOPE — определяет записи по их физическому номеру, для ко­торых будет применена команда. Сама опция (слово) SCOPE не пишется, а указываются уточняющие параметры:

ALL — команда действует на все записи таблицы. Параметр задан по умолчанию.

NEXT <число> — команда действует на заданное <число> записей, считая от текушей записи

RECORD <номер> — команда действует на запись с указан­ным номером. Параметр используется редко, так как трудно узнать физический номер записи.

REST — команда действует на все записи, начиная от теку­щей записи до конца таблицы.

NOOPTIMIZE — отключает использование технологии Rushmore для ускоренного доступа к данным.

При работе с большими базами данных до 90% времени тра­тится на обработку опций FOR и WHILE. При обнаружении этих опций автоматически подключается технология Rushmore, кото­рая для своей работы использует индексы, построенные по по­лям, имена которых указаны в опциях FOR и WHILE. Поэтому технология Rushmore ускоряет доступ к данным при выполнении операций поиска.

Нельзя использовать технологию Rushmore при внесении из­менений в поля текущего индекса, так как в этом случае редакти­рование нолей будет выполнено не для всех записей. Нет воз­можности указатьдля каких записей изменения внесены, а какие записи остались без изменения. Для отключения технологии Rushmore используют опцию NOOPTIMIZE.

2. Сортировка данных

Очень удобно организовать поиск и просмотр данных, если они отсортированы. Сортировка данных — это их упорядочение по значениям одного или нескольких полей. Упорядочение может быть выполнено как по возрастанию, так и но убыванию.

Если данные сортируют по возрастанию, то на первое место ставится запись, имеющая наименьшее значение по указанно­му полю (полям). На второе место — запись, имеющая следую­щее значение поля (полей) и так далее. На последнем месте будет запись, имеющая наибольшее значение указанного поля (или полей). Числовые поля сортируются от наименьшего числа до наибольшего, символьные поля — от первой буквы ал­фавита до последней буквы алфавита, поля дат — от наимень­шей (наиболее ранней) даты до наибольшей (самой поздней) Даты.

При сортировке данных по убыванию размещение записей производится в обратном порядке, по отношению к предыдуще­му (по возрастанию).

В FoxPro сортировка производится следующими способами.

а. В соответствии с индексом.

Сначала индекс делают текущим, а затем выводят таблицу на экран или обновляют содержимое экрана. Если построен слож­ный индекс, то и сортировка будет выполнена по полям, входя­щим в индекс. Это наиболее удобный вид сортировки, так как для своего выполнения требует мало времени, не требует допол­нительных затрат памяти и исключена потеря информации.

б. С помощью команды SORT.

В этом случае сортировку таблицы можно произвести но любому полю (или полям), даже если по указанному полю (или полям) нет индекса.

SORT ТО <имя файла> ON <имя поля 1> [/AJ I/O] 1/С]

[,<нмя ноля 2> [/A] [/D] (/С]... ]

[ASCENDING | DESCENDING]

[SCOPE1 [FOR <выр.Ы>]

[WHILE <вырХ2>]

[FIELDS <список имен иолей>]

[NOOPTIM1ZE1 Назначение опций.

<имя файла> — имя табличного файла (таблицы), который надо отсортировать.

ON ... — указывается одно или несколько полей, по значениям которых надо выполнить сортировку таблицы. Каждое поле может иметь уточняющие параметры:

/А — сортировка по возрастанию. Этот параметр принят по умолчанию.

/D — сортировка по убыванию.

/С — игнорирует значение регистра для символьных полей (строчные и прописные буквы считаются одинако­выми).

ASCENDING — задает сортировку по возрастанию только дщ полей, не имеющих параметров /А и /D.

pESCENDING — залает сортировку по убьшанию только для по­лей, не имеющих параметров /А и /D.

Назначение опций FOR, WHILE, SCOPE и NOOPTIMIZE см. в

FIELDS — в списке перечисляются имена полей, которые надо поместить во вновь создаваемый табличный файл. Если опция опушена, то в создаваемый файл помещаются все поля из исход­ного табличного файла.

При использовании этой команды на диске дополнительно сохраняется отсортированный файл, на построение которого требуется дополнительное время. Эта команда используется редко.

3. ПОИСК ДАННЫХ

В FoxPro предусмотрены две методики поиска данных: метод по­следовательного перебора, когда просматривается вся таблица от первой записи до последней, и метод деления пополам. Во вто­ром случае поиск данных производится по полю текущего индек­са. Таблица делится на две части пополам, берется средняя за­пись и значение поля текущего индекса сравнивается с искомым значением. Если значение поля индекса меньше, чем искомое значение, тогда поиск продолжается в нижней половине табли­цы. (Если значение поля текущего индекса больше, чем искомое значение, то поиск продолжается в верхней половине таблицы.) Нижнюю половину таблицы делят пополам, сравнивают среднее значение поля индекса с искомым значением и гак далее, до тех пор пока не найдут нужное значение или не просмотрят всю таб­лицу. Дня каждой методики поиска предусмотрена своя команда.

⁴-3.1. Поиск методом полного перебора

Поиск производится по любому полю таблицы.

FOR [SCOPE] <услоаие повои» [WHILE <выр.1> J [NOOPITMIZE| Назначение опций.

^Условие поиска» — пишется имя поля для поиска значения, да­лее указывается один из логических знаков <,>,<=,>=,“ или ^и само искомое значение. Если искомое значение имеет сим-

вольный тип, то оно указывается в двойных кавычках. Если ис­комое значение имеет тип дата, то оно указывается в апострофах. И Если искомое значение имеет числовой тип, то выделять его зна! ка ми не требуется.

Назначение опций SCOPE, WHILE и NOOPTIMIZE см. в п. 4.1.

Если поиск закончился успешно, то курсор устанавливаете^ на найденную запись. Для того чтобы увидеть найденную запись, надо подать команду' DISPLAY или BROWSE. Для нахождения следующей записи, по тому же искомому значению, надо подать] команду CONTINUE. Если поиск закончился неудачно, то кур! сор устанавливается на последнюю запись и на экран выводит^Н сообщение: End of Locate Scope.

Этот поиск можно выполнить с помошью команды Главного меню

Table -» Go to Record -> Locate.

На экран выводится диалоговая панель Locate Record. Назн ;a- чение кнопок:

For — выводит на экран диалоговую панель для задания условия поиска.

Scope и While — выводят на экран диалоговые панели для задания ограничений количества просматриваемых записей.

В случае успешного и неуспешного поиска курсор принимаем соответствующее положение. Для нахождения следующей запи­си. соответствующей условию поиска, надо повторить эту процел дуру еще раз. Если по полю поиска построен индекс, то автома­тически будет использоваться команда SEEK.

2. Поиск по полю текущего индекса

а. Поиск с помощью окна Command.

В этом случае надо воспользоваться одной из команд:

SEEK <искомое значенне>

FIND <искомое значеыне>

Для написания < искомого значения> используются те же сим­волы выделения, что и в команде LOCATE. В случае удачного и не удачного поиска команда SEEK управляет курсором так же, как Я команда LOCATE. Так как курсор устанавливается на первую наШ

дсиную запись и записи отсортированы по полю поиска, то на эк­ран желательно выводить несколько записей, начиная от текущей.

б. Поиск с помощью команды Г авногоменю.

Предварительно таблицу, в которой надо найти какое-либо значение, делают текущей. Затем из Главного меню подают ко­манду Edit -> Find

На экран выводится диалоговая панель Find (рис. 4.1).

В поле ввода Look For вводится значение для поиска. Для по­иска заданного значения просматриваются все поля всех записей подряд. При обнаружении первого значения запись делается те­кущей, то есть на нее устанавливается указатель (черный треу­гольник слева от первого поля).

Флажки в группе Options задают cneBvioiiiHe условия поиска:

• Match Case — различение регистров. Прописные и строч­ные буквы считаются разными.

• Wrap Around — круговой поиск. При тостижении конца таблицы поиск начинается заново с первой строки.

• Match Whole Word — точное соответствие полному значе­нию поиска При выключенном флажке значите поиска может входить как часть в найденное слово.

• Search Backward — поиск в обратном направл нии (снизу вверх).

ЗЖогж

Кнопка Find Next предназначена для нахождения следующе­го значения, удовлетворяющего условию поиска.

4. Фильтрация данных

В FoxPro определены два вида фильтров данных: фильтр для строк, когда ограничивается количество строк, предъявляемых на экран, и фильтр для полей, когда ограничивается количество ■ полей, отображаемых на экране и, следовательно, доступных для редактирования.

1. Ограничение на количество строк

Рели таблица большая (несколько сотен записей), то работать с ней неудобно. Поэтому производят фильтрацию данных, то есть выборку и предъявление на экран группы записей, отвечающих 1 определенным требованиям. С выборкой можно проводить все операции редактирования. По окончании работы с выборкой ис- I ходную таблицу восстанавливают в полном (первоначальном) виде.

Для установки фильтра данных используют команду

SET FILTER ТО <выр. 1>

В опции <выр. L> указывают имя поля и его значение, по ко­торым надо выполнить фильтрацию. Для снятия фильтра и вое- 1 станоаления первоначального вида таблицы используют ту же команду, но без опции.

2. Ограничение на количество полей

Фильтрация полей применяется при работе с длинными запися­ми, которые имеют длину более одного экрана. При редактиро­вании таких записей на экран выводят те поля, в которые надо | внести изменения, и одно-два поля, идентифицирующих запись. Фильтрация полей выполняется в два этапа: на первом этапе оп­ределяется список полей, а на втором — фактическая установка фильтра.

Для определения списка полей используют команду:

SET FIELDS ТО [<список полей> | ALL [LIKE <наска> | EXCEPT <маска>11

После выполнения этой команды, из текущей таблицы дл* установки фильтра будут отобраны либо поля, имена которых 1

указаны в <списке полей>, либо все ноля. По умолчанию приня­та оппия ALL — все поля. Опция LIKE включает в список нолей рсс поля, имена которых удовлетворяют маске (шаблону). Опция EXCEPT включает в список полей все поля, имена которых не удовлетворяют маске (шаблону).

Если повторно подать эту же команду с другим <списком по- лей>, то вновь определенный список полей будет добавлен к су­ществующему списку полей. Команда SET FIELDS ТО без опции закрывает все поля, открытые предыдущими командами SET FIELDS ТО.

Для установки фильтра полей используют команду SET FIELDS ON | OFF | LOCAL | GLOBAL.

Назначение опций:

ON — устанавливает фильтр для ранее определенных полей.

OFF — отменяет список полей и разрешает отображение всех по­лей таблицы. По умолчанию установлена опция OFF.

LOCAL — определяет, что для фильтра доступны только поля те­кущей таблицы.

GLOBAL — разрешает отображать поля всех таблиц, между кото­рыми установлены реляционные отношения (установлены взаи­мосвязи). Об установлении отношений между таблицами см. гл. 5.

После выполнения команд, описанных в п. 4.4.1 и п. 4.4.2, ко­манды DISPLAY и BROWSE будут выдавать на экран записи и поля в соответствии с установленными фильтрами.

4.5. Примеры

Пример 1. Поиск методом LOCATE.

Найти все записи в таблице Fam, которые в поле Name_fam ^с°Держат фамилию Цаплин и вывести на экран номера записей, Которые содержат эту фамилию.

CLOSE all Clear

SET DEFAULT TO E: \PRIMER ScSe Задание текущего

каталога

Fam IN 1 ALIAS fam && Открытие таблицы Fam

SELECT fam

Глава 5

СОЗДАНИЕ ВЗАИМОСВЯЗЕЙ

В FoxPro допускается одновременная работа с несколькими таб­лицами. Версия Visual FoxPro 3.0 имеет возможность работать одновременно с 25 таблицами. При этом каждая таблица помсщ ется в свою рабочую область, и между таблицами могут быть у ста- новлсиы взаимосвязи. Указатели записей во взаимосвязанных таблицах будут двигаться синхронно. Таблица, в которой указа­тель перемещается произвольно, называется старшей. Таблица, в которой указатель перемещается в соответствии с перемещением указателя в старшей таблице, называется подчиненной или млад­шей. Если таблица имеет первичный индекс (ключ), то она может быть родительской. Если таблица имеет внешний индекс (ключ то она может быть дочерней. В один и тот же момент времени од­на таблица может быть родительской по отношению к одной таб­лице, и дочерней — по отношению к другой таблице. Если н_ сколько записей из первой таблице по одинаковым значениям внешнего ключа ссылаются по единственному значению первич ного ключа на одну запись во вгорой таблице, то первая таблица будет дочерней, а вторая таблица — родительской. Другими сло­вами: одна запись в родительской таблице порождает несколько записей в дочерней таблице.

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

• одинаковое имя,

• одинаковый тип,

• одинаковый размер

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

Последомт* льнов Параллельное

объединение таблиц объединение таблиц

Рис. 5.1. Примеры объединения таблиц.

му полю. На практике встречаются три типа объединения таб­лиц. параллельное, последовательное и смешанное (рис. 5.1).

Перед установлением взаимосвязей между таблицами надо выполнить следующие условия:

• все таблицы должны быть открыты, причем каждая в своей рабочей области;

• все таблицы попарно должны иметь общее поле (хотя бы одно);

• желательно, чтобы для общего поля и в старшей и в млад­шей таблице был построен индекс, но в одной таблице ин­декс должен быть построен обязательно.

Существует несколько подходов для установления взаимо­связи между таблицами:

• конструкция SET RELATION ТО;

• конструкция SET SKIP ТО;

• команда JOIN;

• команда UPDATE;

• команда TOTAL;

• переменные памяти.

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

1. Понятие рабочей области

Каждая таблица вместе со своими индексными файлами откры­вается в отдельной рабочей области. Количество рабочих обла­стей зависит от версии FoxPro. Все рабочие области имеют поряд­ковые номера. Например, от 1 до 25 для версии Visual FoxPro 3.0. Кроме того, первые десять рабочих областей имеет однобуквен­ные имена от А до J. Не все команды FoxPro могут обрабатывать I порядковые номера рабочих областей, поэтому при открь табличного файла рабочей области можно присвоить псевдоним (ALIAS). Псевдоним пишется буквами латинского алфавита, причем первый символ обязательно булева, а последующие сш лы могут бьпъ и буквами, и цифрами, допускается и символ под­черкивания. Пробелы при составлении псевдонима не допусти­мы. Желательно в качестве псевдонима использовать осмыслен­ное сочетание из трех-четырех букв. Более длинные псевдонимы желательно не использовать, так как при написании программ­ных кодов обращение к таблицам производится по псевдонимам рабочих областей, в которых они открыты. При открытии таблиц не обязательно соблюдать строгую нумерацию рабочих областей.

В любой момент времени может быть открыто много рабочих об­ластей, но только одна рабочая область будет текущей или актив­ной. Для назначения текущей рабочей области используют команду

SELECT <вомер рабочей области | псевдоним рабочей областм>

Для доступа к полям таблицы используются префиксы. Для текущей рабочей области префиксом является точка. Для пас­сивных рабочих областей префиксом является конструкция из двух символов -> минуса и знака больше. Для старших версий FoxPro, начиная с 3.0, допускается использование точки как од­ного префикса для всех рабочих областей. При обращении к ка­кому-либо полю следует указать псевдоним рабочей области, в которой открыта таблица, затем префикс и потом имя нужного^ поля.

2. Организация взаимосвязи «один-к-одному»

При установлении взаимосвязи, как правило, в родительской таблице берут первичный ключ, а в дочерней таблице — внешний ключ. Причем эти оба ключа являются общим полем. Текущей делают ту рабочую область, где находится дочерняя таблица, и с помощью команды SET RELATION ТО к дочерней таблице под­ключают одну' или несколько родительских таблиц, открытых в пассивных рабочих областях.

формат команды:

SET RELATION ТО [<выр.1> INTO Спссвдовим рабочей области 1> ]

[, <выр.2> INTO Спсевдоним рабочей области 2> ]

[...]

[ADDITIVE]

Назначение опций:

<выр.1Хвыр.2>... — имена общих полей между дочерней табли­цей и несколькими родительскими таблицами.

INTO <псевдоним> — псевдонимы пассивных рабочих областей, где открыты соответствующие родительские таблицы.

ADDITIVE—добавляет вновь созданные взаимосвязи к уже име­ющимся взаимосвязям. По умолчанию ранее установленные вза­имосвязи разрываются.

Даже если в дочерней таблице общим полем является внеш­ний ключ типа Regular и имеется несколько записей с одинако­вым значением внешнего ключа, на экран будет выводиться только одна запись из дочерней таблицы, так как установлен тал взаимосвязи «один-к-одному».

Для разрыва всех взаимосвязей «один-к-одному» активной таблицы надо подать команду SET REIATION ТО без опций.

Если надо разорвать одну конкретную взаимосвязь между ак­тивной (дочерней) таблицей и пассивной (родительской) табли­чен, то следует подать команду

SET RELATIONS OFF INTO Спсевдоним рабочей областн> |

^<иомер рабочей областн>.

3. Установление взаимосвязи «один-ко-многим»

Взаимосвязь «один-ко-многим» устанавливается «поверх* взаи­мосвязи «один-к-одному*, то есть сначала устанавливают между

таблицами взаимосвязь «один-к-одному*, а затем подают ко­манду:

SET SKIP ТО [<пседаоцнм рабочей области 1>

[, <псевдоним рабочей области 2> ]... ]

После выполнения этой команды на экран будет выводиться для одной записи из родительской таблицы несколько записей из дочерней таблицы.

Для удаления всех взаимосвязей «один-ко-многим» надо по­дать команду SET SKIP ТО без опций.

4. Установление взаимосвязей с помощью главного меню

Если имеется ротационная база данных, то установить взаимосвя­зи между таблицами можно с помощью команд Главного меню. Для этого предварительно в каждой таблице строят первичный ключ и внешние ключи. Затем выводят на экран диалоговую па­нель Tabic Designer. Потом курсор мыши размещают на имени первичного ключа родительской таблицы (например индекс «Street» таблицы «Street») и буксируют его внутрь дочерней таб­лицы, устанавливая на имя соответствующего внешнего ключа (например, индекс «Street* таблицы «Author»). Во время букси­ровки курсор мыши дважды меняет свою форму. По окончании буксировки на экран выводится диалоговая панель Edit Relationship, где надо проверить, а при необходимости и уточ­нить, параметры взаимосвязи (рис. 5.2).

Рис. 5.2. Параметры взаимосвязи.

PEIE*

у-.- /.Vr',!

V . . . .... ■ > •>

Рис. 5.3. Установление взаимосвязи между таблицами.

После нажатия кнопки Ok на экран выводится диалоговая па­нель Database Designer, между именами соответствующих индек­сов автоматически прорисовывается прямая линия. Со стороны «один» линия начинается с символа «+*>, а со стороны «много» — с символа «->* (рис. 5.3). Обратная буксировка (от дочерней таб­лицы к родительской) не допустима.

Тип взаимосвязи между таблицами устанавливается автомати­чески, в зависимости от типа индексов. Если оба индекса (в роди­тельской таблице и дочерней таблице) уникальные, то возникает тип взаимосвязи «один-к-одному». Если в родительской таблице индекс уникальный, а в дочерней таблице индекс регулярный, то получается тип взаимосвязи «один-ко-многим*.

Чтобы редактировать существующую взаимосвязь, надо вы­звать на экран диалоговую панель Edit Relationship. Для этого на- Д° курсор мыши установить на линию взаимосвязи и щелкнуть ^Левой кнопкой мыши, при этом линия взаимосвязи утолщается.

*

&

OK

Рис. 5.4. Задание условий ссылочной целостности.

Затем правой кнопкой мыши на экран вызывают контекстное меню, из которого выбирают команду Edit Relationship.

Для удаления взаимосвязи ее надо предварительно выделить, а затем нажать клавишу Del.

Одним из главных условий создания базы ддцных является обеспечите условий ссылочной целостности. Выполнение этих условий гарантирует помещение в базу данных только достоверной информации. Ссылочная целостность обеспечивается механизмом каскадных воздействий: каскадное удаление и каскадное редакти­рование ключевых полей. Каскадное удаление — это одновремен­ное удаление записи из родительской таблицы с удалением соот­ветствующих записей из всех дочерних таблиц. Удаление записи из дочерней таблицы не влечет за собой удаления соответствующей записи из родительской таблицы. Аналогично, при изменении зна- че»тя поля (полей) первичного ключа, необходимо изменить зна­чение соответствую!него поля (полей) внешнего ключа дочерней таблицы (или таб.шц), то есть каскадное редактирование.

Для установления каскадных воздействий надо выделить ли­нию взаимосвязи щелчком левой кнопки мыши и вызвать на экран контекстное меню, щелкнув правой кнопки мыши, когда курсор удерживается на линии связи. В появившемся на экране контекст­ном меню надо выбрать команду Referential Integnty. На экран выводится диалоговая панель Referential Integrity Builder (рис. 5.4).

В верхней части диалоговой панели Referential Integrity име­ются графы:

• Parent Table — содержит имена родительских таблиц. Указа­телем (черным треугольником) отмечена текущая родитель­ская таблица

• Child Table — содержит имена дочерних таблиц, которые могут быть соединены с соответствующим и родительскими таблицами.

• Update — содержит один из возможных типов каскадных воздействий при редактировании поля (полей) первичного ключа у соответствующей пары таблиц (имена таблиц указаны в левых графах).

• Delete — содержит один из возможных типов каскадных воз­действий при удалении записи из родительской таблицы.

• Insert — содержит один из возможных типов каскадных воз­действий при вставке записи в родительскую таблицу.

• Parent Tag — содержит имя тега в родительской таблице. В графе справа (Child Tag) будет указано имя соответствую­щего тега дочерней таблицы.

• Child Tag — содержит имя тега в дочерней таблице. В графе слева (Parent Tag), будет указано имя соответствующего тега родительской таблицы.

Установить соответствующий тип каскадных воздействий можно либо в верхней части диалоговой панели, либо в шгжней части диалоговой панели.

В верхней части диалоговой панели в одной из граф Update, Delete или Insert курсором мыши выделяют нужное поле (клет­ку). В поле появляется кнопка раскрывающегося списка, в кото­ром можно выбрать одно из значений:

Cascade — при изменении значения поля (полей) первичного ключа или альтернативного ключа (Candidate) в родительской таблице автоматически выполняется каскадное изменение зна­чения соответствующего поля (полей) внешнего ключа дочерней таблицы (таблиц).

Restrict — запрещает изменение значения поля (полей) первич­ного или альтернативного ключа в родительской таблице, если в Дочерней таблице (таблицах) имеются соответствующие значе­ния во внешнем ключе.

Ignore — допускаются любые изменения в значениях первичного и альтернативного ключей в родительской таблице. Условия ссы­лочной целостности не контролируются.

Аналогично работают с графами Delete и Insert, но для графы Insert возможны только два воздействия: Restrict и Ignore.

В нижней части диалоговой панели имеются три вкладки:

Rules lor Updating — управление каскадным редактированием запи­сей;

Rules for Deleting — управление каскадным удалением записей; Rules for Inserting — управление каскадным добавлением записей.

Тип воздействия Cascade, Restrict и Ignore устанавливается с помощью соответствующей радиокнопки.

5. Объединение двух табличных файлов в один файл

В некоторых случаях требуется информацию из разных таблиц свести в одну таблицу. Одна таблица размешается в активной ра­бочей области, а вторая таблица — в пассивной области. В резуль­тате объединения будет получен новый (третий) табличный файл, который будет записан по указанному адресу. В состав нового (третьего) табличного файла могут быть включены любые поля из двух объединяемых таблиц. Для этих целей используют команду:

JOIN WITH <псевдоним пассивной рабочей области>

ТО <нмя создаваемого файла>

(FOR <выр. L> I

[FIELDS Сспнсок имен полей> ]

[NOOPTIMIZE]

В опции FIELDS указываются имена полей как из активной рабочей области, так и из пассивной рабочей области. Если оп­ция FIELDS опущена, то в создаваемый файл записываются все поля обеих таблиц.

Отметим особенности выполнения команды:

• Если в пассивной таблице нет записи с каким-либо значе­нием общего поля, а в активной таблице такое значение об­щего поля имеется, то запись из активной рабочей таблицы не помещается в результирующую таблицу.

• Если в активной или пассивной таблице имеются записи с дублирующим значением общего поля, то в результирую­щий файл помещаются все найденные записи.

6. Корректировка данных в связанных таблицах

Иногда бывает нужно внести большое количество изменений в одну таблицу используя данные из другой таблицы. Для этого корректируемую таблицу надо поместить в активную рабочую об­ласть, а таблицу-источник для исправления данных — в пассив­ную рабочую область. Для этих целей предусмотрена команда:

UPDATE ON <кмя общего поля>,

FROM < псевдоним пассивной рабочей областн>

REPLACE <имя поля 1 в активной рабочей обласпО WITH <выражепне 1> [, <нмя поля 2 в активной рабочей областн> WITH <выражсиие 2>... ] [RANDOM]

Назначение опций.

ON — указывается имя общего поля. Причем обе таблицы должны быть проиндексированы по этому полю в порядке возрастания. FROM — указывается псевдоним пассивной рабочей области, в ко­торую помещается таблица-источник данных корректировки. REPLACE — указывается имя поля в активной таблицы, куда на­до внести изменения в соответствии с <выражением>, указан­ным в опции WITH и составленным по значениям полей пассив­ной таблицы.

К недостаткам этой команды следует отнести отсутствие кон­троля на достоверность данных после внесения изменений. Для обеспечения достоверности должны быть предприняты допол­нительные меры.

7. Создание итогового табличного файла

При создании отчетов необходимо иметь итоговые суммы по не­которым числовым столбцам (полям). Команда TOTAL создает Итоговый табличный файл, содержащий суммы по указанным ^Полям. Предварительно табличный файл должен быть отсорти­рован по ключевому полю. При работе команды подсчитывается ^сУММа по указанным числовым полям, поля других типов копи­руются в итоговый файл.

Формат команды:

TOTAL ON <имя ключевого поля> ТО <имя итогового файла> [SCOPE]

[FIELDS <список имен полей> ]

[FOR <вырХ1> J [WHILE <BUp.L2> ]

[NOOPTIMLZEJ

Назначение опций этой команды описано в п. 4.1.

8. Примеры

^рис. 5.6. Содержание таблиц Fam, lm, Ot и Catalog.

При таком расположении данных в таблицах достаточно ^УДно определить, какому автору принадлежит та или иная кни- ^ Для облегчения просмотра и одновременного редактирования Четырех таблиц можно свести в одно окно Browse либо все поля ^Вссх таблиц, либо некоторые поля всех таблиц.

Пример 1. Вывести в окно Browse информацию об авторах ¹¹ их книгах.

Для этого надо взять четыре таблицы: Fam, Im, Ot и Catalog, установить между ними взаимосвязи и результат вывести в окно

Browse. J

&& Закрытие всех файлов && Задание рабочего каталога

USE Catalog.dbf IN 6 ALIAS ctl INDEX catalog;

ORDER TAG tag(2)

USE Fan.dbf IN 10 ALIAS Earn INDEX fam ORDER TAG Name USE Im.dbf IN 11 ALIAS im INDEX im ORDER TAG tag(l) j USE Ct.dbf IN 12 ALIAS ot INDEX ot ORDER TAG Ot SELE Ctl

SET RELATION TO Key_im INTO im, key_ot INTO ot StLECT fam

SET RELATION TO Key_fam INTO ctl SET SKIP TO ctl

BROWSE FIELDS fam.name_fam, im.name_im, ot.name_.ot,? Ctl.name_book

Результат выполнения этой программы приведен на рис. 5.7. На рис. 5.7 видно, что издано несколько книгавторов Гого­ля Н. В. и Пушкина А. С., авторы Короленко В. Г. и Куш М. С. имеют по одному изданию. В поле Name_fam взаимосвязь «один-ко-многим» отображена многоточием.

Особое внимание следует обратить на назначение текуШИ* индексов. Для таблиц Fam, Im и Ot текущими индексами буду! первичные ключи. Для таблицы Catalog текущим индексом будет внешний ключ Fam, так как эту таблицу надо просматривать по полю Key_fam и выбирать фамилии соответствующие указанно­му внешнему ключу.

В командах USE часть текущих индексов задана именами те­гов, а часть — функциями TAG, возвращающими имя тега по его порядковому номеру.

Рис. 5.7. Результат выполнения программы примера 1.

Пример 2. Свести в одну постоянную таблицу поля Fam.Name_fam, Im.Name_im, Ot.Namc_ot и Ctl.Name_book. CLOSE ALL && Закрытие всех файлов

SET DEFA TO E:\PRIMER && Задание рабочего каталога

USE Catalog.dbf IN 6 ALIAS ctl INDEX catalog;

ORDER TAG Fam

USE Fam.dbf IN 10 ALIAS fam INDEX fam ORDER TAG Name USE Im.dbf IN 11 ALIAS im INDEX im ORDER TAG Im USE Ot .dbf IN 12 ALIAS ot INDEX Ot ORDER TAG ot SELECT ctl

^J0IN WITH fam TO Summa.dbf;

POR ctl.Key_fam= fam.Key_f am;

FIELDS ctl.Name_book, fam.Name_fam, ctl.Key_im, ^CU1.Key_ot

^l'SE summa.dbf IN 13 ALIAS Sum SELECT sum

JOIN WITH Im TO Summal FOR im.Key_im=sum.Key_im; fields sum.Name_fam, im.Name_im, sum.Key_ot

ENDIF

nl = r.l + ord. volume

n2 = n2 + ord.volume*ctl.price*(100-ord.proc)/100

SKIP

ENDDO

? «Объем продаж», nl, «книг»

? «Общая сумма продаж», п2

В окно Browse помещены два вычисляемых (виртуальных) поля:

• фамилия, имя и отчество автора:

«Аз сер» = ALLTRIM (fam. rsane_f am) + ' * + ALLTRTM (im. na.^roe_iin> j,

+ ' ' + ALLTRIM(ot.name_ot), ;

• сумма проданных книг, указанного автора, с учетом торговой скидки:

«Сумма» = ord.volume*ctl.price*(100-ord.proc)/100 -И

Если торговая скидка не предоставляется (т. е. торгов^™ скидка составляет 0%), то сумма покупки все равно рассчиты­вается по той же формуле (для книги Пушкин А. С. «Избран­ное»).

С помощью цикла DO WHILE рассчитывается общее коли ство проданных экземпляров книг и общая сумма всех прод Результат вычислений выводится в окно Visual FoxPro. Чтс увидеть результат расчета вместе с окном Browse, надо в кома: BROWSE предусмотреть опцию NOWAIT.

Результат выполнения программы представлен на рис. 5.9.

Пример 4. Подсчитать количество проданных книг каждому клиенту можно также с помощью команды TOTAL, при этом в файл проекта добавляется новый табличный файл- Для подсчета общей суммы от продажи всех книг также придется использовать никл (в программе цикл не показан). На рис. 5.10 вверху показана исходная таблица Order, из которой видно, что клиент 1 (поле Key_cusl) сделал два заказа (поле Keyorder) на 200 и 100 экземпляров, внизу показана итоговая таблица ReA ⁹ которой подсчитано количество проданных экземпляров книг по

пред»* S0C КИИ-

Of щая спш» продаж 46SjCOOO

I оро Гдл»пск» Пометы и р*джмы

(здМениб Семулоеич^ }Тс*счв*«* гчо^ иго*» алегра

Ле»* _ 1

(100X1

Нитамсс*

ооох

rv^i*^ Дао» миф Ccpr cot^ &w* r-Wf Ссргсш* Саносюе Ocrcce

Obfafyy*

■iur^

! UctNwwoTapjcrp^opfcO^ ;Иэйрато»

.Трдгоы** Ссктц

Рис. 5.9. Результат выполнения программы примера 3.

каждому клиенту. Чтобы подсчитать количество проданных эк­земпляров книг по каждому клиенту, надо индекс, построенный по нолю Key cust, сделать текущим.

CLOSE ALL ScSc Закрытие всех файлов

SET DEFA ТО E:\PRIMER && Задание рабочего каталога

USE Order.dbf IN 5 ALIAS ord INDEX order;

ORDER TAG Book

SELECT ord

SET ORDER TO TAG tag(2)

TOTAL TO rez ON Key_cust FIELDS volume ^USE rez.dbf IN 1 ALIAS rez SELE rez

Key_oider| ICcf_cu»t

2 3‘ 200 5 00 31

...

Рис. 5.10. Вверху — исходная таблица Customer, внизу — результат работы команды TOTAL (таблица Rez). В таблице Rez посчитан итог по первому клиенту (Key_cust = 1), поэтому количество строк уменьши­лось на 1.

9. Контрольные вопросы

1. По какому признаку определяются родительская таблица и дочер­няя таблица?

2. Что такое общее поле? Какими свойствами обладает общее поле?.

3. Назовите три типа объединения таблиц.

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

5. Назовите шесть подходов установления взаимосвязи между табли­цами.

6. Какое назначение и какие особенности работы команды JOIN⁹

7. Какое назначение н какие особенности работы команды UPDATE⁷

8. Какое назначение и какие особенности работы команды TOTAL?

9. Какое назначение и какие особенности работы команды SET RELATION ТО?

jO. Какое назначение и какие особенности работы команды SET SKIP ТО?

11. Что такое рабочая область и каково максимальное количество рабо­чих областей?

12. Как присваиваются имена и номера рабочим областям?

13. Укажите назначение алиаса рабочей области.

14. Объясните понятие текущей рабочей области. Как установить теку­щую рабочую область ?

15. Укажите направление установления взаимосвязи «один-к-одному».

16. Объясните понятие «ссылочная целостность».

|7. Объясните понятие «каскадное воздействие».

18. Что такое каскадное изменение?

19. Что такое каскадное удаление?

20. Как установить ссылочную целостность между таблицами?

21. Как задать каскадные воздействия между таблицами?

Глава 6

РАБОТА С ПРОГРАММНЫМИ ФАЙЛАМИ

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

1. Создание программного файла

Программный файл создается с помощью встроенного текстово­го редактора FoxPro. Текстовый редактор можно запустить как из окна Command, так и из Главного меню.

а.Чтобы запустить текстовый редактор из окна Command, в этом окне надо задать команду:

MODIFY COMMAND | FILE [<имя файла> | ?]

[NOEDIT]

[NOMENU]

[NOWAIT]

[RANGE <Bbip.NI>, <nbip.N2>]

[[WINDOW <нмя окна 1>]

[IN [WINDOW'] <имя окна 2> | IN SCREEN ]

[SAME]

[SAVE]

Ключевое слово COMMAND предназначено как для созда­ния нового программного файла (имя файла не указывается) ^с расширением .pig, так и для открытия уже существующего файл® (имя файла указывается либо полностью, либо частично — ^п° шаблону).

Ключевое слово FILE предназначено только для открытия существующего программного файла, причем имя файла надо указывать полностью.

Если имя файла не известно, то вместо имени файла можно указать символ «?* и на экран будут выведен список имен про­граммных файлов (с расширением .prg), где можно выбрать имя нужного файла.

Назначение опций:

NOEDIT — разрешает просмотр текста, но редактирование тек­ста запрещено;

NOMENU — запрещает вызов системного меню окна редактиро­вания, то есть блокирует клавишу F10 и кнопку в левом верхнем углу окна редактирования.

NOWAIT — после открытия окна редактирования разрешает ра­боту (без пауз) программы, вызвавшей открытие окна редактиро­вания. В противном случае работа программы прерывается до закрытия окна редактирования

RANGE <выр.М1>, <Bbip.N2> — при работе с Мето-иолем по­зволяет выбрать часть текста в указанном интервале от <выр.Ы1> до <выр.Ы2>.

WINDOW <нмя окна 1> — открывает окно редактирования с ха­рактеристиками другого предварительно открытого окна <имя окна 1>.

IN WINDOW <имя окна 2> — открывает окно редактирования внутри окна <имяокна2>.

IN SCREEN — опция задана по умолчанию. Открывает окно ре­дактирования внутри главного окна FoxPro.

SAME — если текст программы, текст документа или Мето-поде Уже открыты, то запрещает новое редактирование в окне редактора.

SAVE — опция используется только в программах и сохраняет на экране образ окна редактирования после его закрытия.

Пример:

MODI COMM f* && открывает все файлы с расширением .ргд, имена которых начинаются с буквы f

MODI COMM * && открывает все программные файлы

с расширением .ргд.

В том и другом случае каждый программный файл открывает­ся в отдельном окне. Ненужные окна закрываются либо клави­шей Esc, либо щелчком мыши на кнопке в правом верхнем углу окна.

Встроенный редактор FoxPro предназначен также для вывода на экран и редактирования Memo-полей, которые открываются с помощью команды Ctrl + Home, и текстовых файлов, имена ко­торых указаны в тексте программного файла с целью их дальней­шего вывода на печать.

б. Для создания нового программного файла из Главного ме­ню надо подать команду':

File —► Ne%v -> выбрать расширение .prg (или Program).

Для открытия уже существующего программного файла надо подать команду:

File -> Open -> указать имя нужного программного файла.

В том и другом случае написание и редактирование текста программного файла производится по правилам текстовых редак­торов.

2. Запуск программного файла

Выполнить программный файл можно либо из окна Command с помощью команды DO <имя программного файла>, либо с помощью команды Главного меню:

PROGRAM -> DO -> указать в списке имя программного файла,

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

Остановить выполнение программного файла можно нажати­ем клавиши Esc, если в тексте программного файла указа!» команда SET ESCAPE ON.

Во многих версиях FoxPro эта команда указана по умолчанию- В Visual FoxPro после нажатия клавиши Esc, на экран выво­дится диалоговая панель с тремя кнопками:

Caned — выполнение программы прерывается.

Suspend — выполнение программы приостанавливается до под­ачи команды RESUME.

Ignore — продолжить выполнение программы.

В уже отлаженных и хорошо работающих программах можно заблокировать нажатие клавиши Escape с помощью команды SET ESCAPE OFF.

3. Модульность программ

Программный продукт включает в себя внешние и внутренние процедуры, которые оформляются как отдельные модули. Мо­дульное построение программного продукта позволяет повысить его наглядность и унифицировать часто повторяющиеся опера­ции, сокращает время написашш и отладки программ. При вы­полнении программных кодов, если FoxPro встречает обращение к подпрограмме (модулю), то он ищет текст модуля в следующей последовательности:

• в текущей процедуре;

• в процедурном файле;

• снизу вверх в старших процедурах;

• на диске в виде отдельной программы.

1. Внешние процедуры

Внешней процедурой называется некоторая последовательность Команд, которые выполняют определсшюе и законченное дейст­вие по обработке данных. Внешняя процедура (или несколько Процедур) хранятся в отдельном файле на диске. Приложение мо- *ет содержать несколько процедурных файлов, но подключен (активен) всегда только один процедурный файл. Подключение Процедурного файла производится командой:

^SET PROCEDURE ТО [<имя процедурного файла>]

Команда без опции закрывает процедурный файл.

I

1. Вызов внешней процедуры Формат команды:

DO <нмя программного файла внешней процсдуры>

[ WITH <снисок параметров> 1 [ IN <нмя файла>)

Назначение опций WITH Ссписок параметров — содержит список входных и выходных параметров. В качестве входных и выходных нарамет-1 ров допускается использование переменных, констант и выраже­ний.

IN <имя файла> — явно указывает место хранения программно­го файла и используется вместо предварительно подаваемой ко­манды SET PROCEDURE.

Команда DO выполняет указанную программу. Если указан­ная программа не откомпилирована или в нее были внесены изменения, то она автоматически компилирует указанную про-1 грамму, а затем се выполняет.

Если в <имени программного файла> опущено расширение, то расширения будут просматриваться в следующем порядке: .ехе. .арр, .£хр, .prg.

2. Команда описания заголовка процедуры Формат команды:

PROCEDURE <нмя процелуры>

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

3. Команда восприятия параметров Формат команды:

PARAMETERS Ссписок параметров

Эта команда позволяет передать процедуре значения перемен­ных из командной строки или из вызывающей программы. Она пишется сразу после заголовка процедуры и содержит такое Ж®

количество параметров и того же типа, что и в команде DO, вы­зывающей данную процедуру.

6. Команда окончания процедуры формат команды:

RETURN [ТО MASTER | ТО <имяпроцедуры> | <выр>]

Команда RETURN без опций завершает выполнение процедуры и передает управление следующему по порядку опера­тору

Команда RETURN ТО MASTER завершает выполнение про­цедуры и выполняет переход к самому верхнему уровню вызыва­ющих процедур, передавая управление следующему по порядку оператору.

Команда RETURN ТО <имя процедуры> завершает выполне­ние процедуры и выполняет переход к процедуре с указанным именем, передавая управление следующему по порядку опера­тору.

<выр> содержит последний выполняемый оператор в теле процедуры. Такой способ окончания процедуры используется в процедурах-функциях для передачи последнего вычисленного значения.

6. Команда возврата RENTRY

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

6-3.1.7. Команда выхода на командный уровень cancel

Команда прекращает выполнение программы, освобождает из Памяти переменные, созданные пользователем и возвращает уп­равление окну Command.

8. Команда выхода из среды Visual FoxPro QUIT

Осуществляет выход из среды Visual FoxPro в операционную систему. Рекомендуется использовать эту' команду перед вы­ключением компьютера, с целью предотвращения потери дан­ных.

2. Внутренние процедуры

Внутренние процедуры хранятся вместе с текстом основной про­граммы и размещаются в конце основной программы.

Для создания внутренних процедур используются те же ко­манды, что и при создании внешних процедур.

3. Процедура-функция

Если результатом работы процедуры является единственное вы численное значение, то удобнее использовать процедуру-функ­цию. Процедура-функция может быть оформлена как внешняя или как внутренняя процедура. Пронелура-функция вызывает по своему имени, которое допускается указывать в командах. По еле имени процедуры-функции обязательно указываются или пу­стые круглые скобки, или круглые скобки с именами передавае­мых аргументов.

1. Команда описания заголовка процедуры-функции

FUNCTION(<HMfl процедуры-функини>)

Имя процедуры-функции пишется по правилам имен проце­дур (см. п. 6.3.1.2).

Передача входных параметров (аргументов) и написание тела процедуры-функции производится аналогично процедурам, но запрещено использование команды RETURN в любом варианте- Единственный результат вычисления, определенный последним исполняемым оператором, передается под именем самой функции Вызов процедуры-функции производится командой

1)0 <нмя происдуры-функцнн>.

4. Область действия переменных

Переменные могут передаваться в процедуры не только через фиктивные параметры, но и напрямую. Псремеш<ые, определен­ные в старших модулях, действуют также и в подчиненных моду­лях.

1. Глобальные переменные

Переменные и массивы, объявленные как глобальные, действуют во всей среде Visual FoxPro. Глобальную переменную можно оп­ределить либо в окне Command, либо с помощью оператора

PUBLIC <список имен переменных в масснвов>

Элементы списка отделяются друг от друга запятой. Глобальная переменная продолжает существовать даже тогда, когда процедура, ее определившая, закончила свою работу и осво­бодила оперативную память.

»

2. Локальные переменные

Локальные переменные существуют только внутри процедуры, в которой они определены, и во всех подчиненных ей процедурах. Для описания локальных переменных используют оператор PRIVATE <спнсок имен переменных>

Допускается объявление группы локальных переменных по шаблону:

PRIVATE ALL LIKE <шаблои> | EXCEPT <шаблон>

Назначение опций:

LIKE <шаблон> — задает множество имен, соответствующих ус­ловию шаблона.

EXCEPT <шаблон> — задает множество имен, не соответствую­щих условию шаблона

Оператор PRIVATE описывает только переменные. Локаль­ные массивы описываются командами DECLARE и DIMEN­SION.

5. Простейшие вычисления

В Visual FoxPro предусмотрены команды, которые позволяют су­щественно упростить процесс вычислений в таблицах.

1. Вычисление суммы по столбцу

Команда SUM без опций производит вычисление суммы по всем числовым полям всех столбцов и всех записей активной таб­лицы.

Формат команды:

SUM

[ Ссиисок выряжсний> ]

[ FOR <выр. Ll> 1 I WHILE <Bi.ip.L2>]

[ТО < список имен переменных памятн> | ТО ARRAY <имя массива> ]

[ NOOPTIMIZEI

Назначение опций^-

<список выражении> — задает имена физических нолей или вы­ражения (виртуальные поля), которые должны быть просуммиро­ваны. Количество элементов списка должно соответствовать ко­личеству элементов массива, если результат вычислений будет сохраняться в массиве (опция ТО ARRAY <имя массива>).

FOR <выр. Ll> — задает диапазон строк, для которых надо вы­полнить операцию суммирования.

WHILE <выр. L2> — задает диапазон строк, для которых надо выполнить операцию суммирования.

ТО Ссписок имен переменных памяти> — задает имена перемен­ных памяти, в которых будут сохранены результаты вычисления сумм. При необходимости соответствующие переменные будУ¹ созданы автоматически.

ТО ARRAY <имя масснва> — содержит имя массива, который предназначен для хранения результатов вычисления сумм. СЛ массив должен быть создан заранее.

NOOPTIMIZE — отключает технологию ускоренного доступ³ к данным, если в опцию FOR включены поля текущего ИИ- декса.

2. Вычисление среднего значения по столбцу

Команда AVERAGE осуществляет вычисление среднего арифме­тического значения для выражения. Формат команды:

average

(<спнсок Bbip.N> ]

[ FOR <выр. LI>]

(WHILE <выр. L2> J

[ ТО <спис(ж имен переменных памятн> | ТО ARRAY <имя чассим> ]

| NOOPTIM1ZE ]

Назначение опций аналогично команде SIJM. В <списке Bbip.N> могут содержаться как имена физических нолей, так и выражения для виртуальных полей.

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

Команда CALCULATE позволяет выполнять любые допустимые математические операции над полями и выражениями. Формат команды:

CALCULATE [ Сспнсок Bbip.N> ]

(FOR <выр. Ll> ]

I WHILE <выр. L2> ]

[ TO <спнсок имен переменных пачятн> | ТО ARRAY <ичя масснва> ]

INOOPTIMIZE]

При написании выражений допускается использование функ­ций:

АУС(<выр. N>) — вычисляет среднее арифметическое значение Для числового поля (столбца) или выражения, содержащего поле

(столбец).

CNT0 — вычисляет общее количество записей.

^1АХ(<выр.>) — находит максимальное значение для поля (стол­бца) или выражения, содержащего поле (столбец).

XlL\(<Bup.>) — находит минимальное значение для поля (стол­бца) или выражения, содержащего поле (столбец).

NPV(<w»ip. Nl>, <выр> [, <выр. N2> J) — рассчитывает значение,

представленное в сети, для серии платежей при некотором фиксиЛ рованном проценте. Процент указывается в <выр. N1 > в десят^И чной форме. В <выр.> указывается серия платежей либо именем поля, либо выражением поля, либо численным выражением.

В <выр. N2> может быть указано начальное инвестирование.

STD(<Bbip. N>) — вычисляет стандартное отклонение для зна-1 чений в числовом поле или в выражении, содержащем числовое I поле.

SUM(<Bbip. N>) — вычисляет сумму значений в числовом поле или в выражении, содержащем числовое поле.

VAR(<Bbip. N>) — вычисляет дисперсию от среднего для число­вого поля или выражения, содержащего числовое поле.

Записи, помеченные к удалению, включаются к вычислению, если ранее не была использована команда SET DELETED ON, которая игнорирует помеченные к удалению записи.

4. Вычисление общего количества записей в таблице

Команда COUNT подсчитывает общее количество записей в ак­тивной таблице и сохраняет результат в переменной памяти. Фо(^И мат команды:

COUNT [ FOR <выр. Ll> ]

[WHILE <выр. L2> ]

[ТО <персмсннойпамяггн>]

[ NOOPTIMIZE j

Для аналогичных целей может бьггь использована функция: J RECCOUNT( [ <выр. N> | <выр. О ])

которая возвращает количество записей таблицы. Желаемая таб-Я лица задастся либо номером рабочей области <выр. N>, либоЯ алиасом рабочей области <выр. С>.

6. Примеры

Пример 1. Создать программный файл по условиям примерЯ 1 гл. 5.

INDEX ot;

ORDER TAG Ot

Запустите встроенный текстовый редактор, введите текст про­граммы и поставьте ее на выполнение кнопкой графического ме­ню. При первом запуске надо задать имя созданному программ­ному файлу.

CLOSE ALL && Закрытие всех файлов

S3T DEFAULT ТО E:\PRIMER && Задание рабочего каталога

&& Далее открытие двенадцати таблиц

SET RELATION TO Key_im INTO im, key_ot INTO ot SELECT fam

SET RELATION TO Key_fam INTO ctl SET SKIP TO ctl

Browse FIELDS «Автор» = ALLTRIM(fam.narne_fam) + ' ⁺ ALLTRIM(im.name_im) ■*■''+ ALLTRIM(ot .name_ot), ^ctl.name_book :Н=«Наименование» :4 0

7. Контрольные вопросы

1. Укажите назначение программного файла.

2. Укажите несколько способов создания программного файла.

3. Как открыть программный файл?

4. Как поставить на выполнение открытый программный файл?

ОСНОВЫ ЯЗЫКА ПРОГРАММИРОВАНИЯ

В FoxPro каждый оператор должен начинаться с новой строки. Переход на новую строку позволяет распознать начало и конец отдельной команды. Для облегчения чтения длинйую команду можно разделить на две (и более) строки. Чтобы указать, что сле­дующая строка является продолжением данной строки, в конце данной строки помешают символ «;*. Запреп ается использовать символ «;» внутри строковых констант. Если строковую кон­станту надо разместить в двух строках тот каждую часть строко­вой константы помешают в кавычки и соединяют между собой знаком «+*. Если по смыслу строковая константа должна содер­жать символ «;*, то его размещают внутри кавычек.

FoxPro игнорирует лишние пробелы, поэтому их можно ис­пользовать для удобного расположения команд FoxPro.

При написании текста программ удобно вставлять коммента­рии для пояснения работы конкретного блока команд. В FoxPro предусмотрены два типа комментариев.

Если символ «** или NOTE установлены в начале строки, то это означает, что комментарий занимает всю строку. Можно по­сле символа «*» указать несколько символов «-» длялучшего вы­деления комментария.

Если в любом месте строки текста программы встречаются символы « && *, то после них следует комментарий. То есть сче- ва от этих символов пишется исполняемая команда, а справа — комментарий.

7-1. ПЕРЕМЕННЫЕ, КОНСТАНТЫ И МАССИВЫ

В FoxPro разрешается использовать переменные и константы тех *с типов, что и поля таблицы, за исключением типа Memo. Зна­чение переменной изменяется по мерс выполнения программы, ^а значение константы всегда остается постоянным. Имена пере­

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

В FoxPro предусмотрены два типа переменных: пользователь­ские и системные. Имена системных переменных начинаются с символа « _ » подчеркивание и предназначены для храпения параметров настройки среды FoxPro. Системные переменные яшшются резидентными и их нельзя удалить.

Таблица 7.1

Использование

разделителей

Character

Currency

Date

Date Пше 11:00am)

logical

Numeric

Текст от 1 до 2S6 символов Денежные суммы Даты

Даты и Время

«Истина», «Ложь» Числа

«текст», ‘текст’, [текст], “текст”

$число

(дата)

(дата время)

Т. или F.

Без разделителен

Pr = « Hello*

Рг = $500 Рг = (25/01/02) Рг = (25/01/02)

Рг-.Т.

Рг -1550

В табл. 7.1 приведены часто употребляющиеся типы и разме­ры пользовательских переменных.

В FoxPro отсутствуют описатели типов переменных.

Тип переменной определяется значением, которое она содержит.

Таким образом, при выполнении программы в каждый момент времени одна и та же переменная может иметь разные типы.

Массив — это последовательность переменных, имеющих одинаковое имя и отличающихся друг от друга порядковым но­мером (индексом). Любой элемент массива в каждый момент времени может иметь один из допустимых типов. В Fo\Pr° определены одномерные и двухмерные массивы. Имена масси­вов состаатяются по правилам имен переменных.

Для объявления массивов используют одну из команд DECLARE или DIMENSION, формат которых одинаковый.

DECLARE | DIMENSION <ичя массива 1> (<выр.М> [,<выр N2>])

[,<нмя массива 2> (<Bbip.N3> (,<iup.N’4>])l 1-1

Пример.

dime abc(5,10), cd{18)

Одной командой DIMENSION объявлены два массива: дву­мерный массив с именем аЬс, содержащий пять строк и десять столбцов, и одномерный массив cd, содержащий восемнадцать элементов массива. Тип каждого элемента массива как одномер­ного, так и двумерного будет определен потом, тем значением (данным), которое будет в него помещено.

2. Присвоение значений

Присвоить значения переменным и элементам массива можно несколькими способами.

1. С помощью оператора присваивания

<нмя вереме1шоА> ■ <выражсинс>

<имя элемента массива> = <выраженне>

2. С помощью команды STORE

STORE <значеиис> ТО <имя перемениой>

STORE <эвачсние> ТО <имя элемента массива>

STORE <значеиие> ТО <имямассива>

Эта команда наиболее эффективна при работе с массивом (третий вариант команды), она позволяет всем элементам масси­ва задать одинаковые (начальные) значения.

Примеры.

st = «Москва» && создается переменная st

символьного типа, в которую помещается значение «Москва».

^t = (25/01/02) && создается переменная dt

* типа дата, в которую помещается

значение 25 января 2002 года.

STORE 145 ТО nm

*

* && создается переменная

числового типа, в которую помещается значение 145.

&& объявляется одномерный массив с именем mas из 12 элементов.

mas(7) = (07/02/02) && седьмой элемент массива mas

получает значение 7 февраля 2002 года и тип дата.

2. Команды для работы с переменными

В FoxPro допустимы следующие действия над переменными: хранение в файле, загрузка их в оперативную память, просмотр и удаление.

1. Сохранение переменных

С помощью команды SAVE ТО можно сохранить либо все пе­ременные, находящиеся в оперативной памяти, либо их произ­вольную часть, как в файле, так и в Memo-полс с заданным име­нем. Формат команды:

SAVE ТО <нмя файла> | ТО MEMO <имя поля> {ALL LIKE | EXCEPT <шаблон>]

В команде предусмотрено использование одного из двух шаб­лонов.

ALL LIKE — сохраняются все переменные, имена которых со­ответствуют шаблону.

ALL EXCEPT — сохраняются все переменные, кроме перемен­ных, перечисленных в шаблоне.

В любом из шаблонов допустимо использование символов V и "Г.

По умолчанию к указанному в команде имени файла, добав­ляется расширение .mem

По умолчанию команда создает файл с указанным именем. Если файл с таким именем уже существует, то он заменяется на новый без предупреждения Если вы хотите увидеть предупреж­дение на экране, что указанный файл уже существует, надо пе­ред командой SAVE ТО установить команду SETT SAFETY OFF.

2. Загрузка переменных в оперативную память

Если при работе с приложением возникает необходимость раз­местить в оперативной памяти переменные, значения которых были определены ранее, то надо воспользоваться командой:

RESTORE FROM <нмяфайла>| FROM MEMO Симя поля> [ADDITIVE]

В результате работы команды оперативная память очищается от имеющихся переменных, и в нее помещаются переменные из указанного файла с расширением .mem или из Memo-поля. Для того чтобы сохранить в оперативной памяти переменные, значе­ния которых определены до использования команды SAVE ТО, и добавить в оперативную память переменные с отличными (дру­гими) именами из файла (или Memo-поля), надо указать опцию ADDITIVE.

3. Просмотр переменных

Переменные, которые хранятся в оперативной памяти, можно Просмотреть с помощью команды:

DISPLAY MEMORY [LIKE <шаблон>] [ТО PRINTER | FILE <нмяфайла>[

На экране каждая переменная занимает одну строку, куда вы­водится имя, тип, значение и статус переменной. После заполне­ния экрана надо нажать либо клавишу ENTER, либо клавишу •пробел* для продолжения вывода переменных на экран. При Желании можно направить вывод переменных либо на принтер (ТО PRINTER), либо в файл (ТО FILE).

4. Удаление переменных

Все переменные или часть переменных, хранящихся в оператив­ной памяти, можно удалить с помощью команды:

RELEASE <список имен иеременных>

RELEASE ALL [LIKE | EXCEPT <шаблон>]

Для удаления всех переменных также можно использовать команду:

CLEAR MEMORY

2. Команды для работы с массивами

В FoxPro для работы с массивами предусмотрены четыре коман­ды: две для работы с одномерными массивами и две для работы с двумерными массивами.

1. Команда заполнения одномерного массива из табличного файла

Команда SCATTER переносит данные из текущей записи актив­ной таблицы в одномерный массив. Если одномерный массив не был создан заранее или размерность созданного массива мала, то автоматически либо создается одномерный массив, либо увели­чивается размерность ранее созданного массива. Эта команда переносит данные из текущей записи активной таблицы либо в одномерный массив, либо в переменные, которые при необходи­мости могут быть также автоматически созданы. При автомати­ческом создании массива ему присваивается имя табличного файла, но перед именем добавляется буква М и префикс «.* точка. При автоматическом создании переменных им присваива­ются имена соответствующих полей с добавлением перед именем буквы М и префикса «.* точка. Тип переменных определяется типом соответствующих полей.

Формат команды:

SCATTER

[FIELDS Сспнсок имен полей> | FIELDS LIKE <шаблон>

| FIELDS EXCEPT <шаблон> ]

[MEMO] ТО<нмямассива>|ТО <имя масснва>

[BLANK] | [MEMVAR] | [MEMVAR] [BLANK]

Назначение опций:

FIELDS <список имен полей> — задает список имен полей, зна­чения которых будут копироваться в одномерный массив или переменные.

FIELDS LIKE <шаблон> — в одномерный массив или перемен­ные будут копироваться значения только тех полей, имена кото­рых соответствуют шаблону.

FIELDS EXCEPT <шаблон> — в одномерный массив или пере­менные будут копироваться значения только тех полей, имена которых не соответствуют шаблону.

MEMO — указывает на необходимость копирования Memo-по­лей. По умолчанию Memo-поля не копируются.

ТО <ичямасснва> — залает имя массива, куда будут копировать­ся значения указанных полей.

ТО <имямассива> BLANK — создает пустой массиве указанным именем. Элементы массива получают тип и размер соответству­ющих полей.

MEMVAR — указывает на то, что поля текущей записи будут ко­пироваться в переменные.

MEMVAR BLANK — создает набор пустых переменных. Пере­менные получают тип и размер соответствующих полей.

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

2. Команда заполнения табличного файла из одномерного массива

Команда GATHER переносит данные из одномерного массива в текущую запись активной таблицы. Для правильной работы ко­манды необходимо заранее описать одномерный массив и запол­нить его данными. При этом программист сам должен следить за соответствием типов и размеров элементов массива типам и раз­мерам соответствующих полей записи таблицы. Формат команды:

Gather FROM <имямассива>| MEMVAR

[FIELDS Ссписок имен полей> | FIELDS LIKE <шаблон> |

Helds except <шаблон>]

[MEMO]

1

Назначение опций:

FIELDS <список имен полей> — задает имена полей, в которые,

в строго указанном порядке, будут заноситься значения из эле­ментов одномерного массива.

FIELDS LIKE <шаблон> — задает имена полей по шаблону (ана­логично команде SCATTER).

FIELDS EXCEPT <шаблон> — задает имена полей по шаблону (аналогично команде SCATTER).

MEMO — задает копирование полей типа Memo.

Если опция FIELDS не задана, то копирование начинается в первое поле записи и далее подряд. Если число элементов масси­ва больше, чем количество полей записи, то последние элементы массива не копируются. Если число элементов массива меньше количества полей записи, то последние поля записи сохраняют свои прежние значения.

3. Копирование данных из табличного файла в двумерный массив

Команда COPY ТО ARRAY копирует записи табличного файла в заранее созданный двумерный массив. Копируется столько за­писей, сколько строк в двумерном массиве, начиная с текущей записи. Если количество полей записи больше, чем число эле­ментов массива в одной строке, то лишние поля записи не копи­руются. Если количество элементов массива в одной строке больше, чем количество полей записи, то последние элементы массива сохраняют прежние значения. Формат команды:

COPY ТО ARRAY <имя масснва>

(FIELDS <снисок имен иолей>]

[SCOPE]

[FOR <выр.Ь1>]

[WHILE <выр.Ь2>]

[NOOPTIMIZEJ

Назначение опций:

FIELDS Ссписок имен полей> — задает имена полей, значения которых будут копироваться в двумерный массив.

SCOPE — задаст запись, начиная с которой производится копи­рование, либо диапазон записей.

FOR <Bbip.Ll> — выделяет для копирования только те записи, которые удовлетворяют логическому условию СвырХ! >.

WHILE <Bbip.L2> —выделяет для записи указанные поля.

NOOPTIMIZE — запрещает ускоренную технологию обработки (Rushmore).

4. Добавление записей в табличный файл из двумерного массива

Команда /APPEND FROM ARRAY добавляет в конец таблично­го файла записи из двумерного массива. Причем каждая строка двумерного массива заносится в табличный файл как новая за­пись. Если количество элементов в строке двумерного массива больше, чем количество полей в записи, то последние элементы массива не копируются. Если количество элементов в строке двумерного массива меньше, чем количество полей в записи, то последние поля записи сохраняют прежние значения. Формат команды:

APPEND FROM ARRAY Снчя двумерного масснва>

[FOR <вы_РХ1>]

[FIELDS <списокимен полей>]

Назначение опций:

FOR <вырХ1> — выделяет из массива те строки, которые удов­летворяют логическому условию <вырХ1>.

FIELDS <список имен полей> — задает имена полей, в которые будут заноситься данные из массива.

2. Команды ввода-вывода

При работе с базами данных постоянно требуется вводить какие- либо данные, задавать критерии поиска и фильтрации, получать из базы данных результаты произведенных действий. Для этих Целей предусмотрены команды ввода-вывода, которые бывают как простыми, так и универсальными.

1. Простейшие команды вывода

В FoxPro имеются команды для вывода на экран значений пере­менных и элементов массивов Причем эти команды допускают управление шрифтом и простейшее форматирование. Формат команды вывода:

? I ?? [<выр.1>]

[PICTURE <выр. С1>[

[FUNCTION <выр. С2>]

[АТ <вьгр. Nl>]

[FONT <выр. С3> [, <BUp.N2> ]] [STYLE <выр.С4>[

[, <выр.2>] ...

Команда вычисляет и выводит на экран <выр.1>. Назначе­ние опций:

? <выр.1> — вычисляет и выводит значение <выр.1> в следую­щей строке экрана.

?? <выр.1> — вычисляет и выводит на экран <выр.1> в текущей строке экрана.

Если перед этой командой указана команда SET PRINTER ON, то вывод будет производиться на принтер (печать)

PICTURE <выр. С1> — задает шаблон для вывода значения <выр.1> (подробнее см. команду @ ... SAY ... GET ... в п. 7.5.3).

FUNCTION <выр. С2> — задает колы управления выводом (подробнее см. команду @ ... SAY ... GET ... в п. 7.5.3).

АТ <Bbip.Nl> — используется для создания таблиц. <Bbip.Nl> задает номер колонки на экране, с которой начинается вывод значения <ныр.!>.

FONT <выр. С3> [, <Bbip.N2> ] [STYLE <выр.С4>] — опция за­дает тип шрифта (<выр.СЗ>), размер шрифта (<Bbip.N2>) и стиль написания шрифта (STYLE <выр.С4>).

В Visual FoxPro предусмотрены следующие стили написания

шрифта:

В — жирный I — курсив N — нормальный

О — кошурный Q — непрозрачный S — с тенью

- — перечеркнутый Т — прозрачный U — подчеркнутый

2. Команды очистки экрана

Для очистки экрана используются две команды:

а. Очистка всего экрана — CLEAR. Команда очищает либо весь экран, либо все рабочее окно и размещает курсор в левом верхнем углу.

б. Очистка прямоугольной области экрана:

§> <YI,X1> [CLEAR | CLEAR TO <Y2,X2>]

Команда очищает прямоугольную область экрана с координа­тами левого верхнего угла (<Y1,X1>) и координатами правого нижнего угла (<Y2,X2>). Если координаты правого нижнего уг­ла области не указаны, то принимаются координаты правого нижнего угла экрана.

3. Универсальная команда ввода-вывода

Эта команда предназначена для форматного ввода-вывода на эк­ран и принтер. Формат команды:

9 <Y1>, <Х1>

[SAY <выр.1>

[PICTURE <выр.С1>]

[ FUNCTION <выр.С2>]

<имя файла> [ BITMAP] | <имя общего поля>

[ SIZE <выр.М>, <Bwp.N2> ]

[CENTER]

[ ISOMETRIC | STRETCH ]

[ FONT <выр.СЗ> [, <Bbip.N3> ] ] [ STYLE <выр.С4> J [VERB <Bbip.N4>]

[COLOR SCHEME <Bbip.N5> | COLOR <список пар цвегов> ] [GET <переме1тая>

[ PICTURE <выр.С5> ]

[FUNCTION <выр.С6>]

[ DEFAULT <выр.2> ]

[ENABLE| DISABLE]

[ MESSAGE <выр.С7>]

[ [ OPEN ] WINDOW <имя окиа> ]

[ RANGE [ <выр.3> ] [ <выр.4> ] ]

[ SIZE <Bbip.N6>, <Bbip.N7> ]

[VALID <выр.Ь1> | <aup.N8> [ERROR <выр.С8>] ]

[WHEN <aup.L2>]

[FONT <вьф.С9>[,<Bbip.N9>]] [STYLE <выр.С10>) [COLOR SCHEME <выр.М0> | COLOR <спис<жnapцвегов>J

Команда размещает курсор на экране или в окне в позиции YI (номер строки от 0 до 35) XI (номер столбца от 0 до 79 ) и, на­чиная с этой позиции, на экран выводится сообщение, указанное в опции SAY <выр.1>. Если в команде дополнительно использу­ется опция GET <переменная>,то <переменная> выводится на экран сразу после SAY <выр.1>. Если перед командой @ ... SAY ... GET ... указана команда SET DEVICE ТО PRINT, то вывод производится на принтер и тогда количество строк и столбцов определяется размером бумаги. Для переназначения вывода на экран следует использовать команду SET DEVICE ТО SCREEN (команда используется по умолчанию). Значение <переменная> должно быть определено до использования команды @ ... SAY ... GET ... В общем случае, назначение опции SAY указать поль­зователю, где выполнить ввод (вывод) по пункту GET.

<выр.1> и <переменная> форматируются по отдельности с использованием опций, указанных после них.

Для форматирования <выр.1> используются следующие оп­ции:

PICTURE — задаст шаблон для форматирования. При составле­нии шаблона можно применять символы:

А — используются только символы алфавита (русского или латинского);

L — используются только логические данные;

N — используются только буквы и цифры;

X — используются любые символы;

Y — используются логические данные, приведенные к ви­ду Y — True и N — False;

9 — используются только числовые данные;

• — используются цифры, пробелы и математические

знаки;

! — преобразует строчные (малые) буквы в прописные (большие);

$ — используется для обозначения денежных единиц;

• — используется для обозначения • перед числом;

. — используется для отделения целой части числа от дробной части;

, — используется для разделения тысяч в числовых дан­ных.

Каждый шаблон начинается с символа а затем следуют указанные выше символы.

FUNCTION — задает коды управления выводом, при этом на­чальный символ @ не указывается. Для составления кодов уп- равления используют символы:

А — разрешены только символы алфавита;

В — сохраняет выравнивание числовых данных;

С — отображает знак кредита CR после поло­

жительного числа;

D — использует текущий формат даты;

I — используется для расположения текста по

центру внутри поля;

J — форматирует текст внутри поля по правой

границе;

К — разрешает редактирование целочисленного

поля;

L — отображает ведущие (незначащие) нули пе­

ред целой частью числа;

М<список>0 — задает список предварительного выбора для пользователей (элементы списка разде­лены запятыми);

R — отображает (без сохранения) символы фор­

мата;

S<n> — задает ширину поля вывода в символах;

Т — удаляет ведущие и конечные пробелы;

V<Bbip N> — заполняет все отведенное пространство

(<Bbip.N>) текстом, за счет добавления пробелов;

X — отображает знак дебета DB после положи­

тельного числа;

Z — в пустых числовых полях отображает про­

белы вместо 0;

( — заключает в скобки отрицательные числа;

— преобразует строчные (малые) буквы в про­писные (большие);

$ — отображает символ денежной единицы;

пробел — задаст вывод чисел в экспоненциальной

форме.

<имя файла> [ BITMAP] | <ичя общего патя> — используется д ля вставки рисунка (.bmp) или OLE-объекта, сохраненном в об­щем поле в указанном месте экрана. Следующие четыре опции управляют размещением рисунка на экране.

SIZE <выр.М>, <Bbip.N2> — определяет ширину'(<выр.Ы1>) и высоту (<Bbip.N2>) импортируемого рисунка.

CENTER — располагает рисунок в центре выделенной области.

ISOMETRIC — пропорционально изменяет размеры импорти­руемого рисунка, с целью заполнения всего выделенного про­странства.

STRETCH — заполняет рисунком все выделенное пространство без сохранения пропорций.

VERB <выр.М> — непосредственно вставляет рисунок с ука­занными параметрами.

FONT <выр.СЗ> [, <Bbjp.N3> ] ] [ STYLE <выр.С4> — залаеттип (<выр.СЗ>), размер (<выр.№> ) и стиль (<выр.С4> ) шрифта, которым будет выведено значение <выр. 1 >. ■

COLOR SCHEME <Bbip.N5> | COLOR <список пар цветов> — задает цвет, которым будет выведено значение <выр.1>, либо с помощью указания номера цвета (<Bbip.N5>) в палитре цветов (номер цвета выбирается из диапазона от 1 до 24), либо с по­мощью буквенного обозначения цвета шрифта и цвета фона (<список пар цветов>).

GET <переменная> — указывается имя переменной, значение которой будет выведено после значения <выр.1>. Значение <пе- ременная> должно быть определено до использования команды @ SAY GET любым способом, кроме опции DEFAULT. PICTURE <выр.С5> — задает шаблон для значения СперемеН- ная> аналогично значению <выр.1>.

FUNCTION <выр.С6> — задает коды управления выводом зна­чения <персменная> аналогично значению <выр.1>.

В опциях PICTURE и FUNCTION допускается использование комбинации символов *♦* и пробел для создания командных кнопок-

DEFAULT <выр.2> — устанавливает значение переменной по умолчанию. При первом вызове команды @ SAY GET опция не работает.

ENABLE — разрешает редактирование <псременной>. Эта оп­ция задана по умолчанию.

DISABLE — запрещает редактировать переменной и указыва­ет на это цветом.

MESSAGE <выр.С7> — выводит сообщение (<иыр.С7>) в ста­тус-строку или последнюю строку экрана при установке курсора на поле GET (<неременная>).

[ OPEN ] WINDOW <имя окиа> — разрешает редактирование Memo-поля в окне, которое было заранее определено. Если ука­зана опция OPEN, то окно открывается автоматически. Если опция OPEN не указана, то для открытия окна надо подать команду Ctrl + Home. В том и другом случае дли входа в окно надо либо дважды щелкнуть левой кнопкой мыши внутри окна, либо подать команд)' Ctrl + Home. Для выхода из окна надо либо подать команду' Ctrl + End (для сохранения внесенных изме­нений), либо нажать клавишу Esc (изменения не сохраняются).

RANGE [<выр.3>] [<выр.4>] — устанааливает диапазон допу­стимых значений (нижняя граница — <выр.3>, верхняя грани­ца — <выр.4>) для <переменной>. Допускается указание любой одной границы диапазона. При указании только верхней грани­цы диапазона необходимо перед значением верхней границы ди­апазона поставить запятую. Диапазон допустимых значений ус­танавливается для символов, чисел и дат. При нарушении границ диапазона на экран выводится соответствующее сообщение с Указанием границ диапазона.

SIZE <Bbtp.N6>, <Bbip.N7> — задает ширину (<ubip.N6>) ивы- соту (<Bbip.N7>) поля GET для ввода значений <перемеиной>.

VALID <выр.И> I <Bbip.N8> [ERROR <выр.С8>] — предназ­начена для обеспечения достоверности вводимых данных. Если логическое выражение <iibip.Ll> истинно, то вводимые данные Достоверны. В противном случае на экран выводится сообщение °б ошибке <выр.С8>. При составлении логических выражений Допускается использование функций, в том числе и функций Пользователя, специально написашнях для этих целей. Если оп- Пия используется с числовым выражением <Bbip.N8>, то:

• число 0 (ноль) соответствует выявленной ошибке,

• положительное число указывает, на сколько полей GET вперед надо переместить курсор для следующего ввода,

• отрицательное число указывает, на сколько полей GET назад надо переместить курсор для следующего ввода.

Часто в опцию VALID включают команды, которые выпол­няются при чтении поля.

WHEN <выр.Ь2> — используется для управления редактирова­нием <псременной>. Если логическое условие (<выр.Ь2>) ис­тинно, то редактирование <переменной> разрешено. Если ло­гическое условие (<Bbip.L2>) ложно, то курсор передвигается к следующему полю GET. При написании логического условия допускается использование функций, в том числе и функция пользователя, а также команд, которые выполняются при ото­бражении поля GET.

FONT <выр.С9> [, <Bbip.N9> ] ] [ STYLE <выр.С10> — назна­чение опции см. выше.

COLOR SCHEME <eup.N10> | COLOR Ссписок пар цветов> -

назначение опции см выше

4. Редактирование переменных,

заданных командой @ ... SAY ... GET

Команда READ может редактировать переменные всех актив­ных команд® ... SAY ... GET и разрешает ввод данных в спро­ектированный экран. Формат команды:

READ

[CYCLE]

[ACTIVATE <bu_P.L1> ]

[DEACTIVATE <Rup.L2>]

[MODAL]

[WITH Ссписок имен окои>]

[SHOW <Bbip.L3> 1 [VALID C_Bbip.L4> | CBbip.Nl> ]

[WHEN <Bbip.L5>]

[OBJECT Свыр.\2>]

[TIMEOUT C_Bbip.N3>]

[SAVE] (NOMOUSE]

(LOCK | NOLOCK]

[COLOR Ссписок пар цвстов> | COLOR SCHEME <Bbip.N4>]

Назначение опций:

CYCLE — при переходе от одной команды @ ... SAY ... GET к другой команде, предотвращает окончание команды READ при обработке последней команды @ ... SAY ... GET и возвращает курсор на первую команду @ ... SAY ... GET. Для выхода из циклического режима надо либо нажать клавишу Esc, либо по­дать команду Ctrl + W, либо другие прерывающие команды.

ACTIVATE Свыр.Ы> — опция работает с командами @ ... SAY ... GET в разных окнах. При перемещении пользователя от од­ного окна к другому окну команда READ активизируется для те­кущего окна только в случае истинности логического выражения Cubip.LlX

DEACTIVATE Свыр.Ь2> — при работе пользователя с несколь­кими окнами опция разрешает покинуть очередное окно, если логическое выражение CBbip.L2> истинно.

MODAL — разрешает активацию только тех окон, имена кото­рых указаны в Ссписке имен окон> опции WITH.

WITH Ссписок имен окон> — задает имена окон, с которыми ра­ботает команда READ.

SHOW CBbip.L3> — разрешает обновить информацию на экра­не, предварительно измененную командой REM). Эта опция ра­ботает совместно с командой SHOW GETS, которая фактически и обновляет содержимое экрана.

VALID Свыр.Ы> | CBbip.Nl> — обеспечивает достоверность вводимых данных с помощью команды READ. Команда READ прекратит всю работу только после ввода достоверных данных, то есть если логическое выражение Свыр.Ь4> истинно.

" HEN Свыр.Е5> — разрешает активацию команды READ только в случае истинности логического выражения CBbip.L5>. OBJECT Cebip.N2> — указывает номер объекта (команды @ ... SAY ... GET), с которого начинается обход. Нумерация объектов начинается с единицы.

TIMEOUT Свыр.Ю> — задает время активности команды BEAD в секундах для ожидания ввода пользователя.

SAVE — сохраняет установки команд @ ... SAY ... GET для их последующей активации следующей командой READ. Обычно установки команд @ ... SAY ... GET очищаются одной из ко­манд CLEAR, CLEAR GETS или CLEAR ALL.

NOMOUSE — запрещает работу мыши. Пользователь может ра­ботать только с клавиатурой.

LOCK — ограничивает доступ к данным, указанным в командах @ ... SAY ... GET. После успешного закрытия данных их можно редактировать с помощью команды READ. Опция применяется в локальных сетях.

NOLOCK — устанавливает для всех данных режим «только для чтения». Опция применяется в локальных сетях.

COLOR <список пар пветов> | COLOR SCHEME <Bbip.N4> — устанаативает атрибуты цвета для окна BROWSE.

2. Функции для работы с массивами

4. -* 4

4. -* 8

4. -у 12

   4. -* 16

БАЗЫ ДАННЫХ 2

Оглавление 4

От автора 6

Справочник команд, операторов и функций 9

... 114

... | 156

I 207

Литература 364

1. Определение положения элемента массива

а. Номер строки и номер столбца определяет функция ASUBSCR1PT( <имя масснва>, <выр.ГЧ>, < 112> ).

Она возвращает из двумерного массива положение элемента <Bbip.N>. Если третий аргумент 1, то функция возпращает но­мер строки. Если третий аргумент 2, то функция возвращает но­мер столбца.

б. Функция

AELEMENT( <имя масснва>, <Bup.Nl>, [ <ewp.N2> ] )

определяет порядковый номер элемента двумерного массива, по заданным номеру строки <Bbip.Nl> и номеру столбца <Bbip.N2>.

2. Удаление элемента массива

После удаления элемента массива размерность массива не изме­няется.

Если удаляется элемент одномерного массива, то все элемен­ты справа от удалешюго элемента сдвигаются влево, занимая ос­вободившееся место. Последний элемент массива получает тип логический и значение .F. ("ложь").

Если удаляется строка или столбец двумерного массива, то после выполнения операции удаления производится сдвиг остав­шихся строк или столбцов. Последняя строка или столбец (все элементы) получают тип логический и значение .F.

Формат функции:

ADEL( <имя масснва>, <выр.1М> [, 2] )

Если операция удаления прошла успешно, то функция воз­вращает 1. Если третий аргумент 2, то в двумерном массиве уда­ляется столбец. В противном случае удаляется строка.

<Bbip.N> — указывает для одномерного массива номер удаляе­мого элемента, а для двумерного массива либо номер удаляемой строки, либо номер удаляемого столбца (в зависимости от значе­ния третьего аргумента).

3. Вставка элементов массива

После выполнения операции вставки элемента массива размер­ность массива не изменяется.

Формат функции:

A1NS( <нмя массивя>, <Bup.N> [, 2 ] ) <Bbip.N> — указывает номер элемента массива, перед которым надо вставить пустой элемент. Пустой элемент имееттип логиче­ский и значение .F. Если новый элемент вставляется в одномер­ный массив, то все элементы справа от вставленного элемента сдвигаются вправо и последний элемент теряется.

В двумерный массив вставляется либо строка, либо столбец целиком. После операции вставки аналогично проводится сдвиг (либо вниз, либо вправо) оставшихся элементов. Если третий ар­гумент 2, то вставляется столбец, в противном случае — строка.

4. Копирование элементов из одного массива в другой

Функция ACOPY копирует элементы из одного массива в дру­гой, причем если отсутствует массив-приемник элементов, то он создается автоматически той же размерности, что и массив источник элементов. Если операция копирования прошла успешно, то функция возвращает количество скопированных элементов.

Формат функции:

ACOPY( <массив 1>, <массив 2> (, <w,ip.Nl> [, <eup.N2> [, <w»ip.N3> ] ] ])

Назначение опций:

<массив 1> — имя массива источника элементов.

<масснв 2> — имя массива приемника элементов.

<выр.1Ч1> — указывает номер элемента массива <массив 1>, с которого начинается копирование.

<Bbip.N2> — задает число копируемых элементов.

<выр.МЗ> — указывает номер элемента массива <массив 2>, с которого начинается ввод данных.

Если отсутствуют опции <Bbip.Nl>, <Bbip.N2> и <Bbip.N3>, то производится копирование всего массива <мас- сив 1> в массив <массив 2>. Если отсутствуют опции <nbip.Nl> или <Bbip.N2> (или обе одновременно), то их пози­ция в формате функции должна быть зафиксирована символом «,* (запятая).

5. Поиск элемента массива

функция ASCAN осушсстнляет поиск значения <выр.> среди элементов указанного массива, начиная с элемента, имеющего порядковый номер <выр.М1>, до элемента с порядковым номе­ром <Bbip.N2>. При успешном поиске функция возвращает порядковый номер разыскиваемого элемента, в противном слу­чае — 0 (ноль).

Формат функции:

ASCAN( <массив>, <выр.> [, <выр.Х1> [, <вырЛМ2>]] )

Назначение опций:

<массив> — задает имя массива, в котором осуществляется по­иск элемента.

<выр.> — задает условие поиска.

<выр.1Ч1> — указывает номер элемента, с которого начинается поиск.

<Bbip.N2> — указывает номер элемента, на котором заканчива­ется поиск.

Если отсутствуют опции <выр.К1> и <Bbip.N2>, то поиск производится по всему <массиву>. Если отсутствует опция <Bbip.NI>, то ее позиция в формате функции фиксируется сим­волом «,* (запятая).

6. Сортировка элементов массива

Под сортировкой одномерного массива понимают упорядочение элементов массива либо по возрастанию, либо по убыванию. Под сортировкой элементов (строк или столбцов) двумерного массива понимают перестановку строк или столбцов массива в зависимо­сти от значений какого-либо поля по возрастанию или убыванию. Формат функции:

ASORT( <массив> [, <выр.М> [, <Bbip.N2> [, <выр.Ш> ] ] ] )

где:

<массив> — задает имя сортируемого массива.

<Bbip.N3> — определяет направление сортировки. Если указан О (ноль), то производится сортировка по возрастанию (установка принята по умолчанию). Если указана 1 (единица), то произво­дится сортировка по убыванию.

Назначение опций при сортировке одномерного массива:

<Bbip.Nl> — указывает номер элемента массива, с которого на­чинается сортировка.

<выр.Ш> — указывает номер элемента массива, на котором за­канчивается сортировка.

Назначение опций при сортировке двумерного массива.

<Bbip.Nl> — задает номер столбца, по значениям которого будет производиться сортировка.

<Bbip.N2> — задает количество строк, которые будут перестав­ляться в результа те сортировки. За начало отсчета принята теку­щая строка.

Если отсутствуют опции <выр.М1>, <Bbip.N2> и <ubip.N3>, то сортируется весь массив по возрастанию. Если отсутствуют опции <Bbip.Nl> или <выр.Ы2> (или обе одновременно), то их позиция в формате функции фиксируется символом «,* (запя­тая).

7. Получение сведений о структуре таблицы

Функция AFIELDS позволяет получить сведения о текущей таб­лице.

Формат функции:

AFIELDS( <массив>)

<массив> — имя двумерного массив.».

В результате работы функция AFIELDS возвращает количество полей текущей таблицы и создает двумерный массив, с указан­ным именем, каждая строка которого состоит из 11 столбцов и содержит информацию об одном поле:

• имя поля,

• тип поля (обозначается одной буквой),

• размер поля.

• размер дробной части числа,

• допустимость пустого значения,

• номер кодовой страницы,

• условие достоверности вводимых значений в поле,

• текст сообщения при нарушении достоверности на уровне поля,

• значение поля по умолчанию,

• условие достоверности на уровне записи,

• текст сообщения при нарушении условия достоверности на уровне записи.

Количество строк <массива> определяется количеством по­лей таблицы.

Имея возвращенный функцией AFIELDS массив можно по­строить копию таблицы с помощью команды CREATE DBF языка запросов SQL.

8. Получение информации о файлах

Функция ADIR позволяет получить информацию о файлах теку­щего каталога.

Формат функции:

ADIR( <масснв> [, <выр.О ] )

<массив> — имя двумерного массива.

<выр.О — шаблон на ограничение количества файлов. Шаблон составляется с использованием символов и "?^и.

В результате работы функция ADIR создает двумерный мас­сив, с указанным именем, каждая строка состоит из пяти полей, в которых содержится информация об одном файле: имя файла (тип поля С ), размер файла (тип поля N), дата создания файла (тип поля D), время создания файла (тип поля С) и атрибут (тип поля С). Количество строк массива <массив> определяется ко­личеством файлов.

Полученный массив <массив> удобно использовать в ко­мандах при создании меню.

2. Команды циклов

Также как и в языках программирования, при разработке прило­жений баз данных предусмотрены команды циклов. Назначение команд, а иногда и формат команд, аналогичное.

1. Цикл по условию

Формат команды:

DO WHILE <выр. L>

[LOOP1 [EXIT]

ENDDO

Цикл выполняется многократно, до тех пор пока истинно ло­гическое условие <вьф. L>. Для принудительного выхода их цикла, до нарушс!шя логического условия <выр. L>, используют команду EXIT. Команда LOOP используется для прекращения вычислений, предусмотренных текущей итерацией, и принуди­тельного перехода к следующей итерации внутри цикла.

2. Фиксированный цикл

Формат команды:

FOR <нер.> = <выр. Nl> ТО <выр. N2> [ STEP <выр. N3> ]

[ЕХГГ]

[LOOP]

ENDFOR | NEXT

Цикл выполняет фиксированное количество итераций (шагов).

<пер> называется переменной цикла. В переменной цикла фик­сируется количество выполненных итераций, то есть после вы­полнения очередной итерации значение переменной цикла уве­личивается на значение шага цикла <выр. N3>.

<выр. NI> задает начальное (стартовое) значение переменно! цикла.

<выр. N2> задаст конечное значение цикла.

<выр. N3> задает шаг цикла.

<выр. Nl>, <выр. N2> и <выр. N3> имеют целочисленный тип.

По умолчанию шаг цикла принят равным 1. Если <выр. N2> больше <пср.>, то цикл будет выполняться до тех пор, пока

<пер.> небудетбольше <выр. N2>. Это событие обязательно на­ступит, так как после выполнения каждой итерации переменная цикла <пер.> будет увеличиваться на 1 В некоторых случаях требуется, чтобы переменная цикла после выполнения каждой итерации увеличивалась быстрее, тогда в <выр. N3> указывают целое число, отличное от 1, которое и будет прибавляться к <пер.> после выполнения очередной итерации. Мы рассмотрели цикл на увеличение (сложение), то есть переменная цикла с каж­дой новой итерацией увеличивала свое значение на величину ша­га цикла <выр. N3> и цикл прекращался, когда переменная цикла <пер.> становилась больше <выр. N2>.

Допускается задание цикла на уменьшение (вычитание). В этом случае начальное значение <выр. Nl> переменной цик­ла <пер.> должно быть больше конечного значения <выр. N2>, а шаг цикла <выр. N3> должен бьггь целым и отрицательным. В этом случае после каждой выполненной итерации из пере­менной цикла <пер.> будет вычитаться значение шага цикла <выр N3> и цикл закончит свою работу после того, как пере­менная цикла <пер.> станет меньше конечного значения цик­ла <выр. N2>.

3. Цикл сканирования

Цикл сканирования организует просмотр записей текущей таб­лицы.

Формат команды:

SCAN

...

[ FOR <L1> ]

[ WHILE,L2>]

{NOOPTIMIZE ]

I LOOP 1 (EXIT)

ENDSCAN

Цикл сканирования работает аналогично циклу DO WHILE, но предназначен для работы с текущей таблицей. Назначение оп- 11 ий аналогичное. По умолчанию цикл сканирования выполня­ется для всех записей.

4. Команда выполнения

I «и нами М1НЧ1КЖ1 < л 1

Формат команды:

RUN <команда> | ! <команда>

Эта команда позволяет выполнить команду DOS или любую внешнюю команду, которая используется с приглашением DOS и подается в окне Command.

2. Команды ветвления алгоритма

При реализации сложных алгоритмов обработки данных, выбора одного решения из многих возможных, используют различные команды ветвления алгоритма.

1. Команда ветвления алгоритма на два направления

Формат команды:

1F <выр. 1> <онератор 1> [ ELSE <оп«ратор 2> ] ENDIF

Если логическое выражение <выр. L> истинно, то выполня­ется <опсратор 1>. Если логическое выражение <выр. L> лож­но, то выполняется <оператор 2>.

2. Команда ветвления алгоритма на много направлений

Формат команды:

DO CASE CASE <условие 1>

• оператор>

CASE <условие 2>

• оператор>

[ OTHERWISE

• оператор >

... |

ENDCASE

Количество блоков CASE <условис N> не ограничено. При работе команды DO CASE последовательно проверяются условия CASE <условие N> и выполняются все блоки, условия которых истинны. Поэтому’ для однозначной работы алгоритма необходимо, чтобы условия CASE <условие N> взаимно не перекрывались. Если все указанные условия ложны, то выполня­ется блок OTHFRWISE.

Варианты задания условий CASE <условис N>.

а. Точные условия.

Переменная условия точно равна какому-либо значению или точно не равна какому-либо значению

CASE Я ”= b или CASE а > b или C.ASE а < Ь

б. Диапазон значений.

Значение переменной условия задается диапазоном, включая границы диапазона.

CASE BETWEEN(ms, 01, 09)

в. Список значений.

Значение переменной условия задается списком. Элементы списка отделяются друг от друга запятой.

CASE INLIST(ms, ‘10’, ‘19’, ‘43’, ‘14’, ‘25*)

Для условия CASE <условие N> могут использоваться значе­ния любого типа, но надо следить за правильностью использова­ния типов данных в функциях.

7.8.3. Команда безусловного перехода

Формат команды:

СО | GOTO

(RECORD] <выр.М> | ТОР | ВОГТОМ [ IN <выр. \'2> | <псеадовим> ]

Команда переводит курсор внутри таблицы. Назначение оп­ций:

I RECORD ] <выр. Nl> — переводит курсор на указанную за­пись.

ТОР — переводит курсор на первую запись.

BOTTOM — переводит курсор на последнюю запись.

IN <выр. N2> | <псевдоним> — задает номер рабочей области или пседоним рабочей области, в которой находится нужная таб­лица. По умолчанию имеется в виду активная таблица.

2. Примеры

Пример 1. Простейшие команды вывода

? 15 * (10 + 10) && выводит в следующую

• строку экрана результат

• вычисления выражения 300

? 'Привет' PICTURE '@!' && выводит в следующую " строку экрана значение

• 'Привет' строчными буквами.

?? 'Visual FoxPro' && выводит в текущую строку

• экрана значение

• 'Visual FoxPro'

? DATE( ) FONT 'Courier',16 STYLE 'BI'

• выводит в следующую

• строку экрана текущую

• текущую дату шрифтом *

• типа Courier, размером 16

• пунктов и жирным курсивом.

? 'Использование функций для вывода значений '+;

'в несколько строк' FUNCTION 'V10' выводит в && следующую строку экрана значение && 'Использование функций для вывода значений в && несколько строк', причем вывод организован в

&& несколько строк и длина каждой строки не более

&& 10 символов и слова переносятся целиком.

Пример 2. Очистка экрана.

@ 5,0 CLEAR && очищает прямоугольную область

• экрана с координатами

• левого верхнего угла 5, 0 и

• координатами нижнего правого

• угла экрана.

@ 15,5 CLEAR ТО 20,40 && очищает прямоугольную

* область экрана с

&& координатами левого верхнего угла 15, 5 и && координатами правого нижнего угла 20, 40.

CLEAR && очищает весь экран.

Пример 3. Использование универсальной команды ввода- вывода для вывода значения в указанном формате. Ключ «С* означает КРЕДИТ

CLEAR

@ 2, 10 SAY 52.75 FUNCTION 'С$$'

Если число положительное, то на экране добавляется признак кредита CR. Если число отрицательное, то оно выводится на эк­ран в денежном формате без признака кредита.

Пример 4. Использование универсальной команды вво­да-вывода для задания шрифта при выводе значения выражения GET <выр.1>

@ 5, 2 SAY 'Пример задания шрифта' FONT 'Courier', 16 @7,2 SAY 'Пример задания стиля {начертания шрифта}' STYLE 'BI'

Пример 5. Использование универсальной команды ввода- вывода для задания контроля правильности вводимых значений в переменную. Значения должны быть в диапазоне от «Сумка* до «Якорь», причем первая буква обязательно прописная (боль­шая).

CLEAR

STORE " "ТО mmm

@2,2 SAY 2*(5+5) FONT 'Times New Roman', 12 STYLE '31';

GET mmm SIZE 1,7 VALID (mrrm>'' Сумка'' .AND. шик "Якорь") ;

ERROR "Введенное значение вышло за допустимый диапа­зон' '

READ

Введите значение «Вишня» и нажмите клавишу Enter. На эк­ран будет выведено сообщение об ошибке. Введите значение, со­ответствующее установленному диапазону допустимых значе­ний. Например — «Цапля*. Нажмите клавишу Enter. Программа закончит свою работу.

Аналогичного результата можно добиться, используя опцию RANGE.

CLEAR

STORE " "ТО гшп

9 2,2 SAY 2* (5 +5) PONT 'Times New Reman',12 STYLE 'BI' ; GET rnrm SIZE 1,6 RANGE 'Сумка', 'Якорь' MESSAGE "Введите; значение''

READ

Опция MESSAGE выводит в строку состояния сообщение «Введите значение».

Пример 6. Использование универсальной команды ввода- вывода дтя создания модальных кнопок Ok и Cancel с помощью кодов упраатения выводом.

9 15, 2 && Задает место на экране

• - 15 строка и 2 столбец.

SIZE 2,8 && задает размер кнопок

• 2 - высота, 8 — ширина.

STORE 1 ТО mmm

© 15, 2 GET mmm FUNCTION ** OK;Cancel' SIZE 2, 8 READ

Пример 7. Создание тех же кнопок, что и в примере 6, но описание кнопок выполнено с использованием перемен­ной-

STORE 1 ТО mmm

STORE '* OK;Cancel' TO ttt

9 15,2 GET mmm FUNCTION ttt SIZE 2, 8

READ

Пример 8. Создание тех же кнопок, что и в примере 6, с ис­пользованием шаблона.

STORE 1 ТО mmm

@2,2 GET mmm PICTURE '@* OK;Cancel' SIZE 1. 8 READ

STORE 1 TO mmm

@ 20,2 GET mmm PICTURE '8*' + ' OK;Cancel' SIZE 1, 8 READ

Пример 9. Одновременное использование шаблона и кода управления выводом.

CLEAR

STORE 1 ТО mmm

8 15,2 GET mmm FUNCTION '*';

PICTURE ' OK;Cancel' SIZE 3, 12 READ

CLEAR

8 2,2 GET nn FUNCTION '* OK;Cancel' DEFAULT 1;

SIZE 2, 10, 1

© 2,16 GET nn FUNCTION '* OK;CanceI' DEFAULT 1;

SIZE 2, 10, 2 READ

STORE 1 TO nn

8 2,2 GET nn FUNCTION '* \<OK;\<CANCEL;WDISABLED'; COLOR,,,,,W+/B,R/B,,GR+/B,W/B

READ

Пример 10. Использование универсальной команды ввода- вывода для вставки рисунка.

CLEAR

STORE 1 ТО mmm

® 15,2 SAY «Е:\M_DOC\Tiger.bmp* BITMAP SIZE 18,80;

CENTER ISOMETRIC

READ

Предполагается, что графический файл существует и хранит­ся в указанном месте.

Пр им ер И. Редактирование переменной, заданной уни­версальной командой ввода-вывода.

STORE 1 ТО mmm.

STORE SPACE(15) ТО varName CLEAR

@2,2 AY 'Введите название : ' GET varName @ 4, 2 GET nmm PICTURE '@*RV яблоки;Апельсины; Лкмочы;Груши,-Мандарины; Выход'; VALID GOREC( )

READ CYCLE OBJECT 6

PROCEDURE gorec DO CASE

CASE mmm = 1

varName = «Яблоки» CASE mmm = 2

varName = «Апельсины» CASE nmm = 3

varName = «Лимоны» CASE mmm = 4

varName = «Груши»

CASE mmm = 5

varName = «Мандарины» CASE mmm = 6 Cancel

ENDCASE

@ 2, 2 SAY 'Введите название : ' GET varName SIZE 1, 12 RETURN

С помощью кнопок радиогруппы вводится желаемое значе­ние. Для выхода из программы надо выбрать кнопку «Выход*. В этой программе использована внутренняя процедура gorec. Создание и работа с процедурами будут рассмотрены ниже.

.Пример 12. Команды для работы с одномерными масси­вами.

CLEAR

66 Открытие таблиц Fam

LOCATE FOR Fam.Key_fam *

SCATTER TO mas

? mas(l), mas(2)

12 66 Установка курсора

на 12 запись 66 Создание массива mas и помещение в него 12 записи 66 Вывод на экран

содержимого массива mas

GO

*

BOTTOM

SCATTER TO mas

? mas(l), mas(2) *

66 Установить курсор на последнюю запись 66 Создание массива mas и помещение в него последней записи

66 Вывод на экран содержимого массива mas

mas(1) = Key_fam + 1 *

mas(2) = «Некрасов»

ft

APPEND BLANK *

GATHER FROM mas * 66 Присвоение следующего порядкового номера 66 Значение следующей фамилии 66 Добавление пустой строки в конец таблицы Fam

66 Заполнение последней пустой строки таблицы Fam

BROWSE

Команда GATHER помещает значения элементов одно­мерного массива в текущую запись. Поэтому необходимо в ко­нец таблицы Fam добавить пустую строку командой APPEND BLANK (после добавления пустая запись автомати­чески становится текущей), а потом применить команду GATHER.

Пример 13. Команды для работы с двумерными массивами.

CLEAR

USE E:\PRIMER\Fam.dbf && Открытие таблицы Fam

DIMENSION Temp(3,2)

COPY NEXT 3 TO ARRAY Temp DISPLAY MEMORY LIKE Temp GOTO BOTTOM Temp(1,1) = Key_fam + 1

Temp(2,1) = Key_fam + 2

Temp(3,1) = Key_fam + 3

Temp(1,2) = «Есенин»

Temp(2,2) = «Блок»

Temp(3,2) = «Северянин»

APPEND FROM ARRAY Temp BRCWSE

Команда APPEND FROM ARRAY добавляет новые записи в конец табличного файла, поэтому нет необходимости принуди­тельно помещать в конец таблицы пустые записи. Однако дву­мерный массив-источник данных надо формировать заранее и следить за соответствием типов элементов массива типам соот­ветствующих полей таблицы.

Пример 14. Вывод на экран списка имен полей текущей таблицы.

CLOSE ALL

USE E:\PRIKER\Author.dbf IN 4 ALIAS aut && Открытие таблицы Author ms = AFIELDS(Massiv, 4)

&& Определение количества полей текущей && таблицы и занесение имен полей таблицы в && массив Massiv. Таблица находится в четвертой && рабочей области

CLEAR

FOR nCount = 1 ТО ms

БАЗЫ ДАННЫХ 2

Оглавление 4

От автора 6

Справочник команд, операторов и функций 9

... 114

... | 156

I 207

Литература 364

ENDFOR

В программе предусмотрен вывод на экран восьми характери­стик (из одиннадцати возможных) для каждого поля таблицы Author.

Пример 15. Поиск значения в массиве.

CLOSE ALL CLEAR

USE E:\PRIMER\Fam.dbf IN 5 ALIAS fan

&& Открытие таблицы Fam

SELE fam

COPY TO ARRAY Prom && Копирование в двумерный

• массив Pron первых 7

• строк из таблицы Fam

gnPos = ASCAN(Prom, 'Гоголь')

&& Поиск в таблице Fan

• значения 'Гоголь'

IF gnPos != 0

? 'Номер найденного элемента = ', gnPos

• && Вывод на экран порядкового

• номера найденного элемента ENDIF

NunRec = ASUBSCRIFT(Prom, gnPos, 1)

• Отределени номера строки,

• в которой находится

• найденное значение.

? ''Номер записи = '', NumRec

DISPLAY RECORD NumRec && Вывод строки с найденным- {

• значением на экран.

Пример 16. Вставка элемента массива.

CLOSE ALL CLEAR

USE E:\PRIMER\Fam.dtof && Открытие таблицы Fam DIKENS-ON mmm(10,2), CCt(10,2)

COPY TO ARRAY mmm

FOR i = 1 TO 10 && С здание копии массива rrarm

ttt(i, 1) = mmm(i, 1) ttt(i, 2) = mmm(i, 2)

EKDFOR

= AINS( mmm, 5,1) && Вставка пустой строки

• выше пятой строки массиза

FOR i = 1 to 10 && Вывод на экран массива

• mmm и массива ttt

? ttt (i, 1) AT 1, ttt (i, 2) AT 12, mmm{i, 1)

AT 30, mmm(i, 2) AT 45 ENOFOR

• Массив ttt содержит записи до добавления пустой

• строки с номером пять.

Пример 17. Удаление элемента массива.

CLOSE ALL CLEAR

USE E:\PRlMER\Fam.dbf && Открытие таблицы Fart

DIMENSION mmm(10,2), ttt(10,2)

COPY TO ARRAY mmm

FOR i = 1 ТО 10 ttt(i, 1) = mmm(i, 1) tct (i, 2) = mmm(i, 2) ENDFOR

= ADEL( mnm, 5, 1)

FOR i = 1 to 10 *

? ttt (i, 1) AT 1, ttt(i, 2) AT 12, mmm(i, 1);

AT 30, 2) AT 45

ENDFOR

Пример 18. Просмотр оглаатения каталога.

SET DEFAULT TO E:\Primer *

nn = ADIR(mmm, '¹.dbf')

*

*

*

CLEAR

FOR i = 1 TO ПП *

? mmm(i, 1)

ENDFOR && Задание полного имени каталога && Создание массива mmm, определение типов файлов '*.dbf' и их количества nn

&& Вывод на экран имен отобранных файлов

Пример 19. Копирование элементов из одного массива в другой массив.

&& Открытие таблицы Fam

&£t Описание двух двумерных массивов mmm и ttt && Копирование записей из таблицы Fam в массив mmm

USE E:\Prinier\Fam.dbf CLEAR

COPY

*

TO ARRAY mmm

= ACOPY(nmm, tu, 5, 6, 4 )

&& Копирование из массива mmm в массив ttt DISPLAY MEMORY LIKE ttt && Вывод на экран массива ttt

В массив mmm копируются первые десять записей из табли­цы Fam Функция ACOPY читает из массива mmm, начиная с пятого элемента (третья строка первый столбец), шесть элемен­тов (третью, четвертую и пятую строки полностью) и помещает их в массив ttt, начиная с четвертого элемента (с третьей строки первого столбца).

Пример 20. Сортировка элементов двумерного массива mmm.

CLOSE ALL

USE E:\?rimer\Fam.dbf && Открытие таблицы Fam CLEAR

DIMS mmm(15,2) && Описание двумерного массива

COPY TO ARRAY mmm FIELDS Key_fam, Name_fam

&& Отсортировать в массиве mmm по значениям второго столбца первые восемь строк в порядке убывания

&& вывод на экран пустой

&& Вывод на экран отсорти­рованного массива mmm

FOR i=l TO 15 &&

*

*

? mmm(i.1), mmm(i,2) ZNDFOR

= ASORT(mirm, 2, 8, 1)

*

*

*

Вывод на экран не отсортированного массива mmm

Пример 21. Сохраните переменных в памяти компьютера. CLEAR А41 = 50 А42 = 'Hello'

В34 = 48 В55 = 'Москва'

SAVE ТО temp && сохраняет в файле с именем

• temp все переменные SAVE ТО abc ALL LIKE а* && сохраняет в файле с именем

• abc все переменные,

• имена которых начин-ются

• с бухвы а

SAVE ТО ttt ALL EXCEPT а* && сохраняет в файле с

• именем ttt все временные,

• имена которых начинаются

• с любой буквы, кроме а CLEAR MEMORY

Пр и м е р 22. Восстановление переменных в памяти компь­ютера.

CLEAR

g3 = '25/01/2000'

RESTORE FROM temp ADDITIVE DISPLAY MEMORY LIKE a*

DISPLAY MEMORY LIKE b*

DISPLAY MEMORY LIKE g*

Восстанатжвает в оперативной памяти переменные, с имена­ми, отличными от имеющихся в оперативном памяти из файла temp, с сохранением в оперативной памяти уже имеющихся пе­ременных с совпадающими именами.

Пример 23. Удаление переменных из оперативной памяти. CLEAR А41 = 50 А42 = 'Hello'

В34 = 48 В55 = 'Москва'

2. Контрольные вопросы

1. Как задать продолжение команды на другой строке?

2. Как задать комментарий в тексте программы?

3. По каким правилам задаются имена переменных?

4. Как определяется тип переменной?

5. Какими командами описываются массивы?

6. Как определяется тип элементов массива?

7. Укажите два способа присвоения значений переменным и элемен­там массива

8. Укажите варианты способов хранения значений переменных и на­пишите команду для сохранения переменных.

9. Напишите команду по восстановлению ранее сохраненных значе­ний переменных.

10. Укажите два варианта восстановления значений переменных.

11. Укажите варианты вывода значений переменных на экран.

12. Как удалить переменные из оперативной памяти?

13. Какие команды работают с одномерными массивами, а какие ко­манды работают с двумерными массивами?

14. Укажите особенности работы команды SCATTER.

15. Укажите особенности работы команды GATHER

16. Укажите особенности работы команды COPY ТО ARRAY.

17. Укажите особенности работы команды APPEND FROM ARRAY.

18. Укажите назначение и особенности работы команд ?и??.

19. Расскажите о назначении и особенностях работы универсальной ко­манды ввода-вывода.

20. Укажите два способа обращения к элементам двумерного массива и напишите функции для пересчета координат элемента массива.

21. Расскажите о вариантах использования функции копирования эле­ментов массива.

22. Что значит сортировать элементы одномерного и двумерного мас­сивов?

23. Какая функция выполняет сортировку элементов одномерного мас­сива и элементов двумерного массива?

24. Сравните принцип работы функции сортировки элементов массива и команды сортировки табличного файла.

25. Расскажите об особенностях функции добаатения новых элементов в одномерный массив и в двумерный массив.

26. Расскажите об особенностях функции удаления элементов одно­мерного массива и элементов двумерного массива.

27. Как получить сведения о структуре таблицы (и вывести их на экран)?

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

Световое меню — это набор пунктов (элементов) меню, один из которых является активным, то есть выделен цветом. Выбор пункта меню осуществляется либо щелчком мыши на пункте ме­ню, либо с помощью клавиш-стрелок курсор устанавливается на нужный пункт меню и нажимается клавиша Enter. Отказ от выбора пункта мешо — нажатие клавиши Esc.

Вызванное световое меню накладывается, как правило, по­верх прежнего изображения на экране. После удаления меню с экрана происходит автоматическое восстановление первона­чального вида экрана. При работе с меню допускается использо­вание клавишных команд, дублирующих выбор пункта мешо. Такие клавишные команды называются «горячими* клавишами. Если меню многоуровневое (три и более уровней), то использо­вание «горячих» клавши становится эффективным средством работы с меню.

При работе прикладных программ, содержащих меню, на эк­ран могут выводиться системные сообщения. Текст системных сообщений накладывается на элементы меню и впоследствии не удаляется. Для запрета вывода на экран системных сообщений используется команда SET TALK OFT.

По умолчанию системные сообщения выводятся на экран, то есть установлена команда SET TALK ON.

При работе со световым меню можно задать режим, когда при нажатии клавиши с первой буквой имени пункта меню этот пункт (команда) меню становится активным. Для задания этого режима используется команда SET CONFIRM OFF.

Бели устаноилена команда SETT CONFIRM ON, то после нажатия клавиши-буквы дополнительно надо нажать либо кла­вишу Enter, либо клавишу SpaccBar.

При работе конкретного приложения в разные моменты вре­мени некоторые пункты меню могут быть не доступны для выбо­ра и на экране выделены в полтона (бледно). Для того чтобы сде­лать пункт меню недоступным для выбора, надо перед именем пункта установить символ Д*. В вертикальных (POPUP) меню иногда необходимо одну группу пунктов отделить разделительной чертой от других пунктов меню, причем курсор на разделитель­ной черте не фиксируется. Для этих целей вместо имени пункта меню надо указать сочетание двух символов «\-*.

В FoxPro предусмотрены две технологии построения меню: FOX-меню и dBASE-мсню.

Меню типа FOX активны только во время работы программы и являются частью про!раммы. При выборе пункта такие меню вырабатывают числовой код, который запоминается и анализи­руется с последующей выработкой реакции на выбор пункта ме­ню. Как правило, анализ выбора пользователя осуществляется с помощью оператора DO CASE... ENDCASE. Из меню этого типа можно сделать единственный выбор. Чтобы организовать много­кратный выбор из меню, надо описание меню поместить внутрь цикла.

Меню типа dBASE после своего описания остается в опера­тивной памяти резидентно и может многократно вызываться на экран и удаляться с экрана. Меню может вызываться не только из конкретного приложения, но и из окна Command даже в том случае, если закрыта база данных и программный файл закончил свою работу. Для удаления меню из оперативной памяти предус­мотрены специальные команды (см. п.п. 8.2.1.7—8.2.1.11). При своей работе меню вырабатывает не только числовые коды, кото­рые фиксируют выбор пользователя, но и непосредственно вы­зывает процедуры и команды на выполнение. В качестве пунктов меню здесь можно использовать имена файлов и структуру базы Данных, а также организовать множественный выбор пунктов меню.

1. МЕНЮ ТИПА FOX

Меню nma FOX существует в трех вариантах. Максимальное количество пунктов меню — 128.

1. Меню произвольного типа. LIGHTBAR-меню

Меню этого типа помешается в оперативную память и выводится на экран для работы одной командой. Для создания меню пре­дусмотрены следующие команды.

1. Команда описания пункта меню

@ У.Х PROMPT <выр.С1> [MESSAGE <выр.С2>]

Команда выводит в позицию Y, X экрана строку меню <выр.С1>. Опция MESSAGE предназначена для вывода в стро­ку состояния (или заранее указанную строку) дополнительное со­общение <выр.С2>. Это сообщение выводится в момент разме­щения курсора на пункте меню. Если дополнительное сообщение надо вывести в определенную строку экрана, то перед этой командой надо указать команду SET MESSAGE ..., формат которой описан ниже. Само меню состоит из набора команд @ Y,X PROMPT ....количество которых не более 128.Таккакко- манды не связаны между собой, то пункты меню будут распола­гаться на экране произвольным образом (положение каждого пун­кта определяется координатами Y и X). Переход от одного пунк­та меню к другому осуществляется с помощью кланиш-стрелок. Порялок обхода определяется порядком описания пунктов меню. Активный пункт меню выделяется либо цветом, либо яркостью.

2. Команда фиксации выбора пользователя

\1ENU ТО <переменная>

Команда запоминает в <переменной> порядковый номер (по описанию в тексте программы) выбранного пункта меню. При нажатии клавиши Fsc (отказ от выбора пункта меню) в <пере- менную> заносится 0 (ноль). Команда SET MESSAGE ТО [ <выр.1Ч> [ LEFT | RIGHT | CENTER ] ] предназначена для указания номера строки экрана <Bbip.N>, в которую выводится дополнительное сообщение, и для указания места вывода внутри строки:

LEFT — дополнительное сообщение форматируется по левому краю строки.

RIGHT — дополнительное сообщение форматируется по право­му краю строки.

CENTER — дополнительное сообщение форматируется по цен­тру строки.

При использовании команды SET MESSAGE ТО ... в ко­манде @ Y,X PROMPT ... обязательно должна быть указана оп­ция MESSAGE.

Команда SET MESSAGE ТО без параметров выводит допол­нительное сообщение в последнюю строку экрана. Эта команда работает как в FOX-меню, так и в dBASE-меню.

2. Вертикальное POPUP-меню

Для создания этого меню предусмотрены команды как для опи­сания меню, так и для предъявления меню на экран. При необхо­димости линейка прокрутки подключается автоматически.

1. Команда создания и отображения меню на экране

@ Y,X MENU <массив>, <выр.М> [, <Bbip.N2> ] (TITLE dup.O (

Назначение опций:

<массив> — имя одномерного массива. Массив должен быть за­ранее описан. Элементы массива содержат названия пунктов ме­ню. Максимальная длина названия пункта меню — 50 символов. <Bbip.Nl> — число пунктов меню (не более 128).

<Bbip.N2> — число одновременно предъявляемых на экран пун­ктов меню. По умолчанию отображается 17 пунктов меню.

TITLE <выр.О — заголовок меню, который отображается в верхней части меню.

2. Команда фиксации выбора пользователя

READ MENU ТО <персменная> [ SAVE J Назначение опций:

<переменная> — имя переменной целого типа, в которой фикси­руется номер выбранного пользователем пункта меню. Если до подачи команды <персменной> бьпо присвоено значение, то после предъявления меню на экран указанный пункт меню будет активным (выделенным). В противном случае выделен будет первый пункт меню.

SAVE — сохраняет на экране образ меню после выхода из него. В этом случае удалить с экрана образ меню можно только коман­дой CLEAR

Далее в программе производится анализ <переменной> в операторе DO CASE... ENDCASE.

3. Двухуровневое PULLDOWN-меню

Двухуровневое меню состоит из горизонтального и вертикально­го меню. Используя эти же команды, можно создать только гори­зонтальное меню Здесь также предусмотрены команды для создания меню и команды для использования меню.

1. Команда определения горизонтального меню

MENU BAR <масснв>, <Bbip.N>

Определяет и выводит на экран горизонтальное меню. Назна­чение опций:

<массив> — имя двумерного массива. Размерность массива (п, 2). В первом столбце указываются названия пунктов меню, а во втором — комментарии к пунктам меню. Комментарии выво­дятся либо в последнюю строку экрана, либо в строку, указанную командой SET MESSAGE ТО ... Комментарии описывать не обязательно, но массив должен быть обязательно двумерным и если комментарии отсутствуют, то значения второго столбца — пустые строки.

<выр.1Ч> — обшее число пунктов меню.

В горизонтальном меню на экран выводится столько пунктов меню, сколько уместится на экране. Для предъявления на экран остальных пунктов меню надо несколько раз нажать клавишу «стрелка вправо».

2. Команда описания подчиненного меню

MENU <Bwp.Nl>, <маесив>, <ewp.N2> [, <swp.N3> ]

Команда определяет вспомогательное меню и его «привязку* к соответствующему пункту главного меню. Назначение опций:

<Bbip.Nl> — определяет номер пункта главного меню, который

будет вызывать описываемое вспомогательное меню.

<Bbip.N2> — число пунктов вспомогательного меню. Это число в

общем случае может не соответствовать размерности <массива>.

<выр.\3> — число одновременно показываемых пунктов меню. Если <Bbip.N3> меньше <Bbip.N2>, то автоматически подклю­чается линейка прокрутки.

<массив> — имя одномерного массива, элементы которого со­держат названия пунктов вспомогательного меню.

3. Команда фиксации выбора пользователя

READ MENU BAR ТО <nep.l>, <пер.2> [SAVE]

Назначение опций:

<пер.1> — целочисленная переменная, в которую записывается номер выбранного пункта главного меню.

<пер.2> — целочисленная переменная, в которую записывается номер выбранного пункта вспомогательного меню.

SAVE — сохраняет на экране образ меню, после выхода из него. В этом случае удалить с экрана образ меню можно только коман­дой CLEAR.

При нажатии клавиши Esc обе переменные <пер.1> и <пер.2> получают значение 0 (ноль).

При создании двухуровневого FOX-меню команды следует располагать в следующем порядке:

а) Описываются и заполняются данными массивы главного и всех вспомогательных меню.

б) Описывается главное меню командой MENU BAR...

в) Описываются все вспомогательные меню с помощью комавд MENU...

г) В нужных местах программы указываются команды READ MENU BAR ... для активации всей конструкции меню.

д) После каждой команды READ MENU BAR ... пишется об­работчик выбора пункта меню, как правило, с помощью опе­ратора DO CASE ... ENDCASE.

2. МЕНЮ ТИПА dBASE

При создании и эксплуатации данного меню должны быть пре­дусмотрены следующие элементы:

• определение меню — описывается содержание меню, кла­виши быстрого доступа, форма и реакции меню. Меню типа dBASE определяется один раз;

• активация меню — команды (клавиши быстрого доступа) активации выводят меню на экран и делают его чувстви­тельным к выбору пользователя;

• деактивация меню — меню удаляется с экрана, но остается в оперативной памяти, и впоследствии может быть предъяв­лено на экран;

• удаление меню — меню удаляется из оперативной памяти. Для нового использования меню его надо заново опреде­лять.

Меню типа dBASE бывает двух видов: вертикальное (POPUP) и горизонтальное (BAR). Эти два вида меню могут использоваться как совместно, так и по отдельности. Допускает­ся создание иерархических меню любой сложности.

1. Вертикальное POPUP-меню

Меню предъявляется на экран в указанном месте в виде прямо­угольной области заданного размера. В качестве пунктов меню можно задать либо имена файлов из указанного каталога, либо структуру табличного файла, либо произвольные строки.

1. Команда определения меню

DEFINE POPLP <имяменю>

[FROM <Y1,XI> J I ТО <Y2,X2>]

[IN [WINDOW] <нмнокиа> | IN SCREEN]

[FOOTER <выр.С1>]

[KEY <имяклавишн>]

[ MARGIN ]

[ MARK <выр.С2> ]

[ MESSAGE <выр.СЗ> ]

[MOVER]

[ MULTI ]

[PROMPT FIELD <выр.>] | [PROMPT FILES LIKE <шаблон>]]

| [ PROMPT STRUCTURE 1

[SCROLL] [ SHADOW ]

[ TITLE <выр.С4> 1

[ COLOR <сннсок пар цветов> | СО! OR SCHEME <ewp.N> J

Назначение опций:

<нмя меню> — содержит имя создаваемого меню. Программист задает имя меню буквами латинского апфавита.

FROM <Y1,X1> ТО <Y2, Х2> — определяет положение и раз­мер меню на экране. <Y1,X1> задает координаты левого верхне­го угла меню ( номер строки и номер столбца соответственно). <Y2, Х2> задаст координаты правого нижнего угла меню (номер строки и номер столбца соответственно). Если <Y2, Х2> не ука­заны. то ширина меню определяется размером максимального имени пункта меню, а длина меню — либо количеством пунктов меню, либо — весь экран. Если <YL, XI> не указаны, то пра­вый верхний угол меню помещается либо в левый верхний угол экрана (координаты 0, 0), либо под соответствующим пунктом вызвавшего (старшего) меню.

IN [WINDOW] <нмяокна> — определяет имя окна, внутри ко­торого будет открыто создаваемое меню.

IN SCREEN — создаваемое меню будет открыто на экране. FOOTER <выр.С1> — название (заголовок) меню пишется в центре нижней области меню.

KEY <нмя клавиши> — указывается имя клавиши, которая будет вызывать меню.

MARGIN — задает по одному пробелу слева и справа от имени пункта меню В этих пробелах, в случае необходимости, будут располагаться специальные символы: слева — символ множест­венного отбора пунктов меню, справа — символ наличия подчи­ненного (младшего) меню.

MARK <выр.С2> — устанавливает тип (вид) символа множест­венного отбора пунктов меню. По умолчанию принят символ ♦, код которого по таблице ASCII — 4.

MESSAGE <выр.СЗ> — дополнительное сообщение (коммента­рий), которое выводится либо в последнюю строку экрана, либо в строку, которая задана командой SET MESSAGE.

MOVER — предоставляет возможность перемешать на экране пункты меню внутри области меню с помощью мыши.

MULTI — устанавливает режим множественного отбора пунктов меню. Множественный отбор выполняется при зажатой клавише Shift. Этот режим не работает, если используется одна из опций PROMPT FIELDS | PROMPT FILES | PROMPT STRUCTURE. PROMPT FIELD <выр> — пунктами меню будут значения поля (или полей), указанного в <выр.>. Если в <выр> надоуказатьнс- сколько полей, то их имена перечисляются через знак «+» (плюс). Имена полей можно указывать как из активной таблицы, гак и из пассивных таблиц. Если значения полей имеют разный тип, то в <выр.> допускается использование функций, с целью приведения значений полей к одному типу, как правило, символьному. При использовании этой опции нет возможности организовать множе- ствсшшй отбор пунктов меню. Если необходимо организовать множественный отбор, то процедуру множественного отбора надо программировать отдельно (см. примеры в конце раздела).

PROMPT FILES LIKE <шаблон> — задает в качестве пунктов меню имена файлов из текущего каталога. С помощью <шаблона> можно ограничить количество имен файлов. PROMPT STRUCTURE — задаст в качестве пунктов меню структуру активной таблицы.

SCROLL — автоматически подключает полосу прокрутки, если пункты меню не умещаются в отведенной области.

SHADOW — обрамляет область меню «тенью».

TITLE <выр.С4> — заголовок меню пишется в центре верхней области меню.

COLOR <список пар пветов> | COLOR SCHEME <выр.М> — устанавливает цвет элементов меню либо указанием конкретной пары цветов (цвет фона и цвет букв), либо указывается номер схемы. По умолчанию установлена схема 2.

2. Команда описания пункта меню

DEFINE BAR <eup.Nl> OF <имя POPUP мсию> PROMPT <»ыр.С1> [ KEY <имя клавиши> [, <выр.С2> ] ]

[ BEFORF <Bup.N2> | AFTER <Bup.N3> ]

[ MARK <выр.СЗ> ]

[MESSAGE <выр.С4>]

[ SKIP [ FOR <Bup.L> ] 1

[ COLOR <список пар цвстов> | COLOR SCHEME <Bbip.N4> ]

Команда задает название пункту меню, закрепляет за пунктом меню клавишу быстрого выбора и управляет активностью пунк­та меню. Назначение опций:

<выр.1\1> — задаст номер описываемого пункта меню.

<имя POPUP меию> — определяет, какому меню принадлежит описываемый пункт.

<выр.С1> — определяет название описываемого пункта меню.

KEY <иля клавиши>, <выр.С2> — назначает клавишу быстрого выбора пункта меню и комментарий ( <выр.С2> ) к пункту меню.

BEFORE <Bbip.N2> — назначает порядок вывода на экран пун­ктов меню по возрастанию их номеров, начиная с номера <BUp.N2>.

AFTER <Bbip.N3> — назначает порядок вывода на экран пунктов меню по убыванию их номеров, начиная с номера <Bbip.N3>. MARK <выр.СЗ> — устанавливает тип (вид) символа множест­венного отбора пункта меню. По умолчанию принят символ ♦, код которого по таблице ASCII — 4. Если символ множествен­ного отбора определен в команде DEFINE РО PUP, то здесь про­изводится переопределение символа множественного отбора.

MESSAGE <выр.С4> —дополнительное сообщение (коммента­рий), которое выводится либо в последнюю строку экрана, либо в строку, которая задана командой SETT MESSAGE.

SKIP FOR <выр.Е> — делает пункт меню недоступным для вы­бора пользователя. Если указан параметр FOR <выр.1>, то пункт мешо будет доступен для выбора при истинности логиче­ского условия <выр.Ь>.

COLOR <список пар цветов> | COLOR SCHEME <выр.М> —

устанавливает цвет элементов меню либо указанием конкретной пары цветов (цвет фона и цвет букв), либо указанием номера схе­мы. По умолчанию установлена схема 2.

3. Команда определения реакции на вызов меню ON SELECTION POPUP <нмя POPUP меню> | ALL [ <комавда> I

к

определена. Если указана опция ALL, то указанная [ <коман- да> | выполняется для всех POPUP-меню. В параметре [ <команда> ] может быть указана любая команда, но чаще всего используется команда DO, которая вызывает на выполнение процедуру, созданную пользователем. Команда, указанная в параметре [ <команла> ], является общей для всего POPUP-ме­ню. По окончании выполнения процедуры (или команды) управление опять передается POPUP-меню, при условии, что внутри процедуры не было команды DEACTIVATE POPUP. Далее можно выбрать любой пункт меню.

4. Команда определения реакции на вызов пункта меню

ON SELECTION BAR <Bwp.N> OF <нчя РОРиР-меню> [<команда>]

При выборе пункта меню с номером <выр.1Ч> изменю <имя POPUP мсию>, выполняется команда, определенная в [<ко- манда>] . Команда ON SELECTION BAR ... пишется после команды DEFINE POPUP ..., но до команды ACTIVATE POPUP ... Если команда ON SELECTION BAR используется без параметра [<комакда>], то отменяется ранее сделанное за­крепление.

5. Комацда закрепления подчиненного (младшего) меню

ON BAR <выр.1Ч> OF <имя РОР1/Р-менк>>

[ ACTIVATE POPUP <имя POPUP меню 2> |

ACTIVATE MENU <имя BAR меию> ]

Команда назначает вызов подчиненного (младшего) меню, закрепленного за пунктом <Bbip.N> меню <имя POPUP- меню> . Подчиненное (младшее) меню может быть как верти­кальным ACTIVATE POPUP <имя POPUP-меню 2>, так и гори­зонтальным (ACTIVATE MENU <имя ВАИ-меню>).

Использование команды ON BAR без опции отменяет за­крепление подчиненного меню. Если за пунктом текущего меню закреплен вызов подчиненного меню, то справа от названия пун­кта текущего меню автоматически устанавливается символ ► , место для которого надо предусмотреть с помощью опции MAR­GIN команды DEFINE POPUP ...

6. Команда активации меню

ACTIVATE POPUP <имя POPUP мсшо>[АТ Y,X)

[ BAR <выр.1Ч> ]

[NOWAIT]

[REST]

Команда предъяшшет меню на экран и делает его доступным для выбора пользователя. Назначение опций :

AT Y, X — переопределяет координаты экрана (окна), куда по­мешается первый верхний угол меню. Эта опция имеет приори­тет перед определением положения меню в команде DEFINE POPUP ...

BAR <BbJp.N> — определяет номер текущего (активного) пунк­та меню, после вывода всего меню на экран.

NOWAIT — разрешает дальнейшее выполнение программы, не дожидаясь закрытия меню.

REST — определяет текущим пунктом меню текущую строку активной таблицы. По умолчанию это первая строка активной таблицы. Эта опция имеет смысл только в том случае, если в команде DEFINE POPUP указана опция PROMPT FIELD.

Для этих же целей предусмотрена и вторая команда:

SHOW POPUP <список имен POPUP Meiuo>]|ALL [SAVE]

Команда предъявляет на экран либо меню указанные в <спи- скс имен РОРиР-мсню>, либо все меню (ALL ) Если указана опция SAVE, то после закрытия меню их образ остается на экране.

7. Команда деактивации меню

DEACTIVATE POPUP

Команда удаляет меню с экрана, но сохраняет его в оператив­ной памяти. Этот же результат получается при нажатии клавиши Esc или при переходе к другому POPUP-меню.

В любом случае управление передается следующей команде по ходу программы.

Если обработчиком выбранного пункта меню является спе­циальная процедура, то последней выполняемой командой мо­жет быть:

• последняя команда процедуры;

• команда RETURN;

• команда DEACTIVATE POPUP.

Если вместо выбора пункта меню нажата клавиша Esc, то об­ращение к процедуре не производится.

8. Удаление всех POPUP-меню

CLEAR POPUPS

Команда удаляет с экрана и из оперативной памяти все POPUP-меню.

9. Удаление указанных POPUP-меню

RELEASE POPUPS [Cciihcok имен POPUP мсню> [ EXTENDED J]

Команда удаляет с экрана и из оперативной памяти меню, пе­речисленные в <списке имен РОРиР-меню>. Если указана оп­ция EXTENDED, то удаляются не только все перечисленные ме­ню, но и все подчиненные меню. Если опция Ссписок имен РОРиР-меню> не указана, то удаляются все POPUP-меню.

10. Удаление пунш меню

RELEASE [ BAR Ссписок имен пунктов РОРиР-меню> | ALL ] OF С нм я РОРиР-меню>

Команда удаляет с экрана и из оперативной памяти либо ука­занные, либо все пункты POPUP-меню. Имя меню задается в опции OF Симя РОРиР-меню> .

11. Удаление меню с экрана

HIDE POPUP Ссписок имен POPUP-Memo> | .ALL [ SAVE J

Команда удаляет с экрана либо перечисленные в Сспискс имен РОРиР-меню>, либо все (ALL) POPUP-меню, но сохра­няет их в оперативной памяти. Эта команда идентична команде

DEACTIVATE POPUP. Опция SAVE сохраняет на экране образ меню, хотя само меню с экрана удалено.

12. Перемещение меню по экрану

MOVE POPUP <имя РОРиР-ченю> ТО Y, X | BY <выр.М1>, <Bbip.N2>

Команда перемешает активное POPUP-меню в новое поло­жение на экране. Новое положение задается либо абсолютными координатами ( Y, X ), либо относительными координатами (<выр.Ы1>, <Ubip.N2>).

Для работы с вертикальным POPUP-меню предусмотрены следующие функции:

BAR0 — фиксация выбора пункта меню. Функция возвращает номер выбранного пользователем пункта меню. Если никакое меню не выбрано (нажата клавиша Esc), то функция возвраща­ет 0 (ноль). Номера пунктам меню присваиваются в команде DEFINE BAR ...

POPUPO — получение имени активного POPUP-меню. Функ­ция возвращает строчными (большими) буквами имя активного POPUP-меню.

PROMPT0 — получение названия (имени) пункта меню. Функ­ция возвращает название (имя) пункта меню. Если в команде DEFINE POPUP была указана опция:

• PROMPT FIELD, то возвращается содержимое поля из те­кущей записи активной таблицы.

• PROMPT FILE, то возвращается полное имя файла;

• PROMPT STRUCTURE, то возвращается имя выбранного поля.

Если никакое меню не выбрано (нажата клавиша Esc), то воз­вращается пустая строка.

CNTBAR( [ <имя РОРиР-меню> ] ) — определение количества пунктов меню. Функция возвращает количество пунктов указан­ного POPUP-меню. Если параметр <имя РОРиР-меню> опущен, то функция возвращает количество пунктов активного меню.

MRKBAR(<iimh РОРиР-меню>, <выр. N>) — определение ак­тивного пункта меню. Функция возвращает логическое значение «истина» (.Т.), если пункт меню с номером <выр. N> является активным. В противном случае возвращается логическое значе­ние «ложь» (.F.). Функция полезна при организации множест­венного отбора пунктов меню.

2. Горизонтальное BAR-меню

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

Для создания горизонтального меню предусмотрены следую­щие команды.

1. Определение горизонтального меню

DEFINE \1ENU <имямсию>

( BAR [ AT LINE <выр.М> ] 1

JIN [WINDOW] <имяокна> | IN SCREEN]

[ KEY <имя клавнпт> [, <выр.С1>[ ]

[ MARK <выр.С2> ]

[MESSAGE <выр.СЗ>]

[ NOMARC IN ]

[ COLOR <снисок пар цвстов> | COLOR SCHEME <Bbip.N> 1

Назначение опций:

BAR — автоматически подключает полосу прокрутки, если стро­ка меню не умещается на экране.

AT LINE <выр.Ы1> — задает номер строки экрана дтя вывода го­ризонтального меню.

IN [WINDOW] <ичяокна> — размещает описываемое горизон­тальное меню в указанном окне.

IN SCREEN — размешает описываемое горизонтальное меню на экране.

KEY <имя клавиши> [, <выр.С1>] — назначает клавишу (или комбинацию клавиш) для активации горизонтального меню. При установке курсора на пункт меню выводится дополнитель­ное сообщение <выр. С1> в строку состояния.

МАКК <выр.С2> — определяет символ множественного отбора пунктов меню.

MESSAGE <выр.СЗ> — выводит комментарий к выбранному пункту меню либо в строку состояния, либо в заранее указанную с помощью команды SET MESSAGE ТО ... строку.

NOMARGIN — удаляет пробелы слева и справа от имени пунк­тов меню.

COLOR <список пар цветов> | COLOR SCHEME <Bbip.N> — определяет цвет фона и нвет букв пунктов меню.

2. Описание пунш горизонтального меню

DEFINE PAD <имя пункта меню> OF <имя BAR-4emo> PROMPT <выр.С1>

[ AT Y, X1

[ BEFORE <имя пункта мсшо> | AFTER <нмя пункта меыю> ]

[ KEY <имя клавишн> [, <выр. С2> ] ]

I MARK <выр.СЗ> 1 [ SKIP [ FOR <выр.1> ] |

[ MESSAGE <выр.С4> ]

[COLOR <список пар цветов> | COLOR SCHEME <eup.N> ]

Назначение опций:

<имя пункта меню> — определяет имя пункта меню. Имя пункта меню пишется буквами латинского алфавита. На имя пункта ме­ню производятся ссылки при программном обращении к пункту' меню.

<имя BAR меню> — имя горизонтального меню, которому при­надлежит описываемый пункт меню.

PROMPT <выр.С1> — определяет название пункта меню, кото­рое выводится на экран.

AT Y,X — переопределяет расположение пункта меню на экране.

BEFORE <имя пункта меню> — задает порядок обхода пунктов меню по возрастанию, начиная с пункта <ичя пункта мсню>.

AFTER <имя пункта меню> — задает порядок обхода пунктов ме­ню по убыванию, начиная с пункта <имя пункта меню>.

L

ке курсора на пункт меню выводится дополнительное сообщение <выр. С2> в строку состояния.

MARK <выр.СЗ> — переопределяет символ множественного от­бора пунктов меню.

SKIP [ FOR <выр.1> ] — делает пункт меню недоступным для выбора пользователя. Если указан параметр FOR <выр.Ь>, то пункт меню будет доступен для выбора при истинности логиче­ского условия <выр.Ь>.

MESSAGE <выр.С4> — выводит на экран дополнительное со­общение <выр.С4>.

COLOR <СШ1С0К пар цветов> | COLOR SCHEME <выр.ГМ> — определяет цвет фона и цвет букв пункта меню.

3. Команда активации меню

ACTIVATE MENU <имя BAR-MeuK>>

[ NOWAIT)

[ PAD <нчя пункта меню> ]

Команда выводит на экран горизонтальное меню и делает его доступным дтя выбора пользователя. Активация меню произво­дится в любом месте программы, но после описания меню. На­значение опций:

NOWAIT — разрешает выполнение программы, не дожидаясь закрытия меню.

PAD <имя пункта меню> — определяет, какой пункт меню будет активен, после предьяатения меню на экран, то есть задает вы­бор по умолчанию.

Для этих же целей предусмотрена и вторая команда:

SHOW MENU <списокимси BAR-Meino> |ALL [PAD <имя пункта меню> ]

[SAVE)

Назначение опций:

PAD <имя пункта меню> — определяет, какой пункт меню будет активен, после предъявления меню на экран, то есть задает вы­бор по умолчанию.

SAVE — сохраняет на экране образ меню после его закрытия.

4. Реакция на вызов горизонтального меню

ON SELECTION MENU <ичя BAR-Me»im> [ <комацца>}

Команда определяет реакцию на вызов меню, то есть ставит на выполнение общую для всего меню команду или процедуру, которая определена в параметре <команда>. Если параметр <команда> опущен, то отменяется ранее назначенная <комаша>.

5. Реакция на выбор пункта меню

ON SELECTION PAD <имя пункта чсню> ОЕ <имя BAR-mciuo> [ <команда> J

Команда определяет для конкретного пункта меню <имя путпета меню>, принадлежащего меню <имя ВАЛ-меню>. ко­манду или процедуру, которая определена в параметре <коман- да>, и ставит ее на выполнение.

6. Назначение подчиненного (младшего) меню

ON PAD <имя пункта меню> OF <имя ВАН-меню>

[ ACTIVATE POPUP <имя ГОРиР-меяю> |

ACTIVATE MENU <имя BAR-Meino> ]

Команда назначает путнету меню <имя пункта меню>, при­надлежащего меню OF <имя ВАК-меню>, подчиненное меню: либо вертикальное (ACTIVATE POPUP <и.мя РОРиР-мсню>), либо горизонтальное (ACTIVATE MENU <имя BAR-MeHio>).

Вместо этой команды можно использовать команду ON SELECTION PAD но при этом подчиненное меню будет выводиться на экран при выполнении двух условий: курсор дол­жен быть установлен на пункте горизонтального меню и должна быть нажата либо клавиша Enter, либо клавиша SpaceBar.

Для удаления связи по вызову подчиненного меню надо по­дать команду ON PAD без опций.

8.2.2J. Деактивация горизонтального меню

DEACTIVATE MENUS

Команда удаляет с экрана горизонтальное меню, но сохраня­ет его в оперативной памяти, и передает управление следующей команде программы.

8. Удаление всех горизонтальных меню CLEAR MENUS

Команда удаляет все меню с экрана и из оперативной памяти.

8. Удаление горизонтального меню

RELEASE MENUS I < список нмси BAR-mchio> [ EXTENDED J ]

Команда удаляет с экрана и из оперативной памяти перечис­ленные в <списке имен ВАЯ-меню> меню. Если указана опция EXTENDED, то одновременно удаляются и все подчиненные меню.

8.2.2.Э. Удаление пункта горизонтального меню

RELEASE PAD <имя пункта ченю> | ALL OF <нмя BAR-mcjdo>

Команда удаляет с экрана и из оперативной памяти указанный в <имени пункта мсню> пункт либо все (ALL) пункты меню из горизонтального меню, заданного в <имсни ВАИ-менюХ

10. Деактивация горизонтального меню

HIDE MENU <спнсок имев BAR-mchkj> | ALL [ SAVE J

Команда удаляет с экрана, но оставляет в оперативной памя­ти, либо указанные в <спискеимсн ВАК-меню> меню, либо все (ALL) меню. Если указана опция SAVE, то на экране остается образ удаленных меню.

Для работы с горизонтальным меню предусмотрены следую­щие функции.

MENUO — определение имена активного BAR-меню. Функция возвращает имя активного горизонтального меню.

PAD0 — определение имени выбранного пункта меню. Функция возвращает имя выбранного пользователем пункта меню. CNTPAD( <имя BAR-MeHK>>) — определение количества пунктов горизонтального меню. Функция возвращает количество пунк­тов указанного горизонтального меню.

MRKPAD( <имя BAR-Memo> , <ичя пупкта> ) — определение имени выбранного (активного) пункта меню. Функция возвра­щает логическое значение «истина» (.Т.), если пункт, указан­ный в <имя пункта> из меню <имя BAR-mchk>>, выбран поль­зователем (активный пункт). В противном случае возвращается логическое значение «ложь» (.F.).

При создании двухуровневого меню надо выполнить следую­щие действия:

а) Описать главное горизонтальное меню командой DEFINE MENU ...

б) Описать каждый пункт горизонтального меню командами DEFINE PAD ...

в) Описать реакции на выбор пунктов (командами ON SELEC­TION PAD ...) главного горизонтального меню, т. е. общую команду, выполняемую при выборе пункта меню.

г) Установить взаимосвязи между пунктами главного горизон­тального меню и вызываемыми подчиненными меню с по­мощью команд ON PAD ...

д) Далее описываются сами подчиненные меню: либо верти­кальные — с помощью команд: DEFINE POPUP ... и при необходимости с описанием каждого пункта меню, либо горизонтальные — с помощью команд DEFINE MENU ... с описанием каждого пункта меню.

е) Активация всей конструкции меню командой ACTIVATE MENU ... и деактивация меню командой DEACTIVATE MENU ...

ж) Анализ выбора пользователя производится с помощью функ­ций BAR(), POPUPO, PROMPTO, MENUO, PAD() и т. д.

Для создания динамических меню и управления отображени­ем меню на экране можно использовать следующие команды:

SET SKIP OF MENU <имя горизонтального меню> <выр.1>

SET SKIP OF PAD <нчя пункта горизонтального меню> OF <нчя горизонтального менк>> <выр.Ь>

SET SKIP OF POPUP <нмя контекстного (всплывающего)меню> <выр.1>

SET SKIP OF BAR <_Bup.N> | <имя пункта > OF <имя контекстного (всплывающего) мсюо> <выр.Ь>

Если логическое выражение <выр.Ц> истинно, то все меню (или пункт меню) доступно для выбора. В противном случае ме­ню не доступно. В последней команде пункт меню можно задать либо его порядковым номером <Bbip.N>, либо его именем <имя пункта >. Контекстным меню называется вертикальное POPUP- меню, которое предъявляется в любом месте экрана, как прави­ло, с помощью щелчка правой кнопкой мыши.

3. КЛАВИШНОЕ МЕНЮ

В отличие от светового меню, клавишное меню не имеет в своем составе каких-либо элементов управления расположенных на экране. Клавишное меню представляет собой набор одно- или двухклавишных команд. Иногда в последней строке экране раз­мещают подсказку о назначении команд клавишного меню. Юга- вишнос меню предназначено для реализации простых и часто повторяющихся операций по обработке данных.

Команды клавишного меню устанавливают связь между про­граммой и прерываниями от нажатия клавиш или для обработки возникших во время работы программы ошибок. Для создания клавишного меню используются следующие команды.

1. Фиксация возникновения ошибки во время выполнения программы

ON ERROR [<комаича>)

Команда осуществляет переход к выполнению <команды> при возникновении любой ошибки при выполнении программы.

2. Фиксация ошибок ввода

ON READERROR [<команда>]

При обнаружении ошибки ввода ставится на выполнение <команда>. Ошибка ввода возникает при вводе данных не соот­ветствующего типа, при нарушении границ допустимых значе­ний данных или при нарушении логических условий.

3. Фиксация нажатия клавиши Esc

ON ESCAPE [<комаыда>]

После нажатия клавиши Esc ставится на выполнение коман­да. указанная в параметре <команда>. Если ранее по тексту про­граммы была установлена команда SET ESCAPE OFF, то коман­да ON ESCAPE ... не выполняется.

4. Фиксация нажатия любой клавиши

ON KEY [<комаеда>]

После нажатия любой клавиши выполняется команда, указанная в параметре <команда>. Эта команда работает во всех режимах, кроме режима редактирования.

4. Фиксация нажатия клавиши с указанным кодом

ON KEY = <Bup.N> [<команда>]

После нажатия клавиши с кодом <выр.М> ставится на вы­полнение команда, указанная в параметре <команда>.

4. Фиксация нажатия клавиши с указанным именем

ON KEY [LABEL <имя клавнши>] [<команда>]

После нажатия клавиши с именем <имя клавиши> ставится на выполнение команда, указанная в параметре <командах Имя клавиши задается как строчными, так и прописными буквами. Клавиши, описанные этой командой, остаются активными во всех режимах работы. Нажатие такой клавиши в любой момент времени и в любом месте программы влечет за собой немедлен­ное выполнение предусмотренной в параметре <команда> про­цедуры или команды. Поэтому при выполнении длительных вычислительных операций необходимо предусмотреть отмену команд ON KEY LABEL ... и ON KEY = ... теми же команда­ми, но без опций или командой PUSH KEY CLEAR.

В командах ON KEY = и ON KEY LABEL ... можно указать почти все клавиши и комбинации клавиш. В программе допускает­ся использование только одной активной команды ON KEY = ..., в то время как активных команд ON KEY LABEL ...может быть несколько.

L

команда. Дня отмены действия любой О IS-команды надо подать ту же команду, но без опции.

Команды, фиксирующие возникновение ошибки, предназна­чены для подавления системных сообщений и выхода из аварий­ной ситуации с наименьшими потерями.

Чаше всего клавишные меню используются в режимах редак­тирования: BROWSE, EDIT, CHANGE и READ.

4. Сохранение клавишных назначений в оперативной памяти

PUSH KEY [CLEAR]

Команда сохраняет все сделаные назначения командами ON KEY LABEL ... в специальной области оперативной памяти, ко­торая называется стеком . Если указана опция CLEAR, то допол­нительно прекращается действие клавишнььч назначений в рабо­тающей программе. При последовательном вызове команды PUSH KEY ... в стек будет записано несколько отдельных групп клавишных назначений. Извлекаться из стека группы назначе­ний будут в обратном порядке.

4. Извлечение клавишных назначений из оперативной памяти

POP KEY TALL]

Команда извлекает из стека клавишные назначения в обрат­ном порядке и делает их активными. Если указана опиия ALL, то стек очищается, и отменяются все текущие назначения.

4. Изменение назначений функциональных клавиш

SET FUNCTION <Bbip.N> | <имя клавиши> ТО [ <выр.О ]

Команда закрепляет выражение символьного типа <выр.С> за функциональной клавишей. Клавишу задают либо порядко­вым номером <Bbip.N>, либо именем <имя клавиши>. Если символьное выражение <выр.С> содержит символ «;* (точка с запятой), то наличие этого символа соответствует нажатию кла­виши Enter. Символьное выражение <выр.С> может содержать несколько команд, раэдслсшшх символом «;*. Если в символь­ное выражение <выр.С> будет помешено число (символ «;* в этом случае игнорируется), то это число правильно определяется командой ввода @ GET В Симени клавиши> при задании име­ни клавиши допускается использование комбинании функцио­нальных клавиш со специальными клавишами Shift и Ctrl.

4. Отмена назначений функциональных клавиш

CLEAR MACROS

Команда отменяет все назначения как пользовательские, так и системные за функциональными клавишами.

4. Отмена назначения конкретной функциональной клавиши

SET FUNCTION <имя клавиши ТО

Для просмотра текущих клавишных назначений следует исполь­зовать команду DISPLAY | LIST STATUS или функцию ON().

При создании клавишных меню можно использовать также следующие клавишные функции.

4. Определение кода нажатой клавиши

INKEY( [ <Bbip.N> 1 [, <выр.О ])

Функция возвращает ASCII-код последней нажатой клави­ши. Если нажатия клавиши не было, то функция возвращает 0 (ноль). Параметр <выр.Ы> задает время ожидания в секундах до нажатия клавиши (или задание временного интервала — паузы). Если <выр.Ы>=0, то задано неограниченное время ожидания нажатия клавиши. Если параметр <выр.1М> не указан, то функ­ция выполняется немедленно. Параметр <выр.С> управляет включением/выключением курсора и фиксацией факта нажатия кнопки мыши. Параметр <выр.С> может содержать одну из констант или сочетание констант:

S — включить курсор;

Н — выключить курсор;

М — контроль нажатия кнопки мыши (при этом возвращает­ся значение 151).

4. Определение кода нажатой клавиши и направление кода в буфер

LASTKEYO

При нажатии клавиш их коды заносятся в буфер клавиатуры. При нажатии клавиш управления (Enter, Tab и т. д.) содержимое буфера переносится в оперативную память. Код последней нажа­той клавиши, кроме того, переносится в клавишную ячейку.

Функция LASTKEYO работает только с клавишной ячейкой.

Функция INKEY( <выр.1Ч>) ждет нажатия любой клавиши и, кроме того, возвращает код нажатой клавиши и переносит код нажатой клавиши в клавишную ячейку, не дожидаясь нажатия одной из клавиш управления, таким образом предоставляя воз­можность работать функции LASTKEYO- Функция INKEY0 без параметров работает только с буфером клавиатуры. Если буфер заполнен, то она читает левый символ, возвращает его код, поме­щает код прочитанного символа в клавишную ячейку и сдвигает содержимое буфера на один символ влево. Таким образом, мно­гократно подавая функцию INKEY(), можно очистить буфер клавиатуры. Заполняется буфер клавиатуры двумя способами, либо с помощью нажатия клавиш, либо с помощью функции KEYBOARD( <выр.О).

4. Фиксация выхода из режима редактирования

READKEY0

Функция возвращает код клавиши, с помощью которой был осуществлен выход из режима редактирования. Кроме того, воз­вращаемый код содержит информацию о том, было ли редакти­рование данных. Выйти из режима редактирования можно с по­мощью одной из клавиш, при этом возвращается один из вариан­тов кода клавиши:

Имя клавиши Данные не изменяюсь Данные изменялись

БАЗЫ ДАННЫХ 2

Оглавление 4

От автора 6

Справочник команд, операторов и функций 9

... 114

... | 156

I 207

Литература 364

4. Определение команды, закрепленной за клавишей

ON( <выр.С1> [, <выр.С2> ])

Функция возвращает команду, закрепленную за клавишей или ON-командой.

<выр.С1> — содержит ON-команду (например. ERROR, READERROR, KEY, и т. д.).

<выр.С2> — содержит имя клавиши. Используется только для команды ON KEY LABEL.

4. Проверка заполнения буфера клавиатуры

CHRSAW( ( <выр.М> ] )

Функция возвращает значение «истина» (.Т.), если в буфере клавиатуры имеется хотя бы один символ, содержимое буфера не изменяется. В противном случае возвращается значение «ложь*

(F).

4. Управление регистром букв

CAPSLOCK( [ <вы_Р.1> ])

Если <Bbip.L> истинно (.Т.), то устанавливается верхний ре­гистр. Если <вырХ> ложно (.F.), то устанавливается нижний регистр. Если <вырХ> отсутствует, то устанаативается текущее состояние регистра (управление с клавиатуры).

4. Ввод данных с клавиатуры

INPUT [<кыр.>] ТО <псрс.менная пачяти>

Команда производит ввод данных от пользователя (с клави­атуры) и сохраняет их в указаной <переменной памятиХ Тип <переменной памяти > определяется типом ввод имых данных.

4. Ввод данных символьного типа с клавиатуры

ACCEPT [<выр.>] ТО <переменная памятн>

Команда производит ввод данных символьного типа от поль­зователя (с клавиатуры) и сохраняет их в указаной <переменной памятиХ В отличие от команды INPUT, в команде ACCEPT ука­зание разделителя (кавычек или двойных кавычек) не предусмат­ривается.

4. Определение имени переменной (поля), куда вводятся данные

VARREAD0 или SYS(18)

Функции возвращают имя переменной или поля, куда с по­мощью команды READ вводятся данные, при условии что было выполнено прерывание от одной из клавишных команд. Имя пе­ременной возвращается прописными (большими) буквами. Имя поля возвращается строчными буквами, кроме первой буквы: первая буква — прописная.

4. Примеры

Пример 1. Произвольное меню типа LIGHBAR.

• LIGHTDFR-Mghso типа FOX CLEAR

@ 5,7 PROMPT 'Пуск' MESSAGE 'Запуск программы' MENU ТО peri

0 12.32 Prompt 'Выход' message 'Завершение программы' menu то peri

@ 8,50 PROMPT 'Поиск' MESSAGE 'Поиск данных'

MENU ТО peri

Пример 2. Использование LIGHBAR-меню.

Просмотреть таблицу Catalog и выводить на экран по одной записи. Начало просмотра организовать либо с начала таблицы, либо с конца таблицы, либо с произвольного места таблицы по номеру издания (книги).

CLOSE ALL && Закрытие всех файлов

SET DEFAULT ТО Е:\PRIMER && Задание рабочего

• каталога

USE Customer.dbf in 1 alias cus && Далее открытие

• двенадцати таблиц

CLEAR

PRIVATE OTV SSLE ct 1

SET RELATION TO Key_fam INTO

Fam, Key_im INTO; Im, Key_ot INTO Ot

DO WHILE .T.

CLEAR

@ 10,10 SAY 'Задайте режим просмотра'

CASE 0TV=2

GO BOTTOM CASE OTV=3

INPUT 'Введите номер автора' TO С_NOMN LOCATE FOR Key_book = C_NOMN IF BOF()

WAIT 'Такой записи нет'

LOOP

ENDIF CASE OTV=4 CLEAR EXIT

ENDCASE

CLEAR ScSc Помощь о назначении клавиш

б 20,1 SAY 'Для просмотра следующей записи '; +

' нажмите Enter'

@ 21,1 SAY 'Для просмотра предыдущей записи '; +

' нажмите PgUp'

@ 22,1 SAY 'Для выхода нажмите Esc'

DO WHILE not EOF() && Вывод на экран найденной

• записи

<3 8,5 SAY 'Фамилия автора : ' + fam.Name_fam @ 9,5 SAY 'Имя автора : ' + im.Name_In»

@ 10,5 SAY 'Отчество автора : ' ♦ ot.Name_ot

@ 11,5 SAY 'Название книги : ' + ctl.Name_book

@ 13,5 SAY RECNOO

К = INKEY(0) && Ожидание нажатия клавиши

DO CASE && Управление выводом на

• экран

CASE К=27 && Проверка клавиши Esc

CLEAR EXIT

CASE К=18 && Проверка клавиши PgUp

SKIP-1

CASE К=13 && Проверка клавипи Enter

SKIP

ENDCASE

EKDDO

ENDDO

Пример 3. Вертикальное POPUP-менютипа FOX.

Левый верхний угол меню помешен в 25-ю позицию 6-й стро­ки. Одновременно на экран выводится 7 строк меню: первая стро­ка — заголовок меню, четыре строки — пункты меню и две строки дпя организации прокрутки.

CLEAR

DIME а(10)

а(1)= 'Старт'

а(2)='Файл'

а(3)='Поиск'

а(4)='Редактирование'

а(5)='Фильтр'

а(6)='Печать'

а{7)='Модификация'

а{8)='Дополнение'

а{9) = ''

а(10)='Выход'

@ 6,25 MENU а, 10, 7 TITLE 'База данных'

READ MENU ТО рг

@2, 10 SAY рг && Вывод на экран номера выбранного * пункта меню

С помощью оператора DO CASE можно проанализировать выбор пользователя и написать обработчик выбранного пункта меню (см. пример 2).

П р и м е р 4. Двухуровневое PULLDOWN-меню типа FOX.

CLEAR

DECL Ъ(5,2), а(10) а(1)= 'Файл' а(2)='Формат' а(3)='Поиск'

а (4) =' \ Редактирование' а(5)='Фильтр' а(6)='Печать' а(7)='Модификация' а (8) ='Дополнение' а(9)='' а(10)='Выход'

Ь(1,1)='\ Старт'

Ь(2,1)='База данных' fc(3,1> ='Программа' to(4,1)='Объект' to(5,l)='Выход'

0(1,2)='ENTER'

to( 2,2) ='Команда USE'

Ь(3,2)='Редактир. программы' b (4,2) ='Вставка объекта' b(5,2)='Esc'

8t 1=3

&& Определяет актизный по умолчанию пункт

• горизонтального меню вг2=1

MENU BAR Ь, 5 MENU 4, а. 10, б

READ MENU BAR TOstl, st2 && Фиксация выбора

• пользователя

@12, 5 SAY stl GET st2 && Выводит на экран

• номера выбранных

• пользователем && пунктов горизонтального и вертикального меню

Первый пункт горизонтального меню описан как недоступ­ный для выбора. Четвертому пункту горизо пального меню на­значено подчиненное вертикальное меню.

Пример 5. Вертикальное меню типа dBASE с произволь­ными пунктами.

В меню имеются линейка прокрутки, верхний и нижний заго­ловки, предусмотрен множественный отбор пунктов, установле­но по одному пробелу слева и справа от имени пункта меню.

DEFINE POPUP Edit FROM 2,2 SCROLL MARGIN;

TITLE " Редактирование'' MULTI FOOTER ''Правка" DEFINE BAR 1 OF Edit PROMFT «Вырезать» KEY 'Ctrl+X'

DEFINE BAR 2 OF Edit PROMPT 'Копировать' KEY 'Ctrl+C'

DEFINE 3AR 3 OF Edit PROMPT 'Вставить' KEY 'Ctrl+P'

DEFINE BAR 4 OF Edit PROMPT 'Удалить' KEY 'Ctrl+D'

ACTIVATE POPUP Edit

Пример 6. Вертикальное меню типа dBASE, пунктами ко­торого назначены имена файлов, левый верхний угол меню по­мещен в строку 4 столбец 12.

DEFINE POPUP File PROMPT FILES LIKE E:\PRIMER\* .dbf ; FROM 4, 12 TITLE "Файл"

ACTIVATE POPUP File

Пример 7. Вертикальное меню типа dBASE, пунктами ко­торого назначены значения поля Name fam из таблицы Fam. Для сортировки списка по алфавиту текущим задан тег с номе­ром 1. Если при создании вертикального меню используется оп­ция PROMPT, то запрещено использовать опции MOVER и MULTI. Поэтому для организации множественного отбора пун­ктов меню в структуру таблицы добавлено логическое поле w и написана процедура рг.