Crear boton de busqueda de datos en Delphi xe7

[J. SALMERON]

Buen día! Me gustaría si pudieran ayudarme a crear un botón de búsqueda de datos en Delphi xe7 en el cual ya tengo mi base de datos Firebird.

mi conexión esta conectado mediante dbexpress, se los agradeciera mucho!

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[fredo]

Empezado por J. SALMERON

Buen día! Me gustaría si pudieran ayudarme a crear un botón de búsqueda de datos en Delphi xe7 en el cual ya tengo mi base de datos Firebird.

mi conexión esta conectado mediante dbexpress, se los agradeciera mucho!

pero que tipo de busqueda?? exacta (mover el puntero de la tabla), por filtro?

[J. SALMERON]

Disculpa mi poca claridad del mensaje que acabo de consultar, la realización de búsqueda seria por filtro!

SALUDOS!!

[TiammatMX]

Empezado por J. SALMERON

Buen día! Me gustaría si pudieran ayudarme a crear un botón de búsqueda de datos en Delphi xe7 en el cual ya tengo mi base de datos Firebird.

mi conexión esta conectado mediante dbexpress, se los agradeciera mucho!

Crear el botón es FACILÍSIMO..., ponerle funcionalidad, ése es el problema. Pero como no das más datos, pues ni cómo echarte una mano...

[[AgustinOrtu]]

Muyyy fácil, crea un form que implementa la búsqueda y luego coloca este código en el evento OnClick

Código Delphi [-]
var
  FBusqueda: TFormBusqueda;
begin
  FBusqueda := TFormBusqueda.Create(NIL);
  FBusqueda.ShowModal;
end;

[J. SALMERON]

Gracias por tu respuesta, amigo!

Quería saber si es hay otra forma de que la realización de búsqueda que me de por filtros los detalles que quiero los cuales son: clave del articulo, localización de articulo, costo y descripción de articulo esto es una base de datos de una bodega de refacciones.

y que botones podría implementar?

Disculpen mi poca claridad a lo que escrito solamente que soy nuevo espero y no sea de gran molestia!

Saludos!!

[Casimiro Notevi]

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 Notevi]

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