Реализация реляционной базы данных

4 РАСЧЕТ ОБЪЕМА  БД

      Расчет  объема базы данных осуществляется следующим  образом: для каждой таблицы определяется длина одной записи без служебных  символов путем суммирования длины  всех форматов полей. Ориентировочный объем необходимой внешней памяти для каждой таблицы определяется как произведение длины записи  на количество записей. После чего определяется суммарный объем БД.

Таблица 2 – Расчет объема БД

 
 

      Общий объем базы данных составляет 26040

 

5 ОПИСАНИЕ СХЕМЫ  ДАННЫХ В СУБД

     В данной курсовой работе при проектировании была использована схема данных системы ТЕЛЕПРОГРАММА, которая представлена в Рис. 2.

Схема данных содержит три таблицы. Таблица  ХАРАКТЕРИСТИКА ОРТ содержит следующие поля: Время, День, Название, Код программы, Описание. Таблица ТЕЛЕПРОГРАММА НТВ содержит следующие поля: Время, День, Название, Код программы, Описание.  

                                                           1:М

                 Время                                                                Время

                 День                                                                   День

                 Название                                                           Название

                 Код программы                                                Код программы

                    Описание                                                       Описание 
 

Рис.2 Схема  данных Телепрограмма

 

6 ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ ПРОГРАММЫ ПРИЛОЖЕНИЯ

При открытии программы появляется главная форма  «Справочная система ТЕЛЕПРОГРАММА». Эта форма содержит меню, которое  имеет, пять пунктов Файл, Формы, Запросы, Отчеты и Выход. Пункт меню Формы  включает подменю, через которое можно обратиться к одной из таблиц. Пункт меню Выход осуществляет выход из программы, другими словами закрывает ее. При выборе из меню таблицы Телепрограмма появляется форма, которая содержит необходимые сведения об имеющейся каналах. Здесь расположены такие кнопки как: ОРТ, Поиск, ТВ программа, День недели. При нажатии на кнопку Поиск будет предложен определенный критерий, по которому можно найти необходимую информацию. Кнопкой Печать документ отправляется на печать. С помощью кнопки. Добавить в открывшемся окне  возможно ввести какую-либо информацию в новой записи.  Кнопка Редактировать предназначена для изменения данных в записях. Кнопкой Удалить убрать ненужную запись. При нажатии на кнопку Выход форма информация о канале будет закрыта. 
 
 
 
 

 

    

 
 

                       

                                                                
 

               

Рис.3 Функции  приложения

ЗАКЛЮЧЕНИЕ 

    В данной курсовой работе была разработана  база данных Телепрограмма, которая  позволяет вводить, хранить, дополнять, удалять и просматривать данные Характеристики ОРТ и характеристики НТВ. Благодаря функциям программы Visual FoxPro мы получили различные отчеты и запросы, которые позволили нам облегчить поиск информации телепрограмм.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

    СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

    1.Англо-русский  и русско-английский словарь (краткий) - под редакцией О.С. Ахмановой  и Е.А.М. Уилсона «Русский язык»  М 1988 1054 стр.

    2.Visual FoxPro. Уроки программирования. – СПб.: БХВ-Петербург,

2007. –  480 с.: ил

    3. Visual FoxPro 7.0. Учебный курс Мусина Т.В., Пушенко В.А. 2004 560 стр.

    4.DVD «Большая энциклопедия Кирилла и Мифодия»

    5. http://auto.gorod55.ru

    6.www.bankreferatov.ru

    7.http://e-reports.hut.ru/info/automkt.htm 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение

*       *********************************************************

*       *                                                        

*       * 06/08/07              MENU1.MPR               13:24:58 

*       *                                                        

*       *********************************************************

*       *                                                        

*       * Author's Name                                          

*       *                                                        

*       * Copyright (C) 2007 Company Name                        

*       * Address                                                

*       * City,     Zip                                          

*       *                                                        

*       * Description:                                           

*       * This PROGRAM was automatically generated BY GENMENU.   

*       *                                                        

*       ********************************************************* 
 

*       *********************************************************

*       *                                                        

*       *                      Menu Definition                   

*       *                                                        

*       *********************************************************

* 

SET SYSMENU TO

SET SYSMENU AUTOMATIC 

DEFINE PAD _2410sr7qu OF _MSYSMENU PROMPT "file" COLOR SCHEME 3 ;

      KEY ALT+f, ""

DEFINE PAD _2410sr7qv OF _MSYSMENU PROMPT "edit" COLOR SCHEME 3 ;

      KEY ALTу, "ALT+e"

DEFINE PAD _2410sr7qw OF _MSYSMENU PROMPT "quit" COLOR SCHEME 3 ;

      KEY ALT+й, "ALT+q" 

ON PAD _2410sr7qu OF _MSYSMENU ACTIVATE POPUP файл

ON PAD _2410sr7qv OF _MSYSMENU ACTIVATE POPUP формы

ON SELECTION PAD _2410sr7qw OF _MSYSMENU do form ..\tv\query.scx

ON SELECTION PAD _2410sr7qx OF _MSYSMENU do form ..\tv\report.scx

ON SELECTION PAD _2410sr7qy OF _MSYSMENU quit 

DEFINE POPUP файл MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF file PROMPT "выход" ;

      KEY ALT+Q, "ALT+Q"

ON SELECTION BAR 1 OF file quit 

DEFINE POPUP формы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF формы PROMPT "нтв"

DEFINE BAR 2 OF формы PROMPT "орт"

ON SELECTION BAR 1 OF формы do form ..\tv\нтв.scx

ON SELECTION BAR 2 OF формы do form ..\tv\орт.scx 
 

USE "..\tv\table3.dbf" 

      a=UPPER(ALLTRIM(thisform.Text1.value))

     

      LOCATE FOR a=UPPER(ALLTRIM(поиск))

     

    

  IF !FOUND() =MESSAGEBOX('Нет!')

      Thisform.Refresh()

ENDIF

       BROWSE FOR UPPER(ALLTRIM(поиск))=a

      thisform.Text1.SetFocus()

USE "..\building\table1.dbf"

      c=UPPER(ALLTRIM(thisform.Combo1.value))

     

      LOCATE FOR c=UPPER(ALLTRIM(поиск))

     

    

  IF !FOUND()

      =MESSAGEBOX('Нет!')

     Thisform.Refresh()

ENDIF

       BROWSE FOR UPPER(ALLTRIM(поиск))=c

      thisform.Text1.SetFocus()

USE "..\building\table2.dbf"

      b=UPPER(ALLTRIM(thisform.Text1.value))

     

      LOCATE FOR b=UPPER(ALLTRIM(поиск))

     

    

  IF !FOUND()

      =MESSAGEBOX('Нет!')

      Thisform.Refresh()

ENDIF

       BROWSE FOR UPPER(ALLTRIM(поиск))=b

      thisform.Text1.SetFocus()