暮何 发表于 2012-4-5 14:43:41

QC判断用户属于哪个用户组

在QC流程定制里面User.IsInGroup("Developer Manager")这样是可以判断当前登录用户属于哪个用户组。
但是Bug_Fields("BG_RESPONSIBLE").value，应该如何判断其属于哪个用户组？求高人指点！

暮何 发表于 2012-4-5 16:20:49

怎么没人回啊？

暮何 发表于 2012-4-5 16:21:23

怎么没人回啊？

暮何 发表于 2012-4-6 08:14:28

自己顶

暮何 发表于 2012-4-9 08:18:06

再顶

暮何 发表于 2012-4-10 11:03:37

坚持

暮何 发表于 2012-4-10 11:04:23

坚持

暮何 发表于 2012-4-11 08:40:39

再坚持

476860312 发表于 2012-4-17 09:07:05

你把用户放到哪个组，他就属于哪个组...

暮何 发表于 2012-5-7 11:30:58

搞定了!在数据库里保存的有相关信息，写了下面一个函数，但是不能支持一个用户同时属于两个用户组，欢迎拍砖啊！
Function Ingroup(user_str,group_str)
Set group_ddict = CreateObject("Scripting.Dictionary")
group_ddict.Add "0001000","Developer"
group_ddict.Add "0000001","Tester Manager"
group_ddict.Add "0100000","QATester"
group_ddict.Add "0000010","Developer Manager"
group_ddict.Add "1000000","QAadmin"
group_ddict.Add "0000100","Viewer"
group_ddict.Add "0010000","Project Manager"
Set dbconn = CreateObject("ADODB.Connection")
Set myRecordSet = CreateObject("ADODB.Recordset")
mydbname = TDConnection.DBName
connstr = "Provider = SQLOLEDB;Data Source=192.168.2.46;Initial Catalog="+mydbname+";User Id=admin;Password=zcxc123;"
dbconn.Open connstr
sqlstr = "select US_GROUP from td.USERS where US_USERNAME = '"+ user_str+"'"
myRecordSet.Open sqlstr,dbconn
Do
If Not myRecordSet.EOF Then
   rd = myRecordSet("US_GROUP")
   myRecordSet.MoveNext
End If
Loop Until myRecordSet.EOF=True
If StrComp(group_ddict.Item(rd),group_str) = 0 Then
Ingroup = True
Else
Ingroup = False
End If
End Function
页: [1]
查看完整版本: QC判断用户属于哪个用户组