Реферат: Структуры баз данных - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

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

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Microsoft Word, 942 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Структуры баз данных. Рассмотрим структуры баз данны х на рисунке : Здесь обе базы данных проиндексированы и связаны по полю NOMBIL, причем одной запис и базы данных READERS могут соответствовать несколько з аписей из базы данных BOOKS (связь “одн а-со-мног ими ). Рисунки , отображающие внешний вид экранны х форм и меню 1. Окно , показывающее данные о курсовой работе и ввод пароля . 2. Главное меню программы. 3. Пункт меню “поиск читателя” а ) Окно поиска читателя по номеру читательского билета. б ) Список книг , выданных читателю. в ) Окно помощи. г ) Окно поиска книги и окно выбора книги по введенным данным. д ) Окно изменения данных читателя. 4. Пу нкт меню “добавить книгу” . 5. Пункт меню “просмотр должников”. Вывод списка должников на экран. Текст программы с комментариями *** Установка среды 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 S AY '(вариант № 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 DEFIN E 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 WINDO W 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 CAS E 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 или 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
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
- Я вас люблю, мадам, давно!
- Да вы пьяны!
- Ваще вговно!..
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Структуры баз данных", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru