По решению прикладных задач на языке FRED

ГОСУДАРСТВЕННАЯ АКАДЕМИЯ УПРАВЛЕНИЯ им. С. ОРДЖОНИКИДЗЕКАФЕДРАпрограмирования и компьютерной техникиКУРСОВАЯ РАБОТАпо дисциплине бригада N 1 ВЫПОЛНИЛИ студенты группы МЭО-I-1Грибков С.А.Кутузов А.А.ПРОВЕРИЛ доцент кафедры В.В. Евтеев 1994 г.Москва, 1994 г.СОДЕРЖАНИЕ 1. Задание. 22. Распечатка программы 33. Инструкция по пользованию 84. Образцы выдаваемых справок 85. Исходная база данных 10ЗАДАНИЕна курсовую работу по дисциплине студентам группы МЭО-I-1Грибкову С.А.Кутузову А.А.Тема курсовойработы Применение интегрированных прикладныхсистем для решения экономических задач.Исходные данные 1. Использование ИПС-РАДУГА FRAMEWORK III .2. Исходнаябаза данных - совокупность инвертарных карточек учета основных средств по формеОС-7 3. Количествозаписей - 20. см. таблицу исходных данных .4. Количество полей- 5. Наименование полей -номер карточки N -названиесредства название -место хранения- отдел Отд. -норма амортизационныхотчислений в А. О. -дата оприходывания N акт.опр. -дата выбытия Дата выб. -инвертарныйномер Инв. N -номер актавыбывания N акт. выб. -фамилииматериально ответственного лица Aам. мат. отв. 6. Тип выдаваемой справки-1 РАЗРАБАТЫВАЕМЫЕ ВОПРОCЫ 1. Освоение используемой ИПС.2. Создание исходной базы данных и пустой таблицы.3. Разработкапрограммы на языке ИПС для создания и распечатки справки заданного типа. Справка должнасодержать не менее пяти полей N,Название, Инв.N, Перв. ст Фам. мат. отв. .СОДЕРЖАНИЕ ОТЧЕТА ПО РАБОТЕ 1. Титульный лист.2. Задание с конкретными даннымипо своему варианту .3. Содержание отчета с номерамистраниц.4. Исходная база данных БД .5. Краткиепояснения по порядку создания БД табличного типа.6. Распечаткапрограммы на языке ИПС.7. Инструкцияпо использованию программы для решения поставленной задачи.8. Распечаткасправок заданного типа не менее трех распечаток .9. Выводы заключения по работе.10. INMENU.FW3 menu mainmenu MAINMENU. Начальная установка.

