var
Item:TListItem;
begin
wile not DataSet.Eof do
beign
Item:=ListView1.Items.Add;
Item.Caption:=DataSet.FieldByName('姓名').AsString;
Item.SubItems.Add(DataSet.FieldByName('性别').AsString;
Item.SubItems.Add(DataSet.FieldByName('出生年月').AsString;
DataSet.Next;
end;
end;