Busqueda usando un DBLookupComboBox

[liito16]

Hola gentes, bueno tengo un problema en como realizar una busqueda.

El problema es como se realiza.
Lo que quiero hacer es que cuando selecciones una opcion del DBLookupComboBox, en el grid aparesca los resultados, y cuando lo deje en blanco esten todos los registros.

estoy usando un modulo de datos donde tengo los dataset, query. y tngo el formulario clientes donde tngo el datasource, clientedataset, provider. qe es para conectar el DBLookupComboBox.

nosotros damos de alta localidades y estas cuando vas a dar de alta un cliente aparece el campo localidad que atraves del DBLookupComboBox seleccionas cual queres.
la tabla clientes tiene un inner join con tabla localidades.

que es lo q tendria qe hacer?. que pongo en el qryclientes, y en que evento de DBLookupComboBox tngo que hacerlo muchas gracias vi un hilo que decia de como se realizaba la busqueda pero no entendi , estoy usando delphi 7 y ems interbase/firbird.

Desde ya muchas gracias espero que me entiendan

[*Caro*]

Hola liito16, de hecho seguro que tienees un dataset para tus localidades y otro para clientes, para hacer lo que quieres debes utilizar el evento OnCloseUp del DBLookComboBox y hacer la consulta en tu qryClientes, tomando lo que tienes en ese momento en el DBLookComboBox:

Código Delphi [-]
procedure ....DBLookupComboBox1CloseUp(.............);
begin
 QryClientes.Close;
 QryClientes.SQL.Text := 'Select * From Clientes Where fk_cod='+ QuotedStr(QryLocal.fieldbyName('cod').AsString);
 QryClientes.Open;
end;

Saluditos

[liito16]

es que cuando pongo qryclientes. salta
error [Error] Clientes.pas(80): Undeclared identifier: 'QryClientes'
[Error] Clientes.pas(80): Missing operator or semicolon
[Error] Clientes.pas(81): Missing operator or semicolon
[Error] Clientes.pas(81): Undeclared identifier: 'QryLocal'
[Error] Clientes.pas(81): Missing operator or semicolon
[Fatal Error] Videoclub.dpr(10): Could not compile used unit 'Clientes.pas'

[liito16]

solucione el problema de arriba y ahora cuando selecciono alguno para que muestre los resultados me tira:

project videoclub.exe raised exeption class edatabaseerror with message 'qrylocalidades':field 'cod ' not found

[*Caro*]

Empezado por liito16

project videoclub.exe raised exeption class edatabaseerror with message 'qrylocalidades':field 'cod ' not found

Hola de nuevo liito16, tienes que reemplazar por los campos que tienes en tus tablas, donde fk_cod sería el campo que se relaciona con tu tabla localidades y cod es el codigo de tu tabla localidades o el nombre que le hayas dado.

Saluditos

[liito16]

Código SQL [-]
 mdmodulodedatos.QryClientes.SQL.Text := 'Select * From Clientes Where LOCALIDAD_NOMBRE='+ QuotedStr(mdmodulodedatos.Qrylocalidades.fieldbyName('LOCALIDAD_NRO').AsString);

asi lo deje yo y me tira ese error
no sera que en el qryclientes este poniendo algo mal?
lo puse en la propiedad SQL.

Código SQL [-]
select
  Clientes.*,
  localidades.nombre as localidad_nombre
from CLIENTES
inner join LOCALIDADES on clientes.localidad_nro = localidades.localidad_nro
 Where localidad_nro=:cod