Зміст:
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 < br> 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; < p> '* ПОШУК; ОТМЕ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-НАДАТИ; < br> К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 < br> 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
