7 respuestas en este tema

[cannabis]

Estoy utilizando la función creado por el buen amigo enecumene: aquí

La tabla tiene dos campos NombreUsuario y Contraseña (ésta última está codificada)

El problema es que presento la información en un dbgrid y el campo Contraseña aparece codificado (~€¬Ƨ@#@#)

delphi

SELECT * FROM Usuarios

y lo que deseo es que la información se presente decodificada.

¿Alguna idea? grax.


Salud.

[Wilson]

Se me ocurre crear un campo calculado  de tipo String en el dataset (por ejemplo de nombre ContraDescifrada) y entonces en el manejaor del evento OnCalcFields del dataset colocas:

delphi

TuDataset.FieldByName('ContraDecifrada').Value :=  EnDecriptar(TuDataset.FieldByName('Contraseña').Value

Puedes cambiar la propiedad DisplayLabel del campo calculado para que quede "Contraseña" para mostrarlo en el DBGrid y ocultar el campo cifrado.

Saludos

[eduarcol]

Hola. Si trabajas con Firebird y puedes hacer una udf seria lo mejor. Si no tocara hacer campos persistentes y programar el evento ongettext y onsettext

[cannabis]

Hola Wilson. Gracias por responder.

Olvidé especificar que el query lo creo en tiempo de ejecución y no tengo idea si es posible agregar al query un campo calculado.


Salud.

[cannabis]

Gracias eduarcol.

Investigaré sobre las UDF y les platico el chisme mañana o el lunes, porque voy a ir a una borrachera fiesta y la sra. Esposa ya está con el látigo en la mano arreando al ganado.


Salud.

[egostar]

Hola Wilson. Gracias por responder.

Olvidé especificar que el query lo creo en tiempo de ejecución y no tengo idea si es posible agregar al query un campo calculado.


Salud.

Todo se puede amigo cannabis

Creas el campo en tiempo de ejecución y le asignas el tipo de calculado:

delphi

FieldKind := fkCalculated

Salud OS

[cannabis]

Pirateando y modifcando este hilo, logré hacerlo.

En el evento OnDrawColumnCell del DBGrid

delphi

if AnsiUpperCase(Column.FieldName) = 'CONTRASENA' then
begin
  if not Column.Field.IsNull then
    dbg_Usuarios.Canvas.TextOut(Rect.Left+2, Rect.Top+2,Codificar(qry_Usuarios.FieldByName('Contrasena').AsString));
end;

Gracias por su ayuda.


Salud.

[egostar]

A que bien, me alegra que hayas resuelto tu problema.

Salud OS