QTP查询“登记的用户”是否存在在数据库中

 

// 登记用户，查询“登记的用户”是否存在在数据库中，循环时只循环登记用户，登陆和退出只运行一次

1、 参数化 dtLocalSheet 2、取参数化值 3、查询语句中，赋值给查询条件

4、从数据库中查询出用户名，与参数化中值做比较

5、while循环语句（ 红色）

脚本如下：

 

 

Browser("测试登录").Page("测试登录").WebEdit("uname").Click

Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("contentLeft").Link("安环部").Click

Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("basefrm").Link("董盛坚").Click

Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("botfrm").Image("btn_gb_on").FireEvent "onmouseover"

Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("botfrm").Image("btn_gb_on").Click

Browser("测试登录").Page("测试登录").WebRadioGroup("RadioGroup1").Select "#2"

Browser("测试登录").Page("测试登录").WebRadioGroup("RadioGroup1").Select "loginAction.do?operate=goOa"

Browser("测试登录").Page("测试登录").WebButton("登 录").Click

 

Dim CountNum,i

i=1

CountNum=DataTable.GetSheet("Action1").GetRowCount

While i<=CountNum

 

Browser("测试登录").Page("办公自动化系统").Frame("leftFrame").Link("我的通讯簿").Click

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").Image("btn_dj_on").Click

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtLocalSheet)

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").FireEvent "onmouseover"

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").Click

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_3").Check CheckPoint("保存通讯记录成功！")

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_3").WebButton("返 回").Click

 

Dim xname

 xname=DataTable("p_Text", dtLocalSheet)

MsgBox xname

 

Dim res,cmd,sql

Set res=createobject("adodb.recordset")

Set cmd=createobject("adodb.command")

Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=HKORACLE;UID=USERqqq;PWD=ZJLH;DBQ=HKORACLE;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"

Cmd.CommandType = 1

sql="select name from address_list t where name ='"& xname&"'" // xname为参数

Cmd.CommandText = sql

Set res = Cmd.Execute()

'msgbox res("name")

 

MsgBox res(0)    ‘ 打印出来和参数化值比较，是否一样

 

 

Set res = nothing

Set cmd.ActiveConnection = nothing

Set Cmd= nothing

 

DataTable.GetSheet("Action1").SetNextRow

 i = i+1

Wend

 

Browser("测试登录").Page("办公自动化系统").Frame("leftFrame").Link("注销").Click

Browser("测试登录").Page("测试登录_2").Sync