Hola buenas tardes estube desarrollando una aplicacion de delphi la cual necesito dar de alta a un nuevo usuario. la aplicacion la desarrolle usando delphi 2010 y componentes query de Zeos para la conexion y consulta a la base de datos de mysql
Bien tengo creado el formulario en el cual dare de alta a los usuarios me funciona bien pero surge un prolema. Quiero restringuir que cuando se de alta a un nuevo usuario si el nombre del mismo esta en uso diga un mensaje que ya es existente para eso utilizo una consulta con un count para que me traiga la cantidad de usuarios existentes y comparar si en dicha cantidad hubo coencidencia, dejo el codigo que desarrolle.
Código Delphi
[-]begin
fModulo.qCuentasAux.close;
fModulo.qCuentasAux.SQL.clear;
fModulo.qCuentasAux.SQL.Text:= 'select count(*) as Cantidad from cuentas where cuentas.usuario ='+quotedstr(eUsuario.Text);
fmodulo.qCuentasAux.Prepare;
fModulo.qCuentasAux.Open;
if not fmodulo.qCuentasAux.IsEmpty then
begin
if fmodulo.qCuentasAux.FieldByName('Cantidad').AsInteger=0 then
begin
fModulo.qCuentas.ParamByName('usuario').Value:= eUsuario.Text;
fModulo.qCuentas.ParamByName('contrasenia').Value:= eContrasenia.Text;
fmodulo.qCuentas.Post;
fmodulo.qCuentas.Close;
end;
end
else
showmessage('Usuario Existente');
end;
end;
desde ya muchas gracias