êóðñîâûå,êîíòðîëüíûå,äèïëîìû,ðåôåðàòû
1. Ñòðóêòóðû áàçû äàííûõ……………………………………………..3
2. Àëãîðèòì ðàáîòû ïðîãðàììû……………………………………….4
3. Ðèñóíêè, îòîáðàæàþùèå âíåøíèé âèä ýêðàííûõ ôîðì è ìåíþ….5
4. Òåêñòû ïðîãðàììû è ïðîöåäóð ñ ïîäðîáíûìè êîììåíòàðèÿìè…..8
5. Îáðàçöû îò÷åòîâ………………………………………………………17
6. Èíñòðóêöèÿ ïî ýêñïëóàòàöèè ïðîãðàììû…………………………...18
7. Ëèòåðàòóðà ……………………………………….……………………19
Ñòðóêòóðû áàç äàííûõ.
Ðàññìîòðèì ñòðóêòóðû áàç äàííûõ íà ðèñóíêå:
Çäåñü îáå áàçû äàííûõ ïðîèíäåêñèðîâàíû è ñâÿçàíû ïî ïîëþ NOMBIL, ïðè÷åì îäíîé çàïèñè áàçû äàííûõ READERS ìîãóò ñîîòâåòñòâîâàòü íåñêîëüêî çàïèñåé èç áàçû äàííûõ BOOKS (ñâÿçü «îäíà-ñî-ìíîãèìè).
Ðèñóíêè, îòîáðàæàþùèå âíåøíèé
âèä ýêðàííûõ ôîðì è ìåíþ
3. Ïóíêò ìåíþ «ïîèñê ÷èòàòåëÿ»
ã) Îêíî ïîèñêà êíèãè è îêíî âûáîðà êíèãè ïî ââåäåííûì äàííûì.
ä) Îêíî èçìåíåíèÿ äàííûõ ÷èòàòåëÿ.
6. Âûâîä ñïèñêà äîëæíèêîâ íà ýêðàí.
Òåêñò ïðîãðàììû ñ êîììåíòàðèÿìè
*** Óñòàíîâêà ñðåäû
CLEAR
RELEASE ALL
SET MOUSE OFF
SET BELL OFF
SET TALK OFF
SET ESCAPE OFF
SET DATE GERMAN
SET HELP OFF
ON KEY
CLEAR MACROS
***Âûâîä èíôîðìàöèè î êóðñîâîé ðàáîòå è ââîä ïàðîëÿ
DEFINE WINDOW BEGIN FROM 3,15 TO 16,64;
COLOR N/GR,,GR+/GR DOUBL
ACTIVATE WINDOW BEGIN
PS=0
DO WHILE PS=0
@ 0,16 SAY 'ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ'
@ 1,10 SAY 'ïî äèñöèïëèíå "Èíôîðìàòèêà"'
@ 3,7 SAY 'Áàçà äàííûõ "×ÈÒÀÒÅËÈ ÁÈÁËÈÎÒÅÊÈ"'
@ 4,17 SAY '(âàðèàíò ¹ 21)'
@ 6,2 SAY 'Âûïîëíèë: ñòóäåíò ãðóïïû ÓÈ-198 Ñèäîðîâ À.Â.'
@ 7,2 SAY ' Ïðèíÿë: äîöåíò Ãðèøèí Â.Ñ.'
@ 11,21 SAY 'ÂÂÅÄÈÒÅ ÏÀÐÎËÜ:' GET PAS DEFAULT SPACE(10)
READ
DO CASE
CASE PAS#'332087S'
WAIT 'ÍÅ ÏÐÀÂÈËÜÍÎ ÂÂÅÄÅÍ ÏÀÐÎËÜ' WINDOW
OTHERWISE
PS=1
RELEASE WINDOW BEGIN
ENDCASE
ENDDO
*** Îòêðûòèå áàç äàííûõ è óñòàíîâêà ñâÿçåé
USE READERS IN A ORDER 1
USE BOOKS IN B ORDER 1
SET RELATION TO NOMBIL INTO B
SET SKIP TO B
*** Îïèñàíèå îêîí
DEFINE WINDOW F1 FROM 12,27 TO 20,73;
TITLE ' ÏÎÌÎÙÜ ';
COLOR W+/G DOUBL SHADOW
DEFINE WINDOW F3 FROM 13,10 TO 22,69;
TITLE ' ÂÛÄÀÒÜ ÊHÈÃÓ ';
COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW SELECT FROM 3,2 TO 14,78;
TITLE ' ÂÛÁÎÐ ÊHÈÃÈ ';
COLOR W+/GR,W+/GR,W+/GR,W+/GR,,W+/N
DEFINE WINDOW SELECT1 FROM 2,0 TO 22,79;
TITLE ' ÏÐÎÑÌÎÒÐ ÄÎËÆHÈÊÎÂ ';
COLOR W+/BG
DEFINE WINDOW F4 FROM 11,0 TO 18,53;
TITLE 'ÄÀHHÛÅ ×ÈÒÀÒÅËß';
COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW BROWSE1 FROM 0,0 TO 4,79;
TITLE DTOC(DATE());
COLOR W+/B
DEFINE WINDOW BROWSE FROM 5,0 TO 15,79;
COLOR SCHEME 10
DEFINE WINDOW NOMER FROM 15,25 TO 18,55;
TITLE 'ÏÎÈÑÊ ×ÈÒÀÒÅËß';
COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND FROM 14,15 TO 22,69;
TITLE ' ÄÎÁÀÂËÅHÈÅ ×ÈÒÀÒÅËß ';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND1 FROM 13,15 TO 23,69;
TITLE ' ÄÎÁÀÂËÅHÈÅ ÊHÈÃÈ ';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW WHERE FROM 14,15 TO 23,54;
TITLE ' ÂÛÂÎÄ ÄÀHHÛÕ ';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW EXIT FROM 16,20 TO 19,60;
COLOR SCHEME 7 SHADOW
*** Îñíîâíàÿ ÷àñòü (ìåíþ)
SET COLOR TO W+/B ,N/RB
SELECT A
M=0
DO WHILE M#5
CLEAR
@ 3,20 TO 13,58 DOUBL
@ 5,28 SAY ' ÃËÀÂHÎÅ ÌÅHÞ: ' COLOR BG/B
@ 7,28 PROMPT ' ÏÎÈÑÊ ×ÈÒÀÒÅËß '
@ 8,28 PROMPT ' ÄÎÁÀÂÈÒÜ ×ÈÒÀÒÅËß '
@ 9,28 PROMPT ' ÄÎÁÀÂÈÒÜ ÊHÈÃÓ '
@ 10,28 PROMPT ' ÏÐÎÑÌÎÒÐ ÄÎËÆHÈÊÎÂ '
@ 11,28 PROMPT ' ÂÛÕÎÄ '
MENU TO M
DO MENUGLAV
ENDDO
*** Êîíåö îñíîâíîé ÷àñòè
*** Ïîäãîòîâêà ê âûõîäó èç ïðîãðàììû
ON KEY
SET COLOR TO
SET BELL ON
SET MOUSE ON
SET HELP ON
CLEAR WINDOWS
CLOSE ALL
CLEAR
*** Hà÷àëî ïðîöåäóð
*** Ïðîöåäóðà ðàñïîçíàâàíèÿ âûáîðà â ìåíþ
PROCEDURE MENUGLAV
DO CASE
CASE M=1
DO MAIN
CASE M=2
DO APPENDREADER
CASE M=3
DO APPENDBOOK
CASE M=4
DO DOLG
CASE M=5
DO EXIT
ENDCASE
RETURN
*** Ïóíêò ìåíþ ÏÎÈÑÊ ×ÈÒÀÒÅËß
PROCEDURE MAIN
D=0
DO WHILE D=0
SELECT A
ACTIVATE WINDOW NOMER
@ 0,1 SAY 'Ââåäèòå íîìåð'
@ 1,4 GET A FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0
I=0
@ 0,21 GET I FUNCTION;
'* ÏÎÈÑÊ;ÎÒÌÅHÀ' SIZE 1,1,0
READ CYCLE
***Ïîèñê ÷èòàòåëÿ ïî íîìåðó áèëåòà
DO CASE
CASE I=1.AND.EMPTY(A)
WAIT 'Hîìåð íå áûë ââåäåí' WINDOW
CASE I=1.AND.!EMPTY(A).AND.!SEEK(A)
WAIT 'Ïîèñê ïî íîìåðó '+ALLTRIM(STR(A))+;
' íå óäà÷íûé' WINDOW
CASE I=2.OR.LASTKEY()=27
DEACTIVATE WINDOW NOMER
D=1
RETURN
OTHERWISE
DEACTIVATE WINDOW NOMER
D=1
***Ïðè óäà÷íîì ïîèñêå ÷èòàòåëÿ îòêðûâàåòñÿ BROWSE-îêíî
DO KEY &&Íàçíà÷åíèå êëàâèø
n=RECNO()
CLEAR
@ 16,0 SAY ' F1-ÏÎÌÎÙÜ F2-ÏÐÈHßÒÜ ÊHÈÃÓ F3-ÂÛÄÀÒÜ;
ÊHÈÃÓ F4-ÈÇÌÅHÈÒÜ ÄÀHHÛÅ ×ÈÒÀÒÅËß'
DO BROWSE1
SELECT B
ACTIVATE WINDOW BROWSE TOP
BROWSE TITLE 'ÑÏÈÑÎÊ ÊHÈÃ, ÂÛÄÀHHÛÕ ×ÈÒÀÒÅËÞ';
FIELDS WRITER :H='ÀÂÒÎÐ':15,;
NAME :H='HÀÇÂÀHÈÅ':33 ,;
YEAR :H='ÃÎÄ ÈÇÄ.':8 ,;
INVNOM :H='ÈHÂ ¹':5 ,;
DATA :H='ÄÀÒÀ ÂÛÄÀ×È':11;
FOR NOMBIL=n ;
NOEDIT NOAPPEND WINDOW BROWSE
DEACTIVATE WINDOW BROWSE
DEACTIVATE WINDOW BROWSE1
ENDCASE
ENDDO
ON KEY
RETURN
***Ïóíêò ìåíþ ÄÎÁÀÂÈÒÜ ×ÈÒÀÒÅËß
PROCEDURE APPENDREADER
SELECT A
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND BOTTOM
DO WHILE D=0
@ 1,1 SAY 'Ô.È.Î. ' GET FIOn DEFAULT SPACE(30)
@ 3,1 SAY 'ÀÄÐÅÑ ' GET ADDRn DEFAULT SPACE(40)
@ 5,1 SAY 'HÎÌÅÐ - '+STR(N,2)
I=0
@ 6,30 GET I FUNCTION;
'*H ÄÎÁÀÂÈÒÜ;ÎÒÌÅHÀ' SIZE 1,1,4
READ CYCLE
DO CASE
CASE I=1.AND.''#ALLTRIM(FIOn).AND.;
''#ALLTRIM(ADDRn)
APPEND BLANK
REPLACE FIO WITH FIOn, ADDR WITH ADDRn,;
NOMBIL WITH N
D=1
CASE I=2.OR.LASTKEY()=27
D=1
OTHERWISE
WAIT 'Äàííûå íå áûëè ââåäåíû' WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND
RETURN
***Ïóíêò ìåíþ ÄÎÁÀÂÈÒÜ ÊHÈÃÓ
PROCEDURE APPENDBOOK
SELECT B
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND1 BOTTOM
DO WHILE D=0
@ 1,1 SAY 'ÀÂÒÎÐ ' GET WRITERn DEFAULT SPACE(20)
@ 3,1 SAY 'HÀÇÂÀHÈÅ ' GET NAMEn DEFAULT SPACE(40)
@ 5,1 SAY 'ÃÎÄ ÈÇÄ. ' GET YEARn FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0
@ 7,1 SAY 'ÈHÂ. ¹ - '+STR(N,2)
I=0
@ 8,30 GET I FUNCTION;
'*H ÄÎÁÀÂÈÒÜ;ÎÒÌÅHÀ' SIZE 1,1,4
READ CYCLE
DO CASE
CASE I=1.AND.''#ALLTRIM(WRITERn);
.AND.''#ALLTRIM(NAMEn);
.AND.''#ALLTRIM(STR(YEARn))
APPEND BLANK
REPLACE WRITER WITH WRITERn, NAME WITH NAMEn,;
NOMBIL WITH N
D=1
CASE I=2.OR.LASTKEY()=27
D=1
OTHERWISE
WAIT 'Äàííûå íå áûëè ââåäåíû' WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND1
RETURN
***Ïóíêò ìåíþ ÏÐÎÑÌÎÒÐ ÄÎËÆHÈÊÎÂ
PROCEDURE DOLG
SET SPACE OFF
LOCATE FOR ''#ALLTRIM(DTOC(B.DATA,1)).AND.B.DATA<GOMONTH(DATE(),-6)
IF !FOUND()
WAIT 'Äîëæíèêîâ íåò!' WINDOW
RETURN
ENDIF
J=1
I=1
FILE='DOLG.TXT'
PATH=SYS(5)+CURDIR(SYS(5))
ACTIVATE WINDOW WHERE BOTTOM
SELECT A
@ 1,1 GET J FUNCTION;
'*R Hà ýêðàí;Hà ïðèíòåð;Â ôàéë' VALID A()
@ 5,1 SAY 'Èìÿ ôàéëà:'
@ 5,12 EDIT FILE SIZE 1,13,12 COLOR ,W+/BG,,,,,,,,W/RB;
DISABLE
@ 7,6 SAY 'Ïóòü:'
@ 7,12 EDIT PATH SIZE 1,24 COLOR ,W+/BG,,,,,,,,W/RB;
DISABLE
@ 1,28 GET I FUNCTION;
'* OK;ÎÒÌÅHA' SIZE 1,1,1
READ CYCLE
DO CASE
CASE I=2.OR.LASTKEY()=27 &&Åñëè <îòìåíà> èëè ESC
DEACTIVATE WINDOW WHERE
CASE I=1.AND.J=1 &&Åñëè âûâîä íà ýêðàí
DEACTIVATE WINDOW WHERE
GO TOP
ACTIVATE WINDOW SELECT1
CLEAR
***Ïîèñê äîëæíèêîâ è âûâîä íà ýêðàí
I=1
LOCATE FOR ''#ALLTRIM(DTOC(B.DATA,1));
.AND.B.DATA<GOMONTH(DATE(),-6)
IF FOUND()
? ALLTRIM(STR(I)),'. ',FIO,' Hîìåð áèëåòà: ',NOMBIL
A=NOMBIL
ENDIF
DO WHILE FOUND()
IF ROW()=17.OR.ROW()=18
WAIT 'Hàæìèòå êëàâèøó äëÿ ïðîäîëæåíèÿ' WINDOW
CLEAR
ENDIF
IF A#NOMBIL
A=NOMBIL
I=I+1
? ALLTRIM(STR(I)),'. ',FIO,' Hîìåð áèëåòà: ',NOMBIL
ENDIF
? ' ',B.WRITER,B.NAME,' ',B.INVNOM,' ',B.DATA
CONTINUE
ENDDO
WAIT 'Êîíåö ñïèñêà' WINDOW
DEACTIVATE WINDOW SELECT1
CASE I=1.AND.J=2 &&Åñëè âûâîä íà ïðèíòåð
DEACTIVATE WINDOW WHERE
IF PRINTSTATUS()
SET PRINTER ON
SET PRINTER TO LPT1
DO DOLGMEN &&Ïðîöåäóðà âûâîäà äîëæíèêîâ
EJECT PAGE
SET PRINTER TO
SET PRINTER OFF
ELSE
WAIT 'Ïðèíòåð íå ãîòîâ!' WINDOW
ENDIF
CASE I=1.AND.J=3 &&Åñëè âûâîä â ôàéë
DEACTIVATE WINDOW WHERE
SET PRINTER ON
FULL=PATH+FILE &&Îïðåäåëåíèå ïóòè ôàéëà
SET PRINTER TO &FULL
DO DOLGMEN
SET PRINT TO
SET PRINTER OFF
ENDCASE
SET SPACE ON
RETURN
***Ïðîöåäóðà çàïðîñà î âûõîäå èç ïðîãðàììû
PROCEDURE EXIT
ACTIVATE WINDOW EXIT TOP
@ 0,5 SAY 'Âû õîòèòå âûéòè èç ïðîãðàììû?'
YN=2
@ 1,12 GET YN FUNCTION;
'*H Äà;Håò' SIZE 1,1,6
READ CYCLE
IF YN=1
M=5
ELSE
M=0
ENDIF
DEACTIVATE WINDOW EXIT
RETURN
***Ïðîöåäóðà íàæàòèÿ êëàâèøè F1
PROCEDURE HELP
ON KEY
PUSH KEY CLEAR
ACTIVATE WINDOW F1
SET CURSOR OFF
TEXT
1. Âûçîâ ñïðàâêè - F1
2. ×òîáû ïðèíÿòü êíèãó ó ÷èòàòåëÿ, ïîñòàâüòå
óêàçàòåëü çàïèñåé íà êíèãó è íàæìèòå F2
3. ×òîáû âûäàòü êíèãó ÷èòàòåëþ, íàæìèòå F3
4. ×òîáû îòðåäàêòèðîâàòü äàííûå ÷èòàòåëÿ,
íàæìèòå F4
5. Âûõîä - ESCAPE
ENDTEXT
WAIT '' NOWAIT
SET CURSOR ON
DEACTIVATE WINDOW F1
POP KEY
DO KEY
RETURN
***Ïðîöåäóðà íàæàòèÿ êëàâèøè F4
PROCEDURE EDIT
ON KEY
ON KEY LABEL F1 DO F1
CLEAR READ
SELECT A
ACTIVATE WINDOW F4 TOP
I=0
FIOe=FIO
ADDRe=ADDR
@ 1,2 SAY 'Ô.È.Î.' GET FIOe
@ 3,2 SAY 'ÀÄÐÅÑ ' GET ADDRe
@ 5,2 SAY 'HÎÌÅÐ ÁÈËÅÒÀ - '+ALLTRIM(STR(N))
@ 5,32 GET I FUNCTION;
'*H OK;ÎÒÌÅHÀ' SIZE 1,1,4
READ CYCLE
IF I=1
REPLACE FIO WITH FIOe, ADDR WITH ADDRe
ENDIF
DEACTIVATE WINDOW F4
DO BROWSE1
SELECT B
DO KEY
RETURN
***Ïðîöåäóðà âûâîäà èíôîðìàöèè î ÷èòàòåëå
PROCEDURE BROWSE1
ACTIVATE WINDOW BROWSE1 BOTTOM
@ 0,2 SAY '×èòàòåëü: '+FIO
@ 1,2 SAY 'Àäðåñ: '+ADDR
@ 2,2 SAY '¹ áèëåòà: '+ALLTRIM(STR(NOMBIL))
RETURN
***Ïðîöåäóðà íàæàòèÿ êëàâèøè F3
PROCEDURE POISKBOOK
ON KEY
ON KEY LABEL F1 DO F1
CLEAR READ
SELECT B
GO TOP
ACTIVATE WINDOW F3 BOTTOM
D=0
DO WHILE D=0
CLEAR READ
I=0
@ 1,3 SAY 'ÀÂÒÎÐ: ' GET WRITER1 DEFAULT SPACE(20)
@ 3,3 SAY 'HÀÇÂÀHÈÅ: ' GET NAME1 DEFAULT SPACE(40)
@ 5,3 SAY 'ÃÎÄ ÈÇÄÀHÈß: ' GET YEAR1 FUNCTION'ZZZZ' PICTURE '9999' DEFAULT 0
@ 7,3 SAY 'ÈHÂ. HÎÌÅÐ: ' GET INVNOM1 FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0
@ 7,26 GET I FUNCTION;
'*H ÂÛÁÎÐ..;OK;ÎÒÌÅHÀ' SIZE 1,1,4
READ CYCLE
***Ôîðìèðîâàíèå ïåðåìåííîé äëÿ ïîèñêà
P='.T.'
P=P+IIF(EMPTY(WRITER1), '','.AND.WRITER=['+PROPER(ALLTRIM(WRITER1))+']')
P=P+IIF(EMPTY(NAME1), '','.AND.NAME=['+(UPPER(SUBSTR(ALLTRIM(NAME1),1,1));
+SUBSTR(ALLTRIM(NAME1),2,39))+']')
P=P+IIF(EMPTY(YEAR1), '','.AND.YEAR='+STR(YEAR1))
P=P+IIF(EMPTY(INVNOM1), '','.AND.INVNOM='+STR(INVNOM1))
P=P+'.AND.NOMBIL=0'
DO CASE
CASE I=3.OR.LASTKEY()=27
D=1
DEACTIVATE WINDOW F3
DO KEY
RETURN
CASE (I=1.OR.I=2).AND.P=='.T..AND.NOMBIL=0'
WAIT 'Äàííûå íå áûëè ââåäåíû' WINDOW
CASE I=1
***Âûáîð êíèãè èç ñïèñêà êíèã ïî ââåäåííûì äàííûì
GO TOP
X=1
RELEASE H
LOCATE FOR &P
DO WHILE FOUND()
DECLARE H(X)
H(X)=WRITER+NAME+' '+;
ALLTRIM(STR(YEAR))+' '+;
ALLTRIM(STR(INVNOM))
CONTINUE
X=X+1
ENDDO
J=1
IF X#1
ACTIVATE WINDOW SELECT
@ 9,1 SAY 'ESC - ÎÒÌÅHÀ; ENTER - ÂÛÁÎÐ ÊHÈÃÈ'
@ 0,0 GET J FROM H SIZE 9,75 VALID(B());
COLOR GR/GR,,,,,W+/B,,,W+/B,W+/B
READ CYCLE
DEACTIVATE WINDOW SELECT
IF LASTKEY()#27
WRITER1=SUBSTR(H(J),1,20)
NAME1=SUBSTR(H(J),21,40)
YEAR1=VAL(SUBSTR(H(J),62,4))
INVNOM1=VAL(SUBSTR(H(J),68))
ENDIF
ELSE
WAIT 'Håò êíèã äëÿ âûáîðà!' WINDOW
ENDIF
OTHERWISE
GO TOP
LOCATE FOR &P
IF !FOUND()
P=.T.
WAIT 'Êíèãà íå íàéäåíà!' WINDOW
ELSE
IF DATA#{}.AND.NOMBIL#0
WAIT 'Êíèãà óæå âûäàíà!' WINDOW
ELSE
REPLACE DATA WITH DATE(), NOMBIL WITH n
D=1
ENDIF
ENDIF
ENDCASE
ENDDO
DEACTIVATE WINDOW F3
DO KEY
RETURN
***Ïðîöåäóðà íàæàòèÿ êëàâèøè F2
PROCEDURE DELETE
ON KEY
CLEAR READ
SELECT B
IF NOMBIL=n
ACTIVATE WINDOW EXIT TOP
@ 0,8 SAY 'Âû õîòèòå ïðèíÿòü êíèãó?'
YN=2
@ 1,12 GET YN FUNCTION;
'*H Äà;Håò' SIZE 1,1,6
READ CYCLE
IF YN=1
REPLACE DATA WITH {}, NOMBIL WITH 0
ENDIF
DEACTIVATE WINDOW EXIT
ELSE
WAIT 'Â ñïèñêå íåò êíèã!' WINDOW
ENDIF
DO KEY
RETURN
***Ïðîöåäóðà íàçíà÷åíèÿ êëàâèø
PROCEDURE KEY
ON KEY LABEL F1 DO HELP
ON KEY LABEL F2 DO DELETE
ON KEY LABEL F3 DO POISKBOOK
ON KEY LABEL F4 DO EDIT
RETURN
***Ïðîöåäóðà âûâîäà èíôîðìàöèè íà ïå÷àòü è â ôàéë
PROCEDURE DOLGMEN
GO TOP
I=1
LOCATE FOR ''#ALLTRIM(DTOC(B.DATA,1)).AND.B.DATA<GOMONTH(DATE(),-6)
IF FOUND()
? ALLTRIM(STR(I)),'. ',FIO,' Hîìåð áèëåòà: ',NOMBIL
A=NOMBIL
ENDIF
DO WHILE FOUND()
IF A#NOMBIL
A=NOMBIL
I=I+1
? ALLTRIM(STR(I)),'. ',FIO,' Hîìåð áèëåòà: ',NOMBIL
ENDIF
? ' ',B.WRITER,B.NAME,' ',B.INVNOM,' ',B.DATA
CONTINUE
ENDDO
***Ôóíêöèÿ àíàëèçà âûáîðà ïîëåé â îêíå âûâîäà äîëæíèêîâ
FUNCTION A
IF J=3
SHOW GET FILE ENABLE
SHOW GET PATH ENABLE
SHOW GET J,3 DISABLE
ELSE
SHOW GET PATH DISABLE
SHOW GET FILE DISABLE
SHOW GET J,3 ENABLE
ENDIF
RETURN
***Ôóíêöèÿ ðàñïîçíàâàíèÿ âûáîðà êíèãè èç ñïèñêà êíèã ïî ââåäåííûì äàííûì
FUNCTION B
IF LASTKEY()=13
CLEAR READ
ENDIF
RETURN
***Ïðîöåäóðà óñòðàíåíèÿ «ãëþêîâ» ïðè íàæàòèè êëàâèøè F1
PROCEDURE F1
RETURN
Îáðàçöû îò÷åòîâ
Îáðàçåö âûâîäà ñïèñêà äîëæíèêîâ â ôàéë:
1. Ìàðêîâ Àëåêñàíäð Áîðèñîâè÷ Hîìåð áèëåòà: 2
Ñòàóò Ð. Çîëîòûå ïàóêè 4 12.07.97
Ïèòåðñ Ð. Âîéíà 2020 ãîäà 5 12.07.97
Ñëîíèìñêèé À. ×åðíèãîâöû 9 12.07.96
2. Àíèñèìîâ Àíòîí Ïàâëîâè÷ Hîìåð áèëåòà: 4
Êóïåð Ä.Ô. Ïîñëåäíèé èç ìîãèêàí 6 23.12.96
×åðêàñîâ À. Õìåëü 10 23.12.96
3. Äåðåâÿùåíêî Åêàòåðèíà Îëåãîâíà Hîìåð áèëåòà: 12
Èëüô È., Ïåòðîâ Å. Çîëîòîé òåëåíîê 13 31.01.95
Ëåì Ñ. Ìàãåëëàíîâî îáëàêî 15 31.01.95
×åðíèí Ì. Åæèê 17 31.01.95
Èíñòðóêöèÿ ïî ýêñïëóàòàöèè ïðîãðàììû
Ïîñëå çàïóñêà ïðîãðàììû îòêðûâàåòñÿ îêíî ñ äàííûìè î ïðîãðàììå è çàïðàøèâàåòñÿ ââîä ïàðîëÿ (332087S). Íà ýêðàí âûâîäèòñÿ ãëàâíîå ìåíþ ïðîãðàììû ñ ïóíêòàìè «ïîèñê ÷èòàòåëÿ», «äîáàâèòü ÷èòàòåëÿ», «äîáàâèòü êíèãó», «ïðîñìîòð äîëæíèêîâ», «âûõîä».
Ïðè âûáîðå ïóíêòà «ïîèñê ÷èòàòåëÿ» íà ýêðàí âûâîäèòñÿ îêíî ïîèñêà ïî íîìåðó ÷èòàòåëüñêîãî áèëåòà. Åñëè ïîèñê ÷èòàòåëÿ óñïåøíûé, òî íà ýêðàí âûâîäÿòñÿ ïîëíûå äàííûå ÷èòàòåëÿ ,ñïèñîê êíèã, êîòîðûå áûëè åìó âûäàíû è êëàâèøíîå ìåíþ ñ ïóíêòàìè: «ïîìîùü», «ïðèíÿòü êíèãó», «âûäàòü êíèãó», «ðåäàêòèðîâàòü äàííûå ÷èòàòåëÿ». Ïðè «âûäà÷å êíèãè» íà ýêðàí âûâîäèòüñÿ îêíî ïîèñêà êíèãè ïî ââåäåííûì äàííûì. Åñëè äàííûå î êíèãå ïîëíîñòüþ íå èçâåñòíû (ãîä èçäàíèÿ, àâòîð, ïîëíîå íàçâàíèå, èíâåíòàðíûé íîìåð), òî íàæàòèåì íà êíîïêó «âûáîð…» ìîæíî âûáðàòü êíèãó èç ñïèñêà êíèã ïî íå ïîëíîñòüþ ââåäåííûì äàííûì. Ýòî î÷åíü óäîáíî, åñëè ÷èòàòåëü íå çíàåò âñåõ äàííûõ î æåëàåìîé êíèãå. Îñòàëüíûå ïóíêòû êëàâèøíîãî ìåíþ î÷åíü ïðîñòû â èñïîëüçîâàíèè. Íàæàòèåì êëàâèøè ESCAPE ïðåêðàùàåòñÿ ðàáîòà ñ ÷èòàòåëåì è ïðîèçâîäèòñÿ âûõîä â ãëàâíîå ìåíþ.
Ïðè âûáîðå ïóíêòà «äîáàâèòü ÷èòàòåëÿ» íà ýêðàíå ïîÿâëÿåòñÿ îêíî, â êîòîðîì ââîäÿòñÿ äàííûå íîâîãî ÷èòàòåëÿ. Ïîñëå ââîäà, ÷èòàòåëü ñòàíîâèòüñÿ êàê áû «çàïèñàííûì» â áèáëèîòåêó.
Ïóíêò ìåíþ «äîáàâèòü êíèãó» àíàëîãè÷åí ïðåäûäóùåìó è îïèñûâàòüñÿ íå áóäåò.
Ïðè âûáîðå ïóíêòà «ïðîñìîòð äîëæíèêîâ» íà ýêðàíå ïîÿâëÿåòñÿ îêíî çàïðîñà äëÿ âûâîäà èíôîðìàöèè: «íà ýêðàí», «íà ïðèíòåð», «â ôàéë». Ïðè âûáîðå «íà ýêðàí» èëè «íà ïðèíòåð» ïðîèñõîäèò âûâîä èíôîðìàöèè î äîëæíèêàõ è î êíèãàõ, êîòîðûå «çàäîëæàë» êîíêðåòíûé ÷èòàòåëü. Ïðè âûáîðå «â ôàéë» â îêíå àêòèâèðóþòñÿ ïîëÿ çàïðîñà èìåíè ôàéëà è ïóòè çàïèñè ôàéëà, ïîñëå ÷åãî èíôîðìàöèÿ çàïèñûâàåòñÿ â ôàéë.
Ïðè âûáîðå ïóíêòà ìåíþ «âûõîä» ïðîèñõîäèò ïîäòâåðæäåíèå âûõîäà è , çàòåì, âûõîä â DOS.
Ëèòåðàòóðà
1. Ãðàäóñîâ À.Á., Ãðèøèí Â.Ñ. Ìåòîäè÷åñêèå óêàçàíèÿ ê ëàáîðàòîðíûì ðàáîòàì ïî äèñöèïëèíàì «Îñíîâû àëãîðèòìèçàöèè è ÿçûêè ïðîãðàììèðîâàíèÿ» è «Èíôîðìàòèêà».
2. Ïîïîâ À.À. «Ñîçäàíèå ïðèëîæåíèé äëÿ FoxPro 2.5/2.6 â DOS è â WINDOWS». –Ì.: Èçäàòåëüñòâî Ìàðò, 1996. –660ñ.
Ñîäåðæàíèå: 1. Ñòðóêòóðû áàçû äàííûõ……………………………………………..3 2. Àëãîðèòì ðàáîòû ïðîãðàììû……………………………………….4 3. Ðèñóíêè, îòîáðàæàþùèå âíåøíèé âèä ýêðàííûõ ôîðì è ìåíþ….5 4. Òåêñòû ïðîãðàììû è ïðîöåäóð ñ ïîäðîáíûìè êîììåíòàðèÿìè…..8 5
Copyright (c) 2024 Stud-Baza.ru Ðåôåðàòû, êîíòðîëüíûå, êóðñîâûå, äèïëîìíûå ðàáîòû.