Validación de Datos

[[maeyanes]]

Hola...

No se si ya te dijeron, pero te recomiendo que le des una leida a la Guía de Estilo.

Otra cosa, cuando publiques código fuente en Delphi, usa las etiquetas delphi:

[delphi]
begin
ProcedimientoAEjecutar;
Variable := 'hola mundo';
// ejemplo
end;
[/delphi]

lo que se mostrará en los foros así:

Código Delphi [-]
begin
  ProcedimientoAEjecutar;
  Variable := 'hola mundo';
  // ejemplo
end;

Ahora, no entiendo mucho lo que quieres hacer, ¿estás haciendo un formulario de búsqueda? Por que si es así, la forma en que lo estás haciendo no es la más indicada.


Saludos...

[vmelga]

Ya veo...disculpa, es que soy nuevo en el foro...

bueno, trataré de explicarme mejor, lo que quiero hacer es controlar el dato que se ingresa en una grilla...tengo que tomar el valor ingresado y si no se encuentra en una tabla dicho valor, tiene que borrar el valor de la grilla y posicionar el foco en la misma.

Pasa que ya probe de varias formas y no logro lograr que se comporte de esa manera.

[Casimiro Noteví]

¿Y por qué pides el dato en un dbgrid?, explícanos más porque 'suena' raro.

[ecfisa]

Hola vmelga.

Creo haberte entendido lo siguiente:

Tenés un DBGrid asociado a una tabla y cuando escribis sobre el mismo DBgrid en determinada celda, querés verificar si el valor de la misma existe en otra tabla. Y si no existe mostrar un mensaje, borrar lo escrito y posicionarte en la misma celda para volver a escribir.

Si es así, probá de la siguiente forma:

Código Delphi [-]
  private
    procedure CampoSetText(Sender: TField; const Text: String);
  end;
...
implementation

procedure TForm1.CampoSetText(Sender: TField; const Text: String);
begin
  if Text <> '' then
  begin
    TuQuery.Close;
    TuQuery.SQL.Clear;
    TuQuery.SQL.Add('Select * From TuTabla');  // tabla donde realizas la busqueda
    TuQuery.SQL.Add('Where Campo = :Dato');    // Campo a comparar con valor de la celda(Dato)
    TuQuery.ParamByName('Dato').AsString:= Text;
    TuQuery.Open;
    if TuQuery.IsEmpty then
    begin
      ShowMessage('Dato inexistente');
      TField(Sender).Value:= '';
      Abort;
    end
    else
      TField(Sender).Value:= Text;
    TuQuery.Close;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TuDataSet.FieldByName('TuCampo').OnSetText:= CampoSetText;  // Asignar evento al campo asociado a la celda a evaluar
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TuDataSet.FieldByName('TuCampo').OnSetText:= nil; 
end;

Con un TDBGrid, en lugar de referenciar al TDataSet, podrías hacer:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DBGrid1.DataSource.DataSet do
    FieldByName('TuCampo').OnSetText:= CampoSetText;
end;

Pero ignoro si es igual para un TdxDBGrid.

Saludos.

[vmelga]

Muchisimas gracias. Acabo de probar y funciona muy bien.
Como había dicho estoy empezando a usar Delphi y aun no tengo mucho conocimiento sobre el mismo, pero dentro de poco espero poder poner mi grano de arena también.