listbox與數據庫相聯使用(50分)

各位大哥，如何能夠將listbox做出兩列顯示，並且有標題。如：有一員工檔案表，現
如何將員工的編號及名稱加入到listbox並做出顯示，第一列為工號，第二列為名稱；謝謝

用TTable吧

用ListGrid或dbGrid(如果是数据库中的数据的话)

不好意思，我們的大佬要求用listbox做，這可是一個面試題啵。請各位幫幫手。

那就先读取database中表的数据，然后写listbox中的items， 先看看listbox的方法吧

catfox，可否詳細點。這個題的功能就是以listbox來代替dbgrid，麻煩你啦。

新建一个工程 ， 放一个TTable，连接DBDEMOS的biolife.db， 再放一个listbox，一个botton

数据是列了出来，但未完全对齐， 看是否你要的东西

procedure TForm1.Button1Click(Sender: TObject);
const
KONG = ' ';
begin
with ListBox1 do begin
Items.Clear;
with Table1 do begin
if Not Active then Open;
First;
while Not Eof do begin
Items.Add( Format('%-15s', [Trim(FieldByName('Species No').AsString)] ) + KONG +
Format('%-15s', [Trim(FieldByName('Category').AsString)] )+ KONG +
Format('%-30s', [Trim(FieldByName('Common_Name').AsString)] )+ KONG +
Format('%-40s', [Trim(FieldByName('Species Name').AsString)] )+ KONG +
Format('%-10s', [Trim(FieldByName('Length (cm)').AsString)] )+ KONG +
Format('%-10s', [Trim(FieldByName('Length_In').AsString)] )+ KONG +
Format('%-10s', [Trim(FieldByName('Notes').AsString)] )
);
Next;
end;
end;
end;
end;

在catfox兄的基础上补充一下：
在listbox的上面放一个headercontrol就更像了：）

備 我想各位理解錯誤了，我的意思是用listbox模擬dbgrid，即要有表頭，並能拉動表
頭來設設軒列寬。

listbox怎么模拟表头？？？

那还不如用treeview或者另外写一个控件

沒錯了，catfox已經理解了我的意思了。我就是想達到這樣的結果，listview就不用了。
謝謝