Validar un Dbedit?

[kman]

Empezado por jachguate

La idea de validar un field es simplemente verificar que el valor esté dentro de los parámetros válidos y si no, elevar una excepción.

por ejemplo:

Código Delphi [-]
 procedure TForm1.Query1CodigoValidate(sender : TField);
 begin
   if Query1Codigo.AsInteger < 0 then
     raise Exception.Create('Error: el código no puede ser menor que 0.  Verifique!')
 end;

Hasta luego.

Comprendí tu ejemplo, e inclusive lo puedo aplicar para algunos casos en mi proyecto, pero parece que no me doy a entender, lo que quiero (a ver si no la hago bolas otra vez) es buscar o localizar un dato desde mi TABLA y compararlo con el que se esta introduciendo en el dbedit y asi no repetirlo que no sea con sentencias sql que me vuelvo bolas con ellas, o mejor aun cómo controlo el raise exception (ya que lo mencionas) que da delphi cuando intentas duplicar un registro que ya existe????

Perdón la molestia pero me urge esto para terminar un pequeño proyecto de la uni.

Gracias.

[kman]

Por fin lo solucioné:

Código Delphi [-]
 procedure form1.Button1Click(Sender: TObject);
 var field: tfield;
 VAR texto: string;
 begin
 texto:=Edit1.Text;
 if TABLA.Locate('CAMPO',texto,[]) then begin
 showmessage('DATO YA  EXISTE');
 end else begin
 tabla1.Edit;
 Field := Tabla1.FieldByName('CAMPO');
 Field.AsString := Edit1.Text;
 end;
 end;

Si tienen algún comentario sobre este código, se recibirá con mucho agrado, ah y gracias por los comentarios anteriores.

[jachguate]

Empezado por kman

Comprendí tu ejemplo, e inclusive lo puedo aplicar para algunos casos en mi proyecto

En tu caso, creo que lo mejor es lanzar una consulta contra la base de datos para deteriminar si un código está duplicado o no:

supongamos que qDup es un TQuery (o equivalente) tiene el siguiente SQL

Código SQL [-]
Select count(*) contador from tabla where codigo = :codigo;

en el evento on validate podríamos hacer algo como:

Código Delphi [-]
if TablaCodigo.IsNull then
else begin
  qDup.ParamByName('codigo').AsInteger := tablaCodigo.AsInteger;  
  qDup.Open;
  try
    if qDupCONTADOR.AsInteger > 0 then
      raise Exception.CreateFmt('Error: el código %d ya existe y no puede '
                + 'ser duplicado.  Verifique!', [tablaCodigo.AsInteger]);
  finally
    qDup.Close;
  end;
end;

Hasta luego.

[moyo18]

usando este codigo

Código Delphi [-]
procedure form1.Button1Click(Sender: TObject);
 var field: tfield;
 VAR texto: string;
 begin
 texto:=Edit1.Text;
 if TABLA.Locate('CAMPO',texto,[]) then begin
 showmessage('DATO YA  EXISTE');
 end else begin
 tabla1.Edit;
 Field := Tabla1.FieldByName('CAMPO');
 Field.AsString := Edit1.Text;
 end;
 end;

para ver si un dato esta en la tabla ya y q no se guarde si es repedido lo pongo todo pero me sale aunq no este repedido el mismo mensaje q ya esta repetido y no se guarda.


este es mi codigo

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
field: string;
texto: string;
begin
 field:='userID'  ;
 texto:=DBEdit2.Text;
 if ADOTable1.Locate(field,texto,[]) then
  begin
   showmessage('DATO YA  EXISTE');
  end
 else
  begin
   Maskedit1.visible := false;
   Maskedit2.visible := false;
   Maskedit3.visible := false;
   Maskedit4.visible := false;
   ADOTable1.Edit;
    DBEdit9.text := Pri;
    DBEdit2.text := Maskedit1.Text ;
    DBEdit6.text := Maskedit2.Text ;
    DBEdit8.text := Maskedit3.Text ;
    DBEdit10.text := Maskedit4.Text ;
    ADOTable1UserID.AsString := DBEdit2.text;
    ADOTable1LastName.AsString := DBEdit3.text;
    ADOTable1Name.AsString := DBEdit4.text;
    ADOTable1Address.AsString := DBEdit5.text;
    ADOTable1PostalCode.AsString := DBEdit6.text;
    ADOTable1City.AsString := DBEdit7.text;
    ADOTable1Phone.AsString := DBEdit8.text;
    ADOTable1Email.AsString := DBEdit9.text;
    ADOTable1Birthday.AsString := DBEdit10.text;
   ADOTable1.Post;

   DBEdit3.Text := '' ;
   DBEdit4.Text := '' ;
   DBEdit5.Text := '' ;
   DBEdit7.Text := '' ;
   DBEdit9.Text := '' ;
   Maskedit1.Text := '' ;
   Maskedit2.Text := '' ;
   Maskedit3.Text := '';
   Maskedit4.Text := '' ;
   combobox2.visible := false;


  end;
end;