Foros Club Delphi - Validar Campo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Validar Campo (https://www.clubdelphi.com/foros/showthread.php?t=31441)

esimon

08-05-2006 16:36:58

Validar Campo

Muy buen Dia...!

como puedo hacer para validar un campo Alfa Numerico, lo que quiero es que cuando entrodusca un valor si ya existe me muestre un mensaje.

gracias

vtdeleon

08-05-2006 16:44:31

Saludos

Validarlo donde?
Si existe donde?
Danos mas detalles, asi no conseguimos nada (por lo menos yo no).

esimon

08-05-2006 17:22:26

esto es lo que estoy haciendo

Código:

procedure TFrm_Organizaciones.Tbl_OrganizacionesCodigo_OrganizacionChange(

  Sender: TField);

  var ls_CodigoOrganizacion : string;

begin

      ls_CodigoOrganizacion := Tbl_Organizaciones.fieldbyName('Codigo_Organizacion').Value;

      Qry_ValidarCodigoOrganizacion.Close;

      with

      Qry_ValidarCodigoOrganizacion do begin

      with sql do begin

      clear;

      Add('Select * From Organizaciones');

      Add('Where Codigo_Organizacion =' +intTostr(ls_CodigoOrganizacion));

      Open;

      if Recordcount <> 0 then

      begin

      ShowMessage('Este Registro ya Existe');

      Abort;

      end;

     end;

    end;

luisgutierrezb

08-05-2006 18:27:52

en el campo, viene el evento OnValidate que te puede servir mejor, si lanzas una excepcion se cancela el post, o sea en lugar de:
ShowMessage('Este Registro ya Existe');
Abort;
puedes poner:
Raise Exception.Create('Este Registro ya existe');

esimon

08-05-2006 19:15:44

mil gracias luis, por la informacion no me funciono, con la rutina que publique puedes decirme que estoy haciendo mal, en este caso el campo a validar que de texto.

con un campo numerico me funciona muy bien.

Lepe	08-05-2006 20:37:19

donde pone:

intTostr(ls_CodigoOrganizacion))

sustituye por

QuotedStr(CampoDeTexto)

porque dentro del SQL necesita las comillas simples cuando es un texto.

Saludos

esimon

09-05-2006 16:07:34

mil gracias a todos por su repuesta en es pecial a Lepe, esta funcionando perfectamente.

graciassssssssssss

La franja horaria es GMT +2. Ahora son las 14:30:16.