Alta de Nuevo usuario ayuda

[Neftali [Germán.Estévez]]

Hola y bienvenido a los foros.

Antes de nada, comentar que no dices nada del problema o error que tienes. Has explicado lo que necesitas, has puesto el código, pero te falta la pregunta.

Estás comprobando cosas por duplicado, ya que si el nombre del usuario es clave y no se puede repetir, el IsEmpty y preguntar si ha encontrado alguno (Cantidad > 0) son redundantes, De todas formas, eso no te debería hacer fallar nada.

Por otro lado, si no existe el usuario, a la hora de insretarlo, estás utilizando código que mezcla, inserción normal, con inserción SQL.
No veo que SQL tienes en fModulo.qCuentas.

Si es algo como esto...

Código SQL [-]
INSERT INTO USUARIOS (usuario, contrasenia) VALUES (':usuario, :contrasenia')

En lugar del Post, prueba a realizar un Exec o ExecSQL (o similar dependiendo delos componentes que uses).

Código Delphi [-]
if vfmodulo.qCuentasAux.FieldByName('Cantidad').AsInteger=0 then begin     
   fModulo.qCuentas.ParamByName('usuario').Value:= eUsuario.Text;
   fModulo.qCuentas.ParamByName('contrasenia').Value:= eContrasenia.Text;

   fModulo.qCuentas.Exec;
  o
   fModulo.qCuentas.ExecSQL; 

   fmodulo.qCuentas.Close;
end;