Университетский центр компьютерного обучения"ТУРБО"КУРСОВАЯ РАБОТАспециальность "Прикладное программирование"Тема: Создание БД «Кинотеатр» Работу выполнил студент 3 курса Абрамцов Сергей Научный руководитель: Бурлаев С. Ю. Майкоп, 2010 г.Оглавление Введение 3Анализ предметной области 4Инфологическая модель базы данных 4Физическая модель базы данных 5Таблицы БД 5Выводы 13Литература 14 Введение Данная локальная БД значительно облегчает работу работников прокатного салона. На главной форме выводится самые важные сведения о клиенте: ФИО, мобильный или сотовый телефон, дата выдачи и дата возврата диска. Также в приложении есть форма-анкета, в которую вносятся паспортные данные клиента, мобильный или сотовый телефон. Есть форма для редактирования данных о названии фильмов. Одной из самых важных частей моей БД составляет форма-договор, в которой содержится информация об условиях проката дисков. Также имеется форма, в которой содержится информация о создателе данной БД. ^ 3 Анализ предметной области Имеется прокатный салон. Данное приложение осуществляет контроль над прокатом дисков. Инфологическая модель базы данных Анализ описанной предметной области и решаемых задач позволяет выделить следующие сущности:Данные о клиентеАнкета клиентаНазвания фильмов Договор В таблице 1. Данные о клиенте: представлена следующая информация: ФИО, мобильный или сотовый телефон, дата выдачи и дата возврата диска. В таблице 2. Анкета клиента: представлена следующая информация: паспортные данные клиента, мобильный или сотовый телефон. В таблице 3. Названия фильмов: представлена следующая информация: данных о названии фильмов. В таблице 4. Договор: представлена информация об условиях проката дисков. 4^ Физическая модель базы данных Авторами была поставлена задача создания СУБД. В качестве сервера базы данных было решено использовать сервер InterBase. Таблицы БД База данных, как следует из разработки инфологической модели, содержит 3 таблицы:DN (Данные) Поле Тип Описание DN_KOD INTEGER Первичный ключ CD_KOD INTEGER Код DVD AN_COD INTEGER Код анкеты DN_DATAV DATE Дата выдачи DN_DATAVV DATE Дата возврата AN (Анкета) Поле Тип Описание AN_KOD INTEGER Первичный ключ AN_FAM VARCHAR(30) Фамилия AN_NAM VARCHAR(30) Имя AN_OTCH VARCHAR(30) Отчество AN_FIO COMPUTED BY ФИО AN_PHONE VARCHAR(30) Телефон AN_ADRES VARCHAR(30) Адрес GANR (Жанры) Поле Тип Описание CD_kod INTEGER Первичный ключ CD_Nam VARCHAR(30) Название диска ^ 5Интерфейс программыПри запуске программы появляется главное окно:^ СИСТЕМА СПРАВОЧНИКИ ДОГОВОР О ПРОГРАММЕ ↓ ↓ВЫХОД АНКЕТА ↓DVD6Окно справочники→Анкета:7Окно справочники→DVD:Окно договор:8Окно о программе:9Скрипты^ Таблица данные, триггер, генераторCREATE TABLE DN(DN_KOD INTEGER NOT NULL,DN_DATAV DATE,DN_DATAVV DATE,CD_KOD INTEGER,AN_COD INTEGER,PRIMARY KEY(dn_Kod));CREATE GENERATOR gen_dn;SET GENERATOR gen_dn TO 0;SET TERM ^^;CREATE TRIGGER tr_dn FOR dnACTIVE BEFORE INSERTASBEGINIF (NEW.dn_kod IS NULL) THENNEW.dn_kod = GEN_ID(gen_dn,1); END^^SET TERM ^^; 10^ Таблица анкета, триггер, генераторCREATE TABLE AN(AN_KOD INTEGER NOT NULL,AN_FAM VARCHAR(30) CHARACTER SET WIN1251 NOT NULL,AN_NAM VARCHAR(30) CHARACTER SET WIN1251 NOT NULL,AN_OTCH VARCHAR(30) CHARACTER SET WIN1251 NOT NULL,AN_FIO COMPUTED BY (AN_FAM ||' '|| AN_NAM ||' '|| AN_OTCH),AN_ADRES VARCHAR(30) CHARACTER SET WIN1251 NOT NULL,AN_PHONE VARCHAR(10) CHARACTER SET WIN1251 NOT NULL,CD_KOD INTEGER, PRIMARY KEY(AN_Kod));CREATE GENERATOR gen_an;SET GENERATOR gen_an TO 0;SET TERM ^^;CREATE TRIGGER tr_an FOR an ACTIVE BEFORE INSERTASBEGINIF (NEW.an_kod IS NULL) THENNEW.an_kod = GEN_ID(gen_an,1); END^^SET TERM ^^; 11^ Таблица DVD, триггер, генераторCREATE TABLE DN(DN_KOD INTEGER NOT NULL,DN_DATAV DATE,DN_DATAVV DATE,CD_KOD INTEGER,AN_COD INTEGER,PRIMARY KEY(dn_Kod));CREATE GENERATOR gen_dn;SET GENERATOR gen_dn TO 0;SET TERM ^^;CREATE TRIGGER tr_dn FOR dnACTIVE BEFORE INSERTASBEGINIF (NEW.dn_kod IS NULL) THENNEW.dn_kod = GEN_ID(gen_dn,1); END^^SET TERM ^^; 12 Выводы Мной разработана СУБД «Прокат DVD» с использованием SQL-сервера Borland InterBase. В процессе работы над курсовой работой автором закреплены практические навыки по созданию клиент-серверных приложений для работы с базами данных на основе SQL-сервера InterBase, полученные на занятиях в УЦКО «Турбо».13 Литература Архангельский А. Я. Программирование в Delphi 7. – М.: ООО "Бином-Пресс", 2003 г. – 1152 с. Кандзюба С. П., Громов В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения. – К.: Издательство «ДиаСофт», 2001. – 576 с. Сурков К. А., Сурков Д. А., Вальвачёв А. Н. Программирование в среде Delphi. – Мн.: ООО "Попурри", 1977. – 640 с. Фаронов В. В. Программирование баз данных в Delphi 6. Учебный курс. – СПб.: Питер, 2002. –352 с. Хендерсон К. Руководство разработчика баз данных в Delphi. – К.: Диалектика, 1966. – 544 с. Хомоненко А. Д. идр. Delphi 7 / Под общ. ред. А. Д. Хомоненко. – СПб.: БХВ-Петербург, 2004. – 1216 с.14