Tema: DbCombobox
Ver Mensaje Individual
  #9  
Antiguo 24-02-2015
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
NULL
 
Registrado: jun 2013
Posts: 129
Reputación: 11
The Cid James Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola

Para lo que comentas resulta mas simple usar dos TComboBox:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Pais
  with tuQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ID, NOMBRE FROM PAIS');
    SQL.Add('ORDER BY NOMBRE');
    Open;
    while not Eof do
    begin
      ComboBox1.Items.AddObject(FieldByname('NOMBRE').AsString,
        Pointer(FieldByName('ID').AsInteger));
      Next;
    end;
    First;
    ComboBox1.ItemIndex:= 0;
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  // Provincia
  with tuQuery2 do
  begin
    Close;
    SQL.Text:= 'SELECT ID, NOMBRE FROM PROVINCIA WHERE REF_PAIS = :PID';
    ParamByName('PID').AsInteger:= Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex] );
    Open;
    ComboBox2.Clear;
    while not Eof do
    begin
      ComboBox2.Items.AddObject(FieldByname('NOMBRE').AsString,
        Pointer(FieldByName('ID').AsInteger));
      Next;
    end;
    First;
    ComboBox2.ItemIndex:= 0;
  end;
end;

Pero mas eficiente es usar dos TDBLookupComboBox, ejemplo:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Pais
  with tuQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ID, NOMBRE FROM PAIS');
    SQL.Add('ORDER BY NOMBRE');
    Open;
  end;
  with DBLookupComboBox1 do
  begin
    ListSource:= DataSource1; // -> tuQuery1
    ListField := 'NOMBRE';    // a mostrar: nombre país
    KeyField  := 'ID'         // id pais
  end;
end;

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
  // Provincia
  with tuQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ID, NOMBRE, REF_PAIS');
    SQL.Add('FROM PROVINCIA WHERE REF_PAIS = :PID');
    SQL.Add('ORDER BY NOMBRE');
    ParamByName('PID').AsInteger:= DBLookupComboBox1.KeyValue;
    Open;
  end;
  with DBLookupComboBox2 do
  begin
    ListSource:= DataSource2; // -> tuQuery2
    ListField := 'NOMBRE';    // a mostrar: nombre provincia
    KeyField  := 'ID'         // id provincia
  end;
end;

Saludos
Osea que con DbCombobox no hay forma de hacerlo?
Responder Con Cita