如何把sql server数据库中数据表的一个字段值放到Treeview控件里

Question

如何把sql server数据库中数据表的一个字段值放到Treeview控件里

Answer 1

treeview1.Items.AddChild(node,fieldvalue);

Answer 2

treeview1.Items.AddChild(node,fieldvalue);

Answer 3

while not dm1.ADOQuery_account.Eof do
    begin
        C_count:=C_count+1;
        C_id:=dm1.ADOQuery_account.FieldByName('id').AsString;
        C_xm:=dm1.ADOQuery_account.FieldByName('xm').AsString;        rootnode:=treeview1.Items.Add(nil,C_xm);
        rootnode.Data:=StrNew(PChar(C_id));
        rootnode.ImageIndex:=C_count mod 2;
        rootnode.SelectedIndex:=C_count mod 2;
        rootnode.StateIndex:=-1;        Anode:=treeview1.Items.AddChild(rootnode,'收件箱');
        Anode.Data:=StrNew(PChar(C_id));
        Anode.ImageIndex:=2;
        Anode.SelectedIndex:=2;
        Anode.StateIndex:=-1;        Anode:=treeview1.Items.AddChild(rootnode,'发件箱');
        Anode.Data:=StrNew(PChar(C_id));
        Anode.ImageIndex:=3;
        Anode.SelectedIndex:=3;
        Anode.StateIndex:=-1;        Anode:=treeview1.Items.AddChild(rootnode,'草稿箱');
        Anode.Data:=StrNew(PChar(C_id));
        Anode.ImageIndex:=4;
        Anode.SelectedIndex:=4;
        Anode.StateIndex:=-1;        Anode:=treeview1.Items.AddChild(rootnode,'垃圾箱');
        Anode.Data:=StrNew(PChar(C_id));
        Anode.ImageIndex:=6;
        Anode.SelectedIndex:=6;
        Anode.StateIndex:=-1;        dm1.ADOQuery_account.Next;    end;