Duvida com FindKey

Delphi

02/09/2003

Estou convertendo um sistema de paradox para interbase, que comando posso usar para substituir o FindKey??

Esse é um pedaço do codigo onde tem o FindKey, eu estou usando IBTable.


procedure TFrmEntrada.BitBtn1Click(Sender: TObject);
begin
if not DM.tblUsuario.FindKey([mDsnom.Text]) then
begin
Mensagem(´Usuário não Cadastrado.´);
mDsnom.Setfocus;
end
else if DM.tblUsuarioSenha.asstring <> Codifica(mDssen.Text) then
begin
Mensagem(´Senha Inválida.´);
mDssen.setfocus;
end
else
begin
mNomusu := Alltrim(DM.tblUsuarioNome.asstring);
mNivusu := DM.tblUsuarioNivel.asstring;
mPro_con := 1;
FrmEntrada.Close;
end;
end;

Desde já agradeço.


Interative

Interative

Curtidas 0

Respostas

Pauldiano66

Pauldiano66

02/09/2003

Ola Amigo Use Comandos Sql


select campo1,campo2 from tabela
where Usuario 1 and senha234 vc pode usar parametros,mas tem que usar query ok cliente servidor não se usa table


GOSTEI 0
POSTAR