Hola, si no puedes conectar tu combobox a una tabla lo que puedes hacer es insertarle los items manualmente. Aqui te pongo un fragmento de codigo:
procedure TFAGREEMP.FormShow(Sender: TObject);
begin
fmodulo.tEMPLEADOS.open;
fmodulo.TEMPLEADOS.First;
while not fmodulo.TEMPLEADOS.Eof do
begin
EMPLEADOS.Items.Add(fmodulo.TEMPLEADOS.fieldbyname('nombre').AsString);
fmodulo.TEMPLEADOS.Next;
end;
fmodulo.TEMPLEADOS.Close;
end;
Se ejecuta al cargarse la forma que contiene el combobox, se abre la table y se entra en un ciclo donde se empieza del primer elemento de la tabla hasta el final de la misma y se van agregando uno a uno los elementos del campo 'nombre' en el combo llamado 'empleados'.
Sales, saludos y espero que te sirva.
Amsaspenda
|