Form De Busqueda Universal

[microbiano]

Form de busqueda
hola estoy en una aplicacion, pero necesito un form de busqueda que se pueda utilizar en todo el sistema.

tengo ya el form de busqueda pero no se como mandar la variable a cada form que sea necesario.

espero me puedan ayudar.

ejemplo que el form de busqueda si tengo abierto el form de facturas se pueda buscar el cliente .


y si tengo el form de clientes pendientes de pago pueda usar el mismo form.

saludos

alho asi como

http://www.ajpdsoft.com/modules.php?...rticle&sid=278

pero no tengo idea de como lo hacen ya lei la explicacion pero no le entiedo :'(

[mamcx]

Pues una buena manera de entender las cosas, especialmente si tienes el codigo fuente, es copiar & pegar y empezar a compilar y a depurar paso a paso, o seguir el tutorial al dedillo. De esa manera, con el tiempo, empezaras a comprender el metodo general.

Supongamos que tenemos 2 tablas, Clientes & Productos. Hago 1 clase que se encarge de todo lo que es conexion a BD, y luego heredo de ella asi:

Código Delphi [-]
type
TConexionBD =  class(TObject)
private
   function ExeSql(Sql:String):TDataSet;
public
   function RetornarSql:String;abstract;
   function RetornarWhere(ABuscar:String):String;abstract;
   function RetornarOrder:String;abstract;

  function Buscar(ABuscar:String):TDataSet;
end;

TClientes = class(TConexionBD)
/.... En la implementacion ../

function TClientes.RetonarSql:String
begin
    Result := 'SELECT Codigo,Nombre FROM Cliente';
end;

function TClientes.RetonarWhere(ABuscar:String):String
begin
    Result := 'Codigo Like "%' + ABuscar +'" OR Nombre Like "%' + ABuscar +'"';
end;

/* etc... */

Asi que la idea es que se crea una interface generica de acceso a los datos y en cada clase/forma (dependiendo como lo hagas) se implementa los detalles especificos, ya que como sabars, los campos de una tabla varian con respecto a las otras. Asi, es muy facil hacer ajustes especificos y terminan siendo sencillos.

Luego, el formulario de busqueda solo hace algo como:

Código Delphi [-]
  ClaseABuscar : = RetonarClase...
  dsResultados.datasource := ClaseABuscar.Buscar("jorge");