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