Работа кинотеатра

Пользователю представляется программа, реализующая деятельность работы кинотеатра. Она упрощает работу кассира и позволяет экономить время.

Проект  содержит следующие формы:

1. Главное меню - с помощью, которого можно переходить на другие модальные формы.

2. Фильмы - меню, где  вводятся данные о новом фильме.

3. Места и расценки - меню, где вводятся расценки  на отдельные места в зале.

4. Расписание сеансов  - меню, расписания сеансов.

5. Оплата мест - меню  покупки билетов.

6. Места на сеанс  - показывает места в зале.

7. Заказ - оформление  услуг предоставляемых клиенту.

8. Выручка - показывает  выручку за определенное время.

После запуска программы  на экране появляется главное меню.

Рисунок 3 - Главная форма

Главная форма содержит меню, с помощью которого пользователь обращается к программе. Она состоит  из следующих пунктов меню:

· формы:

кодификатор;

расписание;

оплата мест.

· отчеты:

места на сеанс

выручка.

ЗАКЛЮЧЕНИЕ

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

Представленная программа  обладает следующими характеристиками:

· функциональностью, то есть полнотой удовлетворения пользователя;

· наглядностью, удобством, интуитивно понятным и привычным  для пользователя интерфейсом;

· универсальностью и доступностью рядовому пользователю;

· достоверностью и эффективностью информации;

· производит поиск, отбор;

· добавляет новую информацию;

· подлежит модификации программистом;

В ходе разработки курсовой работы был произведен детальный  анализ объекта и запущенна программное  обеспечение на основе программно ориентированной  среды разработки приложений Delphi6, в  качестве СУБД было использовано офисное  приложение Microsoft Access 2003.

В процессе разработки СУБД был использован уклон на реляционный  подход .

СПИСОК ЛИТЕРАТУРЫ

1) Архангельский А.Я. Программирование  в Delphi 6 - М.: ЗАО «Издательство  БИНОМ», 2001 г. - 1120 с.: ил.

2) Бойко В.В., Савинков  В.М. Проектирование баз данных  информационных систем. - М.: Финансы  и статистика, 1989. - 351 с.

3) Шумаков П.В. Delphi 5 и разработка  приложений баз данных. - М.: “Нолидж”, 2001. - 704 с., ил.

4) Дейт К. Дж. Введение  в системы баз данных: Пер. с  англ. - 6-е изд. - К.: Диалектика, 1998. - 784с., ил.

5) Фокс Дж. Программное  обеспечение и его разработка / Пер. с англ. - М.: Мир, 1985. - 368 с., ил.

6) Мейер М. Теория реляционных  баз данных. - М.: Мир, 1987. - 608 с.

ПРИЛОЖЕНИЯ

Приложение 1.

SADT-ДИАГРАММА

Рисунок 4 - Нулевой уровень

Рисунок 5 - Первый уровень

Рисунок 6 - Второй уровень

Приложение 2.

ДИАГРАММА «СУЩНОСТЬ-СВЯЗЬ»

Рисунок 7 - Диаграмма «сущность-связь»

Приложение 3.

ЛИСТИНГ ПРОГРАММЫ

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7},

Unit8 in 'Unit8.pas' {Form8},

Unit11 in 'Unit11.pas' {Form11},

Unit12 in 'Unit12.pas' {Form12},

Unit13 in 'Unit13.pas' {Form13},

Unit14 in 'Unit14.pas' {Form14},

Unit15 in 'Unit15.pas' {QuickReport15: TQuickRep},

Unit16 in 'Unit16.pas' {Form16},

Unit17 in 'Unit17.pas' {QuickReport17: TQuickRep},

Unit9 in 'Unit9.pas' {Form9},

Unit10 in 'Unit10.pas' {QuickReport10: TQuickRep};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm7, Form7);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm11, Form11);

Application.CreateForm(TForm12, Form12);

Application.CreateForm(TForm13, Form13);

Application.CreateForm(TForm14, Form14);

Application.CreateForm(TQuickReport15, QuickReport15);

Application.CreateForm(TForm16, Form16);

Application.CreateForm(TQuickReport17, QuickReport17);

Application.CreateForm(TForm9, Form9);

Application.CreateForm(TQuickReport10, QuickReport10);

Application.Run;

end.

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask,

Menus, jpeg;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

Image1: TImage;

N19: TMenuItem;

N20: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i:Boolean;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit11,

Unit12, Unit13, Unit14, Unit16, Unit10;

{$R *.dfm}

 

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Visible:=true;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.Visible:=true;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

if MessageDlg('Вы действительно  закрываете программу?',mtInformation,[mbYes,mbNo],0)=mrYes then

begin

MessageDlg('Работа приложения  закончена',mtInformation,[mbOk],0);

Close;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.Visible:=true;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form5.Visible:=true;

end;

 

procedure TForm1.N6Click(Sender: TObject);

begin

Form6.Visible:=true;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form7.Visible:=true;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form8.Visible:=true;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

ShowMessage('Сегодня '+DateToStr(Date));

end;

procedure TForm1.N14Click(Sender: TObject);

begin

ShowMessage('Сейчас '+TimeToStr(Time));

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form11.Visible:=true;

end;

 

procedure TForm1.N17Click(Sender: TObject);

begin

Form12.ShowModal;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

Form13.ShowModal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form14.Visible:=true;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

Form16.Visible:=true;

end;

