Obtener el valor mi tabla con un combobox

[novato_erick]

Hola a todos nuevamente:


mi intensión es lograr obtener el ID de mi tabla ECIVIL para poderlo guardar en mi tabla principal Empleado esto lo quiero lograr un un ComboBox

aquí esta mi el código:

Código Delphi [-]
Type
    TMiObjeto = class(TObject) //Creación de un objeto
     ID : Integer;

procedure TfrmEmpleados.agregaalcbx;
var
  obj: TMiObjeto;
begin
with dmConecta.qECivil do begin //Donde dataset es TSQLQuery que utilece
 begin
  Open;
  First;
 end;
  while not eof do
  begin
    obj := TMiObjeto.Create;
    obj.ID := dmConecta.qECivil.FieldByName('ID_ECIVIL').AsInteger; //Campo Id de la tabla
    ComboBox1.Items.AddObject(FieldByName('DESCRIPCION').AsString, TMiObjeto(obj));
    obj.Free;
    Next;
  end; //While...Not
end;// with...Do
end;

y para tener el id del mi tabla ECIVIL

Código Delphi [-]
procedure TfrmEmpleados.GetIDFromCB(cID: Integer);
var
  obj: TMiObjeto;
begin
  Obj := ComboBox1.Items.Objects[cID] as TMiObjeto;
  CityID := obj.ID; //CityID es una variable Global
end;

En mi ComboBox si me aparece los registros del campo DESCRIPCION pero en el evento onChange de mi Combobox simplemente le digo:

Código Delphi [-]
 edtIDECIVIL.Text := IntToStr(CityID);

Pero siempre me muestra el valor 1

no quiero utilizar el DBLookupComboBox1


Saludos

[ecfisa]

Hola novato_erik.

No es necesario crear una clase, probá este ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // cargar el combo
  qECivil.Open;
  while not qECivil.Eof do
  begin
    ComboBox1.AddItem(qECivil.FieldByName('DESCRIPCION').AsString,
      TObject(qECivil.FieldByName('ID_ECIVIL').AsInteger));
    qECivil.Next;
  end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  id: Integer;
begin
  id := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); // Obtener el ID
  ShowMessage(IntToStr(id));
end;

Saludos.

[novato_erick]

ecfisa:
No es necesario crear una clase, probá este ejemplo:

Genial Gracias.... practique de la dos formas creando la clase y como usted me sugirió y su guía fue la del código muchas Gracias....


Saludos


novato_erick

[Casimiro Noteví]

[off topic]

Empezado por novato_erick

... como usted me sugirió y su guía fue ...

Alguien va a sentirse mayor

[/off topic]

[ecfisa]

Empezado por Casimiro Notevi

[off topic]
Alguien va a sentirse mayor
[/off topic]

La verdad que si...

Saludos.