欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

[原创]QTP自定义数据库检查点SQL s…

程序员文章站 2023-12-24 15:39:24
...

'产生唯一姓名 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

'自定义数据库检查点---------结束-----------------------

上一篇:

下一篇: