@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,
@pk("{out}{return}")
MAINMENU.[Êîððåêöèÿ ÁÄ].[Ñîõðàíåíèå ÁÄ]:
;---Çàïèñü áàçû äàííûõ íà äèñê À ---
@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),
@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),
@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,
@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,
@list(@pk("{rightarrow}"),p:=p-1)),
@pk("{home}{return}"),
;---Çàâåðøåíèå ïå÷àòè âûõîäíîãî äîêóìåíòà---
@list(@pk("{leftarrow}"),p:=p-1)),
@pk("{esc}")
MAINMENU.[Âûõîä]:
;---Óäàëåíèå ôðåéìîâ [base], [tabl], [printdoc]---
@delete("base"),
@delete("tabl"),
@delete("printdoc"),
;---Âûõîä èç ìåíþ---
@prompt("Ñïàñèáî çà ðàáîòó!",30),
@quitmenu,
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
1 Ïðèíòåð 1748 34000 Êóòóçîâ À.À
2 Êîìïüþòåð 2458 507000 Ìåäâåäåâ Ä.Â.
Èòîãî: 541000
Äàòà: 17.05.94
Î íàëè÷èè ñðåäñòâ, â îòäåëå N 8
1 ÀÒÑ 22587 898800 Øàìèí Ñ.Â.
2 Òåëåêñ 1109 500000 Ïåòðîâ Í.Î.
Èòîãî: 1398800
Î íàëè÷èè ñðåäñòâ, â îòäåëå N 3
1 Êîìïüþòåð 1007 900300 Ðàçóìîâñêèé Î.Ð.
2 Êñåðîêñ 2367 431000 Ãðèãîðüåâà Ñ.Â.
3 Òåëåôîíû 4376 95680 Íàãàðèÿ À.Ñ.
4 Êñåðîêñ 4643 987999 Àãàíèí Þ.Â.
5 Ïëîòòåð 6350 289700 Ïîãàíèí Ì.Ä.
Èòîãî: 2704679
ËÈÒÅÐÀÒÓÐÀ: Â.Â.Åâòååâ, À.Ì.Ìàõîíüêî "Ìåòîäè÷åñêèå óêàçàíèÿ ê ñàìîñòîÿòåëüíîé ðàáîòå ñòóäåíòîâ ïî äèñöèïëèíå "ÝÂÌ è ïðîãðàììèðîâàíèå". Ðàçäåë "Àëãîðèòìè÷åñêèé ÿçûê ÔÐÅÄ"."
Страницы: 1, 2, 3
