Áàçà çíàíèé ñòóäåíòà. Ðåôåðàò, êóðñîâàÿ, êîíòðîëüíàÿ, äèïëîì íà çàêàç

Ñîäåðæàíèå:

1.   Ñòðóêòóðû áàçû äàííûõ……………………………………………..3

2.   Àëãîðèòì ðàáîòû ïðîãðàììû……………………………………….4

3.   Ðèñóíêè, îòîáðàæàþùèå âíåøíèé âèä ýêðàííûõ ôîðì è ìåíþ….5

4.   Òåêñòû ïðîãðàììû è ïðîöåäóð ñ ïîäðîáíûìè êîììåíòàðèÿìè…..8

5.   Îáðàçöû îò÷åòîâ………………………………………………………17

6.   Èíñòðóêöèÿ ïî ýêñïëóàòàöèè ïðîãðàììû…………………………...18

7.   Ëèòåðàòóðà ……………………………………….……………………19

Ñòðóêòóðû áàç äàííûõ.

Ðàññìîòðèì ñòðóêòóðû áàç äàííûõ íà ðèñóíêå:

Çäåñü îáå áàçû äàííûõ ïðîèíäåêñèðîâàíû è ñâÿçàíû ïî ïîëþ NOMBIL, ïðè÷åì îäíîé çàïèñè áàçû äàííûõ READERS ìîãóò ñîîòâåòñòâîâàòü íåñêîëüêî çàïèñåé èç áàçû äàííûõ BOOKS (ñâÿçü «îäíà-ñî-ìíîãèìè).

Ðèñóíêè, îòîáðàæàþùèå âíåøíèé

âèä ýêðàííûõ ôîðì è ìåíþ

1. Îêíî, ïîêàçûâàþùåå  äàííûå î êóðñîâîé ðàáîòå è ââîä ïàðîëÿ.

2. Ãëàâíîå ìåíþ ïðîãðàììû.

3. Ïóíêò ìåíþ «ïîèñê ÷èòàòåëÿ»

    à) Îêíî ïîèñêà ÷èòàòåëÿ ïî íîìåðó ÷èòàòåëüñêîãî áèëåòà.

   á) Ñïèñîê êíèã, âûäàííûõ ÷èòàòåëþ.

   â) Îêíî ïîìîùè.

 

 ã) Îêíî ïîèñêà êíèãè è îêíî âûáîðà êíèãè ïî ââåäåííûì äàííûì.

   ä) Îêíî èçìåíåíèÿ äàííûõ ÷èòàòåëÿ.

4. Ïóíêò ìåíþ «äîáàâèòü êíèãó».

5. Ïóíêò ìåíþ «ïðîñìîòð äîëæíèêîâ».

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

 

• 14:21 05 Èþëÿ 2016
  Ðîññèéñêî-êèòàéñêèé ìåäóíèâåðñèòåò îòêðîåò ìàãèñòåðñêóþ ïðîãðàììó ïî TCM
• 01:21 05 Èþëÿ 2016
  Íà ôîðóìå ÌÃÓ Ðîññèÿ è Êèòàé îáñóäÿò íàó÷íî-îáðàçîâàòåëüíîå ñîòðóäíè÷åñòâî
• 11:00 04 Èþëÿ 2016
  Ðåìîðåíêî: "ÅÃÝ-òóðèçì" â Ðîññèè ñõîäèò íà íåò
• 10:52 04 Èþëÿ 2016
  Ëåòíÿÿ ðîññèéñêî-àâñòðèéñêàÿ øêîëà îòêðîåòñÿ â Ìîñêâå
• 15:31 01 Èþëÿ 2016
   ÑÏáÃÓ ìîãóò âîññîçäàòü ãåîãðàôè÷åñêèé ôàêóëüòåò

Çàêàçàòü óíèêàëüíóþ ðàáîòó