'产生唯一姓名 username Y=split(date,"-") Y(1)=right("0"Y(1),2) Y(2)=right("0"Y(2),2) Y1=Y(1)Y(2) T=split(time,":") T1=T(1)T(2) Function rand(k,n) randomize n=int((k-1)*rnd+1) rand=n End Function Dim n n=rand(9,n) username="李"Y1T1n Browser
'产生唯一姓名 username
Y=split(date,"-")
Y(1)=right("0"&Y(1),2)
Y(2)=right("0"&Y(2),2)
Y1=Y(1)&Y(2)
T=split(time,":")
T1=T(1)&T(2)
Function rand(k,n)
randomize
n=int((k-1)*rnd+1)
rand=n
End Function
Dim n
n=rand(9,n)
username="李"&Y1&T1&n
Browser("电子政务").Page("电子政务").WebEdit("user_code").Set "admin"
Browser("电子政务").Page("电子政务").WebEdit("user_pass").SetSecure
"4927cb503cee9942d160e58f"
Browser("电子政务").Page("电子政务").Image("dl-9").Click
Browser("电子政务").Page("::::行政审批系统::::").sync
wait 5
Browser("电子政务").Page("::::行政审批系统::::").WebElement("业务办理").Click
Browser("电子政务").Page("::::行政审批系统::::").WebElement("系统管理").Click
Browser("电子政务").Page("::::行政审批系统::::").Link("用户权限管理").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33").WebElement("用户管理").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebList("orgid").Select
" 工商局"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebButton("搜索").Click
'增加用户开始---------------------------------------------------
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("增加用户").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_name").Set
""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_code").Set
""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_pass").SetSecure
"4927d4079175cb072cf32883"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("conpassword").SetSecure
"4927d40a5a602d544577ec1d"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select
"地、厅、局级"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select
"省级"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebCheckBox("groupId").Set
"ON"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select
"领导操作工作台"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select
"普用户工作台"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.user_organid").Select
" 工商局"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select
"F"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select
"M"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_tel").Set
"13661703163"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_address").Set
"上海市浦东新区"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_email").Set
"huichanglee@163.com"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_remark").Set
"暂无备注"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select
"0"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select
"1"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebButton("增加").Click
'增加用户-结束-----------------------------------------
'下边代码验证：增加后搜索新添加的用户是否存在，并打印出结果--开始--------
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebEdit("username").Set
""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("搜索").Click
set
user_table=Browser("电子政务").Page("::::行政审批系统::::").Frame("33_7").WebTable("编号")
user_table_cols=user_table.columncount(1)
user_table_rows=user_table.rowcount
username1=user_table.GetCellData(2,2)
username2=trim(username)'这里获取添加用户的用户名，并去掉左右空格
If trim(username)=trim(username1) Then
Reporter.ReportEvent
micPass,"添加用户测试","用户添加成功！"
else
Reporter.ReportEvent
micFail,"添加用户测试","用户添加失败！"
End If
'验证增加用户后，搜索新添加的用户是否存在并打印出结果----结束----------
'自定义数据库检查点----------开始----------------------
Dim rs,cmd,sql
Set rs=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
cmd.activeconnection="Provider=SQLOLEDB.1;Password=sa;Persist
Security Info=True;User ID=sa;Initial Catalog=xzfw_chibi;Data
source=192.168.8.9"
cmd.commandtype=1
'sql="select * from
sys_user where user_code='用户名'
" 这是sql格式需要者一样一个格式，一下为转化方法。
sql1="select * from
sys_user where user_code="
sql2="'"
sql3=""&username2
sql4="'"
sql=sql1&
sql2&sql3&sql4
cmd.commandtext=sql
Set rs =cmd.execute()
If rs.eof=false
Then ’false意为记录到最后，及为符合sql查询结果的记录
reporter.ReportEvent micPass,"用户添加数据库检查点测试","测试通过！"
else
reporter.ReportEvent micFail,"用户添加数据库检查点测试","测试失败！"
End If
Set rs=nothing
Set cmd.activeconnection=nothing
Set cmd=nothing
'自定义数据库检查点---------结束-----------------------
