Некоторые функции СУБД типа dBASE

В языке dBASE IV используются также функции, которые (наряду с командами) позволяют обрабатывать данные (в том числе, выполнять вычисления), а также определять состояния, например, находится ли указатель записей в конце файла: ?EOF(). После имени функции обычно стоят круглые скобки, в которых могут помещаться аргументы Функции нельзя использовать самостоятельно, а только вместе с какой-либо командой.

Кроме системных функций в dBASE IV можно использовать функции, созданные самим пользователем.

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

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

DECLARE <имя массива 1>

[{<количество строк>,} {<количество колонок>}]

{,<имя массива 2>

[{<количество строк>,} {<количество колонок>}]...]

В синтаксисе этой команды опции указываются фигурными скобкамивместообычно принятых квадратных. При записи команды в программе в квадратные скобки заключаются параметры (размерность) массива - число строк и столбцов. Если указано одно число, то массив одномерный. Формально двумерный массив с одним из параметров, равным единице, фактически является одномерным: DECLARE [12,1] или DECLARE [1,25].

Примеры.

DECLARE Mas [8,4] && Двумерный массив

DECLARE Masi [10] && Одномерный массив

STORE {15/10/89} TODatI [4,4].]

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

STORE <выражение>ТО <список переменных>/<список элементов массива> или альтернативная форма

<переменная>/<элемент массива> = <выражение>.

Ввод данных в базу и редактирование

После того как создана структура файла БД, можно вводить данные. Существуют две стандартные экранные формы ввода (и вывода) информации в файлы БД: BROWSE и EDIT. Первая форма вызывается командой

BROWSE [NOINIT] [NOFOLLOW] [NOAPPEND] [NOMENU]

[NOEDIT] [NODELETE] [NOCLEAR] [COMPRESS]

[FORMAT] [LOCK <Bыp.N>] [WIDTH <выр.N>]

[FREEZE <имя поля>] [WINDOW <имя окна>]

[FIELDS <имя поля 1> [/R] [/<ширина колонки>]

/<вычисл. имя поля 1> = <выражение 1>

[ ,<имя поля 2> [/R] [/<ширина колонки>]

/<вычисл. имя поля 2> = <выражение 2>]...]

В команде имеется ряд опций, позволяющих устанавливать различные режимы ее использования. В число этих опций входит группа опций, позволяющих назначить режимы работы с полями, и группа опций по размещению полей на экране. В состав первой группы входят следующие опции: NOEDIT , позволяющая установить режим только чтения для всех полей, NOAPPEND, не разрешающая добавлять новые записи, и NODELETE, не разрешающая помечать записи для удаления. Опция FREEZE назначает для обновления только одно указанное поле. Другие поля высвечиваются, но остаются недоступными для редактирования. Если для указанного в опции FREEZE поля командой PROTECT открыто только чтение, то обновление не разрешается. Опция FREEZE без имени поля отменяет ранее назначенную установку.

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

Опция WIDTH устанавливает верхний предел ширины колонки для всех полей в таблице BROWSE. Эта ширина перекрывает ширину поля, назначенную при создании файла БД. Если опции WIDTH и <ширина колонки> используются одновременно, то принимается наименьшее значение. Данная опция, как и предыдущая, не применяется для полей типа Memo и логических полей. Значения числовых полей и полей даты не будут высвечиваться, если значение опции WIDTH меньше ширины этих полей, назначенных при определении структуры файла БД. Опция FORMAT позволяет разместить поля в таблице BROWSE в очередности, определенной экранной формой, которая установлена командой SET FORMAT TO.

Альтернативой команды BROWSE является команда EDIT

EDIT [NOINIT] [NOFOLLOW] [NOAPPEND] [NOMENU]

[NOEDIT] [NODELETE] [NOCLEAR] [<номерзаписи>]

[FIELDS <спнсок полей>] [<диапазон>]

[FOR <условие>] [WHILE <условие>]

Эта команда выводит на экран по одной записи файла БД, поля которой размещаются по вертикали.

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

REPLACE [<границы>] <поле> WITH <выражение>

[, <поле> WITH <выражение...]

[WHILE <условие>] [FOR <условие>] [ADDITIVE]

