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;