关于他Treeview问题（急啊） 高手指教！

Question

有这样一个表
create table menu
(
  fid number,
  typename varchar2(100),
)fid      typename  
          收入  
  1          工资
  1          利息收入
          支出
  2          生活费用
  2          银行费用fid为空就为父节点要求格式：
收入
   ---工资
   ---利息收入
支出
   ---生活费用
   ---银行费用有人能帮忙吗？

Answer 1

procedure TFrmUserGroup.RefreshTreeView;
var
  Node,NodeChild: TTreeNode;
begin
  TreeView1.Items.Clear;
  Node := TreeView1.Items.Add(nil,'全部');
  with Sys_Query1 do
  begin
    Close;
    SQL.Text := ' Select GroupID,GroupName from Sys_USERGroup order by GroupID';
    ExecQuery;
    while not eof do
    begin
      New(UserGroup);
      UserGroup.GroupID := Fields[0].AsString;
      UserGroup.GroupName := Fields[1].AsString;
      with TreeView1.Items do
      begin
        NodeChild := AddChild(Node,UserGroup.GroupName);
        NodeChild.data := UserGroup;
        NodeChild.ImageIndex := 1;
        NodeChild.SelectedIndex := 1;
        NodeChild.StateIndex := 1;
      end;
      Next;
    end;
    Node.Expand(true);
  end;end;