pagina de login-intraweb

Web service

Delphi

28/09/2016

boa tarde,

estou fazendo um form de login, que pede usuario e senha, ai verifica no banco de dados (mysql) se confere e se sim, chama o outro form, mas estou fazendo alguma coisa errada! alguem me ajuda por favor!!

procedure Tfrmlogin.bttnaccessClick(Sender: TObject);
var
user, senha: string;
n, i: integer;

begin

if edtsenha.Text = '' then
begin
WebApplication.ShowMessage('Login ou senha inválidos!');
Exit;
end
else
begin

with UserSession.ZQuery2 do
begin

UserSession.ZQuery2.SQL.Text :=
'SELECT usuario FROM login WHERE usuario=' + edtusuario.Text + ';';
UserSession.ZQuery2.ExecSQL;

if UserSession.ZQuery2.fieldbyname('usuario')
.AsString = edtusuario.Text then
begin
UserSession.ZQuery2.SQL.Text :=
'SELECT senha FROM login WHERE usuario=' + edtusuario.Text + ';';
UserSession.ZQuery2.ExecSQL;
if UserSession.ZQuery2.fieldbyname('senha')
.AsString = edtsenha.Text then
begin
WebApplication.ShowMessage('Bem-vindo!');
tIWFormcadastro.Create(WebApplication).Show;
end;
end;
end;
end;
end;
Giovanna

Giovanna

Curtidas 0

Respostas

Natanael Ferreira

Natanael Ferreira

28/09/2016

Não utilizo Intraweb, mas corrigi alguns erros de sintaxe no seu código.

Teste assim:

var
  user, senha: string;
  n, i: Integer;
begin
  if (edtsenha.Text = '') or (edtusuario.Text = '') then
  begin
    WebApplication.ShowMessage('Login ou senha inválidos!');
    Exit;
  end
  else
    with UserSession.ZQuery2 do
    begin
      SQL.Text := 'SELECT usuario FROM login WHERE usuario = ' + QuotedStr(edtusuario.Text) +
        ' and senha = ' + QuotedStr(edtsenha.Text);
      Open;

      if (FieldByName('usuario').AsString = edtusuario.Text) and
        (FieldByName('senha').AsString = edtsenha.Text) then
      begin
        WebApplication.ShowMessage('Bem-vindo!');
        tIWFormcadastro.Create(WebApplication).Show;
      end;
    end;
end;
GOSTEI 0
Giovanna

Giovanna

28/09/2016

obrigada! ja resolvi!
GOSTEI 0
POSTAR