. display Выводит найденную запись на монитор

. go top Возвращает указатель на 1 запись

. store DZP + 3 to f Определяет переменную

. ? f Распечатка нового значения

. set talk on Включает служебные сообщения

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

modi comm Вход в редактор командных файлов

angelina Присвоение имени ком. файлу

set talk off Отключение служебных сообщений

clear Очистка экрана

a=space(8) Определение переменной

@ 1,10 say “Введите дату: “ Вывод значения переменной,

начиная с заданной позиции

@ 1,24 get a Ввод данных в определенное место

экрана и присвоение введенного

значения указанной переменной

read Задержка выполнения программы

до ввода даты

ddd=ctod(a) Преобразование строки в датный

формат

use angelina Открывает файл

do while .not. eof() Делать группу операторов до

конца файла

nd=dzp-ddd Определение значения nd

replace ost with nd Замена переменной

skip Переход к следующей записи

enddo Конец цикла

return Возврат к началу

set talk on Включение служебных сообщений

Для сохранения командного файла на диске наберем: ctrl/w

Для запуска командного файла необходимо набрать: . do angelina.prg

Через пункты меню “Создать” и “Отчет” сформируем требуемые справки. Среди всех записей базы нужно отобрать только те, которые удовлетворяют поставленному условию. Для того, чтобы сообщить условие поиска СУБД, необходимо указать поле, на которое накладывается условие, оператор условия и значение, с которым производится сравнение. Различают простые условия, т.е. заданные с помощью одного оператора, и сложные, при составлении которых используют несколько операторов и логические связки OR (или) и AND (и). Операция условного поиска начинается с активизации пунктов “Выбрать” и “Список”, после чего в появившемся на экране меню третьего уровня выбирается пункт “Условие поиска”:

Выбрать / Список / Enter / Условие поиска / Enter

После этой команды на экран, как и при заказе полей, выводится их список. Выберем поле, по которому будет производиться поиск. Например, DZF:

DZF / Enter

После этого на экран будет выведен перечень операторов сравнения. Выберем курсором нужное условие, в данном случае: “ = Равно” / Enter

В ответ на этот выбор Ребус запросит значение для сравнения. Введем значение “ / / ”, т.е. работы не должны быть завершены на запрашиваемую дату.

После этого на экране будет отображено логическое меню, позволяющее составлять сложные условия с помощью логических операторов AND и OR. Выберем “Связать по .END.”. Обозначим поле, по которому будет производиться поиск - OST. Затем “ > “ - для 1 справки и “ £ “ - для 2 справки. Введем значение для сравнения: “ 0 “, т.е. если работы незавершены и срок их исполнения еще не наступил, то данные по таким работам должны попадать в 1 справку; а если работы незавершены, но срок их исполнения уже наступил, то данные по подобным работам должны попадать во 2 справку.

Выходные формы справок показаны в Приложении № 11, 12, 13. 14.

Литература

1. Экономическая информатика и а\вычислительная техника / Под ред. В.П. Косарева и А.Ю. Королева. М.: Финансы и статистика, 1996.

2. Акишкин А.М., Федорова Г.В. Основы программирования на персональных ЭВМ. М.: Экономическое образование, 1996.

3. Вычислительные машины, системы и сети / Под ред. А.П. Пятибратова. М.: Финансы и статистика, 1991.

4. Фигурнов В.Э. IBM PC для пользователя. М.: Инфра-М, 1995

5. К. Ахметов Windows 95 для всех. М.: Компьютор Пресс, 1997

6. Николь Н., Альбрехт Р. Электронные таблицы Excel 5.0 М.: Эком, 1996.

7. Грег Харвей Excel для Windows 95 для “Чайников”. Киев: Диалектика, 1996.