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

COPY TO <имя нового файла>

[<границы>] [FIELDS <поля>]

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

[TYPE <тип файла>] [WITH CDX]

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

Существует команда, выполняющая физическое упорядочение файла:

SORT TO <имя нового файла>

[ASCENDING/DESСENDING]

ON <поле> [/A] [/D] [/C] [,<поле> [/A] [/D] [/C].]

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

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

Команда создает из активной БД новый файл, в котором записи расположены в возрастающем (/А) или убывающем (/D) порядке относительно указанного поля /полей. Если параметр сортировки не указан, по умолчанию подразумевается /А - возрастание. Ключ /С означает, что при сортировке будет игнорироваться регистр букв (строчные /заглавные). Допускается соединение ключа С с другими ключами, например /DC.

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

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

[FOR <условие>] [TO <переменная>]

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

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

[FOR <условие>] <список выражений>

[ТО <переменные>/ТО ARRAY <массив>]

По команде SUM суммируются значения перечисленных числовых полей указанные <переменные> или <массив>. В списке выражений разрешается указывать не только имена числовых полей, но и функции от них и функции от нескольких полей одновременно. Это значит, что можно воспользоваться функцией STR () и просуммировать символьные поля с цифровыми данными. Можно просуммировать квадратные корни величин и т.д. Если <переменных> не было к моменту исполнения команды, то они будут созданы, однако <массив> должен уже существовать.

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

[FOR <условие>] <список выражений>

[TO <переменные>/TO ARRAY <массив>]

По этой команде подсчитывается среднее арифметическое при тех же допущениях, что и для предыдущей команды.

По условию требуется:

Создать файл New_goods с полями Name_unit, Price_unit, Amount, Unit_measure для всех товаров с ценой > 50;

Создать файл Sort_goods с полями Name_unit, Price_unit, Amount, Quality_goods. Файл отсортировать по полям: Price_unit - по возрастанию, Name_unit - по алфавиту;

Подсчитать число товаров на 'С…', общую сумму всех товаров и среднее арифметическое цены товаров.

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

Полный текст программы приведен в приложении Ж, а результаты работы программы - на рисунках 5.8.1 - 5.8.3.

Рисунок 5.8.1 - Структура таблицы New_Goods.

Рисунок 5.8.2 - Структура таблицы Sort_Goods.

Рисунок 5.8.3 - Результаты работы программы.

Заключение

Текст программы фильтрации, индексации и поиска

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C: \MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Выполняем фильтрацию по полю 'Поставщик'

SET FILTER to supplier='Россия'

BROWSE

* Выполняем индексирование по полю 'Количество' (только по возрастанию)

INDEX on amount to C: \MY_WORKS\TRANSF~1\MYPROJ~1\indtab

* Выводим записи

LIST amount,name_unit,price_unit

* Выбираем из таблицы все записи о товарах низкого качества

BROWSE FOR quality_goods='низкое'

* Выбираем из таблицы первую запись о товаре в количестве 10

LOCATE FOR amount=10

Приложение Б

Текст программы поиска с помощью циклов WHILE и SCAN

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C: \MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Ищем все товары, поставленные из России, с помощью цикла WHILE

? 'Товары из России (цикл WHILE): '

* Ищем первый товар

LOCATE FOR supplier='Россия'

* Если нашли.

IF FOUND ()

* Печатаем название

? name_unit

ENDIF

* Продолжаем поиск до исчерпания записей

DO WHILE. NOT. EOF ()

CONTINUE

IF FOUND ()

? name_unit

ENDIF

ENDDO

* Ищем все товары из России с помощью SCAN-цикла

? 'Товары из России (цикл SCAN): '

SCAN FOR supplier='Россия'

* Выводим наименование, цену и количество товара

? name_unit+' '+STR (price_unit) +' '+STR (amount)

ENDSCAN

* С помощью WHILE находим общую цену товаров, поступивших

* в период с 15.01.2001 по 15.03.2001

* _SUM - переменная суммирования

_SUM=0

* Находим первую запись

LOCATE FOR date_recep>={^2001/01/15}. AND. date_recep<={^2001/03/15}

IF FOUND ()

* Если нашли - суммируем

_SUM=_SUM+NTOM (price_unit) *amount

ENDIF

* Продолжаем поиск

DO WHILE. NOT. EOF ()

CONTINUE

IF FOUND ()

_SUM=_SUM+NTOM (price_unit) *amount

ENDIF

ENDDO

? 'Общая стоимость искомых товаров равна (цикл WHILE): '+STR (_SUM)

* Вычисляем то же самое с помощью SCAN-цикла

_SUM=0

SCAN FOR date_recep>={^2001/01/15}. AND. date_recep<={^2001/03/15}

_SUM=_SUM+NTOM (price_unit) *amount

ENDSCAN

? 'Общая стоимость искомых товаров равна (цикл SCAN): '+STR (_SUM)

Приложение В

Текст программы построения меню и выдачи сообщений

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C: \MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Определяем параметры POPUP-меню:

DEFINE POPUP _Menu FROM 1,10 TO 15,70;

TITLE 'Наименование Качество Поставщик';

SCROLL;

PROMPT FIELD name_unit+' '+quality_goods+' '+supplier

