GARANTIR DESCONTO

Fórum Duvida com FindKey #179074

02/09/2003

0

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

Responder

Posts

02/09/2003

Pauldiano66

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar