Файл: Система автоматизации учета в кинотеатре.pdf

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

Автором в процессе работы над программным продуктом был произведен необходимый научный и технический анализ для проектирования и реализации программного продукта «Автоматизация продажи билетов».

Список используемых источников

1. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер. Непрерывная интеграция. Улучшение качества программного обеспечения и снижение риска/ Поль М. Дюваль, Стивен Матиас – М.Вильямс, 2017 – 240 с.
2. Прамодкумар Дж. Садаладж, Мартин Фаулер. NoSQL. Новая методология разработки нереляционных баз данных/ Дмитрий Клюшин – М.Вильямс, 2017 -192 с.
3. Бен Форта. Освой самостоятельно SQL за 10 минут/ В. Гинзбург –М.Вильямс, 2017 -288 с.
4. К. Дж. Дэйт. Введение в системы баз данных/ К. Дж. Дэйт –М.Вильямс.,2017 -1328 с.
5. Джефф Карпентер, Эбен Хьюитт/ А. Слинкин – М.ДМК Пресс, 2017 -400 с.
6. Дэви Силен, Арно Мейсман, Мохамед Али. Основы Data Science и Big Data. Python и наука о данных/ Дэви Силен, Арно Мейсман – СПб. Питер, 2017 – 336 с.
7. Максим Бабенко, Михаил Левин. Введение в теорию алгоритмов и структур данных/ Максим Бабенко, Михаил Левин – М. МЦНМО., 2017 – 144 с.
8. Томас Коннолли, Каролин Бегг. Базы данных. Проектирование, реализация и сопровождение. Теория и практика./ Томас Коннолли, Каролин Бегг – М. Вильямс, 2017 – 1440 с.
9. Джоэл Грас. Data Science. Наука о данных с нуля./ Андрей Логунов.-СПб., БХВ-Петербург,2017 – 336 с.
10. Скотт Амблер, Прамодкумар Дж. Садаладж. Рефакторинг баз данных. Эволюционное проектирование/ Константин Птицын –М. Вильямс, 2016 -368 с.

Приложение

Листинг программы

unit Unit5;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.DBCtrls,

Vcl.ExtCtrls;

type

TForm5 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Memo1: TMemo;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

uses Unit2, Unit4, Unit3;

procedure TForm5.Button1Click(Sender: TObject);

var Name:TStrings;

i,n:integer;

begin

Name:=TStringList.Create;

Form2.ADOQuery1.Active :=False;

Form2.ADOQuery1.SQL.Clear;

Form2.ADOQuery1.SQL.Add('SELECT Title FROM Tablica1');

Form2.ADOQuery1.Active:=True;

n:=Form2.ADOQuery1.RecordCount-1;

for i:=0 to n do begin Name.Add(Form2.ADOQuery1.FieldByName('Title').AsString); Form2.ADOQuery1.Next; end;

ComboBox1.Items:=Name;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

begin

Label4.Caption:='Фильм Выбран: '+ComboBox1.Text;

Label5.Caption:='Дата Выбрана: '+FormatDateTime('dd/mm/yyyy', DateTimePicker1.Date);

Label6.Caption:='Время: ';

end;

end.

unit Unit4;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBMemo1: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit5;

procedure TForm4.Button1Click(Sender: TObject);

begin

Form2.ADOQuery1.Post;

close;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form2.ADOQuery1.Cancel;

close;

end;

end.

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,

Data.Win.ADODB, Vcl.StdCtrls, Vcl.ExtCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Button4: TButton;

Button5: TButton;

Label2: TLabel;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Label3: TLabel;

Memo1: TMemo;

DBGrid1: TDBGrid;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label4: TLabel;

Button9: TButton;

Timer1: TTimer;

Label5: TLabel;

Button10: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

uses Unit2, Unit4, Unit5;

procedure TForm3.Button10Click(Sender: TObject);

begin

Label5.Caption:='Загружена таблица: Tickets';

//SELECT Rasp.Day,Rasp.Time1,Rasp.Time2,Rasp.Time3,Rasp.Time4,Rasp.Time5 FROM Rasp left JOIN Tablica1 ON Tablica1.FilmID=Rasp.Time1

Form4.DBEdit1.DataField:='';

Form4.DBEdit2.DataField:='';

Form4.DBEdit3.DataField:='';

Form4.DBEdit4.DataField:='';

Form4.DBMemo1.DataField:='';

Form2.ADOQuery1.Active :=False;

Form2.ADOQuery1.SQL.Clear;

//Form2.ADOQuery1.SQL.Add('(SELECT Rasp.Day FROM Rasp) UNION ');

Form2.ADOQuery1.SQL.Add('SELECT * FROM Tickets');

//Form2.ADOQuery1.SQL.Add(' UNION (SELECT Tablica1.Title as Time2 From Rasp FULL INNER JOIN Tablica1 ON Tablica1.FilmID=Rasp.Time2)');

Form2.ADOQuery1.Active:=True;

Button3.Enabled:=False;

Button5.Enabled:=False;

Button4.Enabled:=False;

Button6.Enabled:=True;

Button7.Enabled:=True;

Button8.Enabled:=True;

end;

procedure TForm3.Button1Click(Sender: TObject);