procedure TForm1.FormCreate(Sender: TObject);
begin
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
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;