Ver Mensaje Individual
  #2  
Antiguo 20-06-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
Que tal
yo tengo el mismo problema todavía... pero por motivos de tiempo tuve que solucionarlo no como yo hubiera querido, en fin, espero que alguien aporte alguna solución...

yo que yo hice fue lo siguiente
Código Delphi [-]
try
post
except on E:Exception then
ShowMessage('Error tipo: '+E.ClassName+', con el mensaje: '+E.Message);
end;

en fin, a mi tampoco me gusta, pero así tuve que hacerlo....
recuerda que requieres dbtables para reconocer a EDBEngineError
con tu ejemplo sería algo así como:

Código Delphi [-]
if (pass.Text='') or (pass2.Text='') or (nom.Text='') or (userr.Text='') then begin
guardar.enabled:=false;
application.messagebox('No Puede Haber Campos Vacios','Validacion De Datos',mb_ok+mb_iconerror);
end else begin
try
tuser.Post;
tuser.First;
pass2.Text:='';
except on E:Exception do begin
application.messagebox('Este Usuario Ya Existe','Validacion De Usuario',mb_ok+mb_iconerror);
cancelarClick(Sender);
end; //Fin except
end; //Fin try
end; //Fin if text=''
__________________


Última edición por ContraVeneno fecha: 20-06-2005 a las 19:38:42.
Responder Con Cita