procedure TfLogin.bAceptarClick(Sender: TObject);
var
idcuenta: integer;
begin
fModulo.qCuentas.close;
fModulo.qCuentas.ParamByName('usuario').Value:= eUsuario.Text;
fModulo.qCuentas.ParamByName('contrasenia').Value:= eContrasenia.Text;
fModulo.qCuentas.Open;
if fmodulo.qCuentas.IsEmpty then
begin
Application.MessageBox('No se pudo establecer la conexion. Revise usuario o contraseña','Drugstore',MB_ICONERROR+MB_OK) ;
fLogin.ModalResult := mrNone;
fLogin.eUsuario.SetFocus;
end else begin
//el query no está vacio, entonces llena la variable
idcuenta:= fmodulo.qCuentas.FieldByName('idcuenta').AsInteger; //<-------------- ademas de que debe ser field no param
end;
end;