* Определяем, нужно ли активизировать POPUP-меню

LOCATE FOR price_unit<100

* Если нашли хоть один требуемый товар.

IF FOUND ()

IF price_unit<>0

* и если это не нулевая строка, то

ACTIVATE POPUP _Menu

ENDIF

ENDIF

* Отслеживаем нажатие сочетания клавиш Alt+F1

ON KEY LABEL ALT+F1 MESSAGEBOX ("Ошибка памяти!")

ПРИЛОЖЕНИЕ Г

Текст программы построения диаграммы

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C: \MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Определяем количество записей в текущей таблице

_Number_records=RECCOUNT ()

* Заносим в соответствующие массивы наименования и количества товаров

DIMENSION _Names (_Number_records)

DIMENSION _Amounts (_Number_records)

* Переменная - max высота столбца

_Max_col_height=0

* Устанавливаемся на первую запись

GOTO 1

* Ищем самый дорогой и самый дешевый товары (_Max_price и _Min_price),

* а также их порядковые номера (_Number_max_price и _Number_min_price)

_Names (1) =name_unit

_Amounts (1) =amount

_Min_price=price_unit

_Max_price=0

_Number_min_price=1

_Number_max_price=1

* Цикл по всем записям

FOR I=2 TO _Number_records

* Устанавливаемся на I-ю запись

GOTO I

* Заносим имя и количество в массивы

_Names (I) =name_unit

_Amounts (I) =amount

* Если текущая цена>максимальной.

IF price_unit>_Max_price

* то делаем текущую максимальной

_Max_price=price_unit

* и запоминаем ее номер

_Number_max_price=I

ENDIF

* Если текущая цена<минимальной.

IF price_unit<_Min_price

* то делаем текущую минимальной

_Min_price=price_unit

* и запоминаем ее номер

_Number_min_price=I

ENDIF

IF amount>_Max_col_height

* Ищем max количество товара

_Max_col_height=amount

ENDIF

ENDFOR

* ==============Построение диаграммы=============

* Рисуем оси

@3,20 TO 25, 20

@25,20 TO 25,120

* Надписываем оси

@13,1 SAY 'Количество товара' COLOR B+/W*

@4,10 SAY _Max_col_height COLOR B+/W*

@28,60 SAY 'Номер товара'

* Рисуем легенду

@1,80 FILL TO 2,83 COLOR W/G*

@3,80 FILL TO 4,83 COLOR W/R*

@1,84 SAY 'Самый дешевый товар'

@3,84 SAY 'Самый дорогой товар'

* Расстояние между столбцами диаграммы

_Diagram_step_size=2

* Ширина одного столбца диаграммы

_Diagram_col_width= (100-_Diagram_step_size* (_Number_records+1)) /_Number_records

* Масштабный множитель

_Scale_factor=20/_Max_col_height

* Рисуем столбцы

FOR I=1 TO _Number_records

* Вычисляем координаты вершин для текущего столбца

_Y1=ROUND (25-_Amounts (I) *_Scale_factor,0)

_X1=ROUND (20+_Diagram_step_size*I+_Diagram_col_width* (I-1),0)

_Y2=25

_X2=ROUND (20+ (_Diagram_step_size+_Diagram_col_width) *I,0)

* Если высота нулевая. (из-за округления)

IF _Y1=25

* то делаем высоту = 1

_Y1=24

ENDIF

* Если рисуем столбец, соответствующий самому дешевому товару.

IF I=_Number_min_price

* то закрашиваем его зеленым цветом

@_Y1,_X1 FILL TO _Y2,_X2 COLOR W/G*

* Иначе если рисуем столбец, соответствующий самому дорогому товару.

ELSE

IF I=_Number_max_price

* то закрашиваем его красным цветом

@_Y1,_X1 FILL TO _Y2,_X2 COLOR W/R*

ELSE

* Иначе закрашиваем синим цветом

@_Y1,_X1 FILL TO _Y2,_X2 COLOR W/B*

ENDIF

ENDIF

* Ставим по оси X номера товаров

@26,_X1-ROUND (_Diagram_col_width/2,0) SAY I

END FOR

Приложение Д

Текст программы, использующей модули

* Очищаем экран

CLEAR

* Открываем таблицу из базы данных

USE C: \MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Вызов процедуры, выводящей сведения об искомых товарах

DO Show_units_for_date

? ''

* Вызов процедуры, показывающей товары с единицей измерения 'шт. '

DO Show_units_for_measure

* Описание процедуры Show_units_for_date

PROCEDURE Show_units_for_date

? 'Товары, поступившие позже 15.02.2001. '

? ''

? 'Наименование цена количество'

SCAN FOR date_recep>{^2001/02/15}

* Выводим наименование, цену и количество товара

? name_unit+' '+STR (price_unit) +' '+STR (amount)

ENDSCAN

ENDPROC

* Описание процедуры Show_units_for_measure

PROCEDURE Show_units_for_measure

? 'Товары, у которых единица измерения - шт. '

? ''

? 'Наименование цена количество'

SCAN FOR unit_measure='Штука'

* Выводим наименование, цену и количество товара

? name_unit+' '+STR (price_unit) +' '+STR (amount)

ENDSCAN

ENDPROC

Приложение Е