假如form中有edit1,edit2可以输入数据库名称，则代码可以如下：
sSQL : string;

sSQL := '';
if ( trim(edit1.text) <> '' ) then
begin
  sSQL := 'select * from '+trim(edit1.text);
end;
if ( trim(edit2.text) <> '' ) then
begin
  if ( trim(sSQL) <> '' ) then
  begin
     sSQL := 'select a.*, b.* from '+trim(edit1.text)+' a, '+trim(edit2.text)+' b';
  end
  else
  begin
    sSQL := 'select * from '+trim(edit2.text);
  end;
end;

其它如有where子句的话可以照例组合.