Кинопрокат

 

 

 

 

 

 

 

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к курсовой работе

по дисциплине «Высокоуровневые методы информатики и программирования»

на тему «Кинопрокат»

 

            

 

Содержание

1. Постановка  задачи …………………………………………………………….3

2. Описание предметной  области…………………………………………...….4

3. Проектирование  интерфейса

3.1. Выбор и  назначение визуальных компонентов…………………...…5

3.2. Формы проекта ..…………………………………………….…....……7

4. Разработка  программного обеспечения

4.1. Процедуры, функции проекта и их назначение………………….…9

4.2. Текст программы………………………………………………….….11

5. Визуальное  представление результатов………………………………...…27

6. Список литературы…………………………………………………………...29

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Постановка задачи

Задачей данного  проекта является разработка программного обеспечения в среде визуального программирования Delphi для информационной системы в конкретной предметной области. В данном курсовом проекте велась работа над созданием базы данных для кинопроката.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

В настоящее  время киноиндустрия очень быстро развивается,  количество новых фильмов растет, следовательно, увеличиваются объемы информации, которая хранится в кинопрокате. Хранение информации в бумажной форме не всегда удобно, так как зачастую появляются сложности с поиском и изменением необходимой информации. Создание электронной  базы данных намного упростит вышеперечисленные процедуры и позволит экономить большое количество времени.

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

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

1. Название
2. Год выпуска
3. Страна
4. Жанр
5. Режиссер
6. Формат
7. Количество

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Проектирование интерфейса

3.1. Выбор и  назначение визуальных компонентов

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

Button (стандартная кнопка) - компонент меню Standard, используемый для создания кнопок, которыми пользователь выполняет команды в приложении. SpeedButton – кнопка с графикой.

Edit (окно редактирования) - компонент меню Standard, предназначенный для ввода/вывода и редактирования однострочных текстов.

Label (метка) - компонент меню Standard, используемый для отображения надписи на форме, которая не изменяется пользователем. Никакого оформления текста не предусмотрено, кроме цвета метки и текста. Основное свойство — Caption.

DBGrid (таблица строк) — компонент меню Data Controls, отображающий информацию в таблице из строк и столбцов с возможностью перемещаться по строкам и столбцам и осуществлять выбор.

Image (изображение) — компонент меню Additional. Используется для отображения графики: пиктограмм, битовых матриц, и метафайлов.

Chart (диаграммы и графики) – компонент меню Additional. Используется для создания диаграмм и графиков.

PopupMenu (Контекстное меню) - почти не отличается от компонента MainMenu. Но в отличие от Главного меню, которое одно на Форме, всплывающие меню могут быть у каждого объекта, размещённого на Форме.

 

3.2. Формы проекта

Работа с  данными в Microsoft Access осуществляется в основном с помощью форм. Любая форма содержит окна - поля, которые предназначены для ввода информации.

Были созданы следующие формы:

1. Форма запуска программы.

На форме  можно осуществить одно из предложенных действий: начать работу (кнопка «Вход»), выйти из программы (кнопка «Выход»).

2. Кинопрокат (главная форма).

В процессе работы с главной формой сотрудники кинопроката могут добавлять информацию о фильмах, редактировать, удалять и сохранять все изменения в БД. Также можно отсортировать, имеющиеся данные по названию, году выпуска и режиссеру. Есть возможность перейти на панели поиска и диаграмм.

3. Поиск.

На форме  поиск может осуществляться поиск фильмов по названию, стране, формату. Имеется кнопка перехода главную форму. Также можно осуществить выход из программы.

4. Диаграммы.

На форме  отображаются диаграммы по режиссеру, стране и жанру. Есть возможность перейти на главную форму.

 

3.2. Формы проекта

Рис.1 Форма запуска программы.

 

Рис.2 Кинопрокат (главная форма).

 

 

Рис.3 Форма «Поиск»

 

Рис.4 Форма «диаграммы».

 

 

 

4. Разработка программного обеспечения

1. Процедуры.

procedure TForm1.SpeedButton2Click(Sender: TObject);- скрытие начальной формы для просмотра главной формы;

procedure TForm1.SpeedButton1Click(Sender: TObject); procedure TForm2.SpeedButton3Click(Sender: TObject); procedure TForm3.SpeedButton2Click(Sender: TObject); procedure TForm4.SpeedButton5Click(Sender: TObject); - завершение работы приложения;

