contraseña de tablas paradox

[anubis]

Si le asigno una contraseña a una tabla paradox, a la hora de abrir el programa me pide dicha contraseña, hay alguna forma de que meterle la contraseña en tiempo de diseño, para que sea transparente al usuario y no se la pida?.

Se, mediante la busqueda en los post, que las contraseñas paradox se pueden romper facilmente, pero ya aprendere a usar otras bases de datos como firebird o postgresp, pero de momento.....

gracias

[Wonni]

hola;

Podrias utilizar un TDatabase y dejar su propiedad LoginPrompt a FALSE. Y en .Params especificarle la Password. Asi es como accedo yo a mis Paradox "protegidas" por contraseña.

[[egostar]]

También puedes usar el componente TSession y asignar la contraseña que desees, por ejemplo, si es que quieres controlar accesos de diferentes usuarios.

Algo así:

Código Delphi [-]
Var
  Passw : String;

Procedure ALGO;
begin
   Passw := 'seguro'; //NOTA: No es recomendable hacer este tipo de asignación, pero como ejemplo vale.
end;
 
procedure TDataModule1.TUsuariosBeforeOpen(DataSet: TDataSet);
begin
  Session1.AddPassword(Passw);
end;
 
procedure TDataModule1.TUsuariosBeforeClose(DataSet: TDataSet);
begin
  Session1.RemovePassword(Passw);
end;

Salud OS.

[anubis]

Hola, retomando este post porque todavia no he solucionado el enigma del tdatabase, el cual he puesto en el form donde me iba a pedir la clave, he puesto loginprompt false y en las propiedades, me he metido en params he puesto en key password y en value la clave, pero me sigue pidiendo que introduzca la clave, que estoy haciendo mal

gracias

database1.LoginPrompt:=false;
database1.Params.Values['PASSWORD']:=pass;

pero la ejecucion pasa por aqui pero es como no sino hubiera puesto nada.
Si sirve de algo, en el resto del programa no uso el componente tdatabase porque no me ha hecho falta.

[anubis]

Bueno, ya di la solucion por si a alguien le puede ayudar, todo en base a lo que habeis dicho en los foros.

solo he tenido que colocar en el form.create del form principal

Código Delphi [-]
session.AddPassword(miclave);

lo he probado de diferentes formas y funciona, es decir, que si miclave es diferente sale para que le introduzcas la clave.

Mas sencillo no pudo ser.

gracias tambien a egostar que me dio la idea.

pd: ah, y sin tener que usar un componente tsession, usando session por default