UC知道delphi treeview根节点中添加节点的问题（急）
来源：百度知道 编辑：UC知道 时间：2024/09/21 03:38:19
procedure loadUser(Sender: TObject; qry1, qry2: TADOQuery; tree: TspSkinTreeView; var treeNode1, treeNode2, treeNode3: TTreeNode);
//tree: TspSkinTreeView为皮肤控件类型
procedure TfrmUserMgr.loadUser(Sender: TObject; qry1, qry2: TADOQuery; tree: TspSkinTreeView; var treeNode1, treeNode2, treeNode3: TTreeNode);
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from user');
Open;
end;
Case qry1.fieldbyname('user_rights').AsInteger of
0:
begin
treeNode1 := tree.Items.Add(nil,'管理员');
with qry2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from user where user_rights=0');
Open;
end;
while not qry2.Eof do
begin
tree.Items.Add(treeNode1,qry2.fieldbyname('user_name').AsString);
qry2.Next;
end;
//tree: TspSkinTreeView为皮肤控件类型
procedure TfrmUserMgr.loadUser(Sender: TObject; qry1, qry2: TADOQuery; tree: TspSkinTreeView; var treeNode1, treeNode2, treeNode3: TTreeNode);
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from user');
Open;
end;
Case qry1.fieldbyname('user_rights').AsInteger of
0:
begin
treeNode1 := tree.Items.Add(nil,'管理员');
with qry2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from user where user_rights=0');
Open;
end;
while not qry2.Eof do
begin
tree.Items.Add(treeNode1,qry2.fieldbyname('user_name').AsString);
qry2.Next;
end;
begin
treeNode2:=tree.Items.Add(nil,'操作员');
with qry2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from user where user_rights=1');
Open;
end;
while not qry2.Eof do
begin
// 注意这里，只要把Add改成AddChild就可以了 tree.Items.AddChild(treeNode2,qry2.fieldbyname('user_name').AsString);
qry2.Next;
end;
end;
其它类同，
TTreeView.Items.Add是添加根结点
TTreeView.Items.AddChild是在第一个参数指示的节点下添加一个节点