程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中用TListView顯示數據庫數據

Delphi中用TListView顯示數據庫數據

編輯:Delphi

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

Delphi中用TListView顯示數據庫數據 (1)

  圖1 主界面

  設置TQuery組件的DatabaseName屬性設置為DBDEMOS,SQL屬性設置為select * from country,Active屬性設置為True。然後添加程序初始化代碼如下:

procedure TForm1.FormCreate(Sender: TObject);
var
 i:Integer;
 TempColumn:TListColumn;
 TempItem:TListItem;
begin
 ListView1.VIEwStyle:=vsReport;
 for i:=0 to Query1.FIEldCount-1 do
 begin
  TempColumn:=self.ListVIEw1.Columns.Add;
  TempColumn.Caption:=Query1.Fields[i].FIEldName;
 end;
 Query1.First;
 while not Query1.Eof do
 begin
  TempItem:=self.ListVIEw1.Items.Add;
  TempItem.Caption:=Query1.FIElds[0].AsString;
  for i:=1 to Query1.FIEldCount-1 do
  begin
   TempItem.SubItems.Add(Query1.FIElds[i].AsString);
  end;
  Query1.Next;
 end;
end;

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

  程序代碼如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBTables;
type
 TForm1 = class(TForm)
 Query1: TQuery;
 ListView1: TListVIEw;
 procedure FormCreate(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;
var
 Form1: TForm1;
 implementation
 {$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
 i:Integer;
 TempColumn:TListColumn;
 TempItem:TListItem;
begin
 ListView1.VIEwStyle:=vsReport;
 for i:=0 to Query1.FIEldCount-1 do
 begin
  TempColumn:=self.ListVIEw1.Columns.Add;
  TempColumn.Caption:=Query1.Fields[i].FIEldName;
 end;
 Query1.First;
 while not Query1.Eof do
 begin
  TempItem:=self.ListVIEw1.Items.Add;
  TempItem.Caption:=Query1.FIElds[0].AsString;
  for i:=1 to Query1.FIEldCount-1 do
  begin
   TempItem.SubItems.Add(Query1.FIElds[i].AsString);
  end;
  Query1.Next;
 end;
end;
end.

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

Delphi中用TListView顯示數據庫數據 (1)

  圖2 程序運行結果


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved