LOGIN COM DELPHI E MYSQL

Minha Rotina de cadastro de Login


procedure TFCADUSER.CadastrarClick(Sender: TObject);
VAR
LOGIN_CR:STRING;
SENHA_CR:STRING;
SQL_SCRYP:STRING;
script_insert:STRING;
ACESSO_TOTAL:STRING;

begin


if CBX_FILIAL.Text='' then
BEGIN
ShowMessage('Informe a Unidade');
CBX_FILIAL.SetFocus;
CBX_FILIAL.DroppedDown:=true;
exit;
END;

if ED_NOME.Text='' then
BEGIN
ShowMessage('Informe o nome do usuário');
ED_NOME.Text;
ED_NOME.SetFocus;
exit;
END;


if ED_LOGIN.Text='' then
BEGIN
ShowMessage('Informe o login do usuário');
ED_LOGIN.SetFocus;
exit;
END;


if ED_EMAIL.Text='' then
BEGIN
ShowMessage('Informe o email do usuário');
ED_EMAIL.SetFocus;
exit;
END;

if ED_SENHA.Text='' then
BEGIN
ShowMessage('Informe a senha de acesso!');
ED_SENHA.SetFocus;
exit;
END;

if ED_CONFIRME_SENHA.Text='' then
BEGIN
ShowMessage('Informe a confirmação da senha de acesso!');
ED_CONFIRME_SENHA.SetFocus;
exit;
END;

if ED_CONFIRME_SENHA.Text<>ED_SENHA.Text then
BEGIN
ShowMessage('Senhas não coincidem, tente novamente');
ED_CONFIRME_SENHA.Clear;
ED_SENHA.Clear;
ED_SENHA.SetFocus;
exit;
END;


if CK_ACESSO_TOTAL.Checked=TRUE then
BEGIN
ACESSO_TOTAL:='S';
END
ELSE
BEGIN
ACESSO_TOTAL:='N';
END;


BEGIN
LOGIN_CR:='';
SENHA_CR:='';
SQL_SCRYP:='';
LOGIN_CR:=Criptografar(ED_LOGIN.Text);
SENHA_CR:=Criptografar(ED_SENHA.Text);

SQL_SCRYP:='SELECT * FROM SV_ACESSO WHERE LOGIN_CRYP='
+''''+LOGIN_CR+''''+
' AND FILIAL='
+''''+CBX_FILIAL.TEXT+''''+';';
DM.Q_LOGIN.CLOSE;
DM.Q_LOGIN.SQL.CLEAR;
DM.Q_LOGIN.SQL.Text:=SQL_SCRYP;
DM.Q_LOGIN.OPEN;

if DM.Q_LOGIN.RecordCount>0 then
BEGIN
ShowMessage('Usuário ['+ED_LOGIN.Text+'], já existe na Filial ['+CBX_FILIAL.Text+']');
end
else
begin

script_insert:=
'INSERT INTO SV_ACESSO (NOME,LOGIN_CRYP,SENHA_CRYP,FILIAL,EMAIL,ACESSO_TOTAL)VALUES ('
+''''+ED_NOME.Text+''''
+','+''''+LOGIN_CR+''''+
','+
''''+SENHA_CR+''''+
','+
''''+CBX_FILIAL.Text+''''+
','+
''''+ED_EMAIL.Text+''''+
','+''''+ACESSO_TOTAL+''''+

');';

TRY
DM.Q_LOGIN.CLOSE;
DM.Q_LOGIN.SQL.Text:=script_insert;
DM.Q_LOGIN.ExecSQL;

DM.Q_LOGIN.close;
DM.Q_LOGIN.SQL.Text:=SQL_SCRYP;
DM.Q_LOGIN.OPEN;
begin
if DM.Q_LOGIN.RecordCount>0 then
BEGIN
ShowMessage('Usuário ['+ED_LOGIN.Text+'], Cadastrado na Filial ['+CBX_FILIAL.Text+'], Código ['+IntToStr(DM.Q_LOGIN.FieldByName('ID').AsInteger)+']');
END
ELSE
BEGIN
ShowMessage('Falha ao tentar gravar Usuário ['+ED_LOGIN.Text+'], na Filial ['+CBX_FILIAL.Text+']');
END;
end;
EXCEPT
exit;
END;

