8 respuestas en este tema

[edorantes]

Hola amigos les planteo mi problema, Tengo en una bd con una tabla llamada cultivo que tiene los campos clave y nombre
la clave es string y el nombre tambien lo que me han dejado hacer es que en un combobox muestre los cultivos y una edit que ingrese la clave y automaticamente se seleccione en el combobox el cultivo correspondiente a esta clave lo he tratado de hacer pero aun no lo he logrado
este es el combo

delphi

FDM.ZQtemp.SQL.Clear;
 FDM.ZQtemp.SQL.Text := 'Select * From cultivos';
 FDM.ZQtemp.Open;
 
 while not FDM.ZQtemp.Eof do
 begin
  
   cbox_Cultivo.Items.IndexOf(FDM.ZQtemp.Fields[0].Text);//Campo clave
  cbox_Cultivo.Items.Add(FDM.ZQtemp.Fields[1].Text);//Campo cultivo
 
  FDM.ZQtemp.Next;
 end;
 cbox_Cultivo.ItemIndex := 0;

Caja de texto

delphi

cbox_Cultivo.IndexOf(edit_cultivo.Text);

[enecumene]

Para ello mejor utiliza el DBLookUpComboBox:

http://www.delphiacc...lookupcombobox/

Saludos.

[edorantes]

Amigo no puedo usar ese componente ya lo habia puesto pero resulta que por cuestion de vista quieren hacerlo como lo explique  si me ayudas a resolverlo te lo agradeceria hermano
bendiciones

[Rolphy Reyes]

Saludos.

No probé el código, simplemente se me ocurrió la idea:

delphi

FDM.ZQtemp.SQL.Clear;
 FDM.ZQtemp.SQL.Text := 'Select * From cultivos';
 FDM.ZQtemp.Open;
 
 while not FDM.ZQtemp.Eof do
 begin
   cbox_Cultivo.Items.AddObject(FDM.ZQtemp.Fields[1].Text, TObject(FDM.ZQtemp.Fields[0].Text)); 
  FDM.ZQtemp.Next;
 end;
 cbox_Cultivo.ItemIndex := 0;

Luego en tu caja:

delphi

var lClave: string;
lClave := cbox_Cultivo.Items.Objects[cbox_Cultivo.ItemIndex] as string;

Debería de funcionar o estar cerca de hacerlo.

Ojo, estoy haciendo un "casteo" a sabiendas de que almacenas en tu clave valor string.

Otra manera si te fallara, es crear una clase que tenga una propiedad tipo string y hacer la asignación a la propiedad. Con dicha clase ponerla como segundo parámetro de AddObject.

[enecumene]

Es que utilizando el Simple ComboBox deberás realizar más código utilizando objetos para la inserción y acceso a la clave, por ejemplo:

delphi

    type
      TmiObjeto = class(TObject)
        sClave: String;
      end;
     
    procedure TForm1.AgregarLlave(Clave, Texto: String);
    var
       obj : TmiObjeto;
    begin
       obj := TmiObjeto.Create;
       obj.sClave := Clave;
       ComboBox1.Items.AddObject(Texto, TmiObjeto(obj));
    end;

Su uso sería:

delphi

AgregarLlave(FDM.ZQtemp.Fields[0].Text, FDM.ZQtemp.Fields[1].Text);

Sólo faltaría obtener el Objeto Clave, Pruebalo y nos comentas, OJO: lo hice al vuelo, puede haber errores.

Saludos.

EDITO: No vi el hilo de Rolphy 

[bigleaguer]

Saludos, tal como comenta Rolphy Reyes, puedes crear una clase donde almacenes los valores de la base de datos para luego guardar el objecto en el combobox con el método AddItem o AddObject. Te doy un ejemplo:

delphi

{ clase para guardar los datos }
type
  TCultivo = class(TObject)
  private
    FClave: string;
    FNombre: string;
  public
    property Clave: string read FClave write FClave;
    property Nombre: string read FNombre write FNombre;
  end;

Luego en donde recorres la tabla colocas el siguiente código:

delphi

var
  Cultivo: TCultivo;
  //...
begin
 FDM.ZQtemp.SQL.Clear;
 FDM.ZQtemp.SQL.Text := 'Select * From cultivos';
 FDM.ZQtemp.Open;
 
 while not FDM.ZQtemp.Eof do
 begin
   { Creamos la instancia }
   Cultivo := TCultivo.Create;
   Cultivo.Clave := FDM.ZQtemp.Fields[0].Text;
   Cultivo.Nombre := FDM.ZQtemp.Fields[1].Text;
 
   cbox_Cultivo.Items.AddItem(Cultivo.Nombre, Cultivo);
   FDM.ZQtemp.Next;
 end;
 cbox_Cultivo.ItemIndex := 0;

Finalmente puedes acceder a los atributos de la clase de la siguiente forma:

delphi

var
  Clave: string;
  Nombre: string;
begin
  Clave := TCultivo(cbox_Cultivo.Items.Objects[cbox_Cultivo.ItemIndex]).Clave;
  Nombre := TCultivo(cbox_Cultivo.Items.Objects[cbox_Cultivo.ItemIndex]).Nombre;
  //...

Y si quieres que al introducir la clave en una caja de texto se ubique directamente en el comobox, vas a tener que recorrer los items y comparar los valores:

delphi

var
  I: Integer;
begin
  for I := 0 to cbox_Cultivo.Items.Count -1 do
     if TCultivo(cbox_Cultivo.Items.Objects[I]).Clave = edit_cultivo.Text then
     begin
       cbox_Cultivo.ItemIndex := I;
       break;
     end;

El código lo hice de memoria y no lo he probado por lo que algo se me pudo escapar

[Delphius]

Hola,
Para agregar a las palabras de los compañeros, no está demás un .First antes de entrar al bucle 

Saludos,

[cadetill]

Buenas

Yo te voy a dar 2 ideas más.

1.- Un combo a dos columnas, una para el ID y otra para la Descripción. Puedes hacer que al desplegar el combo se vean las 2 columnas, pero que por el ancho del combo sólo se vea una

• Ejemplo de controlar anchura aquí.
• Ejemplo de múltiples columnas en un combo aquí.

2.- La segunda opción es más sencilla. Dado que tienes en el combo las descripciones y pones en un TEdit el Id, lo que tienes que hacer es en el OnChange del TEdit hacer una consulta sobre la tabla sencilla

select descripcion from tabla where id = :id

y con el resultado de la sentencia hacer un IndexOf sobre la propiedad Items del TComboBox.

Ahora ya tienes 3 formas de hacer tu trabajo, escoge la que más te guste ;-)

Nos leemos

PD: Delphius, si al First que te refieres es al de "while not FDM.ZQtemp.Eof do", éste no sería necesario dado que la sentencia justo anterior es un Open del propio dataset ;-)

[edorantes]

Bueno muchas gracias por sus respuestas lo logre resolver se oye algo ilogico pero asi le gusto al usuario
lo que hize fue poner 2 TSCombobox , uno para la clave y el otro para el nombre y mediante el itemindex boy seleccionando cada uno bueno muchas gracias por sus respuestas Dios los bendice