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=adminassword=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/) Powered by Discuz! X3.2