Ayuda con dbgrid

[ecfisa]

Hola jacb1976.

Te pongo dos ejemplos, el primero usando un TQuery:

Código Delphi [-]
procedure TForm1.btnFiltrarClick(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TABLA '); // TABLA = Nombre de tu tabla
    SQL.Add('WHERE CLAVEPERSONA = :CLAVE'); // CLAVEPERSONA = Nombre de tu campo
    ParamByName('CLAVE').AsString:= Edit1.Text;
    Open;
  end;
end;

El segundo usando la propiedad Filter de un TTable:

Código Delphi [-]
procedure TForm1.btnFiltrarClick(Sender: TObject);
begin
  Table1.Filtered:= False;
  Table1.Filter:= 'CLAVEPERSONA =' + QuotedStr(Edit1.Text); // CLAVEPERSONA = Nombre de tu campo
  Table1.Filtered:= True;
end;

Para ambos casos vas a necesitar los siguientes componentes:

• Un TDBGrid
• Un TDataSource
• Un TQuery o TTable
• Un TButton para aplicar el código de filtrado (u otro componente o evento)

La relación la debes entablar ajustando las siguientes propieades:

• DBGrid1.DataSource <- DataSource1
• DataSource1.DataSet <- Query1 o Table1

Esto último lo podés hacer visualmente desde el Object Inspector

No dejes de consultar cualquier duda que te quede.

Un saludo.