44871 (663903), страница 4

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

Текст из файла (страница 4)

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

* Отображаем таблицу

BROWSE

* Если нажата клавиша Esc...

IF LASTKEY()=27

* ... то на выход.

EXIT

ENDIF

ENDDO

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

PROCEDURE Helper

* Параметр процедуры - имя поля, которое требуется пояснить

PARAMETERS _Item

* Открываем базу помощи

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

* Ищем нужное поле

LOCATE FOR index_help=_Item

* Если нашли нужное поле (оно одно) - выводим

IF FOUND()

_Out_text=text_help

MESSAGEBOX(_Out_text)

ELSE

MESSAGEBOX('Справка по данному разделу не предусмотрена. Извините.')

ENDIF

RETURN

ПРИЛОЖЕНИЕ Ж

Текст программы создания новых таблиц и арифметических действий

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

CLEAR

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

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

* Создаем новую таблицу, вкоторую входят все товары с ценой>50

COPY TO C:\MY_WORKS\TRANSF~1\MYPROJ~1\New_Goods FIELDS name_unit,price_unit,amount,unit_measure FOR price_unit>50

* Обращаемся к новой таблице

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

* Просматриваем ее

BROWSE

* Создаем новый файл, отсортированный в соответствии с заданием

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

SORT TO C:\MY_WORKS\TRANSF~1\MYPROJ~1\Sort_Goods ON price_unit/A,name_unit/A

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

* Выводим отсортированную таблицу

LIST OFF price_unit,name_unit

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

* Выводим количество товаров на букву 'С'

COUNT FOR (LEFT(name_unit,1)='С') TO _Count

?'В исходной таблице содержится'+STR(_Count)+' товара(-ов) на букву `С`'

* Выводим общую стоимость всех товаров

?'Общая стоимость всех товаров равна'

SUM price_unit*amount

* Выводим среднее арифметическое цен всех товаров

?'Среднее арифметическое цен всех товаров равно'

AVERAGE price_unit

Характеристики

Список файлов реферата