Ventana user y password

[el_barto]

en un form cree dos edit uno para el pass y otro para el user cree dos botones pero tengo aun dos dudas
1. cuando se ejecuta estas instrucciones:

Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

2. cuando el usuario sea el correcto quiero que me lleve a una forma en donde le voy a pedir datos como valido esto.
Gracias

[el_barto]

Disculpen incomodarlos otra vez pero si yo hago lo que ustedes me indicaron me sigue sale una exepcion EIBClientError, entonces puse la propiedad loginprompt en false y ahora me sale EIBInterbaseError como si primero verificara sin que me diese la oportunidad de escribirlos en los edit creados..... Por que puede ser esto? y como corregirlo

[[Crandel]]

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

[el_barto]

Primero que todo Gracias por que has sido el unico interesado en mi caso.
Bueno puntualmente en esta linea:
DataModule.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
DataModule.IBDatabase1.Params.Values['PASSWORD'] := Edit2.Text;
me esta sacando error, como me indicaste esta creado en mi boton conectar, dice que no esta declarado DataModule

[[maeyanes]]

Dónde tienes colocado el componente IBDatabase?

En el código que te puso Crandel, está usando DataModule a modo de ejemplo. En tu caso debes usar el módulo o forma que tiene el IBDatabase.

Ahora, si tu IBDatabase está en la forma principal, entonces crea un DataModule y corta y pega el IBDatabase a ese DataModule, así podrás usar el IBDatabase sin necesidad de crear la forma principal. Checa bien el ejemplo de Crandel y verás que crea un DataModule antes de la creación de TFormPassword.


Saludos...

[el_barto]

Gracias, si tengo creado mi IBDatabase1 en mi form1 que es la principal e hice tal y como me indico Crandel en su ejemplo, es decir

begin

Application.Initialize;
Application.CreateForm(TDataModule, DataModule);
Form2 := TForm2.Create;
if Form2.ShowModal := mrOK then
begin
Form2.Free;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

pero lo que no entiendo es cuando me dices que corte y pegue mi IBDatabase y lo que pegue en mi DataModule???, en este codigo se creo el DataModule a donde pego mi IBDatabase lo quito de mi form1???, gracias

[[maeyanes]]

A lo que me refiero es que el componente IBDatabase lo quites de tu Form1 y lo pongas en DataModule... Puedes hacerlo cortando el componente (Edit|Cut) de Form1 y pegándolo (Edit|Paste) en DataModule. De esta forma todas las propiedades que modificaste en IBDatabase se conservan.

Espero que ahora si me de a entender...

Saludos...

[[Crandel]]

Un DataModule es un contenedor (que te aparece como un formulario mas) que es invisible, por lo que unicamente aloja componentes no visibles.

Esta diseñado especialmente (pero no unicamente) para contener los controles acceso a base de datos, de esta forma contienes los controles y los puedes apuntar desde todas tus units.

Esto trae varias ventajas, por ejemplo, quieres editar los datos de uno de tus clientes, que tienes seleccionados en el formulario principal pero a traves de un segundo formulario. Si los controles de los dos apuntan al mismo DataSource entonces éditas directamente el mismo cliente sin necesidad de cargar los datos o buscarlo en el segundo.

El data module lo tenes File \ new \ Other

Suerte