[mRoman]

Empezado por Morofoft_Tuto

Hola a todos.
Si alguien me puede ayudar como crear un login en delphi con una base de dato interbase.
La base de datos yo la tengo creada y conectada a delphi.
Mi problema es cuando voy a poner los codigo en el boton para saber si la contraseña o el usuario son correcto o no.

Gracias !!!!!!!!!!!!!!!!!

Hola Morofoft..

En el componente IBDataBase en su Evento OnLogin, registra esto:

Código Delphi [-]
procedure TBD.DBComandaLogin(Database: TIBDatabase; LoginParams: TStrings);
begin
     try
       frmConexion:=TFrmConexion.Create(Self);

       if frmConexion.ShowModal = mrOk then
          begin
              LoginParams.Values['user_name'] := frmConexion.edUsuario.Text;
              LoginParams.Values['password']  := frmConexion.mskPassword.Text;
              DBComanda.DatabaseName:=frmConexion.cServer+':C:\Comandas\BD\bd_comanda.fdb';
          end;
     finally
          frmConexion.Free;
     end;

end;

Donde "cServer" tiene la direccion IP del servidor donde se encuentra la base de datos.

Como podras ver tengo otro formulario llamado frmConexion, el cual es la pantalla donde el usuario deberá registrar su clave de usuario y contraseña.

Ahora tengo otro formulario llamado frmMenu, en el cual tengo el siguiente código:

Código Delphi [-]
procedure TfrmMenuPrincipal.FormCreate(Sender: TObject);
begin
  ToolBar1.Width:=frmMenuPrincipal.Width;

  try
      BD.DBComanda.Close;
      BD.DBComanda.Open;
  except
    on E:Exception do
    begin
      application.ShowException(E);
      application.Terminate;
    end;
  end;

end;

Y luego en las opciones del Delphi, en Projects/Options, deberas tener primero el formulario donde tienes el componente IBDataBase (DataModulo por ejemplo) y luego el formulario donde esta el menu principal.

Lo anterior es solo para ortientarte....éxito !.

Saludos.