Ayuda con dbgrid

[jacb1976]

la base de datos es en paradox 7, ese es el problema necesito un ejemplo visual para entender, voy empezando con el leguaje y las base de datos

[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.

[jacb1976]

Muchas gracias ahorita mismo lo pruebo y si me atoro te vuelvo a molestar gracias.

[jacb1976]

En donde veo o ubico la opcion filter?

[ecfisa]

Empezado por jacb1976

En donde veo o ubico la opcion filter?

Hola.

Podés acceder a la propiedad Filter ya sea por código como en el ejemplo que te puse, o también desde el Object Inspector.
La tenés que ubicar en algún evento. Por ejemplo en el evento OnClick de un TButton como en el ejemplo. La propiedad Filtered activa o desactiva el filtro ya sea que su valor sea True o False. Es decir, si en tiempo de diseño, haces doble click sobre el Button podés poner el código:

Código Delphi [-]
  Table1.Filtered:= False;
  Table1.Filter:= 'CLAVEPERSONA =' + QuotedStr(Edit1.Text); 
  Table1.Filtered:= True;

dentro de la cabecera que automáticamente te genera Delphi.

Saludos.