//
登记用户,查询“登记的用户”是否存在在数据库中,循环时只循环登记用户,登陆和退出只运行一次
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