QTP面向对象的框架

这种框架的核心思想是把某个窗口的测试对象和相关业务核心操作都封装在VBS的类中，称之为GUI层，或者叫GUI-业务桥接层。例如下面的登录界面类：


' 登录界面类，封装了界面对象数据以及相关业务操作
Class Login
Private m_htChildObjects 'As Scripting.Dictionary

Public Property Get ChildObjects()
Set ChildObjects = m_htChildObjects
End Property

Public Property Let ChildObjects(ByRef dic)
Set m_htChildObjects = dic
End Property

' 初始化界面对象并验证对象是否存在
Public Function Init()
ChildObjects = CreateObject("Scripting.Dictionary")
With ChildObjects
.Add "LoginDialog", Dialog("text:=Login")
.Add "AgentName", ChildObjects.Item("LoginDialog").WinEdit("attached text:=Agent Name:")
.Add "Password", ChildObjects.Item("LoginDialog").WinEdit("attached text:=Password:")
.Add "Submit", ChildObjects.Item("LoginDialog").WinButton("text:=OK")
End With
'IsContextLoaded is a function that iterates through the Dictionary and checks if the GUI objects "exist"
Init = IsContextLoaded(ChildObjects) ' 检查界面层对象是否存在
End Function

' 与界面对象绑定的各类业务操作
' 测试数据从GlobalDictionary中获取（放在Data层）,这里把测试数据做成函数参数可能会更好？！
Public Function SetUsername()
ChildObjects.Item("AgentName").Set GlobalDictionary.Item("AgentName")
End Function

Public Function SetPassword()
ChildObjects.Item("Password").Set GlobalDictionary.Item("Password")
End Function

Public Function Submit()
ChildObjects.Item("Submit").Click
End Function

End Class

Public Function CreateLogin()
Dim objLogin
Set objLogin = New Login
Set CreateLogin = objLogin
End Function

在业务层的类中封装业务操作流程的代码，例如下面的登录流程：


' 登录业务类，封装了登录过程的业务操作流程
Class do_login
Public Default Function Run()
Dim intStatus

Set objLogin = CreateLogin() ' 调用GUI层的Login类
If objLogin.Init() Then ' 如果所需的界面对象都存在，则执行业务操作流程
objLogin.SetUsername()
objLogin.SetPassword()
objLogin.Submit()
intStatus = micPass 'If login succeeds
Else
intStatus = micFail
End If

Run = intStatus
End Function
End Class

Public Function Create_do_login()
Dim bzLogin
Set bzLogin = New do_login
Set Create_do_login = bzLogin
End Function


这种写法的好处，除了可以细粒度地抽象、分解业务的测试代码，提高可重用性外，还可以在业务层的代码执行前，先让界面层检查验证所需的测试对象是否都存在（ 例如上面代码中

的objLogin.Init() ），避免了QTP在运行过程中碰到对象不存在的时候卡住的现象。

在界面层的Init方法中，通过描述性编程把测试对象都存入Dictionary中，然后用IsContextLoaded方法遍历对象，检查是否在运行时都存在：


' 检查界面层对象是否存在并写入测试报告
Public Function IsContextLoaded(ByRef htContext)
Dim ix, items, keys, strDetails, strAdditionalRemarks
IsContextLoaded=true
items = htContext.Items
keys = htContext.Keys

For ix = 0 To htContext.Count-1
IsContextLoaded = IsContextLoaded And items(ix).Exist(0)
strDetails = strDetails & vbNewLine & "Object #" & ix+1 & ": '" & keys(ix) & "' was"
If IsContextLoaded Then
intStatus = micPass
strDetails = strDetails & ""
strAdditionalRemarks = ""
Else
intStatus = micWarning
strDetails = strDetails & " not"
strAdditionalRemarks = " Please check the object properties."
End If
strDetails = strDetails & " found." & strAdditionalRemarks
Next

Reporter.ReportEvent intStatus, "IsContextLoaded", strDetails
End Function