Pessoal estou com problemas no login, aglguém pode me ajudar? Estou criando um pequeno aplicativo, já montei as tabelas e estou usando o Interbase. legal só que não consigo me logar... Será que estou esquecendo de alguma coisa? program CGS; uses Forms, frmMenuPrin in 'frmMenuPrin.pas' {menuPrin}, frmCalendario in 'frmCalendario.pas' {Calendario}, frmDM in 'frmDM.pas' {DM: TDataModule}, frmLogin in 'frmLogin.pas' {login}; procedure TLogin.Button1Click(Sender: TObject); var strSqlLog: 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; menuPrin.QueryLogin.Close; menuPrin.QueryLogin.SQL.Clear; menuPrin.QueryLogin.sql.Add(strSqlLog); menuPrin.QueryLogin.Open; if(menuPrin.QueryLogin.RecordCount) = 1 then begin menuPrin.StatusBar1.Panels[2].text:= '' + 'USUARIO: ' + login.ValorNome.Text + ' - ' + menuPrin.QueryLogin.FieldByName('dpto').AsString; login.Close; end; end;