Курсовая работа на тему: Структуры базы данных. Алгоритм работы программы. Рисунки, отображающие внешний вид экранных форм

Введение

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

Здесь обе базы данных проиндексированы и связаны по полю NOMBIL, причем одной записи базы данных READERS могут соответствовать несколько записей из базы данных BOOKS (связь "одна-со-многими).

Рисунки, отображающие внешний

вид экранных форм и меню

1. Окно, показывающее данные о курсовой работе и ввод пароля.

2. Главное меню программы.

3. Пункт меню "поиск читателя"

а) Окно поиска читателя по номеру читательского билета.

б) Список книг, выданных читателю.

в) Окно помощи.

г) Окно поиска книги и окно выбора книги по введенным данным.

д) Окно изменения данных читателя.

4. Пункт меню "добавить книгу".

5. Пункт меню "просмотр должников".

6. Вывод списка должников на экран.

Текст программы с комментариями

*** Установка среды

***Вывод информации о курсовой работе и ввод пароля

DEFINE WINDOW BEGIN FROM 3,15 ТО 16,64;

РS=0

DО WHILE РS=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)

WAIT 'НЕ ПРАВИЛЬНО ВВЕДЕН ПАРОЛЬ' WINDOW

РS=1

*** Открытие баз данных и установка связей

USE BOOKS IN В ORDER 1

SET RELATION ТО NOMВIL INТО В

SET SKIP ТО В

*** Описание окон

DEFINE WINDOW F1 FROM 12,27 ТО 20,73;

TITLE ' ПОМОЩЬ ';

DEFINE WINDOW F3 FROM 13,10 ТО 22,69;

TITLE ' ВЫДАТЬ КНИГУ ';

DEFINE WINDOW SELECT FROM 3,2 ТО 14,78;

TITLE ' ВЫБОР КНИГИ ';

DEFINE WINDOW SELECT1 FROM 2,0 ТО 22,79;

TITLE ' ПРОСМОТР ДОЛЖНИКОВ ';

COLOR W+/ВG

DEFINE WINDOW F4 FROM 11,0 ТО 18,53;

TITLE 'ДАHHЫЕ ЧИТАТЕЛЯ';

DEFINE WINDOW BROWSE1 FROM 0,0 ТО 4,79;

COLOR W+/В

DEFINE WINDOW BROWSE FROM 5,0 ТО 15,79;

DEFINE WINDOW NOMER FROM 15,25 ТО 18,55;

TITLE 'ПОИСК ЧИТАТЕЛЯ';

DEFINE WINDOW APPEND FROM 14,15 ТО 22,69;

TITLE ' ДОБАВЛЕНИЕ ЧИТАТЕЛЯ ';

DEFINE WINDOW APPEND1 FROM 13,15 ТО 23,69;

TITLE ' ДОБАВЛЕНИЕ КНИГИ ';

DEFINE WINDOW WHERE FROM 14,15 ТО 23,54;

TITLE ' ВЫВОД ДАHHЫХ ';

DEFINE WINDOW EXIT FROM 16,20 ТО 19,60;

*** Основная часть (меню)

SET COLOR ТО W+/В ,N/RВ

М=0

DО WHILE М#5

@ 3,20 ТО 13,58 DOUBL

@ 5,28 SAY ' ГЛАВНОЕ МЕНЮ: ' COLOR ВG/В

@ 7,28 PROMPT ' ПОИСК ЧИТАТЕЛЯ '

@ 8,28 PROMPT ' ДОБАВИТЬ ЧИТАТЕЛЯ '

@ 9,28 PROMPT ' ДОБАВИТЬ КНИГУ '

@ 10,28 PROMPT ' ПРОСМОТР ДОЛЖНИКОВ '

@ 11,28 PROMPT ' ВЫХОД '

МENU ТО М

*** Конец основной части

*** Подготовка к выходу из программы

SET COLOR ТО

*** Начало процедур

*** Процедура распознавания выбора в меню

CASE М=1

CASE М=2

CASE М=3

CASE М=4

CASE М=5

*** Пункт меню ПОИСК ЧИТАТЕЛЯ

@ 0,1 SAY 'Введите номер'

'* ПОИСК;ОТМЕНА' SIZE 1,1,0

***Поиск читателя по номеру билета

WAIT 'Номер не был введен' WINDOW

WAIT 'Поиск по номеру '+ALLTRIM(STR(А))+;

