unit Unit1;

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.Imaging.pngimage, Vcl.ExtCtrls,
  Vcl.DBCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    AttrTable: TADOTable;
    AttrData: TDataSource;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    ClientTable: TADOTable;
    ClientData: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    TicketsTable: TADOTable;
    TicketsData: TDataSource;
    Button7: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button8: TButton;
    Image1: TImage;
    Button9: TButton;
    CheckBox1: TCheckBox;
    SotrTable: TADOTable;
    SotrData: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button10: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Button11: TButton;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button10Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses AttrAdd, ClientAdd, Login;
{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
  TicketsTable.Delete; //Удаление билета
  Label4.Caption := inttostr(DBGrid3.DataSource.DataSet.RecordCount); //Обновление статистики
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if AddAttr.ShowModal = mrok then
  begin
    AttrTable.Append; //Добавление новой строки в конец
    AttrTable['Название'] := AddAttr.Edit1.Text;
    AttrTable['Описание'] := AddAttr.Edit2.Text;
    AttrTable['Стоимость'] := strtoint(AddAttr.Edit3.Text);  //Заполнение
    if AddAttr.CheckBox1.Checked then
      AttrTable['Активен'] := 'True'
    else
      AttrTable['Активен'] := 'False';
    AttrTable.Post; //Занос в таблицу
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddAttr.Edit1.Text := AttrTable['Название'];
  AddAttr.Edit2.Text := AttrTable['Описание']; //Заполнение изменяемых полей
  AddAttr.Edit3.Text := AttrTable['Стоимость'];
  if AddAttr.ShowModal = mrok then
  begin
    AttrTable.Edit; //Открытие для изменения
    AttrTable['Название'] := AddAttr.Edit1.Text;
    AttrTable['Описание'] := AddAttr.Edit2.Text;  //Изменение
    AttrTable['Стоимость'] := strtoint(AddAttr.Edit3.Text);
    if AddAttr.CheckBox1.Checked then
      AttrTable['Активен'] := 'True'
    else
      AttrTable['Активен'] := 'False';
    AttrTable.Post; //Занос в таблицу
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  AttrTable.Delete;//Удаление
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if AddClient.ShowModal = mrok then
  begin
    ClientTable.Append; //Добавление
    ClientTable['Фамилия'] := AddClient.Edit1.Text;
    ClientTable['Имя'] := AddClient.Edit2.Text; //Соответствие с полями
    ClientTable['Отчество'] := AddClient.Edit4.Text;
    ClientTable['Дата рождения'] := AddClient.DateTimePicker1.Date;
    ClientTable.Post; //Занос в таблицу
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  AddClient.Edit1.Text := ClientTable['Фамилия'];
  AddClient.Edit2.Text := ClientTable['Имя'];
  AddClient.Edit4.Text := ClientTable['Отчество'];
  AddClient.DateTimePicker1.Date := ClientTable['Дата рождения'];
  if AddClient.ShowModal = mrok then
  begin
    ClientTable.Edit; // Изменение
    ClientTable['Фамилия'] := AddClient.Edit1.Text;
    ClientTable['Имя'] := AddClient.Edit2.Text;
    ClientTable['Отчество'] := AddClient.Edit4.Text;
    ClientTable['Дата рождения'] := AddClient.DateTimePicker1.Date;
    ClientTable.Post; // Занос в таблицу
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  ClientTable.Delete; //Удаление
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if not AttrTable.Locate('IdАттракциона', Edit1.Text,
    [loCaseInsensitive, loPartialKey]) then //Поиск по ИД
    ShowMessage('Запись не найдена');
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  if not ClientTable.Locate('IdКлиента', Edit2.Text,
    [loCaseInsensitive, loPartialKey]) then // Поиск по ИД
    ShowMessage('Запись не найдена');
end;

procedure TForm1.Button9Click(Sender: TObject);
var
  a, i, pr: integer;
begin
pr:=0;
  TicketsTable.Append;
  if DBGrid1.SelectedField.Value then //Проверка на выделение
  begin
    if AttrTable['Активен'] = True then //Проверка на работу аттракциона
    begin
      TicketsTable['Аттракцион'] := AttrTable['Название'];
      if DBGrid2.SelectedField.Value then //Проверка на выделение
        TicketsTable['Клиент'] := (ClientTable['Фамилия']);
      TicketsTable['Сотрудник'] := (SotrTable['Фамилия']);
      if CheckBox1.Checked then //Проверка на чекбокс
      begin
        TicketsTable['Детский'] := 'True';
        a := AttrTable['Стоимость'];
        a := round(a / 2); //Подсчет детского билета
        TicketsTable['Цена билета'] := a
      end
      else
      begin
        TicketsTable['Детский'] := 'False';
        TicketsTable['Цена билета'] := AttrTable['Стоимость'];
      end;
      TicketsTable.Post; //Занос в таблицу
    end
    else
      ShowMessage('Выбранный аттракцион не работает');
    while not TicketsData.DataSet.Eof do
    begin
      for i := 1 to TicketsData.DataSet.RecordCount do
      begin
        pr := pr + TicketsTable['Цена билета']; //Подсчет выручки
      end;
      TicketsData.DataSet.Next;
    end;
     Label6.Caption := inttostr(pr);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Login.SotrLogin.Close; //Закрытие формы
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  pr, i: integer;
begin
  pr:=0;
  DBGrid1.columns.Items[0].width := 20;
  DBGrid1.columns.Items[1].width := 190;
  DBGrid1.columns.Items[2].width := 260;
  DBGrid1.columns.Items[3].width := 60;
  DBGrid1.columns.Items[4].width := 84;
  DBGrid2.columns.Items[0].width := 15;
  DBGrid2.columns.Items[1].width := 150; //Размеры колонок вручную
  DBGrid2.columns.Items[2].width := 150;
  DBGrid2.columns.Items[3].width := 160;
  DBGrid2.columns.Items[4].width := 140;
  DBGrid3.columns.Items[0].width := 30;
  DBGrid3.columns.Items[1].width := 90;
  DBGrid3.columns.Items[2].width := 180;
  DBGrid3.columns.Items[3].width := 90;
  DBGrid3.columns.Items[4].width := 90;
  TicketsTable.First;
  while not TicketsTable.Eof do begin
    begin
      for i := 1 to TicketsTable.RecordCount do
      begin
        pr := pr + TicketsTable['Цена Билета']; //Подсчет выручки
      end;
      TicketsTable.Next;
    end;
  end;
     Label6.Caption := inttostr(pr);
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i, a: integer;
begin
  a := 0;
  Label1.Caption := SotrTable['Имя']; //Данные сотрудника
  with AttrTable do
  begin
    for i := 1 to AttrTable.RecordCount do
      if AttrTable['Активен'] = True then
        inc(a);
    Label8.Caption := inttostr(a); //Количество работающих аттракционов
  end;
  Label10.Caption := inttostr(ClientTable.RecordCount); //Количество клиентов
  Label4.Caption := inttostr(DBGrid3.DataSource.DataSet.RecordCount); //Количество проданных билетов
end;

end.

unit Login;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls;

type
  TSotrLogin = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SotrLogin: TSotrLogin;
  x: boolean;

implementation

uses unit1;
{$R *.dfm}

procedure TSotrLogin.Button1Click(Sender: TObject);
var
  i: integer;
  s1,s2:string;
begin
  form1.SotrData.DataSet.First;
  for i := 1 to Form1.SotrData.DataSet.RecordCount do
  begin
    s1 := form1.SotrData.DataSet.FieldByName('Логин').Asstring;
    s2 := form1.SotrData.DataSet.FieldByName('Пароль').Asstring;
   if (edit2.Text=s1) and (Edit1.Text=s2) then //Проверка на совпадение данных с БД
   begin
      Form1.ShowModal;
      SotrLogin.Visible:=false;
      break
   end
    else
      form1.SotrData.DataSet.Next;
  end;
  ShowMessage('Неверный логин или пароль');
end;

end.

unit ClientAdd;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TAddClient = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddClient:TAddClient;

implementation

{$R *.dfm}

end.

unit AttrAdd;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TAddAttr = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddAttr: TAddAttr;

implementation

{$R *.dfm}

end.