怎么把数据表中数据显示在Treeview中.

Question

我现在在做一个类似QQ的东东.要显示好友列表.是用Treeview来做的.我有两张表
1.Group<table width="300" border="1" cellspacing="2" cellpadding="2">
  <tr>
    <td width="150">GroupID</td>
    <td width="150">GroupName</td>
  </tr>
  <tr>
    <td>1001</td>
    <td>我的好友</td>
  </tr>
  <tr>
    <td>1002</td>
    <td>我的同学</td>
  </tr>
</table>
-------------------------
2.List
<table width="300" border="1" cellspacing="2" cellpadding="2">
  <tr>
    <td width="150">GroupID</td>
    <td width="150">FriendName</td>
  </tr>
  <tr>
    <td>1001</td>
    <td>未来</td>
  </tr>
  <tr>
    <td>1001</td>
    <td>angle</td>
  </tr>
  <tr>
    <td>1002</td>
    <td>张三</td>
  </tr>
</table>我想实现的效果:
我的好友</p>
<p>&nbsp; ....未来</p>
<p>&nbsp; ....angle </p>
<p>我的同学</p>
<p>&nbsp; ....张三 
急...在线等.马上结分!!!

Answer 1

{刷新 树}
procedure TfrmJF.showtreeview1;
var
  {定义一个TTreeNode 类型的父接点：“客户组”}
  NodeArea_b: TTreeNode;
  i: Integer;
begin
  with JFquery do begin
    close;
    sql.Clear;
    sql.Add('select * from peo_group');
    try
      open;
      first;
    except
      close;
      fmain.ConTimer.Enabled := true;
   //   MessageBox(handle, '数据库连接出错!', '航空订票系统', mb_ok);
      Exit;
    end;
    { 首先清空数据，为了避免重复}
    TreeView1.Items.Clear;    {生成一个TTreeNode 类型的父接点 ,并且为其命名为”客户组“
    ，所有的从数据库中提取的数据都是在这个接点的下边，这里对
     数据库的操作主要是对”peo_group“表中的数据，逐条读取表中的
     记录，并且让TreeView 生成接点显示到界面上}    NodeArea_b := TreeView1.Items.Add(nil, '客户组');
    for i := 0 to JFquery.RecordCount - 1 do begin
      TreeView1.Items.AddChild(NodeArea_b, JFquery.Fieldbyname('lb').AsString);
      next;
    end;
    close;
    {展开 Treeview树}
    TreeView1.FullExpand;
  end;
end;
代码只提供参考!

Answer 2

联系我哪,MSN: [email protected]
最近做了一个树,效果蛮好的,完全可以达到你的要注,呵呵