Информатика

1. Структури бази данных.

2. Алгоритм роботи программы.

3. Малюнки, які відображатимуть зовнішній вигляд екранних форм і меню.

4. Тексти програми розвитку й процедур з докладними комментариями.

5. Зразки отчетов.

6. Інструкція по експлуатації программы.

7. Література.

Структури баз данных.

Розглянемо структури баз даних на рисунке:

Тут обидві бази даних проіндексовані і пов’язані полем 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# «33 2087S «.

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.

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.

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.

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.

Інструкція по експлуатації программы.

Після запуску програми відкривається вікно з цими про й запитує введення пароля (33 2087S). На екран виводиться головне меню програми з пунктами «пошук читача», «додати читача», «додати книжку», «перегляд боржників», «выход».

При виборі пункту «пошук читача» на екран виводиться вікно пошуку за двозначним номером читацького квитка. Якщо пошук читача успішний, то, на екран виводяться повні дані читача, список книжок, хто був йому видано і клавишное меню з пунктами: «допомогу», «прийняти книжку», «видати книжку», «редагувати дані читача». При «видачі книжки» на екран виводитися вікно пошуку книжки з запровадженим даним. Якщо є щодо книжки не повністю відомі (рік видання, автор, повна його назва, інвентарний номер), то натисканням на кнопку «вибір…» можна вибрати книжку зі списку книжок з в повному обсязі запровадженим даним. Це зручне, якщо читач не знає всіх даних про бажаної книзі. Інші пункти клавішного меню дуже прості використання. Натисканням клавіші ESCAPE припиняється роботу з читачем і виробляється вихід головне меню.

При виборі пункту «додати читача» на екрані з’являється вікно, у якому вводяться дані нового читача. Після введення, читач ставати хіба що «записаним» в библиотеку.

Пункт меню «додати книжку» аналогічний попередньому і описуватися не будет.

При виборі пункту «перегляд боржників» на екрані з’являється вікно запиту висновку інформації: «на екран», «на принтер», «в файл». При виборі «на екран» чи «на принтер» відбувається висновок інформації про боржниках і книгах, які «заборгував» конкретний читач. При виборі «в файл» з вікна активуються поля запиту імені файла та шляхи записи файла, після чого інформація записується в файл.

При виборі пункту меню «вихід» відбувається підтвердження виходу і, потім, вихід DOS.

1. Градусів Г. Б., Гришин В. С. Методичні вказівки до лабораторним роботам зі слаломних дисциплін «Основи алгоритмізації і мови програмування» і «Інформатика».

2. Попов А. А. «Створення додатків для FoxPro 2.5/2.6 в DOS й у WINDOWS». -М.: Видавництво Березень, 1996. -660с.