которая изменяет (замещает) значения заданных полей (включая поля Memo) текущей записи или группы записей, определенных границами и опциями WHILE, FOR.

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

LIST/DISPLAY [<границы>] [[FIELDS] <список выражений>]

[OFF] [<диапазон>] [FOR <условие>]

[WHILE <условие>] [ТО PRINTER/

ТО FILE <имя файла>]

Эти команды выводят все поля файла БД, если их список не определен опцией FIELDS. В начале каждой записи, если не указана опция OFF, выводится ее номер, опции <диапазон>, FOR и WHILE определяют диапазон выводимых записей. Команды LIST и DISPLAY идентичны с той разницей, что первая выводит записи непрерывно, а вторая делает остановку после вывода одной страницы экрана.

Кроме выводов файлов БД команды LIST и DISPLAY позволяют также высвечивать данные о файлах в директориях, содержимое буфера HISTORY (хранилище выполненных с клавиатуры команд), данные об используемых переменных и массивах, информацию о текущем сеансе работы с dBASE, структуру указанного файла БД и имена рабочих станций, работающих в среде ЛВС.

Дополнительные операции

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

LIST/DISPLAY STRUCTURE [IN <алиас>] [ТО PRINTER/TO FILE <имя файла>]

которая выводит информацию о файле БД.

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

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

GO/GOTO BOTTOM/TOP [IN <алиас>]

или

GO/GOTO [RECORD] <номер записи> [IN <алиас>]

или

<номер записи>

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

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

SKIP [<Bыp.N>] [IN <алиас>]

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

INSERT [BEFORE] [BLANK]

которая позволяет ввести новую запись (или пустую запись, если указана опция BLANK) после текущей или перед ней (если задана опция BEFORE). Пометить одну или несколько записей для их последующего удаления можно командой

DELETE [<диапазон>] [FOR <условие>] [WHILE <условие>]

Опции <диапазон>, FOR и WHILE позволяют помечать записи, отобранные в соответствии с заданным диапазоном и условиями.

Для того чтобы уничтожить пометки на удаление записей используется команда

RECALL [<диапазон>] [FOR <условие>] [WHILE <условие>]

Физическое удаление помеченных записей активного файла БД выполняет команда PACK. Команда

APPEND [BLANK]

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

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

SORT TO <имя файла> ON <поле 1 > [/А] [/С] [/D]

[ ,<поле 2> [/А] [/С] [/D]...] [ASCENDING]/[DESCENDING]

[<границы>] [WHILE <условие>] [FOR <условие>]

которая создает новый файл БД с записями, отсортированными в алфавитном, хронологическом или числовом порядке по заданным полям. Сортировка выполняется в порядке возрастания (/А) или убывания (ID) значений полей. Допускается сортировка максимум по десяти полям. Опция /С определяет сортировку независимо от прописных и строчных букв. Команда

• COPY FILE <имя файла 1> ТО <имя файла 2>

делает копию файла любого типа.

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

Для этого используется команда

RENAME <имя файла> ТО <новое имя файла>

Нередко требуется найти запись не по ее положению в файле БД, а по содержанию полей. Такой вид поиска предусмотрен, например, в меню команды BROWSE. Способ поиска по содержанию полей зависит от того, созданы ли индексные файлы по этим полям или по их комбинациям. Для поиска по неиндексированным полям используется команда

LOCATE [FOR] <условие> [<диапазон>] [WHILE <условие>]

Эта команда выполняет в активном файле БД поиск первой записи, удовлетворяющей условию, заданному опцией FOR. Опции <диапазон> и WHILE определяют диапазон и условие начала и конца просмотра записей.

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

SEEK и FIND.

Команда

SEEK <выражение>

выполняет поиск первой записи файла БД с заданным значением индексированного поля. При этом соответствующий индекс должен быть установлен в качестве главного (управляющего) индекса. Команда

FIND <литеральная строка>

аналогична команде SEEK и также выполняет поиск первой записи в индексированном файле БД с заданным значением индекса при установленном соответствующем главном индексе. Отличие состоит в том, что в качестве поискового значения в команде FIND используется не выражение, а литеральная строка.

