Código:
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
DataModule2.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
DataModule2.IBDatabase1.Params.Values['PASSWORD'] := Edit2.Text;
try
DataModule2.IBDatabase1.open;
DataModule2.IBTransaction1.Active := True;
DataModule2.IBDataSet1.Active := True;
except
MessageDlg ('SU USER O PASSWORD NO ES VALIDO', mtError,[mbyes],0);
end;
if DataModule2.IBDatabase1.Connected then
begin
ModalResult := mrOk; // Avisamos que todo esta OK
end;
end;
Buenos dias foro tengo un problemilla con este codigo compila superbien, lo que hace es que cuando el user o pass esta mal saca un mensaje de error pero sin embargo me deja entrar al aplicativo, no se que meter en el except para que cuando despues de que me saque el mensaje me siga mostrando la pantalla que pide el user y pass.
Gracias por prestarme atencion