end;
DM.Q_LOGIN.close;
end;
end;

Minha Tela de Login

procedure TFLOGIN.ConectarClick(Sender: TObject);
BEGIN
FP.ACESSO_FULL:='';
if FP.IP_.LocalIP='10.0.6.135' then
BEGIN
FP.LOGADO:='S';
FP.ACESSO_FULL:='S';
FP.USER_LOGADO:='RAIMUNDO TI';
FP.FILIAL_LOGADA:='BASE DESENVOLVIMENTO';
LIB_ACESSO.Click;
CLOSE;
END
ELSE
BEGIN
FP.LOGADO:='';

if CBX_FILIAL.Text='' then
BEGIN
ShowMessage('Informe a Filial !');

CBX_FILIAL.SetFocus;
// CBX_FILIAL.DroppedDown:=true;
EXIT;
END;


if ED_LOGIN.Text='' then
BEGIN
ShowMessage('Informe o login de acesso !');
ED_LOGIN.SetFocus;
EXIT;
END;

if ED_SENHA.Text='' then
BEGIN
ShowMessage('Informe o sua senha de acesso !');
ED_SENHA.SetFocus;
EXIT;
END;

if(ED_LOGIN.Text<>'')and (ED_SENHA.Text<>'') and (CBX_FILIAL.Text<>'') then
begin
LOGIN_CR:='';
SENHA_CR:='';
SQL_SCRYP:='';

LOGIN_CR:=Criptografar(ED_LOGIN.Text);
SENHA_CR:=Criptografar(ED_SENHA.Text);

SQL_SCRYP:='SELECT * FROM SV_ACESSO WHERE LOGIN_CRYP='
+''''+LOGIN_CR+''''+
' AND SENHA_CRYP='
+''''+SENHA_CR+''''+' AND FILIAL='
+''''+CBX_FILIAL.TEXT+''''+';';

DM.Q_LOGIN.CLOSE;
DM.Q_LOGIN.SQL.CLEAR;
DM.Q_LOGIN.SQL.Text:=SQL_SCRYP;
DM.Q_LOGIN.OPEN;

if DM.Q_LOGIN.RecordCount=1 then
BEGIN
Tentativa:=5;
LOGIN_CR:='';
SENHA_CR:='';
SQL_SCRYP:='';
FP.USER_LOGADO:=(DM.Q_LOGIN.FieldByName('NOME').AsString);
FP.FILIAL_LOGADA:=(DM.Q_LOGIN.FieldByName('FILIAL').AsString);
FP.LOGADO:='S';
LIB_ACESSO.Click;
ShowMessage(DM.Q_LOGIN.FieldByName('NOME').AsString+', SEJA BEM VINDO !');

fp.VLOG.Enabled:=true;
FP.VTEC.Enabled:=FALSE;
CLOSE;

END
ELSE
BEGIN


if tentativa=0 then
begin
ShowMessage('Acesso negado, Tentativas esgotadas!');
application.Terminate;
end
else
begin
Tentativa:=tentativa-1;
if TENTATIVA>0 then
begin

ShowMessage('Acesso negado, Tente novamente! [Tentativas Restantes '+IntToStr(TENTATIVA)+']');
LOGIN_CR:='';
SENHA_CR:='';
SQL_SCRYP:='';
ED_LOGIN.Clear;
ED_SENHA.Clear;
ED_LOGIN.SetFocus;
END;
end;
END;
END;

end;
end;

Espero que a rotina ajude,

Da uma olhada e uma enxugada no código de acordo com a sua necessidade.

Vou fazer uns testes aqui usando o que me passou. Pelo vi vc não usa o MD5 mas usa uma criptografia própria certo?