bestlong 怕失憶論壇

標題: Delphi 中用 Listview 顯示資料庫數據 [打印本頁]
作者: bestlong    時間: 2006-11-8 13:00     標題: Delphi 中用 Listview 顯示資料庫數據

本實例演示如何在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

  5. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  6. Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBTables;

  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;

  19. var
  20. 　Form1: TForm1;
  21. 　implementation
  22. 　{$R *.dfm}

  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



歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5