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.
Cita:
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
public
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.