Основной командой, предназначенной для создания нестандартных экранных форм ввода и вывода информации, является

@<строка>,<колонка>

[SAY <выр.>

[PICTURE <выр.С>]

[FUNCTION <списокфункций>]]

[GET <переменная>

[[OPEN] WINDOW <имя окна>] [PICTURE <выр.С>]

[FUNCTION <список функций>]

[RANGE [<нижний>] [<верхний>]]

[VALID <условие> [ERROR <выр.С>]]

[WHEN <условие>] [DEFAULT <выражение>]

[MESSAGE <выр.С>]]

[COLOR [<стандартная область экрана>] [<нестандартная область

экрана>]]

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

SET DEVICE TO SCREEN/printer/file <имя файла>

Опция GET выводит и позволяет обновлять и редактировать данные, содержащиеся в полях, переменных или массивах.

Собственно обновление данных в переменных GET (здесь и нижепод словом «переменная» подразумеваются также поля файла БД и элементы массива) выполняется командой READ. которую следует поместить после данной команды. Эта команда активизирует переменные и выводит в них значения, находящиеся на экране.

Для приостановления процесса последовательного выполнения программы используется команда

WAIT [<сообщение>] [ТО <переменная>]

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

С целью улучшения восприятия информациина экране можно использовать команду

@ <строка 1>,<колонка 1> ТО <строка 2>,<колонка 2> [DOUBLE/PANEL/<cимволы определения рамки>]

[COLOR <код цвета>]

которая рисует на экране прямоугольную рамку, определяемую координатами верхнего левого - <строка 1>,<колонка 1> - и правого нижнего - <строка 2>, <колонка 2> - углов рамки Опция DOUBLE позволяет рисовать двойную линию рамки (по умолчанию рисуется одинарная линия), опция PANEL - рамку в виде сплошной полосы. Кроме того, имеется возможность рисовать линию рамки заданными символами. Для этого задается список символов для определения рамки. Можно задать различные символы для сторон и углов рамки. В этом случае символы разделяются запятыми и располагаются в следующем порядке: f, b, 1, r, fl, fr, bl, br, где f - верх; b - низ; 1 - левая сторона; г - правая сторона; fl -левый верхний угол; fr - правый верхний угол; bl - левый нижний угол; br -правый нижний угол.

Пример.

@ 5,13 ТО 10,40 DOUBLE COLOR R/BG Д

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

CLEAR [ALL/FIELDS/GETS/MEMORY/MENUS/

POPUPS/TYPEAHEAD/WINDOWS]

Она очищает экран, устанавливает курсор в левый нижний угол экрана и освобождает все незаконченные опции GET команды @... SAY. ..GET. Различные опции этой команды также закрывают файлы БД, очищают переменные, списки полей, окна, горизонтальные и вертикальные меню и буфер клавиатуры.

Команда @... SAY. ..GET является универсальной для организации ввода и вывода информации на экране. В программах нередко требуется вводить с клавиатуры данные для обеспечения процесса обработки информации, например имя файла БД, данные для ветвления программы, поисковые значения и т.д. Для этого предусмотрена специальная команда

ACCEPT [<сообщение>] ТО <переменная>

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

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

INPUT [<сообщение>] ТО <переменная>

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

Кроме универсальной команды SAY существует команда, специально предназначенная для вывода данных на экран и принтер:

?/?? [<выр.1> [PICTURE <выр.С>]

[FUNCTION <список функций>] [AT <выр.N>]

[STYLE <номер шрифта>]] [,<выр.2>...] [,]

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

Для печати отчета используется команда

REPORT FORM <имя файла отчета>/?

[<границы>] [WHILE <условие>]

[FOR <условие>] [PLAIN]

[HEADING <выр С>] [NOEJECT]

[ТО PRINTER/TO FILE <имя файла>] [SUMMARY]

которая запускает программу печати отчета (файл отчета), созданную командой CREATE/MODIFY REPORT.

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

MODIFY COMMAND/FILE <имя файла> [WINDOW <имя окна>]

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

<команды> && Начало главной процедуры

DO Proс1

DO Proc2

DO Ргос3

RETURN && Конец главной процедуры

PROCEDURE Proс1 && Начало Proс1