procedure TForm1.N20Click(Sender: TObject);

begin

Form9.Visible:=true;

end;

end.

unit Unit2;

interface

 

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, ADODB, ExtCtrls,

jpeg;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADOQuery2: TADOQuery;

ADOQuery2_: TAutoIncField;

ADOQuery2DSDesigner: TWideStringField;

ADOQuery2DSDesigner2: TWideStringField;

ADOQuery2DSDesigner3: TWideStringField;

ADOQuery2DSDesigner4: TWideStringField;

ADOQuery2DSDesigner5: TIntegerField;

Edit1: TEdit;

Image1: TImage;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

procedure ADOQuery2FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

form2.DBEdit1.SetFocus();

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOQuery2.Filtered:=true;

end;

procedure TForm2.ADOQuery2FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=DataSet['Фамилия']=Form2.Edit1.Text;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, DB, ADODB, DBCtrls, StdCtrls, Mask, Grids, DBGrids, ExtCtrls,

jpeg;

type

TForm3 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DataSource1: TDataSource;

Image1: TImage;

Label1: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

Form3.DBEdit1.SetFocus();

end;

end.

unit Unit4;

interface

 

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

jpeg;

type

TForm4 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Image1: TImage;

Label3: TLabel;

Label4: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

procedure RadioGroup1Click(Sender: TObject);

procedure ADOQuery1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

pole: variant;

implementation

{$R *.dfm}

procedure TForm4.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

Form4.DBEdit1.SetFocus();

end;

procedure TForm4.RadioGroup1Click(Sender: TObject);

begin

ADOQuery1.Filtered:=false;

Case Form4.RadioGroup1.ItemIndex of

1:begin

pole:='Название';

ADOQuery1.Filtered:=true;

end;

2:begin

pole:='Цена';

ADOQuery1.Filtered:=true;

end;

end;

end;

 

procedure TForm4.ADOQuery1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=DataSet[pole]=Form4.Edit1.Text;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, Mask, ExtCtrls,

jpeg;

type

TForm5 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

Label3: TLabel;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

ADOQuery1__: TAutoIncField;

ADOQuery1DSDesigner: TDateTimeField;

ADOQuery1_: TIntegerField;

ADOQuery1DSDesigner2: TDateTimeField;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

Form5.DBEdit1.SetFocus();

end;

 

end.

unit Unit6;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, Grids, DBGrids, ADODB,

jpeg;

type

TForm6 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBNavigator1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Image1: TImage;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

Form6.DBEdit1.SetFocus();

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

With ADOQuery1 do begin

first;

While Locate('Название',(Edit1.Text),[]) do

delete;

end;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, ADODB,

jpeg;

type

TForm7 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

Label1: TLabel;

DBNavigator1: TDBNavigator;

Label2: TLabel;

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

DataSource2: TDataSource;

DataSource3: TDataSource;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

Form7.DBEdit1.SetFocus();

end;

end.

unit Unit8;

interface

 

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask,

jpeg;

type

TForm8 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

Label4: TLabel;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DBLookupComboBox2: TDBLookupComboBox;

Image1: TImage;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure ADOQuery1BeforeInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.ADOQuery1BeforeInsert(DataSet: TDataSet);

begin

form8.DBLookupComboBox1.SetFocus();

end;

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, DdeMan,comobj, DB, ADODB;

type

TForm9 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button1: TButton;

Label1: TLabel;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

ADOQuery1field1: TAutoIncField;

ADOQuery1field2: TWideStringField;

ADOQuery1field3: TWideStringField;

ADOQuery1field4: TIntegerField;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit10;

{$R *.dfm}

 

procedure TForm9.Button1Click(Sender: TObject);

var WorkBook,Sheet:variant;

v:OLEVariant;

i:integer;

begin

if RadioButton1.Checked then QuickReport10.preview;

if RadioButton2.Checked then

begin

try //секция отлова исключений - чтобы не вылетало, если у  юзера нет экселя

v := CreateOleObject('Excel.Application'); //если  просто: связываемся с экселем

WorkBook:=v.Application.WorkBooks.Add; //создаем  в нем новую книгу

Sheet:=WorkBook.WorkSheets[1];

Sheet.Cells(1,2):='Клиенты';

v.WorkBooks[1].WorkSheets[1].Range['B1:E1'].Merge;

v.WorkBooks[1].WorkSheets[1].rows[1].HorizontalAlignment:=3;

v.WorkBooks[1].WorkSheets[1].rows[3].font.bold:=1;

v.WorkBooks[1].WorkSheets[1].rows[1].font.bold:=1;

v.WorkBooks[1].WorkSheets[1].rows[1].font.size:=16;

Sheet.Cells(3,2):='№ клиента';

Sheet.Cells(3,3):='Фамилия Имя  Отчество';

Sheet.Cells(3,4):='Адрес';

Sheet.Cells(3,5):='Телефон';

v.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=15;

v.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=35;

v.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=35;

v.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=15;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[2].HorizontalAlignment:=3;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[3].HorizontalAlignment:=3;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[4].HorizontalAlignment:=3;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[5].HorizontalAlignment:=3;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[2].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[3].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[4].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[3].Columns[5].Borders.LineStyle:=1;

form9.ADOQuery1.Open();

i:=4;

while not form9.ADOQuery1.Eof do

begin

Sheet.Cells(i,2):=form9.ADOQuery1.FieldByName('field1').Value;