Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Login con Base de Datos (https://www.clubdelphi.com/foros/showthread.php?t=91800)

Morofoft_Tuto 01-05-2017 01:54:14

Login con Base de Datos
 
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 !!!!!!!!!!!!!!!!!

mamcx 01-05-2017 04:37:39

No tienes ni idea donde empezar?

Deberias estudiar un libro de Delphi y un curso basico de SQL. Porque las cosas se van a complicar mucho luego de hacer ese login...

(El cual, muy ciertamente, sera imperfecto y un agujero de seguridad, pero que probablemente sera como el que hacemos todos alguna vez ;))

Morofoft_Tuto 01-05-2017 06:07:27

-----------------Gracias--------

mRoman 02-05-2017 04:07:18

Cita:

Empezado por Morofoft_Tuto (Mensaje 516142)
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.


La franja horaria es GMT +2. Ahora son las 14:12:17.

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