|
Ведение реляционной БД на яз. CLIPPER 5.02Ведение реляционной БД на яз. CLIPPER 5.02МОСКОВСКАЯ ГОСУДАРСТВЕННАЯ ТЕКСТИЛЬНАЯ АКАДЕМИЯ им. КОСЫГИНА Кафедра ИТ и ВТ. К У Р С О В А Я Р А Б О Т А Тема : “Разработка програмного обеспечения, ведение базы данных и получение ведомости с частичными суммами.“ по курсу: “Алгоритмические языки и технология програмирования “ Выполнил: Пономарев А.Н. гр.42-96 Руководитель: доц. Стрельников Б.А. асс. Степанова О.П. МОСКВА 1998 2. ЗАДАНИЕ: ТЕМА КУРСОВОЙ РАБОТЫ: Реализация алгоритма обработки данных и ведения реляционной базы данных. ИСХОДНЫЕ ДАННЫЕ: Индивидуальное задание с описанием базы данных и получаемой в результате ее обработки ведомости с частичными и полными суммами. ПЕРЕЧЕНЬ ПОДЛЕЖАЩИХ РАЗРАБОТКЕ ВОПРОСОВ ( СОДЕРЖАНИЕ РАСЧЕТНО- ПОЯСНИТЕЛЬНОЙ ЗАПИСКИ ) 1. Разработать структуры файлов и создать макет базы данных. 2. Разработать алгоритм обработки данных для получения ведомости. 3. Составить и отладить программу получения ведомости. 4. Разраб. формы экранных кадров и меню для ведения базыданных. 5. Составить и отладить программу реализации экранного кадра для просмотра основных(ой) таблиц(ы). 6. Дополнить программу п.5 возможностью удаления и добавления строк в таблицу. 7. Дополнить программу п.5 возможностью изменения инф-ии в таблице. 8. Составить и отладить процедуры оперативного ведения справочников базы данных. 9. Разраб.единую систему меню для ведения базы данных и ее обработки с целью получения ведомости. 10. Разработать систему интерфейса пользователя (подсказки о клавишах, на которые предусмотрена реакция системы и помощь пользователю). ПЕРЕЧЕНЬ ГРАФИЧЕСКОГО МАТЕРИАЛА 1. Структуры файлов базы данных и их заполнение для тестового примера. 2. Макеты экранных кадров и состав подсказок для пунктов ожидания ввода от пользователя. 3. Ведомость, получаемая в результате выполнения тестового примера. МАТЕМАТИЧЕСКИЕ МОДЕЛИ Обеспечить модульную структуру программы. ( программа состоит из нескольких PRG-файлов, включая PRG-файл типовых утилит. Каждый PRG-файл состоит из функций или процедур, снабженных комментариями. ) ТЕХНИЧЕСКИЕ СРЕДСТВА: ПЭВМ IBM Система программирования Clipper 5.2 3. ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ. Имеются файлы: АА - нормативы профилактики оборудования, ВВ - профилактики и СС - состав оборудования АА: 1. Идентификатор типа станка ВВ: 1. Инвентарный номер станка 2. Наименование типа станка 2. Вид профилактики 3. Норма кол-ва дней между 3. Дата профилактики профилактиками 4. Идентификатор записи СС: 1. Инвентарный номер 2. Идентификатор типа станка Выявить все случаи превышения нормативных интервалов между профилактиками и вывести их в выводной файл DD: 1. Инв.№ 2. Фактическое кол-во дней между профилактиками 3. Нормативное кол-во дней 4. Иден-тор записи пред. проф-ки 5. Иден-тор записи след. проф-ки На принтер вывести ведомость, упорядоченную по убыванию кол-ва просроченных дней: Нарушения норм техобслуживания Инв.№ /Тип Дата/Вид пред.проф-ки Дата /Вид след.проф-ки Просрочено, дней Инв.№ /Тип Дата /Вид пред.проф-ки Дата /Вид след.проф-ки Просрочено, дней Инв.№ /Тип Дата /Вид пред.проф-ки Дата /Вид след.проф-ки Просрочено, дней . . . . . . . . . . Общее кол-во дней просрочки СУММА 4.Анализ обработки БД для её получения : а) По какому файлу проводится главный цикл обработки ? Главный цикл обработки в подпрограмме vedom - (п.п., которая осущест- вляет выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл “DD”, а также осуществляет выдачу ведомости на принтер) проводится по файлу bb.dbf . б) Как он должен быть упорядочен ? Он должен быть упорядочен в хронологическом порядке. Пример: index on bb->invnom + dtoc(bb->dateprof) to bb0001 Справка: Синтаксис: INDEX ON TO INDEX - команда обработки базы данных, которая создает файлы, содержащие индексы базы данных на основе значения аргумента . При использовании индексного файла записи базы данных обрабатываются в последовательности, заданной ключевым выражением, однако физический порядок следования записей базы данных остается неизменным. INDEX обеспечивает последовательность записей, упорядоченную по значениям ключевого выражения. Для ключей типа CHARACTER - в соответствии со значением ASCII кода каждого символа внутри строки, для ключей типа NUMERIC - в соответствии с числовым порядком, для ключей типа дата - в хронологическом порядке и для логических - считается, что истина (.Т.) - более высокого порядка. Memo-поля не могут быть индексированы. в) Применяются ли фильтры ? Хотя команда SET FILTER делает так, что файл в рабочей области выглядит состоящим из подмножества записей, на самом деле последовательно обрабатываются все его записи. Фильтры не применяются, т.к время работы с фильтрованной и нефильтрованной рабочей областью оказывается одним и тем же. г) Имеются ли связи ”хозяин-слуга” и по каким полям ? В подпрограмме vedom имеются связи. Пример: а) set relat to bb->invnom into cc Связь по полю “invnom”. б) set relat to cc->idst into aa additive Связь по полю “idst”. в) set relat to dd->invnom into cc additive Связь по полю “invnom”. ............................................................................ ................................................... 5.Структура dbf-файлов (имя, тип, формат, каждого поля ): a) Структура файла aa.dbf : IDST NAMEST NORMA 1 Строгальный 25 2 Сверлильный 15 3 Токарный 20 ........................................................................... ........................... Имя Тип Длина IDST Символ 3 NAMEST Символ 12 NORMA Число 3 б) Структура файла bb.dbf : INVNOM VIDPROF DATEPROF IDZAP 24 Смазка 09-01-98 1 4 Смазка 09-01-98 2 231 Смазка 09-01-98 3 2 Смазка 09-01-98 4 626 Смазка 09-01-98 5 323 Смазка 09-01-98 6 626 Регулировка 01-02-98 7 323 Регулировка 28-01-98 8 2 Регулировка 29-01-98 9 231 Регулировка 28-01-98 10 4 Регулировка 19-01-98 11 24 Регулировка 18-01-98 12 626 Чистка 31-03-98 13 323 Чистка 15-04-98 14 2 Чистка 01-04-98 15 231 Чистка 20-03-98 16 4 Чистка 10-03-98 17 24 Чистка 02-04-98 18 ........................................................................... ........................... Имя Тип Длина INVNOM Символ 3 VIDPROF Символ 12 DATEPROF Дата 8 IDZAP Символ 3 в) Структура файла сс.dbf : INVNOM IDST 323 1 626 1 4 2 231 3 24 2 2 3 ........................................................................... ........................... Имя Тип Длина INVNOM Символ 3 IDST Символ 3 г) Структура файла dd.dbf : INVNOM FKDN NORMA IDZAPPP IDZAPSP 2 62 20 9 15 231 51 20 10 16 24 74 15 12 18 323 77 25 8 14 4 50 15 11 17 626 58 25 7 13 ............................................................................ ......................... Имя Тип Длина INVNOM Символ 3 FKDN Число 3 NORMA Число 3 IDZAPPP Символ 3 IDZAPSP Символ 3 ............................................................................ ..................................................... 6. Принципы подготовки данных для тестового примера и заполнения исходных данных. Эти данные были выбраны произвольно - “из головы”: 1) Идентификатор типа станка 2) Инвентарный номер станка 3) Вид профилактики 4) Наименование типа станка Идентификатор записи в файле bb.dbf заполнялся по убыванию (от 1 до 18), где 1- первая запись, а 18- последняя. Норма кол-ва дней между профилактиками была выбрана произвольна. Дата профилактики выбиралась так, чтобы норма кол-ва дней между профилактиками была превышена для всех видов профилактик. ............................................................................ ................................................... 7. Система меню. а) Какие экранные кадры ? Экранный кадр № 1: Московская государственная текстильная академия ( МГТА ) БАЗА ДАННЫХ Нарушение норм техобслуживания: Курсовая работа по курсу : "Алгоритмические языки обработки данных и технология программирования" студента гр 42/96 Пономарёва А.Н. ************************* Руководитель: доц. Стрельников Б.А. асс. Степанова О.П. Сразу приступить к работе с Базой Данных Заново построить все индексы Базы Данных Провести компрессию Базы Данных Выход из Базы Данных Экранный кадр № 2: Московская государственная текстильная академия ( МГТА ) БАЗА ДАННЫХ Нарушение норм техобслуживания: Курсовая работа по курсу : "Алгоритмические языки обработки данных и технология программирования" студента гр 42/96 Пономарёва А.Н. ************************* Руководитель: доц. Стрельников Б.А. асс. Степанова О.П. Выберите одну из следующих задач Ведение файла "Нормативы профилактики оборудования" Ведение файла "Профилактика" Получение ведомости нарушение норм техобслуживания Выход из Базы Данных Экранный кадр № 3: Нормативы профилактики оборудования: Идент. типа станка Наименование типа станка Норма,дней -------------------------------------------------------------------------- ---------------- 1 ¦ Строгальный ¦ 25 2 ¦ Сверлильный ¦ 15 3 ¦ Токарный ¦ 20 ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ -------------------------------------------------------------------------- ----------------- Тип станка: Строгальный (/ ( / ( / ( / ^( PgUp / PgDn / ^(/ Home / End - Перемещение курсора ¦ Esc - Возврат на шаг назад ¦F8 - Удалить строку Enter - Редактирование ¦ ¦F3 - Вставить строку Экранный кадр № 4: Профилактики: Инв.№ станка Вид профилактики Дата профилактики -------------------------------------------------------------------------- -------------- 2 ¦ Смазка ¦ 01/09/98 2 ¦ Регулировка ¦ 01/29/98 2 ¦ Чистка ¦ 04/01/98 231 ¦ Смазка ¦ 01/09/98 231 ¦ Регулировка ¦ 01/28/98 231 ¦ Чистка ¦ 03/20/98 24 ¦ Смазка ¦ 01/09/98 24 ¦ Регулировка ¦ 01/18/98 24 ¦ Чистка ¦ 04/02/98 323 ¦ Смазка ¦ 01/09/98 323 ¦ Регулировка ¦ 01/28/98 323 ¦ Чистка ¦ 04/15/98 -------------------------------------------------------------------------- -------------- Инв.№ станка: 2 Вид профилактики: Смазка Дата профилактики: 01/09/98 (/ ( / ( / ( / ^( PgUp / PgDn / ^(/ Home / End - Перемещение курсора ¦ Esc - Возврат на шаг назад ¦F8 - Удалить строку Enter - Редактирование ¦ ¦F3 - Вставить строку Экранный кадр № 5: Таблица нарушение норм техобслуживания: ---------------------------------------------------------------------------- -------------------------------- ¦ Инв. ¦ Наименование ¦ Дата ¦ Вид предвор. ¦ Дата ¦ вид след. ¦Просроч.¦ ¦номер ¦ типа станка ¦ ¦ профилактики ¦ ¦ профилактики ¦ дней ¦ ¦--------------------------------------------------------------------------- ---------------------------------¦ ¦ 24 ¦ Сверлильный ¦01/18/98¦ Регулировка ¦04/02/98¦ Чистка ¦ 59 ¦ ¦ 323 ¦ Строгальный ¦01/28/98¦ Регулировка ¦04/15/98¦ Чистка ¦ 52 ¦ ¦ 2 ¦ Токарный ¦01/29/98¦ Регулировка ¦04/01/98¦ Чистка ¦ 42 ¦ ¦ 4 ¦ Сверлильный ¦01/19/98¦ Регулировка ¦03/10/98¦ Чистка ¦ 35 ¦ ¦ 626 ¦ Строгальный ¦02/01/98¦ Регулировка ¦03/31/98¦ Чистка ¦ 33 ¦ ¦ 231 ¦ Токарный ¦01/28/98¦ Регулировка ¦03/20/98¦ Чистка ¦ 31 ¦ ---------------------------------------------------------------------------- --------------------------------- Всего просроченно дней - 252 Экранный кадр № 6: Московская государственная текстильная академия ( МГТА ) БАЗА ДАННЫХ Нарушение норм техобслуживания: Курсовая работа по курсу : "Алгоритмические языки обработки данных и технология программирования" ------------------------------------------------------------------ ----------------а А.Н. ¦ Сохранить все внесенные изменения и продолжить ¦***** ¦ работу с Базой данных - т.е. сделать промежуточный SAVE ¦ ¦ или ¦ ¦ Завершить работу с базой данных с сохранением всех ¦.А. ¦ изменений ¦. ¦ Сохранить и продолжить Завершить работу ¦ ------------------------------------------------------------------ ---------------- Выберите одну из следующих задач Ведение файла "Нормативы профилактики оборудования" Ведение файла "Профилактика" Получение ведомости нарушение норм техобслуживания Выход из Базы Данных б) Пункты меню, что в них делается ? Меню № 1: 1) Сразу приступить к работе с Базой Данных 2) Заново построить все индексы Базы Данных 3) Провести компрессию Базы Данных 4) Выход из Базы Данных При выборе п.1, если индексы уже имеются мы попадаем в меню № 2. При выборе п.2 заново происходит построение всех индексов Б.Д . При выборе п.3 производится компрессия (уплотнение) Б.Д . При выборе п.4 появляется горизонтальное подменю: а) Сохранить и продолжить б) Завершить работу П.а) Сохранить все внесенные изменения и продолжить П.б) Завершить работу с базой данных с сохранением всех изменений Меню № 2: 1) Ведение файла "Нормативы профилактики оборудования" 2) Ведение файла "Профилактика" 3) Получение ведомости нарушение норм техобслуживания 4) Выход из Базы Данных При выборе п.1 мы попадаем в редактор файла aa.dbf - (“Нормативы профилактики оборудования”), где мы можем его просматривать и редактировать. При выборе п.2 мы попадаем в редактор файла bb.dbf - (“Профилактика”), где мы можем его просматривать и редактировать. При выборе п.3 происходит выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл “DD”, а также выдача ведомости на принтер. При выборе п.4 выполняются действия аналогичные п.4 в меню № 1. ............................................................................ ..................................................... 8. Ведение БД . Какими табл. представлено ведение БД, по какой табл. указывается текущая рабочая область, её слуги, колонки таблицы, набор клавиш на которые предусмотрена реакция системы. Клавиши на которые реагирует система: (/ ( / ( / ( /; PgUp / PgDn; Home / End - Перемещение курсора Enter - Выбор задачи в меню и редактирование полей в редакторе Esc - Возврат на шаг назад. Отмена редактирования (без сохранения изменненого значения) F8 - Удалить строку F3 - Вставить строку F10 - Выход из задачи с сохранением всей информации или выход без сохранения информации Таблицы ведения Б.Д.: Табл. №1 Нормативы профилактики оборудования: Идент. типа станка Наименование типа станка Норма, дней -------------------------------------------------------------------------- --------------------- ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ --------------------------------------------------------------------------- --------------------- Тип станка: Табл. №2 Профилактики: Инв.№ станка Вид профилактики Дата профилактики -------------------------------------------------------------------------- -------------------- ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ---------------------------------------------------------------------------- -------------------- Инв.№ станка: Вид профилактики: Дата профилактики: ............................................................................ ..................................................... 9. Структура программы : а) Содержимое rmk-файла “kursv.rmk”: objs = main2,aa,util,bb .prg.obj: CLIPPER $< /a/m/n .obj.exe: RTLINK OUTPUT $* FI $(objs) /PLL:base52 main2.obj : main2.prg aa.obj : aa.prg util.obj : util.prg bb.obj : bb.prg kurs_ok.exe : main2.obj aa.obj util.obj bb.obj б) Имена и содержание prg-файлов. По каждой функции: имя, назначение, параметры, тип данных и смысл, возвращенное значение, рабочие перемен-ные и их назначение. Программные файлы: 1) aa.prg В этой программе реализовано: 1. Создание TBrowse-объекта для просмотра-редактирования файла aa.dbf в окне. 2) bb.prg В этой программе реализовано: 1. Создание TBrowse-объекта для просмотра-редактирования файла bb.dbf в окне. 3) main2.prg В этой программе реализовано: 1.Организация меню. 2. Индексирование файлов. 3. Уплотнение файла . 4. Выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл “DD”, а также выдача ведомости на принтер. 5. Вывод на экран информации о “горячих” клавишах. 4) util.prg Эта программа содержит набор стандартных утилит: 1. Сохранение экрана, восстановление экрана. 2. Перевод в верхний регистр как латиницы, так и кириллицы. 3. Координаты, сообщение, цвет. 4. Выход из задачи с сохранением всей информации - реакция на клавишу F10. 5. Подача звукового сигнала для сигнализации успешного выполнения поставленной задачи: Описание основных подпрограмм: 1) п.п. постоения индексов: func db_index(prm) s_scr(24,0,25,79) CLOSE ALL SETCOLOR ("w/n") @ 24,0 CLEAR TO 25,79 @ 24,6 SAY "Ждите идет индексирование! " COLOR "w+*/n" use bb index on bb->invnom + dtoc(bb->dateprof) to bb0001 use aa index on aa->idst to aa0002 use cc index on cc->invnom to cc0003 use dd index on dd->(norma-fkdn) to dd0004 close all r_scr() return nil 2) п.п. открытия индексов: func db_open close all use aa index aa0002 use bb index bb0001 new use cc index cc0003 new use dd index dd0004 new return nil 3) п.п. уплотнения Б.Д. : FUNCTION db_compress() s_scr(24,0,25,79) CLOSE ALL SETCOLOR("w/n") @ 24,0 CLEAR TO 25,79 @ 24,6 SAY "Ждите идет уплотнение !" COLOR ("w+*/n") USE aa // уплотнение файла aa.dbf COPY TO work IF ERRORLEVEL() = 0 USE DELETE FILE aa.dbf RENAME work.dbf TO aa.dbf ENDIF USE bb // уплотнение файла bb.dbf COPY TO work IF ERRORLEVEL() = 0 USE DELETE FILE bb.dbf RENAME work.dbf TO bb.dbf ENDIF USE cc // уплотнение файла cc.dbf COPY TO work IF ERRORLEVEL() = 0 USE DELETE FILE cc.dbf RENAME work.dbf TO cc.dbf ENDIF USE dd // уплотнение файла dd.dbf COPY TO work IF ERRORLEVEL() = 0 USE DELETE FILE dd.dbf RENAME work.dbf TO dd.dbf ENDIF CLOSE ALL r_scr() RETURN NIL 4) п.п. выдачи информации о клавишах, на которые реагирует система ”Help”: PROCEDURE hlp(callpnt,prm) LOCAL retcol,crow,ccol IF prm = NIL prm := .F. ENDIF crow = ROW() ccol = COL() retcol = SETCOLOR("w/n") @ 22,0 CLEAR TO 24,79 IF callpnt = "GET" // исправленный HLP для GET 26.09.96 @ 22,0 SAY "Enter/" + CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' ; + " -Завершить редактирование с сохранением измененного значения" @ 22,0 SAY "Enter/"+ CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' COLOR "r+/n" @ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ; + ' / ^' + CHR(27) + ' / Home / End - Перемещение курсора' @ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ; + ' / ^' + CHR(27) + ' / Home / End' COLOR "r+/n" @ 24,1 SAY 'Esc - Отменить редактирование ' ; + '( без сохранения измененного значения )' @ 24,1 SAY "Esc" COLOR "r+/n" ENDIF IF callpnt="AAED" .OR. callpnt="BBED" SET COLOR TO ("w/n") @ 22,1 SAY chr(24) + " / " + chr(25) + " / " + CHR(26) + ' / ' ; + CHR(27) + ' / ^' + CHR(26) + " PgUp / PgDn " ; + ' / ^' + CHR(27) + '/ Home / End - Перемещение курсора' @ 24,0 SAY 'Enter - Редактирование ' @ 23,23 TO 24,23 DOUBLE @ 23,25 SAY 'Esc - Возврат на шаг назад ' COLOR "w/n" @ 23,25 SAY 'Esc' COLOR "r+/n" @ 23,54 TO 24,54 DOUBLE @ 23,55 SAY 'F8 - Удалить строку ' @ 24,55 SAY 'F3 - Вставить строку ' SET COLOR TO ("r+/n") @ 22,1 SAY chr(24) + " / " + chr(25) + " / " + CHR(26) + ' / ' ; + CHR(27) + ' / ^' + CHR(26) + " PgUp / PgDn " ; + ' / ^' + CHR(27) + '/ Home / End ' @ 24,0 SAY 'Enter' @ 23,55 SAY 'F8' @ 24,55 SAY 'F3' ENDIF IF callpnt="CCED" .OR. callpnt="DDED" SET COLOR TO ("w/n") @ 22,1 SAY chr(24) + " / " + chr(25) + " / " + CHR(26) + ' / ' ; + CHR(27) + ' / ^' + CHR(26) + " PgUp / PgDn " ; + ' / ^' + CHR(27) + '/ Home / End - Перемещение курсора' @ 24,0 SAY 'Enter - Редактирование ' @ 23,23 TO 24,23 DOUBLE @ 23,25 SAY 'Esc - Возврат на шаг назад ' COLOR "w/n" @ 23,25 SAY 'Esc' COLOR "r+/n" @ 24,25 SAY '^Enter - Выбор значения ' COLOR "w/n" @ 24,25 SAY '^Enter' COLOR "r+/n" @ 23,54 TO 24,54 DOUBLE @ 23,55 SAY 'F8 - Удалить строку ' @ 24,55 SAY 'F3 - Вставить строку ' SET COLOR TO ("r+/n") @ 22,1 SAY chr(24) + " / " + chr(25) + " / " + CHR(26) + ' / ' ; + CHR(27) + ' / ^' + CHR(26) + " PgUp / PgDn " ; + ' / ^' + CHR(27) + '/ Home / End ' @ 24,0 SAY 'Enter' @ 23,55 SAY 'F8' @ 24,55 SAY 'F3' ENDIF SET COLOR TO (retcol) SETPOS(crow,ccol) RETURN 5) п.п. выявления всех случаев превышения нормативных интервалов между профилактиками, вывода их в выводной файл “DD”, а также выдачи ведомости на принтер: func vedom local tinvnom,sitog,tdata,tidzap,tidst,idpop set printer on select dd zap lin:=space(17)+"Таблица нарушение норм техобслуживания:" ? lin select bb set relat to bb->invnom into cc set relat to cc->idst into aa additive go top sitog:=0 do while .not. eof() tinvnom:=bb->invnom tdata:=bb->dateprof tidzap:=bb->idzap tidst:=cc->idst skip if(bb->invnom=tinvnom).and.(bb->dateprof-tdata>aa->norma) select dd append blank replace dd->invnom with tinvnom replace dd->fkdn with bb->dateprof-tdata replace dd->norma with aa->norma replace dd->idzappp with tidzap replace dd->idzapsp with bb->idzap sitog:=sitog+(dd->fkdn-dd->norma) select bb endif enddo lin:="+--------------------------------------------------------------------- --------+" ? lin lin:="¦ Инв.¦ Наименование ¦ Дата ¦ Вид предвор. ¦ Дата ¦ вид след. ¦Просроч.¦" ? lin lin:="¦номер¦ типа станка ¦ ¦ профилактики ¦ ¦ профилактики ¦ дней ¦" ? lin lin:="¦-----+--------------+--------+--------------+--------+-------------- +--------¦" ? lin select dd set relat to dd->invnom into cc additive go top do while .not. eof() tinvnom:=dd->invnom idpop:=dd->idzappp lin:="¦ "+dd->invnom+" ¦ " select bb go top do while .not. eof() if(tinvnom=bb->invnom).and.(idpop=bb->idzap) lin:=lin+aa->namest+" ¦"+dtoc(bb->dateprof)+"¦ "+bb->vidprof endif skip enddo select dd idpop:=dd->idzapsp select bb go top do while .not. eof() if(tinvnom=bb->invnom).and.(idpop=bb->idzap) lin:=lin+" ¦"+dtoc(bb->dateprof)+"¦ "+bb->vidprof+"¦ " endif skip enddo select dd lin:=lin+str(dd->fkdn-dd->norma,4)+" ¦" ? lin skip enddo lin:="+--------------------------------------------------------------------- --------+" ? lin set color to w+/b lin:=" Всего просроченно дней -"+str(sitog,5) ? lin set printer off sound() inkey(0) return nil 6) п.п. подачи звукового сигнала для сигнализации успешного выполнения поставленной задачи: func sound tone(300,1) tone(100,1) tone(300,1) tone(100,1) return nil 7) п.п. сохранения зкрана: FUNC s_scr(t,l,b,r) IF t = NIL t := 0 ENDIF IF l = NIL l := 0 ENDIF IF b = NIL b := MAXROW() ENDIF IF r = NIL r := MAXCOL() ENDIF AADD( wind[1], t ) AADD( wind[2], l ) AADD( wind[3], b ) AADD( wind[4], r ) AADD( wind[5], SAVESCREEN(t,l,b,r) ) AADD( pos[1], ROW() ) AADD( pos[2], COL() ) AADD( colr, SETCOLOR() ) AADD( curs, SETCURSOR() ) RETURN .T. 8) п.п. восстановления зкрана: FUNC r_scr() LOCAL ln ln := LEN(wind[1]) IF ln == 0 @ 24,0 SAY ' Ошибка - стек для восстановления параметров пуст ' INKEY(0) @ 24,0 ENDIF RESTSCREEN(wind[1,ln], wind[2,ln], wind[3,ln], wind[4,ln], wind[5,ln] ) ASIZE(wind[1],ln-1) ASIZE(wind[2],ln-1) ASIZE(wind[3],ln-1) ASIZE(wind[4],ln-1) ASIZE(wind[5],ln-1) SETPOS( pos[1,ln], pos[2,ln] ) ASIZE(pos[1],ln-1) ASIZE(pos[2],ln-1) SETCOLOR(colr[ln]) ASIZE(colr,ln-1) SETCURSOR(curs[ln]) ASIZE(curs,ln-1) RETURN .T. 9) п.п. определения - нажата ли клавиша типового метода, если да - то возвращает блок кода с соответствующим методом, если нет - то возвращает NIL. Параметр функции - INKEY-код нажатой клавиши. FUNC basemet(cod) LOCAL ret , ei , i LOCAL crsm:={ ; {K_DOWN , } ; , {K_UP , o:up() } ; , {K_PGDN , o:pagedown() } ; , {K_PGUP , o:pageup() } ; , {K_CTRL_PGDN , o:gobottom() } ; , {K_CTRL_PGUP , o:gotop() } ; , {K_RIGHT , o:right() } ; , {K_LEFT , } ; , {K_CTRL_RIGHT , } ; , {K_CTRL_LEFT , o:panleft() } ; , {K_END , o:end() } ; , {K_HOME , } ; , {K_CTRL_END , o:panend() } ; , {K_CTRL_HOME , } } i := ASCAN( crsm, cod = ei[1] ) IF i <> 0 ret := crsm[i,2] ELSE ret := NIL ENDIF RETURN ret 10) п.п. переключения режима вставка/замена и вида курсора: PROCEDURE Repl_Ins() IF READINSERT() READINSERT(.F.) SETCURSOR(SC_INSERT) ELSE READINSERT(.T.) SETCURSOR(SC_NORMAL) ENDIF RETURN 11) п.п. перевода в верхний регистр латиницы и кириллицы: FUNC UpperC(prm) LOCAL n , i , smb , cs n := LEN( prm ) FOR i = 1 TO n smb := SUBSTR( prm , i , 1 ) cs := ASC( smb ) DO CASE CASE cs >= 97 .AND. cs = 160 .AND. cs = 224 .AND. cs 80 RETURN ENDIF IF x=NIL // Центр по X x := (80-ml)/2 ENDIF IF y=NIL // Центр по Y y := 24/2 - 1 ENDIF IF color <> NIL c := SETCOLOR(color) @ y,x SAY m SETCOLOR(c) ELSE @ y,x SAY m ENDIF RETURN 14) п.п. создания TBrowse-объекта для просмотра-редактирования файла aa.dbf в окне t,l,b,r : FUNCTION aaCr(t,l,b,r) LOCAL brws,coln,cblk,chdr brws := TBrowseDb(t,l,b,r) cblk := chdr := "Идент. типа станка" coln := TBColumnNew(chdr,cblk) coln:width := 19 brws:AddColumn(coln) cblk := chdr := " Наименование типа станка" coln := TBColumnNew(chdr,cblk) coln:width := 35 brws:AddColumn(coln) cblk := STR( aa->norma,7) chdr := " Норма,дней" coln := TBColumnNew(chdr,cblk) coln:width := 12 brws:AddColumn(coln) brws:colsep := CHR(186) brws:headsep := CHR(205) brws:colorspec := "w+/b,gr+/rb" RETURN brws 15) п.п. просмотра файла aa.dbf с обработкой нажимаемых клавиш и вызовом соответствующих методов или пользовательских функций: FUNCTION aaEd(brws) LOCAL ret_fl,sel,otb , w LOCAL cc,rr,nrc:=0,i LOCAL ret:=NIL LOCAL t := brws:nTop , l := brws:nLeft , b := brws:nBottom , r := brws:nRight LOCAL t_ := 5 , l_ := 6 , b_ := 15 , r_ := 74 s_scr() s_r_s() SETCOLOR( "N/W" ) CLS SETCOLOR( "gr+/b,w+/gr") hlp("AAED") SELECT aa SET ORDER TO 2 @ t-2 , l-1 CLEAR TO b+2 , r+1 @ b+1, l TO b+1, r ret_fl := .F. DO WHILE .NOT. ret_fl ** оптимизированная с использованием буфера клавиатуры стабилизация DO WHILE ( NEXTKEY() == 0 ) .AND. ( .NOT. brws:stabilize() ) ENDDO IF ( NEXTKEY() == 0 ) .AND. ( RECNO() <> nrc) nrc := RECNO() rr := ROW() cc := COL() SETCOLOR("bg+/b") @ t-2 , l+1 SAY " Нормативы профилактики оборудования:" @ b+2 , l+1 SAY " Тип станка: " @ b+2 , COL()+1 SAY aa->namest COLOR "w+/b" SETPOS(rr,cc) ENDIF SETCOLOR("gr+/rb") ** ожидаем нажатия клавиши nkey := Inkey(0) // если нажата клавиша типового метода - вызовем его blk := basemet( nKey ) IF blk <> NIL EVAL( blk , brws ) ELSE DO CASE CASE ( bHotkey := SETKEY( nKey ) ) <> NIL EVAL( bHotkey , PROCNAME() , PROCLINE() , READVAR() ) CASE ( nKey = K_F8 ) DELETE // потрогаем файловый указатель, если // возвращаетя EOF() - .T. после Down-Up, // значит файл пуст SKIP SKIP -1 IF RECNO() = RECCOUNT()+1 ret_fl := .T. // завершение просмотра ENDIF brws:RefreshAll() nrc := 0 CASE nKey = K_ESC ret_fl := .T. // завершение просмотра CASE ( nKey = K_ENTER ) // Редактирование текущего элемента данных aaGet(brws ; , " Редактирование файла aa.dbf" ) nrc := 0 // обновить верхнюю строку CASE nKey == K_F3 APPEND BLANK brws:RefreshAll() ENDCASE ENDIF ENDDO SET RELAT TO s_r_s(.T.) r_scr() RETURN ret 16) п.п. выполнения GET в текущей колонке файла aa.dbf: PROCEDURE aaGet( brws , z0 ) LOCAL r , c , w , w2 , otb LOCAL retcurs,retexit // форма курсора и режим выхода из READ LOCAL retins, retcol // режим вставка-замена в READ LOCAL indch := .F. // флаг изменений значений полей, входящих в // индекснове выражение (тогда нужно REFRESHALL(), // а не REFRESHCURRENT() ) LOCAL col r := ROW() c := COL() // Проверка обновления экрана, корректности базы и т.д. ForceStable(brws) // Установка клавиш Up-Arrow и Down-Arrow как клавиш выхода из // команды READ retexit := READEXIT(.T.) // Установка клавиши INS для переключения // режима вставка/замена // и соответствующего изменения вида курсора retins := SetKey( K_INS, Repl_Ins() ) // эквивалентно Set Key K_INS To Procedure Repl_Ins // Установка вида курсора по текущему состоянию режима retcurs := SetCursor( IF(ReadInsert(), SC_NORMAL, SC_INSERT ) ) s_scr() retcol := SETCOLOR("w+/g") @ brws:nTop-3,0 @ brws:nTop-3,0 SAY z0 hlp("GET") SETCOLOR("gr+/n,w+/g") indch := .F. DO CASE CASE brws:colpos = 1 w := aa->idst @ r,c+2 GET w READ IF .NOT.( LASTKEY() = K_ESC ).OR.( aa->idst == w ) REPLACE aa->idst WITH w indch := .T. ENDIF CASE brws:colpos = 2 n := aa->namest @ r,c+2 GET n READ IF .NOT.( LASTKEY() = K_ESC ).OR.( aa->namest == n ) REPLACE aa->namest WITH n ENDIF CASE brws:colpos = 3 w := aa->norma @ r,c+1 GET w READ IF .NOT.( ( LASTKEY() = K_ESC ) .OR. ( aa->norma = w ) ) REPLACE aa->norma WITH w ENDIF ENDCASE SETCOLOR(retcol) r_scr() SETPOS(r,c) IF indch brws:RefreshAll() ELSE brws:RefreshCurrent() // Обеспечить перерисовку текущей строки, ENDIF // поскольку изменялся элемент данных // Восстановление формы курсора и режима выхода из READ по стрелкам // и процедуры по клавише K_INS SetCursor(retcurs) READEXIT(retexit) SetKey(K_INS, retIns) // Проверка требования ухода с текущей записи после GET nKey := LASTKEY() IF nKey == K_UP .OR. nKey == K_DOWN .OR. ; nKey == K_PGUP .OR. nKey == K_PGDN // управление курсором -- переход к другой записи KEYBOARD( CHR(nKey) ) ENDIF RETURN Примечание: В отчёте не описаны п.п.: а) для создания TBrowse-объекта для просмотра-редактирования файла bb.dbf в окне t,l,b,r ; б) для просмотра файла bb.dbf с обработкой нажимаемых клавиш и вызовом соответствующих методов или пользовательских функций; в) для выполнения GET в текущей колонке файла bb.dbf: Т.к. эти подпрограммы практически аналогичны подпрограммам для файла aa.dbf !!! ............................................................................ ..................................................... 10. Результаты тестового примера: а) Содержимое выводного файла dd.dbf: INVNOM FKDN NORMA IDZAPPP IDZAPSP 2 62 20 9 15 231 51 20 10 16 24 74 15 12 18 323 77 25 8 14 4 50 15 11 17 626 58 25 7 13 б) Содержимое файла (print.prn), выводимого на принтер: Таблица нарушение норм техобслуживания: ---------------------------------------------------------------------------- ------------------------------------- ¦ Инв. ¦ Наименование ¦ Дата ¦ Вид предвор. ¦ Дата ¦ вид след. ¦ Просроч.¦ ¦номер ¦ типа станка ¦ ¦ профилактики ¦ ¦ профилактики ¦ дней ¦ ¦--------------------------------------------------------------------------- -------------------------------------¦ ¦ 24 ¦ Сверлильный ¦01/18/98 ¦ Регулировка ¦04/02/98 ¦ Чистка ¦ 59 ¦ ¦ 323 ¦ Строгальный ¦01/28/98 ¦ Регулировка ¦04/15/98 ¦ Чистка ¦ 52 ¦ ¦ 2 ¦ Токарный ¦01/29/98 ¦ Регулировка ¦04/01/98 ¦ Чистка ¦ 42 ¦ ¦ 4 ¦ Сверлильный ¦01/19/98 ¦ Регулировка ¦03/10/98 ¦ Чистка ¦ 35 ¦ ¦ 626 ¦ Строгальный ¦02/01/98 ¦ Регулировка ¦03/31/98 ¦ Чистка ¦ 33 ¦ ¦ 231 ¦ Токарный ¦01/28/98 ¦ Регулировка ¦03/20/98 ¦ Чистка ¦ 31 ¦ ---------------------------------------------------------------------------- ------------------------------------- Всего просроченно дней - 252 |
|
