pagina de login-intraweb
28/09/2016
0
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;
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
Curtir tópico
+ 0
Responder
Posts
29/09/2016
Natanael Ferreira
Não utilizo Intraweb, mas corrigi alguns erros de sintaxe no seu código.
Teste assim:
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