<команды>

RETURN && Конец Proс1

PROCEDURE Proс2 && Начало Proc2

<команды>

RETURN && Конец Proc2

PROCEDURE Ргос3 && Начало Ргос3

<команды>

RETURN && Конец Рrос3

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

DO <имя программы>/<имя процедуры> [WITH <список параметров>]

Опция WITH передает в вызываемую процедуру параметры (до 64).

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

PROCEDURE <имя процедуры>

и завершаться командой

RETURN [<выражение>/ТО MASTER/TO <имя процедуры>]

Команда RETURN удаляет все переменные, которые были определены в процедуре как PRIVATE (переменные, определенные как PUBLIC, остаются без изменения).

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

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

которая должна быть первой исполняемой командой в теле процедуры. В качестве параметра в списке может быть любое допустимое выражение, определяющее переменную, в которую передаются данные из соответствующего параметра вызывающей программы. Если эта переменная не объявлена глобальной (PUBLIC), то автоматически она имеет статус локальной (PRIVATE).

Определение переменных как локальных выполняется командой

PRIVATE <список переменных> / [ALL [LIKE/EXCEPT <шаблон>]]

Глобальные переменные можно использовать повсюду а программе и в вызываемых ею процедурах. Для объявления переменных и элементов массива глобальными используется команда

PUBLIC <список переменных>/ [ARRAY <список элементов массива>]

Организация системы меню

Чтобы организовать в dBASE систему меню, сначала надо определитьего отдельные компоненты - меню вертикального и горизонтального типа. Для этого используются специальные команды, начинающиеся словом DEFINE - определить. Определение горизонтального меню выполняется командой

DEFINE MENU <имя меню> [MESSAGE <выр.С>]

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

DEFINE PAD <имя позиции>

OF <имя меню> PROMPT <выр.С>

[AT <строка>,<колонка>] [MESSAGE <выр.С>]

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

DEFINE POPUP <имя меню>

FROM <строка 1>,<колонка 1>

[ТО <строка 2>,<колонка 2>]

[PROMPT FIELD <имя поля>]

/PROMPT FILES [LIKE <шаблон>]

/PROMPT STRUCTURE]

[MESSAGE <выр.С>]

которая устанавливает его имя (записывается по тем же правилам, что и для горизонтального меню) и координаты окна меню на экране. Опции FROM и ТО определяют координаты левого верхнего и правого нижнего углов окна меню.

Назначение текста и других атрибутов одной позиции ранее определенного вертикального меню осуществляется командой

DEFINE BAR <номер строки> OF <имя меню>

PROMPT <выр.С>

[MESSAGE <выр.С>]

[SKIP [FOR <условие>]]

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

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

ON SELECTION PAD <имя позиции горизонтального меню>

OF <имя горизонтального меню> [<команда>]

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

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

ON SELECTION POPUP <имя позиции вертикального меню>/ALL [<команда>]

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

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

DO CASE

CASE <условие>

<команды>

[CASE <условие>]

<команды>

[OTHERWISE]

<команды>

ENDCASE

Можно формировать вложенные структуры этой команды, т.е. внутри команды после ключевого слова CASE помещать другую команду DO CASE, а также любые другие команды ветвления и выполнения циклов, например IF...ENDIF, DO WHILE...ENDDO и др.

Пример.

DO CASE

CASEVal> 1000

<команды>

CASEVal> 100

<команды>

CASEVal>10

<команды>

OTHERWISE

<команды>

ENDCASE

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

IF <условие> <команды> [ELSE] <команды> ENDIF

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

DO WHILE <условие>

<команды>

[EXIT]

<команды>

[LOOP]

<команды>

ENDDO

которая обеспечивает повторение последовательности команд, заключенной между словами DO WHILE и ENDDO до тех пор, пока заданное условие истинно. Если встречается слово LOOP, то управление передается в начало цикла команд, а при встрече слова EXIT осуществляется выход из команды и управление передается на первую команду после слова ENDDO, завершающего данную команду.

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

ACTIVATE MENU <имя меню> [PAD <имя позиции>]

и

ACTIVATE POPUP <имя меню>

которые вызывают на экран предварительно определенные меню.