Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   contraseña de tablas paradox (https://www.clubdelphi.com/foros/showthread.php?t=44761)

anubis 13-06-2007 23:17:22

contraseña de tablas paradox
 
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 14-06-2007 00:03:49

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 14-06-2007 04:44:46

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 08-08-2007 06:31:54

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

Cita:

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 08-08-2007 12:08:14

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


La franja horaria es GMT +2. Ahora son las 05:11:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi