Разработка приложения базы данных "Кинотеатр"

Нижегородский Государственный Технический Университет

Кафедра ИСУ

КУРСОВАЯ РАБОТА

ПО БАЗАМ ДАННЫХ

РАЗРАБОТКА ПРИЛОЖЕНИЯ БАЗЫ ДАННЫХ

“КИНОТЕАТР ”

Выполнила: студентка  

группы 06-АС-1

                Гнедова А.А.

Проверил:    Балашова Т.И.

Нижний Новгород

2009г.

1. Анализ задания и создания схемы базы данных.

1.1 Назначение.

1.2 Требования.

Спроектировать и создать приложение для управления и получения данных по прибору Бита.

Описание предметной области:

Данная база данных предназначена для посетителей и кассиров кинотеатра, т.е.база предназначена для ознакомления с фильмами идушими в прокате, информации о наличии мест и о времени показа фильма.

1.3 Модель данных.

В базе данных была использована ER-диаграмма, изображенная ниже.

В базе данных присутствуют следующие таблицы:

Режиссер– содержится информация о имени и дате выпуска первого фильма режиссера.

Организации – содержит сведения о организациях, которые выпускают в прокат фильмы.

Фильм – содержит данные о фильме выпускающимся в прокат.

Зал – информацию о зале, в котором будет проходить сеанс.

Время – содержит информацию о начале и окончании сеанса.

Место – содержит информация о том, какие места есть на данный сеанс.

2. Создание форм и запросов.

[pic 1]

Диаграмма:

[pic 2]

Электронный отчет:

[pic 3]

2.1 Запросы.

В данном проекте были использованы SQL запросы:

SELECT FROM

UPDATE

INSERT

DELETE

В основном это были параметрические запросы. Так же при помоши SQL запросов осуществлялись связи некоторых таблиц. Все SQL запросы можно увидеть в тексте программы.

3. Текст программы.

        Форма

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, DBGrids, Menus, Mask;

type

  TForm1 = class(TForm)

    DBGrid1: TDBGrid;

    Label1: TLabel;

    DBGrid2: TDBGrid;

    Label2: TLabel;

    DBGrid3: TDBGrid;

    Label3: TLabel;

    DBGrid4: TDBGrid;

    Label4: TLabel;

    DBGrid5: TDBGrid;

    Label5: TLabel;

    DBGrid6: TDBGrid;

    Label6: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    Button11: TButton;

    Button12: TButton;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    Button17: TButton;

    Button18: TButton;

    GroupBox1: TGroupBox;

    MaskEdit1: TMaskEdit;

    Label7: TLabel;

    Label8: TLabel;

    MaskEdit2: TMaskEdit;

    MaskEdit3: TMaskEdit;

    MaskEdit4: TMaskEdit;

    Label9: TLabel;

    Label10: TLabel;

    MaskEdit5: TMaskEdit;

    Label11: TLabel;

    Button19: TButton;

    ComboBox1: TComboBox;

    Label12: TLabel;

    Button20: TButton;

    Button21: TButton;

    procedure FormCreate(Sender: TObject);

    procedure DBGrid2CellClick(Column: TColumn);

    procedure DBGrid5CellClick(Column: TColumn);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure Button19Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure MaskEdit4KeyPress(Sender: TObject; var Key: Char);