44871 (Курсовик по FoxPro), страница 4
Описание файла
Документ из архива "Курсовик по FoxPro", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "44871"
Текст 4 страницы из документа "44871"
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
