unit login_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TLogin = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

uses global, data_unit, main_unit, org_unit, goods_unit, seller_unit,
  buyer_unit;

{$R *.dfm}

procedure TLogin.Button1Click(Sender: TObject);
begin
AssignFile(global.logs, 'logs\log.txt');
Append(global.logs);

if (check_password('username = "' + edit1.text + '" and userpassword = "' + edit2.Text + '"', 'users', datamodule2.ADOusers) > 0) then begin
  if (check_password('username = "' + edit1.text + '" and rights = "' + 'admin' + '"', 'users', datamodule2.ADOusers) > 0)
    then begin
      global.rights:='admin';
    end
  else begin
    global.rights:='user';
  end;
  showmessage('Удачный вход!');
  main.show;
  Login.Hide;
if(check_password('username = "' + edit1.text + '" and messages = true', 'users', datamodule2.ADOusers) > 0) then begin
     global.messages:='okay';
end;

WriteLn(global.logs, 'Пользователь ' + edit1.text + ' успешно вошел в систему в ' + timetostr(Now()) + ' ' + DateToStr(Date) + ';');

datamodule2.ADOusers.Active:=false;
datamodule2.ADOusers.SQL.Clear;
datamodule2.ADOusers.SQL.Add('select * from users where username = "' + edit1.text + '"');
datamodule2.ADOusers.Active:=true;

if DataModule2.ADOusers.FieldByName('colorsheme').AsVariant = 'clGreen' then begin
  main.panel1.Color:=clGreen;
  org.panel1.color:=clGreen;
  goods.panel1.color:=clGreen;
  seller.panel1.color:=clGreen;
  buyer.panel1.color:=clGreen;
end;

if DataModule2.ADOusers.FieldByName('colorsheme').AsVariant = 'clWhite' then begin
  main.panel1.Color:=clWhite;
  org.panel1.color:=clWhite;
  goods.panel1.color:=clWhite;
  seller.panel1.color:=clWhite;
  buyer.panel1.color:=clWhite;
end;

if DataModule2.ADOusers.FieldByName('colorsheme').AsVariant = 'clNavy' then begin
  main.panel1.Color:=clNavy;
  org.panel1.color:=clNavy;
  goods.panel1.color:=clNavy;
  seller.panel1.color:=clNavy;
  buyer.panel1.color:=clNavy;
end;

end
else begin
showmessage('Ошибка ввода!');
WriteLn(global.logs, 'Пользователь ' + edit1.text + ' не смог войти в систему в ' + timetostr(Now()) + ' ' + DateToStr(Date) + ';');
end;
CloseFile(global.logs)
end;

end.