function TMainForm.CreateMenu: Integer;

var

  myMenuPoint : PMyMenuRec;

  i :Integer;

  menu_id ,menu_name, menu_url: string;

  mynodes : TUniTreeNodes;

  mynode,tmp_node : TUniTreeNode;

begin //建立菜单树

  MenuTree.Items.Clear;

  mynodes := MenuTree.Items;

  MenuTree.BeginUpdate;

  with UniMainModule do

    begin //取表中菜单

      fdqryBase.Open('select* from sm_menu order by menu_id');

      fdqryBase.First;

      while not fdqryBase.Eof do

        begin

          menu_id := fdqryBase.FieldByName('menu_id').AsString;

          menu_name := fdqryBase.FieldByName('menu_name').AsString;

          if fdqryBase.FieldByName('menu_url').AsString = '' then

            begin  //确认是否根菜单

              mynode := mynodes.Add(nil,fdqryBase.FieldByName('menu_name').AsString);

            end else

            begin

              tmp_node := mynodes.add(mynode,menu_name);

              New(myMenuPoint);

              myMenuPoint^.menu_id := menu_id;

              myMenuPoint^.menu_name := menu_name;

              myMenuPoint^.menu_url := fdqryBase.FieldByName('menu_url').AsString;

              tmp_node.Data :=  myMenuPoint;

            end;

          fdqryBase.Next;

        end;

    end;

  MenuTree.EndUpdate;

  for i :=  to MenuTree.Items.Count- do

    begin

      mynode := MenuTree.Items[i];

      if mynode.HasChildren then begin

        mynode.ImageIndex := ;

        mynode.SelectedIndex := ;

      end else begin

        mynode.ImageIndex := ;

        mynode.SelectedIndex := ;

      end;

  end;

  MenuTree.FullCollapse;

end;