procedure TForm2.N1Click(Sender: TObject);- предназначена для добавления информации в таблицу;

procedure TForm2.SpeedButton9Click(Sender: TObject); procedure TForm2.N2Click(Sender: TObject);  - выполняет удаление записи из таблицы;

procedure TForm2.N3Click(Sender: TObject); procedure TForm2.SpeedButton8Click(Sender: TObject);- выполняет сохранение записи в таблице;

procedure TForm2.SpeedButton6Click(Sender: TObject); - сортировка по названию;

procedure TForm2.SpeedButton5Click(Sender: TObject);- сортировка по году выпуска;

procedure TForm2.SpeedButton4Click(Sender: TObject);- сортировка по режиссеру;

procedure TForm2.SpeedButton1Click(Sender: TObject);- выполняет переход на форму поиска;

procedure TForm2.SpeedButton2Click(Sender: TObject);- выполняет переход на форму диаграмм.

procedure TForm3.SpeedButton1Click(Sender: TObject);- выполняет поиск названию, стране и формату в зависимости от выбрано категории (RadioButton1.Checked – по названию; RadioButton2.Checked – по стране; RadioButton3.Checked - по формату);

procedure TForm3.SpeedButton3Click(Sender: TObject); procedure TForm4.SpeedButton4Click(Sender: TObject); - выполняет переход на главную форму;

procedure TForm4.SpeedButton1Click(Sender: TObject);- построение диаграммы по режиссеру;

procedure TForm4.SpeedButton2Click(Sender: TObject); - построение диаграммы по стране;

procedure TForm4.SpeedButton1Click(Sender: TObject);- построение диаграммы по жанру;

 

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

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

 

type

  TForm1 = class(TForm)

    Image1: TImage;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

  form1.hide;

form2.show;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

close;

end;

 

end.

 

unit Unit2;

 

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls,

  Menus;

 

type

  TForm2 = class(TForm)

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    ADOTable1DSDesigner: TAutoIncField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1_: TIntegerField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TWideStringField;

    ADOTable1DSDesigner5: TWideStringField;

    ADOTable1DSDesigner6: TWideStringField;

    ADOTable1DSDesigner7: TIntegerField;

    ADOConnection1: TADOConnection;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    SpeedButton7: TSpeedButton;

    SpeedButton8: TSpeedButton;

    SpeedButton9: TSpeedButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Image1: TImage;

    PopupMenu1: TPopupMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

   procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Unit3, Unit4;

 

{$R *.dfm}

 

 

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

  Form2.ADOTable1.IndexFieldNames:= 'Назваие';

end;

 

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

  Form2.ADOTable1.IndexFieldNames:= 'Год_выпуска';

end;

 

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

    Form2.ADOTable1.IndexFieldNames:= 'Режиссер';

end;

 

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin

  Form2.ADOTable1.Insert;

  Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[0].DisplayName)

   .AsString := Self.Edit1.Text;

  Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[1].DisplayName)

   .AsString := Self.Edit2.Text;

  Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[2].DisplayName)

   .AsString := Self.Edit3.Text;

  Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[3].DisplayName)

   .AsString := Self.Edit4.Text;

  Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[4].DisplayName)

   .AsString := Self.Edit5.Text;

     Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[5].DisplayName)

   .AsString := Self.Edit6.Text;

     Form2.ADOTable1.FieldByName(DBGrid1.Columns.Items[6].DisplayName)

   .AsString := Self.Edit7.Text;

  Form2.ADOTable1.Post;

  Form2.Edit1.Clear;

  Form2.Edit2.Clear;

  Form2.Edit3.Clear;

  Form2.Edit4.Clear;

  Form2.Edit5.Clear;

  Form2.Edit6.Clear;

  Form2.Edit7.Clear;

 

end;

 

procedure TForm2.SpeedButton8Click(Sender: TObject);

begin

if MessageDlg ('Сохранить  изменения?', mtConfirmation, [mbYes, mbNo], 0)

  = mrNO then Abort;

if Form2.ADOTable1.Modified then

Form2.ADOTable1.Post;

end;

 

procedure TForm2.SpeedButton9Click(Sender: TObject);

begin