Загрузка фрейма resume с командой resume local p, p frametype, if and p lt gt 1,p lt gt 2 , pk scroll- lock, setdrive a, pk in, setselection resume.fw3 , pk return scroll-lock out return scroll-lock , Установка а меню операцииНовое Пустой Текст-Фрейм prompt Нажмите INS, установите Новое Пустой Текст-Фрейм, нажмите ESC и F5 , suspend, Завершение начальной установки delete resume MAINMENU. Загрузка БД Загрузка базы данных base pk scroll-lock, setdrive a, pk in, setselection base. fw3 , pk return scroll-lock out return scroll-lock, position base ,1,1,80,10 , reset base,1 MAINMENU. Коррекция БД Коррекция базы данных Вставка,Изменение, Удаление записей MAINMENU. Коррекция БД . ВставкаЗаписи Подготовка операции Вставка local a, p,q, r ,p 7, pk ins home, while p gt 0, list pk dnarrow, p p-1 , pk esc , Вход в базу данных setselection base, pk in, r get base,5 , Вставка новых записей p y, r 0, integer r, while not p lt gt y, list pk ins return return, r r 1, q value inputline ВведитеN , put base,1,q, q inputline Введите НАЗВАНИЕ , put base,2,q, q value inputline ВведитеОТДЕЛ , put base,3,q, q value inputline ВведитеИНВ.N , put base,4,q, q value inputline Введитепервонач.стоимость, put base,5,q, q value inputline Введитеаморт. отчисл. , put base,6,q, q inputline Введите дату оприход. , put base,7,q, q value inputline ВведитеN акта оприход. , put base,8,q, a inputline Ресурс выбыл?Да y Нет n, if a y, list q inputline Введитедату выбытия, put base,9,q, q value inputline ВведитеN акта выбытия, put base,10,q, q inputline Введите фам.мат. отв. , put base,11,q, p inputline Вставлять еще?ДА y НЕТ n , Сортировка базы данных setformula base, sort base. N , ascend, base, Завершение вставки записей reset base,1 , put base,5,r, pk out return, pk ins home dnarrow esc MAINMENU. Коррекция БД . УдалениеЗаписи Подготовка операции Удаление local p, q,r, pk ins rightarrow home dnarrow dnarrow esc , Вход в базу данных setselection base, pk return, r get base,5 , Удаление записей p y, while not p lt gt y, list q value inputline Введитеномер удаляемой записи, reset base, q , pk in ins return y esc out, r r-1, p inputline Удалять еще?ДА y НЕТ n , Завершение удаления записейв базе данных reset base,1 , put base,5,r, pk return ins leftarrow esc MAINMENU. Коррекция БД . ИзменениеЗаписи Вход в базу данных local p, q,r, s , setselection base, pk in , Изменение записей в базе данных p y, while not p lt gt y, list q value inputline Введитеномер записи, r value inputline Введите номерполя, reset base, q ,s get base, r , if isnumeric s, list s value inputline Введитезначение, put base, r,s, list s inputline Введите запись, put base, r,s, p inputline Изменять еще? ДА у НЕТ n , Завершение изменения записей setselection base, setformula base, sort base. N , ascend, base, reset base,1 , pk out return MAINMENU. Коррекция БД . СохранениеБД Запись базы данных на диск А setselection base, pk scroll-lock, setdrive a, pk in scroll-lock f8 scroll-lock return y out return scroll-lock MAINMENU. Документ Формирование выходного документав таблице tabl Загрузка фреймов tabl, printdoc local p, q,r, m , pk scroll-lock, setdrive a, pk in, setselection tabl.fw3 , pk return scroll-lock, setselection printdoc.fw3 , pk return scroll-lock, pk out return scroll-lock , Фильтрация базы данных q not isnumeric N АВ , setformula base, q , setselection base, pk F5 , beep, p inputline Введите номер интересующеговас отдела, m p, q not Отдел lt gt amp p amp, setformula base, q , setselection base, pk F5 , Определение количества записейв отфильтрованой БД p 7, pk ins home, while p gt 0, list pk dnarrow, p p-1 , pk esc, setselection base, pk in, pk ins return return, p 99, put base,1,p, setformula base, sort base. N , ascend, base, pk out return, pk ins home dnarrow esc, setselection base, reset base,1 ,p get base,1 , q 0, while not p 99 , list q q 1, next base, p get base,1 , reset base,1 , put base,12,q, reset base,2 , put base,12,m, p get base,1 , while not p 99 , list next base, p get base,1 , pk in del out return , Переход к программе формированиявыходного документа- printdoc,PRINTDOC.FW3 Программаформирования выходного документа в таблице tabl local p, q,n, i,r, f,m , Вводиз base в tabl номера отдела reset base,2 ,m get base,12 , reset tabl,5,3 , put tabl, m , Вводиз base в tabl исходных данных N, Название, Инв. N, Перв.ст Фам.мат.отв. reset base,1 ,p get base,12 ,q 7, while p gt 0, list n get base,2 ,i get base,4 , r get base,5 ,f get base,11 , reset tabl,1,q, put tabl, q-6 , reset tabl,2,q, put tabl, n , reset tabl,3,q, put tabl, i , reset tabl,4,q, put tabl, r , reset tabl,5,q, put tabl, f , next base, q q 1,p p-1 , Выводна экран таблицы tabl setselection tabl, position tabl ,1,1,60,15 , pk return , Вводв таблицу tabl значения Итого reset base,1 ,p get base,12 ,n q 1, q p 7,r Итого, reset tabl,1,q, put tabl, r , p integer p 6 ,r sum tabl.d7 tabl.d amp p amp, q integer q, i setformula tabl.d amp q amp, amp r amp, setformula tabl, i , tabl, pk in F5 , Вводв таблицу даты reset tabl,1,n, p Дата, put tabl, p , reset tabl,3,n, p inputline Введите дату, put tabl, p , pk out , Возвратв меню Документ return p Завершениеформирования выходного документа pk ins leftarrow esc, beep, prompt Справка сформирована ,30 , nextkey 5 , erasepromptMAINMENU. Печать Подготовка принтера к печати prompt Подготовте принтер, нажмитеRETURN. nextkey, eraseprompt, Печать выходного документа local p, pk ins, p 7, while p gt 0, list pk rightarrow, p p-1 , pk home return , Завершение печати выходногодокумента pk ins, p 7, while p gt 0, list pk leftarrow, p p-1 , pk esc MAINMENU. Выход Удаление фреймов base, tabl, printdoc delete base, delete tabl, delete printdoc , Выход из меню eraseprompt, prompt Спасибо за работу! ,30 , beep, nextkey 5 , quitmenu, erasepromptRESUME.FW3 resumeTABL.FW3С П Р А В К А О наличии средств, в отделе N N Название Инв. N Перв.ст. Фам.мат.отв

Инструкция по пользованию

Инструкция по пользованию программой READ.MEmainmenu.fw3 - Файл с меню пользователя.base.fw3 - Исходнаябаза данных.printdoc.fw3 - Программа формированиявыходного документа.tabl.fw3 - Шаблон выходногодокумента в таблице.resume.fw3 - Служебный файл.read.me - Данная инструкция. Для выполнения задачи необходимовойти в пакет Радуга, установить дискету с курсовой работой в дисковод А, загрузитьфрейм с именем a mainmenu.fw3 и нажатьF5.

Образцы выдаваемых справок

Образцы выдаваемых справок. 2 Телекс 1109 50 Петров Н.О.Итого 1398800Дата 17.05.94С П Р А В К А О ... 2 Ксерокс 2367 431000 Григорьева С.В. 5 Плоттер 6350 289700 Поганин М.Д.Итого 2704679Дата 17.05.94ЛИТЕРАТУРА... Раздел Алгоритмический язык ФРЕД .

Исходная база данных

N Перв.ст АО Дата опр. N АО Дата выб. N АВ Фам.мат.отв 1 Принтер 4 1748 34000 13 12.10.89 3424 Кутузов А.А2 ... N Название Отдел Инв. Исходная база данных.