Procedure TfrmUserManagerForm.SeSkinButton3Click(Sender: TObject);
Var
count, scount: integer;
mynode: TTreeNode;
mysubItem: TdxBarSubItem;
Begin
Inherited;
For count := 0 To frmMainForm.MenuBar.ItemLinks.Count - 1 Do
Begin
mynode := RzCheckTree2.Items.AddFirst(RzCheckTree2.TopItem, frmMainForm.MenuBar.ItemLinks[count].Caption);
mysubItem := TdxBarSubItem(frmMainForm.MenuBar.ItemLinks[count].Control.Item);
For scount := 0 To mysubItem.ItemLinks.Count - 1 Do
RzCheckTree2.Items.AddChild(mynode, mysubItem.ItemLinks[scount].Caption);
End;
End;
分享到:
相关推荐
delphi树RzCheckTree_tree说明保存及提取
Delphi使用第三方控件RzCheckTree实现多级树型菜单
使用 Raize 的RzCheckTree进行权限管理,可任意使用文件进行load/save
RzCheckTree实现权限管理 可以实现带CheckBox的权限树型管理。
树的基本操作及递归树存取数据库及RzCheckTree转换为RzTreeView及cxgridband
本程序使用Delphi7和Raize4.1控件里的RzCheckTree实现权限管理 请下载Raize安装后使用本程序 access2000作为数据库来演示 我的E_mail:wh1978@netease.com ,有问题交流交流 做的不好,请大虾们多多批评
用Raize的RzCheckTree控件做的用户权限管理
Raize的RzCheckTree权限管理 1.0 Raize的RzCheckTree权限管理 1.0 Raize的RzCheckTree权限管理 1.0
Delphi 车辆管理系统数据库版,具备多权限用户管理,各自有不同的操作功能,全部功能有:车辆档案管理、运营管理、车辆信息管理、驾驶员管理、系统维护,每个功能模块下功能有细分,看上去是一个比较全面的车辆维护...
本程序使用Delphi6和Raize4.1控件里的RzCheckTree 请下载Raize安装后使用本程序
根据数据库的信息生成树形目录,例如小区名称是 廊桥水岸 一级是 1栋 二级 是A单元 数据库一级打包在里面 添加到SQL 就可以运行
RZ4控件RzCheckTree的增删改及其与数据库的存取操作 相信对大家有帮助