Crear boton de busqueda de datos en Delphi xe7

[Casimiro Noteví]

Aquí está la solución a todos tus problemas, dejarás de ser novato cuando lo leas

[[AgustinOrtu]]

Basicamente hay dos alternativas

1. Filtrar informacion: Esto lo podes hacer, por ejemplo:
a. Propiedad Filter del DataSet: En esta propiedad se especifica una cadena (string) con un predicado; la sintaxis es similar a la que se usa en el lenguaje SQL, aunque mas limitada; el punto a favor es que cualquier descendiente de TDataSet soporta este metodo; los puntos en contra son: poco flexible, y sobre todo, es algo lento

El uso es sencillo:

Código Delphi [-]
  // filtrar los clientes, mostrar solo los que tienen un Saldo Pendiente 
  ClientesDataSet.Filter := 'SaldoPendiente > 0';
  ClientesDataSet.Filtered := True;

  // desactivar el filtro
  ClientesDataSet.Filtered := False;

Documentacion propiedad Filter

Revisa tambien FilterOptions

b. Una forma "avanzada" de filtro es, en vez de una propiedad, se usa un evento. Los TDataSet proveen el evento OnFilterRecord, el cual tiene esta firma:

Código Delphi [-]
  TFilterRecordEvent = procedure(DataSet: TDataSet; var Accept: Boolean) of object;

Es decir, que cuando asignamos la propiedad Filtered a True, el DataSet ejecutara el evento OnFilterRecord para cada registro. El programador debe realizar las evaluaciones que considere necesarias en este evento, y determinar el valor del parametro Accept, notar que esta pasado por referencia (calificador var)

Por ejemplo, si quisiera mostrar los clientes con codigo mayor a 30 y que no esten borrados:

Código Delphi [-]
procedure TForm1.ClientesDataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := (DataSet.FieldByName('Codigo').AsInteger > 30) and not(DataSet.FieldByName('Borrado').AsBoolean);
end;

Documentacion

c. La tercer alternativa es usar componentes Query para realizar consultas a la base de datos; son muy flexibles y muy rapidas, y se deben escribir en lenguaje SQL. Por ejemplo, usando los componentes ADO

Código Delphi [-]
var
  qry: TADOQuery;
begin
  // esta consulta devuelve todos los clientes cuyo nombre comience con "Juan"
  qry := TADOQuery.Create(NIL);
  qry.Connection := ComponenteADOConnection;
  qry.SQL.Text := ' SELECT * FROM Clientes WHERE Nombre LIKE :Nombre '; // consulta SQL
  qry.Parameters.ParamByName('Nombre').Value := 'Juan%'; // parametros de busqueda
  qry.Open; // ejecuta la consulta
end;

2. Luego esta el localizar informacion. Localizar informacion es, una ves tenes un DataSet con ciertos registros, realizar una busqueda sobre ese mismo DataSet, y posicionar como registro actual al que cumpla con los criterios de la busqueda

La forma mas comun y recomendada de hacerlo es usando el metodo Locate, que esta definido en TDataSet

Código Delphi [-]
  AlgunDataSet.Locate('Categoria', 'INFORMATICA', []);

  // Locate retorna un Boolean indicando si pudo encontrar algun registro (True); False en caso contrario
  if AlgunDataSet.Locate('Categoria', 'INFORMATICA', []) then
    ShowMessage('Registro encontrado')
  else
    ShowMessage('Registro NO encontrado');

Documentacion

Uso de Locate

Otras alternativas (mucho menos eficientes, pero mas flexibles que Locate) es hacer la busqueda "a mano", es decir, recorriendo el DataSet e implementando la logica necesaria:

Código Delphi [-]
  DataSet.DisableControls; { deshabilita el enlace con los controles DB Aware (ej. DBGrid)
  hasta no se invoque al metodo EnableControls los controles no se actualizan/refrescan
  esto mejora bastante la eficiencia }
  try
    while not DataSet.Eof do
    begin
      if DataSet.FieldByName('Codigo').AsInteger = 5 then
        Break;

      DataSet.Next;
    end;
  finally
    DataSet.EnableControls;
  end;

[J. SALMERON]

Bueno aqui volviendo a preguntar de nuevo aun con mi boton de busqueda y encontre que hay opciones de que ponga en OnClick el codigo:

Table1.FindKey([Edit1.Text]);

El cual asi lo asigno pero me marca dos errores de que no estan definidos, que podre estar omitiendo? Tambien lo hecho con .Locate y me surge el mismo problema!

Disculpen por esto, pero aun sigo aprendiendo!

Agradecere sus respuestas y Gracias!

[Casimiro Noteví]

Repito, Aquí está la solución a todos tus problemas, dejarás de ser novato cuando lo leas