procedure TP09_MENU_PRINCIPAL.cmb_taulaChange(Sender: TObject);
begin
cmb_camp.ItemIndex:=-1;
adoc1.GetFieldNames(cmb_taula.Items[cmb_taula.itemindex],cmb_camp.Items); if (icont=0) then begin sfrom := cmb_taula.Items[cmb_taula.itemindex];
end;
if (icont=1) then begin
sfrom := sfrom+', '+cmb_taula.Items[cmb_taula.itemindex];
end;
icont:=1;
end;
procedure TP09_MENU_PRINCIPAL.cmb_campChange(Sender: TObject);
begin
if (icont_field=0) then begin
sselect :=cmb_camp.Items[cmb_camp.itemindex];
end;
if (icont_field=1) then begin
sselect :=sselect+', '+cmb_camp.Items[cmb_camp.itemindex];
end;
icont_field:=1;
end;
procedure TP09_MENU_PRINCIPAL.btn3Click(Sender: TObject);
begin
mem1.Lines.Text := 'select '+sselect+' from '+sfrom;
end;