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;