Ayuda con el evento OnClick de un ComboBox

[Striker]

Saludos a todos!

El problema es el siguiente:

Quiero usar el evento onclick para que en unos edits me ponga los datos que estan almacenados en una base de datos.

El siguiente codigo es la forma en como yo lleno los ComboBox (cmb_clave_productos) y (cmb_claves_clientes)
mis ADOtables son:

adotable_clientes (esta trae la clave del cliente y los datos del cliente)
adotable_productos (esta trae la clave del producto, precio y existencia)
adotable_venta

//-------------------------------------------------------------------------
procedure Tfrm_ventas.FormActivate(Sender: TObject);
Var
variable_util: Integer;

begin
{--- Se abren las tablas a utilizar ----}
adotable_productos.Open;
adotable_clientes.Open;
adotable_venta.Open;

lbl_fecha_venta.Caption:=datetostr(date);

{--- Valida si existe un producto en la tabla ----}
if adotable_productos.RecordCount=0 then
begin
showmessage('Para poder realizar una venta debes de tener un producto.');
showmessage('Realiza la alta de un producto');
end
else
if adotable_clientes.RecordCount=0 then
begin
showmessage('Para poder realizar una venta debes de tener un producto.');
showmessage('Realiza la alta de un producto');
end
else
{--- Aqui preguntamos si la tabla venta no tiene algun registro ---}
if not adotable_venta.RecordCount=0 then
begin
{--- al número de registros existentes le sumaremos 1 ---}
edt_clave_venta.Text:=IntToStr(adotable_venta.RecordCount+1);
end
else
begin
edt_clave_venta.Text:='1';
end;

{---- Añadimos todos las claves de los clientes que estan dados de alta ----}
cmb_clave_clientes.Clear;
adotable_clientes.First;
for variable_util:= 1 to adotable_clientes.RecordCount do
begin
cmb_clave_clientes.Items.Add(adotable_clientes.Fields[0].AsString);
adotable_clientes.Next;
end;
//cmb_clave_clientes.Text:=' --- Clientes --- ';

{---- Añadimos todos las claves de los clientes que estan dados de alta ----}
cmb_clave_productos.Clear;
adotable_productos.First;
for variable_util:=1 to adotable_productos.RecordCount do
begin
cmb_clave_productos.Items.Add(adotable_productos.Fields[0].AsString);
adotable_productos.Next;
end;
//cmb_clave_productos.Text:=' --- Productos ---';
end;

//-------------------------------------------------------------------------

Bueno ya teniendo los combos llenos con la informacion contenida de las tablas de la base de datos, quiero que cuando de click en una de las claves me ponga la informacion que contenga esa clave en diferentes edits que le correspondan a cada una.

http://img63.echo.cx/my.php?image=ayudacombos5vh.jpg
Dejo un link para que vean la imagen del formulario.

Agradeciendo de antemano la ayuda prestada.
Hasta luego y exitos!

[lgarcia]

Hola:

Me parece que mas optimo que la utilizacion de un ComboBox seria utilizar un DBLookupComboBox, que es un componente especializado en BD, por lo demas en el evento OnClick del mismo puede realizar cualquier consulta utilizando un ADOQuery o un ADOStoredProcedure, veo tambien por lo que pude apreciar de tu explicacion que pudieras tratar de utilizar un DBGrid y a lo mejor se simplificarian las cosas.

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer