Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   cargar tabla en varios combos (https://www.clubdelphi.com/foros/showthread.php?t=4159)

Delphos 03-10-2003 19:25:07

cargar tabla en varios combos
 
Hola foro.

Mi pregunta es la siguiente resulta que tengo 3 ComboBox en los que quiero cargar los datos de una misma tabla pero no a la vez osea dependiendo de ciertas acciones que hace el programa.

Yo tengo el tipico codigo de cargar los datos en un combo que es el siguiente :

Procedure CargaCategoria;
begin
frmPrincipal.TablaCategorias.Open;
frmPrincipal.TablaCategorias.First;
while not frmPrincipal.TablaCategorias.Eof do
begin
frmAlmacen.cboCategoria.Items.Add(frmPrincipal.TablaCategorias.FieldByName('Nombre').AsString);
frmAlmacen.cboCategoriaAlmacen.Items.Add(frmPrincipal.TablaCategorias.FieldByName('Nombre').AsString );
frmAlmacen.cboPorCategoria.Items.Add(frmPrincipal.TablaCategorias.FieldByName('Nombre').AsString);
frmPrincipal.TablaCategorias.Next;
end;
frmPrincipal.TablaCategorias.Close;
end;

Pues mi pregunta como se le puede pasar el comboBox en el que quiero que carge dicha informacion en el procedimiento CargaCategoria.

Muchas Gracias de antemano.

Salu2.

roman 03-10-2003 20:17:08

No sé si estoy entendiendo tu pregunta pero puedes pasar un Combo como parámetro a tu procedimiento:

Código:

procedure CargarCategoria(Como: TComboBox);
begin
  frmPrincipal.TablaCategorias.Open;
  frmPrincipal.TablaCategorias.First;

  while not frmPrincipal.TablaCategorias.Eof do
  begin
    Combo.Items.Add(frmPrincipal.TablaCategorias.FieldByName('Nombre').AsString);
    frmPrincipal.TablaCategorias.Close;
  end;

  frmPrincipal.TablaCategorias.Close;
end;

Para cargar, digamos, el combo cboCategoriaAlmacen usarías:

CargarCategoria(frmPrincipal.cboCategoriaAlmacen);

Por otra parte me parece que estás tomando el camino difícil. Podrías uasr un TDBLookupComboBox para no ener que llenar a mano los datos.

// Saludos

Delphos 04-10-2003 19:09:11

Roman antes de nada muchas gracias por tu ayuda

y con respecto al TDBLookupComboBox tengo que decirte que tienes toda la razon.

Muchas gracias de nuevo.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 10:16:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi