笔记：NEC QTP 第一个实例
第一次的笔记
Call LoopTable
Public Sub LoopTable
'Dim tableInput
'Set tableInput=new Sheet 'new出新的excel表格
'tableInput.SetSheet("Action1")
rem 测试title图片是否合格
JavaWindow("User Login").JavaObject("MessageLabel(st)").Check CheckPoint("MessageLabel(st)")
'
'
'Dim AllRowCount
'AllRowCount=tableinput.AllRowCount rem 获取总行数
'rem 进入循环
'For i=1 to AllRowCount
REM 输入用户信息并确定 获取了tableinput中的数据
JavaWindow("User Login").JavaEdit("User:").Set Parameter("username")
JavaWindow("User Login").JavaEdit("Password:").SetSecure Parameter("userpwd")
rem port在此版本中不能设置
'JavaWindow("User Login").JavaEdit("Port:").Set tableinput.GetRowColData(i,"port")
JavaWindow("User Login").JavaEdit("Server:").Set Parameter("server")
JavaWindow("User Login").JavaButton("Login").Click
If JavaWindow("User Login").JavaDialog("Warning").Exist=true Then '如果弹出的是warning，捕获warning中的值与预期比较
Dim errorinfo1
errorinfo1=JavaWindow("User Login").JavaDialog("Warning").JavaStaticText("msg").GetROProperty("text")
rem 插入检查点
' InsertCheckPoint(errorTitle, curError, expectedError)
call InsertCheckPoint(Parameter("username"), errorinfo1, Parameter("errorinfo"))
JavaWindow("User Login").JavaDialog("Warning").JavaButton("OK").Click
ElseIf JavaDialog("Error").Exist = true Then '如果弹出error，捕获error内容与预期比较
rem 从错误窗口获取错误信息
Dim errorinfo2
errorinfo2= JavaDialog("Error").JavaTable("ExceptionTable").GetCellData(0,2)
rem 插入检查点
call InsertCheckPoint(Parameter("username"), errorinfo2, Parameter("errorinfo"))
rem 最后点击确定
JavaDialog("Error").JavaButton("OK").Click
ElseIf JavaWindow("hiT 7090 NetManager").Exist=true Then'如果登录成功，捕获登录名与预期比较
rem 插入检查点，测试结束
Dim errorinfo3
errorinfo3=JavaWindow("hiT 7090 NetManager").JavaStaticText("Current User").GetROProperty("text")
call InsertCheckPoint(Parameter("username"), errorinfo3, Parameter("errorinfo"))
JavaWindow("hiT 7090 NetManager").JavaMenu("System").JavaMenu("Log Off").Select
JavaDialog("Log Off").JavaButton("Yes").Click
End If
'Next
End Sub
'Public Sub InsertCheckPoint(errorTitle,curError,expectedError)
'rem 手工插入检查点
'If curError=expectedError Then
'Reporter.ReportEvent micPass, "错误反馈"+errorTitle, "期望结果：" & expectedError & Chr(10) &" 实际结果：" & curError
'Else
'Reporter.ReportEvent micFail, "错误反馈"+errorTitle, "期望结果：" & expectedError & Chr(10) & "实际结果：" & curError
'End If
'End Sub
'Public Function ReturnDt(rowNum)
'Set odic = createobject("Scripting.Dictionary")
'Set st=new Sheet
'st.SetSheet("Action1")
'With odic
'.Add "username",st.GetRowColData(rowNum,"username")
'.Add "userpwd",st.GetRowColData(rowNum,"userpwd")
'.Add "errorinfo",st.GetRowColData(rowNum,"errorinfo")
'End With
'Set ReturnDt=odic
'End Function
Class Sheet
'定义一些变量
private m_AllRowCount,m_SheetTable
rem 定义表实例
Public function SetSheet(sheetName)
setm_SheetTable=DataTable.GetSheet(sheetName)
End function
rem 只读属性：总行数
Public Property Get AllRowCount
AllRowCount = GetAllRowCount()
End Property
rem 方法，获取行列值
Public function GetRowColData(row,colname)
GetRowColData=m_SheetTable.GetParameter(colname).ValueByRow(row)
End function
rem 此方法获取表行数
Private Function GetAllRowCount()
GetAllRowCount= m_SheetTable.GetRowCount rem 获取总行数
End Function
End Class