Crear login en delphi7 + Interbase

[Djsilver5]

YA acepto el código pero cuando selecciono el Usuario y escribo la contraseña, despues de dar clic al boton aceptar me sale el siguiente error.

Project Sistema.exe raise Exception class Exception with message'El usuario o la contraseña son inválidos'.Process stopped. Use Step or Run to continue.

justo al final en

Código Delphi [-]
procedure TAccesoSistema.AceptarClick(Sender: TObject);
begin
  if not DataModule2.LoginAccepted(edtUsuarios.Text, edtPassword.Text) then
     raise Exception.Create('El usuario o la contraseña son inválidos.');
end;
end.

En el codigo de Form AccesoAlSistema

Código Delphi [-]
unit AccesoAlSistema;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Buttons, ExtCtrls;

type
  TAccesoSistema = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Empresa: TLabel;
    Agencia: TLabel;
    Usuarios: TLabel;
    Password: TLabel;
    Cancelar: TBitBtn;
    edtEmpresa: TDBLookupComboBox;
    edtAgencia: TDBLookupComboBox;
    edtUsuarios: TDBLookupComboBox;
    edtPassword: TEdit;
    Aceptar: TBitBtn;
    procedure CancelarClick(Sender: TObject);
    procedure AceptarClick(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccesoSistema: TAccesoSistema;

implementation  {$R *.dfm}

uses DataModule02;



procedure TAccesoSistema.CancelarClick(Sender: TObject);
begin
close;
end;
procedure TAccesoSistema.AceptarClick(Sender: TObject);
begin
  if not DataModule2.LoginAccepted(edtUsuarios.Text, edtPassword.Text) then
    raise Exception.Create('El usuario o la contraseña son inválidos.');
end;
end.

[ecfisa]

Hola.

Empezado por Djsilver5

YA acepto el código pero cuando selecciono el Usuario y escribo la contraseña, despues de dar clic al boton aceptar me sale el siguiente error.

Correcto, ya funciona como debería.

Ahora, para que no aparezca el mensaje que lanza la línea:

Código Delphi [-]
raise Exception.Create('El usuario o la contraseña son inválidos.');

tanto el nombre como la contraseña deben coincidir con los almacenados en la tabla para ingresar al programa (recuerda que es case sensitive).

Saludos

[Djsilver5]

Empezado por ecfisa

Hola.

Correcto, ya funciona como debería.

Ahora, para que no aparezca el mensaje que lanza la línea:

Código Delphi [-]
raise Exception.Create('El usuario o la contraseña son inválidos.');

tanto el nombre como la contraseña deben coincidir con los almacenados en la tabla para ingresar al programa (recuerda que es case sensitive).

Saludos

La contraseña que puse coincide con el de la base de datos y el usuario también pero aun asi me aparece el mensaje

[Djsilver5]

ecfisa amigo cuando quito el

Código Delphi [-]
 if not DataModule2.LoginAccepted(edtUsuarios.Text, edtPassword.Text) then
    raise Exception.Create('El usuario o la contraseña son inválidos.');

me deja entrar normal sin error pero cuando pongo otra contrasseña diferente igual entra

[ecfisa]

Hola.

He probado el código que te puse de ejemplo y como podrás ver, funciona correctamente:

Sólo agregué una línea:

Código Delphi [-]
procedure TLogin.btnAceptarClick(Sender: TObject);
begin
  if not DataModule1.LoginAccepted(DBLookupComboBox1.Text, EditPassword.Text) then
    raise Exception.Create('El usuario o la contraseña son inválidos.');
  ShowMessage('INGRESA...'); // <--- LINEA AGREGADA
end;

Saludos

[Djsilver5]

a mi me sale:

Project Sistema.exe raise Exception class Exception with message'El usuario o la contraseña son inválidos'.Process stopped. Use Step or Run to continue.

después de dar al botón Aceptar y cuando vuelvo a poner Run (F9) me sale El usuario o la contraseña son invalidos le doy Aceptar y me abre el from2.
de igual manera si no pongo contraseña y soy aceptar el en boton me sale este error

Project Sistema.exe raise Exception class Exception with message'El usuario o la contraseña son inválidos'.Process stopped. Use Step or Run to continue.

y cuando vuelvo a poner Run (F9) me sale El usuario o la contraseña son invalidos le doy Aceptar y me abre el from2.

[Casimiro Noteví]

Asegúrate de seguir los pasos y el código que te ha indicado el maestro ecfisa.