3. Ñîäåðæàíèå îò÷åòà ñ íîìåðàìè ñòðàíèö.
4. Èñõîäíàÿ áàçà äàííûõ (ÁÄ).
5. Êðàòêèå ïîÿñíåíèÿ ïî ïîðÿäêó ñîçäàíèÿ ÁÄ òàáëè÷íîãî òèïà.
6. Ðàñïå÷àòêà ïðîãðàììû íà ÿçûêå ÈÏÑ.
7. Èíñòðóêöèÿ ïî èñïîëüçîâàíèþ ïðîãðàììû äëÿ ðåøåíèÿ ïîñòàâëåííîé çàäà÷è.
8. Ðàñïå÷àòêà ñïðàâîê çàäàííîãî òèïà ( íå ìåíåå òðåõ ðàñïå÷àòîê).
9. Âûâîäû ( çàêëþ÷åíèÿ ) ïî ðàáîòå.
10. Ñïèñîê ëèòåðàòóðû.
Ðàñïå÷àòêà ïðîãðàììû:
MAINMENU.FW3
@menu(mainmenu)
MAINMENU.[Íà÷àëüíàÿ óñòàíîâêà.]:
;---Çàãðóçêà ôðåéìà [resume] ñ êîìàíäîé @resume---
@local(p),p:=@frametype,
@if(@and(p<>1,p<>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}"),
@setselection("base.fw3"),
@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"),
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",
@list(q:=@value(@inputline("Ââåäèòå íîìåð óäàëÿåìîé çàïèñè")),
@reset(base,q),
@pk("{in}{ins}{return}y{esc}{out}"),r:=r-1,
p:=@inputline("Óäàëÿòü åùå?ÄÀ(y)/ÍÅÒ(n)"))),
;---Çàâåðøåíèå óäàëåíèÿ çàïèñåé â áàçå äàííûõ---
Страницы: 1, 2, 3
