ANGTEXT (Особенности конструктивного исполнения и функционального применения персональных ЭВМ), страница 4
Описание файла
Документ из архива "Особенности конструктивного исполнения и функционального применения персональных ЭВМ", который расположен в категории "". Всё это находится в предмете "кибернетика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "кибернетика" в общих файлах.
Онлайн просмотр документа "ANGTEXT"
Текст 4 страницы из документа "ANGTEXT"
. clear Очищает экран
. use angelina.dbf Загружаем нужный файл
. go top Установим указатель на 1 запись
. disp Распечатка 1 записи
. store NAME to j
. ? j Распечатывается j
. locate for OTV = “Иванов К.В.” Ищет “Иванова”
. display Выводит найденные записи на монитор
. locate for OTV = “Корольков М.Н.” Ищет “Королькова”
. 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.
17
