请各位高手留足!帮我解决一下这个treeview的问题 如何给treeview授权 是这样的 +系统维护 系统初始化 …… …… +档案管理 添加人员档案 …… ……如何才能实现给用户user1授权“系统维护”之后不让他操作“档案管理”。user1只能操作“系统管理”中的项目。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //假设noSys为非系统标志:procedure TForm1.TreeView1Click(Sender: TObject);begin if noSys and ((TreeView1.Selected.Text = '档案管理') or (TreeView1.Selected.Parient.Text = '档案管理') then begin ShowMessage('no right'); Exit; end; ShowMessage('yeah');end; 在节点的Data中存储相关的权限信息如: (0,1,2,3,4)权限级别等等,在操作员登陆的时候取得操作员的权限信息。操作的时候在进行比较..... 如何获取一个进程的用户名? 急,问几个简单的delphi6.0报表问题 请问民航在线售票系统是用什么语言/数据库开发的? dxdbgrid-按安回车自动换行时,如何设置可以自动增加记录的呢 关于三层中如何实现动态设定中间层ADOConnection控件的ConnectionString,以连接不同数据库的问题? 很菜的问题,在线等.... 使用Word自动生成合同正文 865主板不能装NT4? 这东西如果想用怎样用,作者没有告诉使用的方法 求教对Combobox中Items内容的判断方式? delphi中如何进行多参数查询? dephi8 安装之后怎么不能编译运行啊~~~~
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if noSys and ((TreeView1.Selected.Text = '档案管理') or (TreeView1.Selected.Parient.Text = '档案管理') then
begin
ShowMessage('no right');
Exit;
end;
ShowMessage('yeah');
end;