delphi数据库浏览

Question

delphi listbox1中已获得数据源如何实现双击listbox1数据源列表中的选项,将取出选定数据源中的所有数据表放入listbox2中

Answer 1

listbox1既然都有了數據源連接，那麼在雙擊listbox1事件時編寫以下SQL語句，再循環取得：
SELECT Name FROM Master..SysDatabases ORDER BY Name
--取當前數據源下的數據庫名SELECT Name FROM eHR..SysObjects Where XType='U' ORDER BY Name--XType='U':取所有用戶名;
--XType='S':取所有系統表;

Answer 2

双击数据源列表中的选项，将取出选定数据源中的所有数据表，加入到ListBox2
中，这部分程序代码如下： 
procedure TForm1.ListBox1DblClick(Sender: TObject); 
begin 
  try
  Database1.AliasName := ListBox1.Items[ListBox1.ItemIndex];
  Session.GetTableNames(Database1.AliasName, !fl!fl, True, False, listbox2.Items)
  except 
  raise; 
  exit; 
  end; 
这是例子中复制过来的代码哪出错了
end; 

Answer 3

先加载数据库中的表名到listbox1中，再根据表名写SQL语句，把数据加载到listbox2中