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