Delphi 中用 Listview 顯示資料庫數據

bestlong

本實例演示如何在TListView元件中顯示資料庫的內容。

　　首先創建一個新的項目，然後向窗體上添加一個TQuery元件和一個TListView元件。添加元件後的窗體如圖1所示。


圖1 主介面

設定TQuery元件的DatabaseName屬性設定為DBDEMOS，SQL屬性設定為select * from country，Active屬性設定為True。然後添加程式初始化代碼如下：

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. var
   
3. 　i:Integer;
   
4. 　TempColumn:TListColumn;
   
5. 　TempItem:TListItem;
   
6. begin
   
7. 　ListView1.ViewStyle:=vsReport;
   
8. 　for i:=0 to Query1.FieldCount-1 do
   
9. 　begin
   
10. 　　TempColumn:=self.ListView1.Columns.Add;
    
11. 　　TempColumn.Caption:=Query1.Fields[i].FieldName;
    
12. 　end;
    
13. 　Query1.First;
    
14. 　while not Query1.Eof do
    
15. 　begin
    
16. 　　TempItem:=self.ListView1.Items.Add;
    
17. 　　TempItem.Caption:=Query1.Fields[0].AsString;
    
18. 　　for i:=1 to Query1.FieldCount-1 do
    
19. 　　begin
    
20. 　　　TempItem.SubItems.Add(Query1.Fields[i].AsString);
    
21. 　　end;
    
22. 　　Query1.Next;
    
23. 　end;
    
24. end;

複製代碼

程式首先透過ListView1.ViewStyle:=vsReport語句設定TListView元件的ViewStyle屬性值為vsReport。然後透過第1個循環中的TempColumn:=self.ListView1.Columns.Add和TempColumn.Caption:=Query1.Fields.FieldName語句在TListView元件的標題行中顯示資料庫中字段的名稱。最後透過一個循環逐行輸出資料庫的所有數據。

　　程式代碼如下：

1. unit Unit1;
   
2. interface
   
3. uses
   
4. 
   
5. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
6. Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBTables;
   
7. 
   
8. type
   
9. 　TForm1 = class(TForm)
   
10. 　Query1: TQuery;
    
11. 　ListView1: TListView;
    
12. 　procedure FormCreate(Sender: TObject);
    
13. private
    
14. 　{ Private declarations }
    
15. public
    
16. 　{ Public declarations }
    
17. end;
    
18. 
    
19. var
    
20. 　Form1: TForm1;
    
21. 　implementation
    
22. 　{$R *.dfm}
    
23. 
    
24. procedure TForm1.FormCreate(Sender: TObject);
    
25. var
    
26. 　i:Integer;
    
27. 　TempColumn:TListColumn;
    
28. 　TempItem:TListItem;
    
29. begin
    
30. 　ListView1.ViewStyle:=vsReport;
    
31. 　for i:=0 to Query1.FieldCount-1 do
    
32. 　begin
    
33. 　　TempColumn:=self.ListView1.Columns.Add;
    
34. 　　TempColumn.Caption:=Query1.Fields[i].FieldName;
    
35. 　end;
    
36. 　Query1.First;
    
37. 　while not Query1.Eof do
    
38. 　begin
    
39. 　　TempItem:=self.ListView1.Items.Add;
    
40. 　　TempItem.Caption:=Query1.Fields[0].AsString;
    
41. 　　for i:=1 to Query1.FieldCount-1 do
    
42. 　　begin
    
43. 　　　TempItem.SubItems.Add(Query1.Fields[i].AsString);
    
44. 　　end;
    
45. 　　Query1.Next;
    
46. 　end;
    
47. end;
    
48. end.

複製代碼

保存文件，然後按F9鍵運行程式，程式運行結果如圖2所示。


圖2 程式運行結果

from: http://big5.yesky.com/b5/dev.yesky.com/450/2289950.shtml