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 (http://www.clubdelphi.com/foros/guiaestilo.php), gracias por tu colaboración :)

[fredo]

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]

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


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í (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4_pdf_.zip) 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:


// 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 (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TDataSet.Filter)

Revisa tambien FilterOptions (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TDataSet.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:


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:

procedure TForm1.ClientesDataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := (DataSet.FieldByName('Codigo').AsInteger > 30) and not(DataSet.FieldByName('Borrado').AsBoolean);
end;

Documentacion (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TDataSet.OnFilterRecord)

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


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


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 (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TDataSet.Locate)

Uso de Locate (http://docwiki.embarcadero.com/RADStudio/Seattle/en/Using_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:


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í (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4_pdf_.zip) está la solución a todos tus problemas, dejarás de ser novato cuando lo leas :)