Foros Club Delphi - Dar Master Password a Paradox para que no lo haga el usuario

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Dar Master Password a Paradox para que no lo haga el usuario (https://www.clubdelphi.com/foros/showthread.php?t=6194)

nefy	23-12-2003 00:06:50

Dar Master Password a Paradox para que no lo haga el usuario

Hola a todos quisiera saber si alguno de ustedes sabe como darle la contraseña a Delphi 6 de tal manera que no le aparezca el cuadro de dialogo que manda Delphi para pedir password de tablas Paradox protegidas con master password, sino que inicie directamente el sistema.

Gracias de antemano

marcoszorrilla

23-12-2003 07:57:17

Pues es muy sencillo utiliza un componente TDatabase y allí le indicas la clave, como parámetro, poniendo su propiedad "LoginPrompt" a falso.

Un Saludo.

nefy	03-01-2004 16:55:58

Perdona marcos por mi ineptitud pero si no fuera demasiada molestia podrias ser mas especifico y/o enviar un ejemplo de como hacerlo.
Ademas quisiera mencionar que estoy manejando alrededor de 25 tablas todas con el mismo master password pero las estoy conectando con un TTable.
Gracias y salu2

marcoszorrilla

03-01-2004 19:01:30

Código:

procedure TForm1.Button1Click(Sender: TObject);



begin



MiSesion.Active:=False;

DataBase1.Connected:=False;

MiSesion.RemoveAllPasswords;

MiSesion.AddPassword('PASA');

MiSesion.Active:=True;



Database1.Params.Clear;



Database1.Session.Name:='MiSesion';



Database1.Params.Add('PATH=D:\PRUEBAS');

Database1.Params.Add('DEFAULT DRIVER=PARADOX');

Database1.Params.Add('ENABLE BCD=FALSE');

Database1.Params.Add('USER NAME=MARCOS');

Database1.Params.Add('PASSWORD=PASA');

Database1.Params.Add('LoginPrompt=FALSE');



Database1.Connected:=True;



Table1.Open;



end;

PASA, sería la palabra de pasa de todas la tablas conectadas al mismo objeto TSession.

Un Saludo.

La franja horaria es GMT +2. Ahora son las 03:57:13.