Página 1 de 1
Utilizar campos criptografados
Enviado: Abril 28th, 2013, 9:36 am
por flaviogonzaga
Bom dia a todos!!!!
Gostaria de saber se alguém sabe como utilizar campos da tabela do sistema USER_NOMES.
Essa tabela armazena os usuários cadastrados.
Preciso utilizar somente os nomes dos usuários em um combobox porém quando monto a lista ela vem criptografada.
Alguém sabe como desencriptografar somente o campo usuário???
Desde já agradeço.
Grande abraço!!!!
Flávio Gonzaga
Re: Utilizar campos criptografados
Enviado: Junho 27th, 2013, 3:21 pm
por Gilberto
Boa Tarde
Segue exemplos, espero que possa ajudar.
procedure TFormBoletoPreFixo.ComboBoxRecuperadorEnter(Sender: TObject);
begin
// Limpa ComboBox
ComboBoxRecuperador.Items.Clear;
// Seleciona Tabela de usuarios, posiciona no início e abre Loop
// --------------------------------------------------------------
TabGlobal.DUSER_NOMES.filtro.clear;
TabGlobal.DUSER_NOMES.filtro.ADD(' (User_Nomes.Recuperador = ' + QuotedStr('S') + ')');
TabGlobal.DUSER_NOMES.Atualizasql;
TabGlobal.DUSER_NOMES.Open;
TabGlobal.DUSER_NOMES.First;
//
while not TabGlobal.DUSER_NOMES.Eof do
begin
// Carrega ComboBox
ComboBoxRecuperador.Items.Add(Decript(TabGlobal.DUSER_NOMES.Usuario.Conteudo));
// Avança Registro
TabGlobal.DUSER_NOMES.Next;
end;
// Foca o Componente
ComboBoxRecuperador.SelectAll;
ComboBoxRecuperador.SetFocus;
end;
procedure TFormBoletoPreFixo.ComboBoxRecuperadorExit(Sender: TObject);
begin
if TabGlobal.DUSER_NOMES.Locate('USUARIO', Encript(UpperCase(ComboBoxRecuperador.Text)), []) then
vRecuperador := Decript(TabGlobal.DUSER_NOMES.Usuario.Conteudo)
else
vRecuperador := '';
end;
Re: Utilizar campos criptografados
Enviado: Junho 28th, 2013, 7:21 am
por flaviogonzaga
Valeu Gilberto!!!
Era isso mesmo que eu precisava.
Grande abraço!!!
Re: Utilizar campos criptografados
Enviado: Fevereiro 17th, 2016, 5:16 pm
por lucianobarbosa
Tentei usar o seu código porem não retorna nada de informação para o combox