菜鸟求助有关ListView控件问题,十万火急在线等

Question

读取sqlserver2000 pubs库,publishers表的数据在ListView中显示哪位大哥能帮忙写个例子主要是在ListView中显示小弟先谢谢了

Answer 1

if DataSource.DataSet <> nil then
    DataSource.Free;
  DataSource.DataSet:=DMOperatorDB.fun_OpenQuery('select * from publishers where 1=1');
  if DataSource.DataSet.RecordCount > 0 then
    begin
      for rowIndex:=0 to DataSource.DataSet.RecordCount -1 do
        begin
          for fieldIndex:=0 to DataSource.DataSet.FieldCount -1 do
            begin
              ListView.Items.Add;
              ListView.Items[fieldIndex].Caption:= DataSource.DataSet.FieldValues['pub_id'];
              ListView.Items[fieldIndex].SubItems.Add(DataSource.DataSet.FieldByName('pub_name').AsString);
              ListView.Items[fieldIndex].SubItems.Add(DataSource.DataSet.FieldByName('city').AsString);
              ListView.Items[fieldIndex].SubItems.Add(DataSource.DataSet.FieldByName('state').AsString);
              ListView.Items[fieldIndex].SubItems.Add(DataSource.DataSet.FieldByName('country').AsString);
                end;
              end;
         end
else
    if DataSource.DataSet <> nil then
      DataSource.Free;

Answer 2

with DM.IntQry do
  begin
    Close;
    SQL.Clear;
    SQL.Add(SQL_Txt);
    Open;
    while not Eof do
    begin
      TL := SHView.Items.Add;          //TL:TListItem;
      TL.Caption := FieldByName('p_name').AsString;
      Tl.SubItems.Add(FieldByName('p_author1').AsString);
      Tl.SubItems.Add(FieldByName('p_position1').AsString);
      Tl.SubItems.Add(FieldByName('p_type').AsString);
      Tl.SubItems.Add(FieldByName('p_publication').AsString);
      Tl.SubItems.Add(FieldByName('p_pubtype').AsString);
      Tl.SubItems.Add(FieldByName('p_xkmc').AsString);
      Next;
    end;
  end;