Ver Mensaje Individual
  #7  
Antiguo 02-06-2005
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Reputación: 23
Crandel Va por buen camino
Post

Hola barto,

vamos a empezar un poco mas atras.

justamente como comentas, tenes que modificar el dpr de tu proyecto, para que en vez de que cree y ejecute tu formulario principal primero comience con la ventana del password.

(no tengo el dephi a mano, asi que puede a ver algun error de sintaxis)

Código Delphi [-]
   Application.Initialize;
   Application.CreateForm(TDataModule, DataModule);
   
   FormPassword := TFormPassword.Create; // creas el formulario
   if FormPassword.ShowModal = mrOk then  // mostramos el formulario con ShowModal que lo configuramos
                                        // para que nos devuelva mrOk si los datos son correctos
   begin
      FormPassword.Free;  // lo destruimos porque ya no lo necesitamos
      Application.CreateForm(TForm1, Form1); // Ahora si lanzas tu formulario principal 
      Application.Run;
   end;

Ahora en el click del boton Conectar hacemos esto:

Código Delphi [-]
     DataModule.IBDatabase.Params.Values['USER_NAME'] := EditUser.Text;  
     DataModule.IBDatabase.Params.Values['PASSWORD']  := EditPassword.Text;
 
     try
       DataModule.IBDatabase.Open;  // probamos conectarnos con los parametros que introdujo el usuario
     
     except
        MessageDlg(...);  // mensaje de error
     end;
 
     if DataModule.IBDatabase.Connected then
     begin
       ModalResult := mrOk;  //  Avisamos que todo esta OK
     end;

Aca lo que necesitas

Suerte
__________________
[Crandel]
Responder Con Cita