QTP之对页面的“增删改调整”4个功能项进行校验

Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")


'左侧导航菜单
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
'导航菜单-XXX
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
'- - - - - - - 新增数据校验
'对XXX文本框进行校验【此处因为数据的随意性较大，所以先添加一条数据，然后再做空校验，大数据，特殊字符+字母+数字+中文组合数据，重复数据进行校验】
For i = 1 to 4
PublicScriptHead.WebButton("name:= 新增","html id:=btnAdd","html tag:=INPUT","index:=1").Click
PublicScriptHead.WebEdit("html id:=MingCheng","html tag:=INPUT","kind:=singleline","index:=1").Set DataTable("XXX名称", dtLocalSheet)
PublicScriptHead.WebButton("html id:=btnSave","html tag:=INPUT","name:=保存","index:=1").Click
If Browser("XXX").Page("XXX").Frame("mainFrame_2").WebElement("提示").Exist(2) Then
Browser("XXX").Page("XXX").Frame("mainFrame_2").WebButton("确 定").Click
End If
wait(1)
DataTable.GetSheet("XXX").SetNextRow
Next
wait(1)
'系统刷新
Browser("creationtime:=0").Refresh
wait(1)
'对新增中的备注文本框进行大数据校验
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
PublicScriptHead.WebButton("name:= 新增","html id:=btnAdd","html tag:=INPUT","index:=1").Click
PublicScriptHead.WebEdit("html id:=MingCheng","html tag:=INPUT","kind:=singleline","index:=1").Set"水路"
For i = 1 to 2
PublicScriptHead.WebEdit("htnl id:=BeiZhu","html tag:=TEXTAREA","kind:=multiline","index:=1").Set DataTable("备注", dtLocalSheet)
PublicScriptHead.WebButton("html id:=btnSave","html tag:=INPUT","name:=保存","index:=1").Click
If Browser("XXX").Page("XXX").Frame("mainFrame").WebElement("提示").Exist(2) Then
Browser("XXX").Page("XXX").Frame("mainFrame").WebButton("确 定").Click
End If
DataTable.GetSheet("XXX").SetNextRow
Next
'系统刷新
Browser("creationtime:=0").Refresh  




'对新增成功的数据通过页面数据和后台数据库数据做比对，因为编号数据是唯一，取页面和数据库编号数据做比对
Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")
YYSLX=PublicScriptHead.WebEdit("html id:=BianHao","html tag:=INPUT","kind:=singleline","index:=1").GetROProperty("value")
msgbox(YYSLX)
wait(1)
Dim Cnn
Dim Rst
Dim strCnn
StrCnn="Provider=MSDAORA.1;User ID=cics_dz;Password=123456;Data Source=10.121.0.85/autotestorcl;Persist Security Info=False"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
Set rst =CreateObject("ADODB.Recordset")
sql= "select bianhao from rlyw_yunshuleixing where bianhao='0006'"
rst.open sql ,Cnn,1,1
Set recordset = Cnn.Execute(sql)
SYSLX=recordset.GetString
msgbox(SYSLX)
'DB连接关闭
Cnn.Close
Set Cnn = Nothing
DataConnect = SYSLX
wait(1)
msgbox YYSLX&"="&SYSLX
Reporter.ReportEvent micPASS,"页面和数据库数据比较结果",YYSLX&"="&SYSLX


'- - - - - - - 修改功能校验
Browser("creationtime:=0").Refresh
Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")
wait(1)
'对新增中的备注文本框进行大数据校验
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
PublicScriptHead.WebElement("html id:=TreeView1_4_span","html tag:=SPAN","innertext:=水路").Click
PublicScriptHead.WebButton("html id:=btnEdit","html tag:=INPUT","name:=修改","index:=1").Click
PublicScriptHead.WebEdit("html id:=XuHao","html tag:=INPUT","kind:=singleline","index:=1").Set"8"
PublicScriptHead.WebButton("html id:=btnSave","html tag:=INPUT","name:=保存").Click
wait(1)
'设置检查点，查看修改后的序号的的值是否为“8”
Browser("XXX").Page("XXX").Frame("mainFrame_5").WebEdit("XuHao").Check CheckPoint("XuHao")
wait(1)
'系统刷新
Browser("creationtime:=0").Refresh  


