listbox1中記錄的是資料庫中的表 我怎么樣才能實作這樣的功能 就是當listbox1中選中一個表時，使這個表中的欄位聯動的顯示在listbox2中
uj5u.com熱心網友回復：
當然可以，listbox1中記錄表名，Onchick事件中，打開表讀取資料贓物入listbox2中。或listbox1中記錄表名，由Button（或listbox1的滑鼠右鍵）打開表讀取資料贓物入listbox2中。
uj5u.com熱心網友回復：
我是一個新手 能不能具體點兒 我是說在listbox2中顯示選中表的欄位名 比如listbox1中選中student表（表中包含欄位名： 姓名 ，學號，性別等等）時 在listbox3中同時顯示這些欄位名而不是顯示欄位值 就是說在listbox3中顯示（姓名 ，學號，性別等等）能不能麻煩你給出代碼和步驟？ 謝謝啦！
我在網上找了資料代碼是這樣的
procedure TForm1.FormCreate(Sender: TObject);
begin
switch(listbox2.selectvalue)
{
case "stu"
listbox3.items.clear();
listbox3.items.add("姓名")；
listbox3.items.add("學號")；
listbox3.items.add("性別")；
listbox3.items.add("年齡")；
listbox3.items.add("所在系")；
case "course"
listbox3.items.clear();
listbox3.items.add("課程號")；
listbox3.items.add("課程名")；
listbox3.items.add("先行課")；
listbox3.items.add("學分")；
}
end;
結果報錯
undeclaredidentifier：‘switch’
undeclared identifier:'selectvalue'
could not compile used unit 'keyselrep.pas'
uj5u.com熱心網友回復：
ADOConnection本身帶有讀取資料庫表的串列功能procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);
同時也有讀取資料表的欄位串列功能
procedure TADOConnection.GetFieldNames(const TableName: string;
List: TStrings);
將LISTBOX1放程序序TADOConnection.GetTableNames(LISTBOX1.items,false)得到資料表串列
在ListBox1的OnClick中加入代碼： TADOConnection.GetFieldNames(ListBox1.Items[ListBox1.ItemIndex],
ListBox2.Items);
沒有必要去加回圈
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/88793.html
標籤：數據庫相關
上一篇：delphi Excel如何在sheet中新增一個sheet，并且將前一個sheet的內容格式復制到這個sheet中呢？