unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure WebBuyList();
    procedure GoodsByName();
    procedure MemberByName();
    procedure MemberByTeam();
    procedure EmployeeByNumber();
    procedure EmployeeByGroup();
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses Unit6, Unit4, Unit7;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
if Edit1.Visible=true then
begin
if Edit1.Text='' then
  begin
  ShowMessage('Вы не ввели условие!');
  end
  else
   begin
   case Chr of
     1 : EmployeeByGroup;
     2 : EmployeeByNumber;
     3 : MemberByTeam;
     4 : MemberByName;
     5 : WebBuyList;
     6 : GoodsByName;
   end;
  end;
end
else
begin
case Chr of
     1 : EmployeeByGroup;
     2 : EmployeeByNumber;
     3 : MemberByTeam;
     4 : MemberByName;
     5 : WebBuyList;
     6 : GoodsByName;
   end;
end;
end;

procedure TForm5.WebBuyList();
begin
  Form6.Caption:='Список предзаказов';
  Form6.ShowModal;
  Form5.Close;
end;

procedure TForm5.GoodsByName();
var a,b:string;
begin
if Form5.ComboBox1.Text='На сайте' then
begin
  b:='SELECT Goods.[№ Товара], Goods.[Название товара], Goods.[Стоимость товара],';
  Form6.Caption:='Товары по названию';
  Form6.ADOQuery1.SQL.Clear;
  Form6.ADOQuery1.SQL.Add(b+' Goods.[Метод покупки], Goods.[Тип товара], Goods.Вес, Goods.[Название лавки] FROM Goods WHERE (((Goods.[Метод покупки])="На сайте"));');
  Form6.ADOQuery2.SQL.Add('SELECT Sum([Goods].[Стоимость товара]) AS Сумма FROM Goods WHERE (((Goods.[Метод покупки])="На сайте"));');
  Form6.ADOQuery1.Active:=true;
  Form6.ADOQuery2.Active:=true;
  Form6.DBText1.DataField:='Сумма';
  Form6.ShowModal;
end
else
begin
  b:='SELECT Goods.[№ Товара], Goods.[Название товара], Goods.[Стоимость товара],';
  Form6.Caption:='Товары по названию';
  Form6.ADOQuery1.SQL.Clear;
  Form6.ADOQuery1.SQL.Add(b+' Goods.[Метод покупки], Goods.[Тип товара], Goods.Вес, Goods.[Название лавки] FROM Goods WHERE (((Goods.[Метод покупки])="В магазине"));');
  Form6.ADOQuery2.SQL.Add('SELECT Sum([Goods].[Стоимость товара]) AS Сумма FROM Goods WHERE (((Goods.[Метод покупки])="В магазине"));');
  Form6.ADOQuery1.Active:=true;
  Form6.ADOQuery2.Active:=true;
  Form6.DBText1.DataField:='Сумма';
  Form6.ShowModal;
end;
end;

procedure TForm5.MemberByName();
var mbn:string;
begin
  mbn:=Edit1.Text;
  Form7.ADOQuery1.SQL.Clear;
  Form7.ADOQuery1.SQL.Add('SELECT Members.[№ Участника], Members.[ФИО Участника], Members.Ник, Members.[Название команды], Members.Роль, Members.[Дата рождения], Members.Адресс, Members.[Матчей сыграно] FROM Members WHERE Members.[№ Участника]='+mbn);
  Form7.ADOQuery1.Active:=true;
  Form7.DBText1.DataField:='ФИО Участника';
  Form7.DBText2.DataField:='Роль';
  Form7.DBText3.DataField:='Ник';
  Form7.DBText4.DataField:='Название команды';
  Form7.DBText5.DataField:='Дата рождения';
  Form7.DBText6.DataField:='Матчей сыграно';
  Form7.Caption:='Участник по номеру';
  Form7.ShowModal;
  Edit1.Text:='';
end;

procedure TForm5.MemberByTeam();
var ebg:string;
begin
ebg:=Edit1.Text;
  Form6.ADOQuery1.SQL.Clear;
  Form6.ADOQuery1.SQL.Add('SELECT Teams.[Название команды], Teams.Лига, Members.[ФИО Участника], Members.Ник, Members.Роль, Members.[Матчей сыграно] FROM Teams INNER JOIN Members ON Teams.[№ Команды] = Members.[Название команды] WHERE Teams.[№ Команды]='+ebg);
  Form6.ADOQuery1.Active:=true;
  Form6.Caption:='Участник по команде';
  Form6.Label1.Visible:=false;
  Form6.ShowModal;
  Form5.Close;
end;

procedure TForm5.EmployeeByNumber();
var ebn:string;
begin
  ebn:=Edit1.Text;
  Form7.ADOQuery1.SQL.Clear;
  Form7.ADOQuery1.SQL.Add('SELECT Employees.[№ Сотрудника], Employees.ФИО, Employees.[Дата рождения], Employees.Адресс, Employees.[Номер телефона], Employees.[Рабочая группа] FROM Employees WHERE Employees.[№ Сотрудника]='+ebn);
  Form7.ADOQuery1.Active:=true;
  Form7.DBText1.DataField:='№ Сотрудника';
  Form7.DBText2.DataField:='ФИО';
  Form7.DBText3.DataField:='Номер телефона';
  Form7.DBText4.DataField:='Рабочая группа';
  Form7.DBText5.DataField:='Дата рождения';
  Form7.DBText6.DataField:='Адресс';
  Form7.Caption:='Сотрудник по номеру';
  Form7.Image8.Visible:=true;
  Form7.ShowModal;
  Edit1.Text:='';
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Edit1.Text:='';
ComboBox1.Visible:=false;
Edit1.Visible:=true;
end;

procedure TForm5.EmployeeByGroup();
var ebg,l1:string;
begin
ebg:=Edit1.Text;
l1:='SELECT Employees.[Рабочая группа], Employees.ФИО, Employees.[Дата рождения], Employees.Адресс, Employees.[Номер телефона], Groups.[Зона работы] ';
  Form6.ADOQuery1.SQL.Clear;
  Form6.ADOQuery1.SQL.Add(l1+'FROM Groups INNER JOIN Employees ON Groups.[№ Группы] = Employees.[Рабочая группа] WHERE (((Employees.[Рабочая группа])='+ebg+'));');
  Form6.ADOQuery1.Active:=true;
  Form6.Caption:='Сотрудники по группе';
  Label1.Visible:=true;
  Form6.ShowModal;
end;

end.