Особенности конструктивного исполнения и функционального применения персональных ЭВМ
@ 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.