qtp查询mysql_QTP-MySql+对象库实例

'获取数据库内 screenName 列的每一行数据

sum=res("screenName")

'截取字符串内 从左到右4位字符

suu=Left(sum,4)

If suu = "test" Then

'检查字段变量

inn=res("greeting")

'录制登陆过程 把账号密码做参数化

Browser("测试比对样品 - 登录").Page("测试比对样品 - 登录").WebEdit("_58_login").Set sum @@ hightlight id_;_Browser("测试比对样品 - 登录").Page("测试比对样品 - 登录").WebEdit(" 58 login")_;_script infofile_;_ZIP::ssf1.xml_;_

Browser("测试比对样品 - 登录").Page("测试比对样品 - 登录").WebEdit("_58_password").set"1111" @@ hightlight id_;_Browser("测试比对样品 - 登录").Page("测试比对样品 - 登录").WebEdit(" 58 password")_;_script infofile_;_ZIP::ssf2.xml_;_

Browser("测试比对样品 - 登录").Page("测试比对样品 - 登录").WebButton("登录").Click

'这里是使用SPY抓取获取到对象属性值，对该对象2个属性进行描述性编程 对象库内不要放入被描述的对象 ，然后使用 .GetROProperty方法获取所需要对象属性值

'这里抓取了2个对象进行描述是应为2个该对象使用1个对象进行描述时，界面上还有其他对象的属性是一样的，所以描述对象时 尽量抓取对象独有的属性，当一个属性描述找不到时，就再增加一个属性描述

nn=Browser("测试比对样品 - 稿件管理").Page("测试比对样品 - 稿件管理").WebElement("innertext:=Welcome "&sum&"!","html tag:=SPAN").GetROProperty("innerhtml")

'设置检查点

If nn=inn Then

print "nn="&nn&"   inn="&inn

Reporter.ReportEvent micPass,"检查点","PASS"

else

Reporter.ReportEvent micFail,"检查点","Ng"

End If

Browser("测试比对样品 - 稿件管理").Page("测试比对样品 - 稿件管理").Link("text:=退出").Click

End If

'Print sum & vbCRLF'打印所有查询的记录   VBCRLF 换行语句

res.MoveNext'使游标进入下一个

Wend

@@ hightlight id_;_Browser("测试比对样品 - 稿件管理").Page("测试比对样品 - 稿件管理").Link("退出")_;_script infofile_;_ZIP::ssf6.xml_;_