'- - - - - - - 删除功能校验
Browser("creationtime:=0").Refresh
Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")
wait(1)
'对新增中的备注文本框进行大数据校验
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
Browser("XXX").Page("XXX").Frame("leftFrame").WebElement("html id:=TreeView1_5_span","html tag:=SPAN","innertext:=水路").Click
PublicScriptHead.WebButton("html id:=btnDelete","html tag:=INPUT","name:=删除","index:=1").Click
If Browser("XXX").Page("XXX").Frame("Frame").WebElement("提示").Exist(2) Then
Browser("XXX").Page("XXX").Frame("Frame").WebButton("确 定").Click
End If
'建立检查点查看XXX“水路”是否还存在
YSFS=Browser("XXX").Page("XXX").Frame("leftFrame").Check(CheckPoint("leftFrame"))
If false = YSFS Then
Reporter.ReportEvent micPASS,"数据已成功删除！",YSFS
else
Reporter.ReportEvent micPASS,"数据删除失败！",YSFS
End If




'- - - - - - - 调整功能校验，通过展开采购类型树形菜单，点击取消功能，当前页面是否会刷新，如果刷新，即取消功能验证通过
'先通过检查点方式查找“京深线”XXX，然后对改变其所属层级，再用检查点检查，查看航路XXX下面的京深线XXX是否还存在
Browser("creationtime:=0").Refresh
Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")
wait(1)
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
PublicScriptHead.WebElement("html id:=TreeView1_4_switch","html tag:=SPAN").Click
wait(1)
PublicScriptHead.WebElement("html id:=TreeView1_6_span","innertext:=京深线","html tag:=SPAN").Click
wait(1)
PublicScriptHead.WebButton("html id:=btnAdjust","html tag:=INPUT","name:=调整","index:=1").Click
if Browser("XXX").Page("XXX").Frame("Frame").WebElement("提示").Exist(2) then
Browser("XXX").Page("XXX").Frame("Frame").WebButton("确 定").Click
end if
wait(1)
Browser("XXX").Window("选择XXX -- 网页对话框").Activate
Browser("XXX").Window("选择XXX -- 网页对话框").Page("选择XXX").Frame("Frame").WebElement("WebElement").Click
Browser("XXX").Window("选择XXX -- 网页对话框").Page("选择XXX").Frame("Frame").WebElement("京深线").Click
Browser("XXX").Window("选择XXX -- 网页对话框").Page("选择XXX").Frame("Frame").WebElement("XXX").Click
Browser("XXX").Window("选择XXX -- 网页对话框").Page("选择XXX").Frame("Frame").WebButton("确定").Click
If  Browser("XXX").Page("XXX").Frame("Frame").WebElement("提示").Exist(2) Then
Browser("XXX").Page("XXX").Frame("Frame").WebButton("确 定").Click
End If
wait(1)
Browser("creationtime:=0").Refresh
Set  PublicScriptHead = Browser("name:= XXX").Page("title:= XXX")
wait(1)
PublicScriptHead.Image("file name:=pr_pz.png","html tag:=IMG","name:=Image","index:=1").Click
PublicScriptHead.WebElement("html tag:=LI","innertext:=XXX","index:=1").Click
PublicScriptHead.WebElement("html id:=TreeView1_4_switch","html tag:=SPAN").Click
CJTZ=Browser("XXX").Page("XXX").Frame("leftFrame").Check(CheckPoint("leftFrame_2"))
If false = CJTZ Then
Reporter.ReportEvent micPASS,"京深线数据已不存在，数据调整成功！",CJTZ
else
Reporter.ReportEvent micPASS,"数据调整失败！",CJTZ
End If
exitrun()