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