Olá pessoal!!
O meu projeto inicia com um login e aparace uma mensagem de erro ao
clicar o botão OK do formuilário fiz na seguinte forma:
MENSAGEM DE ERRO
Project SPC.exe raised exception class EOleException with message
'Syntax error (missing operator) in query expression 'usuario.nivel =
perfil.idAND fantasia ='Luciano Freitas'AND senha='1111'".Process
stopped. Use step or Rum continue.
ROTINA
procedure TlogSenha.BitBtn1Click(Sender: TObject);
var
strSqlLog: string;
mensagem: string;
begin
strSqlLog:='SELECT * FROM usuario, perfil WHERE usuario.nivel =
perfil.id';
strSqlLog:= strSqlLog + 'AND fantasia = ' + #39 + (valorNome.Text) +
#39;
strSqlLog:= strSqlLog + 'AND senha = ' + #39 + (valorSenha.Text) +
#39;
mnuPrincipal.qryLogin.Close;
mnuPrincipal.qryLogin.SQL.Clear;
mnuPrincipal.qryLogin.SQL.Add(strSqlLog);
mnuPrincipal.qryLogin.Open;
If (mnuPrincipal.qryLogin.RecordCount) = 1 then
begin
mnuPrincipal.StatusBar1.Panels[2].Text:= ' ' + 'Usuário: ' +
logSenha.valorNome.Text;
logSenha.Close;
end;
If (mnuPrincipal.qryLogin.RecordCount)= 0 then
begin
mensagem:= 'Nome ou senha inválidos.' + #13 + #13
+ 'Se esqueceu a sua senha consulte ' + #13
+ 'o administrador do sistema.';
Application.MessageBox(PChar(mensagem),'Login não
autirizado',MB_OK+mb_iconError);
valorSenha.Text:= '';
valorSenha.SetFocus;
end;
end;
Ficaria muit grato se alguem me ajudade nisso.
LUCIANO
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
