Olá amigo td,bem ?
Vizinho aqui de mim bacana.
Então achei esse codigo acredito que é o que você procura ( ou procurava né kkk ).
procedure TForm1.Button1Click(Sender: TObject);
begin
// ativa a tabela
dm.tb_login.Open;
// verifica se os campos coincidem,
// tanto na tabela, quanto nas edits
if dm.tb_login.Locate('usuario', edtUsuario.Text, [loCaseInsensitive ]) and
dm.tb_login.Locate('senha', edtSenha.Text, [loCaseInsensitive ]) then
begin
// fecha a tabela
dm.tb_login.Close();
// mostra outro form
Form2.Show;
// esconde o atual
Self.Hide;
end
// se os campos forem vazios
else if (edtUsuario.Text = '') and (edtSenha.Text= '') then
begin
// mostra mensagem
ShowMessage('Preencha os campos login e senha!');
edtUsuario.SetFocus;
end
else // campos nao conferem
begin
// campos nao conferem
ShowMessage('Usuario ou senha inválidos!');
edtUsuario.Clear;
edtSenha.Clear;
end;
end;
Este codigo é do site : Login+Delphi+Bando de Dados
É bom respondermos a tópicos antigos porque sempre aparecerá algum outro procurando e poderá encontrar a resposta.
Um abraço !