Последовательный поиск

Добавление записей из других таблиц

Добавление записей таблицы в командном файле

Организация клавишных меню

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

ON KEY LABEL "метка клавиши" "команда"

Метка клавиши – это символ или цифра самой клавиши (или комбинации клавиш) или имя, присвоенное клавише. Например: LeftArrow, Backspace, F1, Ctrl-F1, Alt-0, Ctrl-RightArrow.

ПРИМЕР:

ON KEY LABEL Alt-F1 DO _help

ON KEY LABEL Alt-F2 DO _menu1

ON KEY LABEL Alt-F3 Browse

ON KEY LABEL Alt-F4? 'Нет операции'

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

*Программа добавляет записи в таблицу и непосредственно обновляет значения полей

SELECT <таблица>

APPEND BLANK

*Вызываем предварительно созданную форму, в которую пользователь может вводить *значения полей

DO FillForm

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

SELECT <таблица>

SCATTER MEMVAR MEMO

SAVE

Savelt = FillForm()

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

*присваиваются значения соответствующих переменных памяти

IF Savelt

APPEND BLANK

GATHER MEMVAR MEMO

ENDIF

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

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

SELECT EMPLOYEE

SCAN

SCATTER MEMVAR

SELECT EMPL9

APPEND BLANK

GATHER MEMVAR

SELECT EMPLOYEE

ENDSCAN

Вместо того, чтобы «разбрасывать» значения по переменным памяти, можно использовать массив для сохранения значений полей из одной записи.

SELECT EMPLOYEE

SCAN

SCATTER TO EMPLOYEE

SELECT EMPL9

APPEND BLANK

GATHER FROM EMPLOYEE

SELECT EMPLOYEE

ENDSCAN

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

APPEND FROM Добавляет записи в текущую таблицу из другого файла.

При выполнении следующих команд все записи из таблицы CURPROD добавляются в таблицу PRODHITS:

SELECT PRODHITS

APPEND FROM CURPROD

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

SELECT PRODHITS

APPEND FROM CURPROD FOR NOT lInProduction

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

Глава 3. Организация поиска информации в базе данных

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

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

LOCATE [<границы>] [ FOR <выражение>] [ WHILE <выражение>]

Границы поиска могут быть заданы следующими параметрами:

ALL – поиск по всем записям базы;

NEXT N - поиск по следующим указанным записям номеров до N;

RECORD N - поиск указанного номера записи;

REST - поиск, начиная с текущей, и до последней записи;

FOR и WHILE – устанавливает условие поиска, например, поиск с указанным именем поля;

Команда продолжения поиска записей, начатого ранее командой LOCATE:

Дата добавления: 2015-05-09