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.
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)