【结帖】权限问题**

ccseasy

目前无论哪个人登陆都能看到所有的，我想实现这样的功能，如果领导登陆能看到所有的，其他人只能看到自己的，具体的代码怎么写？

jiahaiminghr

目前无论哪个人登录都能看到所有的什么？

ccseasy

就是已经录入的数据。比如，我自己的日志只能我自己看，或是领导。

jiahaiminghr

这个需要做数据权限的控制。有两种方法：
1、分别为每个人分配不同的数据权限。这种方法非常麻烦

2、为领导者设置管理权限，在相关功能内部用代码控制数据权限（普通员工查看自己的数据，领导根据管理权限查看下属的数据）。关于代码获取下属ID的例子可以问一下赵磊，以前在做人事信息查询的功能时，用过这种方法。

ccseasy

目前赵磊在封闭开发，只提供了我代码，我把代码复制到了我的“onshow”  事件下，但是
无论领导登陆还是普通员工登陆不能显示一条记录。请您帮我看看吧，谢谢！！！！！！！


dsb_work_log.DataSet.Active:=true;
  ls_sql:='';
  ts_persons:=Tstringlist.Create();
  //取人员范围
  study_zyj.Tstudy_zyj.getsubpersons(Context,ts_persons);

  for i:=0 to ts_persons.Count - 1 do
  begin
   //这里的wl_person是我表里的“人员名称”字段，赵磊以前做的是“人员编号”
  //但是我表里没有”人员编号“，所以改成“人员名称”了，您说是不是这里有问题啊？
  //因为当我运行时虽然不抱错，但是没有记录啊！
    ls_sql:=' wl_person= '+sysutils.QuotedStr(ts_persons)+' or' +ls_sql;
  end;
  ls_sql:=strutils.MidStr(ls_sql,1,length(ls_sql)-2);

  dsb_work_log.DataSet.Filter:=ls_sql;
  dsb_work_log.DataSet.Filtered:=true;
  ts_persons.Free;

ccseasy

ls_sql:=' wl_person= '+sysutils.QuotedStr(ts_persons)+' or' +ls_sql;
是不是因为“人员名称”没有叫做“sysutils.QuotedStr(ts_persons)”这个的，所以才查不出来呀？那么ts_persons倒是什么啊？是人员名称还是人员编号啊？

ccseasy

急，请回帖，谢谢！！！

jiahaiminghr

赵磊的代码获取的是下属的ID，你可以在系统库的人员表中查看一下人员的ID和姓名的对照关系

ccseasy

5楼已经取出了id，然后我去系统的人员表根据id查找name，然后我的数据集在根据查找到的name检索出数据，大概是这种思路吧？

8楼的意思我明白了，可是代码如何实现啊？

能不能接着5楼请您帮我写下啊？我都急死了，谢谢谢谢谢谢！！！！！

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=3535