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

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

N Название Отдел Инв.N Перв.ст АО% Датаопр. N АО Датавыб. N АВ Фам.мат.отв

==========================================================

1 Принтер 4 1748 34000 13 12.10.89 3424 Кутузов А.А

2 Компьютер 4 2458 507000 20 10.04.91 3645 Медведев Д.М.

3 Телекс 8 11237 362000 56 02.09.85 4322 06.07.89 576Грибков С.А.

4 Принтер 6 34600 678900 27 13.07.89 9780 04.12.93 564ЗавалишинС.Е.

5 АТС 8 22587 898800 12 31.07.70 7584 ШаминС.В.

6 Компьютер 6 342 856320 63 06.05.74 7463 04.12.84 361 Конкс Ю.В.

7 Телефоны 6 575 87765 47 19.09.86 9706 ПотятынникТ.Н.

8 Сервер 5 3346 940000 42 05.02.89 3424 ЖитниковаЕ.E.

9 Телетайп 2 5473 50000 51 20.04.76 479 01.12.85 563 Родионов Д.К.

10 Компьютер 5 118 780000 11 01.01.85 2344 КоваленкоД.П.

11 Компьютер 5 3380 596900 87 12.05.87 4650 23.04.91 453АфанасьевД.И.

12 Принтер 5 4597 135000 90 23.04.87 9005 27.09.90 574Шанина Н.О.

13 Компьютер 3 1007 900300 12 14.06.89 3645 РазумовскийО.Д.

14 Ксерокс 3 2367 431000 41 26.07.78 9090 ГригорьеваС.С.

15 Телекс 8 1109 500000 21 23.06.76 4354 СтатниковаН.А.

16 Телефоны 3 4376 95680 12 14.08.90 3645 Нагария А.В.

17 Ксерокс 3 4643 987999 18 17.09.80 2536 Аганин Ю.В.

18 Плоттер 3 6350 289700 15 19.10.92 5315 Поганин М.Д.

19 Компьютер 2 8451 854000 19 20.09.93 6123 Иванов П.Д.

20 Принтер 2 5305 900500 21 31.10.93 7330 Петров В.В.

ГОСУДАРСТВЕННАЯАКАДЕМИЯУПРАВЛЕНИЯим. С. ОРДЖОНИКИДЗЕ

КАФЕДРА

програмированияи компьютернойтехники

КУРСОВАЯРАБОТА

по дисциплине

"Компьютернаяпрактика"

( бригадаN 1 )

ВЫПОЛНИЛИ:студенты группыМЭО-I-1

ГрибковС.А.

КутузовА.А.

ПРОВЕРИЛ: доцент кафедрыВ.В. Евтеев

"...".................1994г.

Москва,1994 г.

СОДЕРЖАНИЕ:

1.)Задание. 2

2.)Распечаткапрограммы 3

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

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

5.)Исходная базаданных 10

ЗАДАНИЕ

на курсовуюработу подисциплине:

"Компьютернаяпрактика"

студентамгруппы МЭО-I-1

ГрибковуС.А.

КутузовуА.А.

Темакурсовой работы:Применениеинтегрированныхприкладныхсистем длярешения экономическихзадач.

Исходныеданные :

1. ИспользованиеИПС-РАДУГА(FRAMEWORK III).

2. Исходнаябаза данных- совокупностьинвертарныхкарточек учетаосновных средств( по форме ОС-7)

3. Количествозаписей - 20. (см.таблицу исходныхданных).

4. Количествополей- 11.

5. Наименованиеполей:

-номеркарточки (N);

-названиесредства (название);

-местохранения - отдел(Отд.);

-нормаамортизационныхотчисленийв % ( А. О.);

-датаоприходывания( N акт.опр.);

-датавыбытия (Датавыб.);

-инвертарныйномер ( Инв. N );

-номеракта выбывания(N акт. выб.);

-фамилииматериальноответственноголица ( Aам. мат.отв.);

6. Тип выдаваемой справки-1 ( Наличиесредств в заданномотделе и ихсуммарнаястоимость).

РАЗРАБАТЫВАЕМЫЕВОПРОCЫ :

1. ОсвоениеиспользуемойИПС.

2. Созданиеисходной базыданных и пустойтаблицы.

