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!