Delphi（ADOConncction+ADOQuery+DataSoure+TListView）TListView显示数据库查询数据！！！--演示案例

procedure TmyTestForm.FormShow(Sender: TObject);
var
  i:Integer;
  sSql:String;
  TempColumn:TListColumn;

  TempItem:TListItem;
begin

   //查询数据库内容
   sSql:=' select * from Depot';
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sSql);
   ADOQuery1.Open;

 

   //显示列表头

   ListItem.ViewStyle:=vsReport;
   for i:=0 to ADOQuery1.FieldCount-1 do
   begin
        TempColumn:=self.ListItem.Columns.Add;
        TempColumn.Caption:=ADOQuery1.Fields[i].FieldName;
   end;

   //显示内容

   ADOQuery1.First;
　while not ADOQuery1.Eof do
　begin
　　TempItem:=self.ListItem.Items.Add;
　　TempItem.Caption:=ADOQuery1.Fields[0].AsString;
　　for i:=1 to Query1.FieldCount-1 do
　　begin
　　　TempItem.SubItems.Add(ADOQuery1.Fields[i].AsString);
　　end;
　　ADOQuery1.Next;
　end;

end;