3. Разработкапрограммы наязыке ИПС длясоздания ираспечаткисправки заданноготипа.

Справкадолжна содержатьне менее пятиполей (N,Название,Инв.N, Перв. ст.,Фам. мат. отв.).

СОДЕРЖАНИЕОТЧЕТА ПО РАБОТЕ:

1. Титульныйлист.

2. Задание( с конкретнымиданными посвоему варианту).

3. Содержаниеотчета с номерамистраниц.

4. Исходнаябаза данных(БД).

5. Краткиепояснения попорядку созданияБД табличноготипа.

6. Распечаткапрограммы наязыке ИПС.

7. Инструкцияпо использованиюпрограммы длярешения поставленнойзадачи.

8. Распечаткасправок заданноготипа ( не менеетрех распечаток).

9. Выводы( заключения) по работе.

10. Списоклитературы.

Распечаткапрограммы:

MAINMENU.FW3

@menu(mainmenu)

MAINMENU.[Начальнаяустановка.]:

;---Загрузкафрейма [resume] скомандой@resume---

@local(p),p:=@frametype,

@if(@and(p1,p2),@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>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"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"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"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([Отдел]"&p&")",@setformula(base,q),

@setselection("base"),@pk("{F5}"),

;---Определениеколичествазаписей вотфильтрованойБД---

p:=7,@pk("{ins}{home}"),

@while(p>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>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"&p&")",

q:=@integer(q),i:="@setformula(tabl.d"&q&","&r&")",

@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),

@eraseprompt

MAINMENU.[Печать]:

;---Подготовкапринтера кпечати---

@prompt("Подготовтепринтер, нажмитеRETURN.")

@nextkey,

@eraseprompt,

;---Печатьвыходногодокумента---

@local(p),

@pk("{ins}"),p:=7,

@while(p>0,

@list(@pk("{rightarrow}"),p:=p-1)),

@pk("{home}{return}"),

;---Завершениепечати выходногодокумента---

@pk("{ins}"),p:=7,

@while(p>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,

@eraseprompt

RESUME.FW3

@resume

TABL.FW3

С П Р А В К А

------------------

О наличиисредств, в отделеN

------------------------------------------------------

N Название Инв.N Перв.ст. Фам.мат.отв.

------------------------------------------------------

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

READ.ME

mainmenu.fw3- Файл с менюпользователя.

base.fw3 - Исходнаябаза данных.

printdoc.fw3 - Программаформированиявыходногодокумента.

tabl.fw3 - Шаблон выходногодокумента втаблице.

resume.fw3 - Служебныйфайл.

read.me - Данная инструкция.

Длявыполнениязадачи необходимовойти в пакетРадуга, установитьдискетус курсовойработой в дисководА, загрузитьфрейм с именем a:mainmenu.fw3 и нажатьF5.

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

С П Р А В К А

------------------

О наличиисредств, в отделеN 4

------------------------------------------------------

N Название Инв.N Перв.ст. Фам.мат.отв.

------------------------------------------------------

1 Принтер 1748 34000 КутузовА.А

2 Компьютер 2458 507000 МедведевД.В.

Итого: 541000

Дата: 17.05.94

С П Р А В К А

------------------

О наличиисредств, в отделеN 8

------------------------------------------------------

N Название Инв.N Перв.ст. Фам.мат.отв.

------------------------------------------------------

1 АТС 22587 898800Шамин С.В.

2 Телекс 1109 500000 Петров Н.О.

Итого: 1398800

Дата: 17.05.94

С П Р А В К А

------------------

О наличиисредств, в отделеN 3

------------------------------------------------------

N Название Инв.N Перв.ст. Фам.мат.отв.

------------------------------------------------------

1 Компьютер 1007 900300 РазумовскийО.Р.

2 Ксерокс 2367 431000 ГригорьеваС.В.

3 Телефоны 4376 95680 НагарияА.С.

4 Ксерокс 4643 987999 АганинЮ.В.

5 Плоттер 6350 289700 ПоганинМ.Д.

Итого: 2704679

Дата: 17.05.94

ЛИТЕРАТУРА:В.В.Евтеев,А.М.Махонько"Методическиеуказания ксамостоятельнойработе студентовпо дисциплине"ЭВМ и программирование".Раздел "Алгоритмическийязык ФРЕД"."