51Testing软件测试论坛

标题: QC判断用户属于哪个用户组 [打印本页]

作者: 暮何 时间: 2012-4-5 14:43
标题: QC判断用户属于哪个用户组
在QC流程定制里面User.IsInGroup("Developer Manager")这样是可以判断当前登录用户属于哪个用户组。
但是Bug_Fields("BG_RESPONSIBLE").value，应该如何判断其属于哪个用户组？求高人指点！

作者: 暮何 时间: 2012-4-5 16:20
怎么没人回啊？

作者: 暮何 时间: 2012-4-5 16:21
怎么没人回啊？

作者: 暮何 时间: 2012-4-6 08:14
自己顶

作者: 暮何 时间: 2012-4-9 08:18
再顶

作者: 暮何 时间: 2012-4-10 11:03
坚持

作者: 暮何 时间: 2012-4-10 11:04
坚持

作者: 暮何 时间: 2012-4-11 08:40
再坚持

作者: 476860312 时间: 2012-4-17 09:07
你把用户放到哪个组，他就属于哪个组...

作者: 暮何 时间: 2012-5-7 11:30
搞定了!在数据库里保存的有相关信息，写了下面一个函数，但是不能支持一个用户同时属于两个用户组，欢迎拍砖啊！
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","

roject Manager"
Set dbconn = CreateObject("ADODB.Connection")
Set myRecordSet = CreateObject("ADODB.Recordset")
mydbname = TDConnection.DBName
connstr = "

rovider = SQLOLEDB;Data Source=192.168.2.46;Initial Catalog="+mydbname+";User Id=admin

assword=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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)