Unit1.pas

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Phys.MySQLDef,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.MySQL, FireDAC.VCLUI.Wait,
  FireDAC.Comp.Client, FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids,
  Vcl.StdCtrls, system.Hash;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    editID: TEdit;
    editPW: TEdit;
    btnLogin: TButton;
    DBGrid1: TDBGrid;
    FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink;
    FDQuery1: TFDQuery;
    FDConnection1: TFDConnection;
    DataSource1: TDataSource;
    procedure btnLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses unit2;
{$R *.dfm}

procedure TForm1.btnLoginClick(Sender: TObject);
var
afterID1, afterID2, afterPW1, afterPW2 : string;

begin
afterID1 := StringReplace(editID.Text, '=', '',[rfReplaceAll, rfIgnoreCase]);
afterID2 := StringReplace(afterID1, '-', '',[rfReplaceAll, rfIgnoreCase]);
afterPW1 := StringReplace(editPW.Text, '=', '',[rfReplaceAll, rfIgnoreCase]);
afterPW2 := StringReplace(afterPW1, '-', '',[rfReplaceAll, rfIgnoreCase]);

editID.Text := afterID2;
editPW.Text := afterPW2;


  try
    begin
      with FDConnection1 do begin
      Params.Clear;
      Params.Add('DriverID=MySQL');
      Params.Add('Server=127.0.0.1');
      Params.Add('Port=3306');
      Params.Add('Database=parkinglot');
      Params.Add('User_Name=root');
      Params.Add('Password=root');

      Params.Add('CharacterSet=utf8');

      Open;
      end;
      with FDQuery1 do begin
      SQL.Clear;
      SQL.Add('select * from member');
      SQL.Add('where mbID =:ID and mbPW =:PW');
      Params.ParamByName('ID').AsString := afterID2;
      Params.ParamByName('PW').AsString := afterPW2;


      open;
      end;

      if afterID2 = dbGrid1.Fields[1].AsString then
      begin
      if afterPW2 = dbGrid1.Fields[2].AsString then
      begin
      showMessage('Login successful');
      form1.Hide;
      form2.show;
      end
      end
      else
      showmessage('Login Filed');
    end
    except
    ShowMessage('Server Login Error');
  end;
end;

end.