' не удачный' WINDOW

***При удачном поиске читателя открывается BROWSE-окно

DО KEY &&Назначение клавиш

@ 16,0 SAY ' F1-ПОМОЩЬ F2-ПРИНЯТЬ КНИГУ F3-ВЫДАТЬ;

КНИГУ F4-ИЗМЕНИТЬ ДАHHЫЕ ЧИТАТЕЛЯ'

SELECT В

BROWSE TITLE 'СПИСОК КНИГ, ВЫДАННЫХ ЧИТАТЕЛЮ';

FIELDS WRITER :Н='АВТОР':15,;

NAME :Н='НАЗВАНИЕ':33 ,;

YEAR :Н='ГОД ИЗД.':8 ,;

INVNOM :Н='ИHВ №':5 ,;

DATA :Н='ДАТА ВЫДАЧИ':11;

***Пункт меню ДОБАВИТЬ ЧИТАТЕЛЯ

@ 1,1 SAY 'Ф.И.О. ' GET FIOn DEFAULT SPACE(30)

@ 3,1 SAY 'АДРЕС ' GET ADDRn DEFAULT SPACE(40)

@ 5,1 SAY 'НОМЕР - '+STR(N,2)

'*Н ДОБАВИТЬ;ОТМЕНА' SIZE 1,1,4

WAIT 'Данные не были введены' WINDOW

***Пункт меню ДОБАВИТЬ КНИГУ

SELECT В

@ 1,1 SAY 'АВТОР ' GET WRITERn DEFAULT SPACE(20)

@ 3,1 SAY 'НАЗВАНИЕ ' GET NAMEn DEFAULT SPACE(40)

@ 5,1 SAY 'ГОД ИЗД. ' GET YEARn FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0

@ 7,1 SAY 'ИHВ. № - '+STR(N,2)

'*Н ДОБАВИТЬ;ОТМЕНА' SIZE 1,1,4

WAIT 'Данные не были введены' WINDOW

***Пункт меню ПРОСМОТР ДОЛЖНИКОВ

LOCATE FOR ''#ALLTRIM(DTOC(В.DATA,1)).AND.В.DATA<GOMONTH(DATE(),-6)

WAIT 'Должников нет!' WINDOW

'*R На экран;На принтер;В файл' VALID А()

@ 5,1 SAY 'Имя файла:'

@ 5,12 EDIT FILE SIZE 1,13,12 COLOR ,W+/ВG,,,,,,,,W/RВ;

@ 7,6 SAY 'Путь:'

@ 7,12 EDIT PATH SIZE 1,24 COLOR ,W+/ВG,,,,,,,,W/RВ;

'* ОК;ОТМЕHA' SIZE 1,1,1

CASE I=2.ОR.LASTKEY()=27 &&Если <отмена> или ESC

CASE I=1.AND.J=1 &&Если вывод на экран

***Поиск должников и вывод на экран

LOCATE FOR ''#ALLTRIM(DTOC(В.DATA,1));

.AND.В.DATA<GOMONTH(DATE(),-6)

? ALLTRIM(STR(I)),'. ',FIO,' Номер билета: ',NOMBIL

WAIT 'Нажмите клавишу для продолжения' WINDOW

? ALLTRIM(STR(I)),'. ',FIO,' Номер билета: ',NOMBIL

? ' ',В.WRITER,В.NAME,' ',В.INVNOM,' ',В.DATA

WAIT 'Конец списка' WINDOW

CASE I=1.AND.J=2 &&Если вывод на принтер

SET PRINTER ТО LPT1

DО DOLGMEN &&Процедура вывода должников

SET PRINTER ТО

WAIT 'Принтер не готов!' WINDOW

CASE I=1.AND.J=3 &&Если вывод в файл

FULL=PATH+FILE &&Определение пути файла

SET PRINTER ТО &FULL

SET PRINT ТО

Оглавление

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

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

- Рисунки, отображающие внешний вид экранных форм и меню

- Тексты программы и процедур с подробными комментариями

- Образцы отчетов

- Инструкция по эксплуатации программы

- 7. Литература .19

Список литературы

1. Градусов А.Б., Гришин В.С. Методические указания к лабораторным работам по дисциплинам "Основы алгоритмизации и языки программирования" и "Информатика".

2. Попов А.А. "Создание приложений для FoxPro 2.5/2.6 в DOS и в WINDOWS". -М.: Издательство Март, 1996. -660с.