有关listview和数据库相关联的程序以及代码

Question

请大家推荐或介绍一个LISTVIEW和数据库如何连接
等基本操作等例子或文章给我看看。
谢谢各位了。

Answer 1

procedure TfrmDSGJ_XG.LoadToListView;
var tmp:TListItem;
begin
  ListView_GJ.Items.Clear;
  with dmDSGJ_XG.qryDSGJ_XG do
  begin
    First;
    while not eof do
    begin
      tmp:=ListView_GJ.Items.Add;
      tmp.Caption:=FieldByName('TJRQ').AsString;
      tmp.SubItems.Add(FieldByName('GJBS').AsString);  //0
      tmp.SubItems.Add(FieldByName('GJBT').AsString);  //1
      tmp.SubItems.Add(FieldByName('CFSJ').AsString);    //2
      tmp.SubItems.Add(FieldByName('JZ').AsString);  //3
      tmp.SubItems.Add(FieldByName('AutoId').AsString);//4
      //tmp.SubItems.Add(IntToTimeStr(FieldByName('TotalLen').AsInteger));
      Next;
    end;
 end;
end;