MSFlexGrid

MSFlexGrid是微软的ActiveX表格控件，功能强大，在VB编程中经常使用。

 

QTP录制下来的脚本通常如下所示：

VbWindow("Form1").Activate

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow1

VbWindow("Form1").AcxTable("MSFlexGrid").Click196,23

VbWindow("Form1").VbList("List1").Select"2 - com2"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow2

VbWindow("Form1").AcxTable("MSFlexGrid").Click120,39

VbWindow("Form1").VbEdit("Text2").Set"100"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow4

VbWindow("Form1").AcxTable("MSFlexGrid").Click145,69

VbWindow("Form1").VbEdit("Text2").Set"200"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow9

VbWindow("Form1").AcxTable("MSFlexGrid").Click151,141

VbWindow("Form1").VbList("List1").Select"True"

VbWindow("Form1").VbButton("确定").Click

 

这样的脚本不仅冗长，而且与坐标值相关，因此难以维护，代码的重用性也不高。适当封装一下，则可以下面的更为优雅的方式来编写测试脚本：

VbWindow("Form1").AcxTable("MSFlexGrid").MSFlexGrid_SetValue"Settings",123

MsgboxVbWindow("Form1").AcxTable("MSFlexGrid").MSFlexGrid_GetValue("Settings")

 

只要适当研究一下MSFlexGrid控件的属性和方法，再加上QTP的RegisterUserFunc函数的使用即可完成封装。实现代码如下：

Function MSFlexGrid_GetValue( obj,PropertyName )

       Fori =1 to obj.RowCount    

              Ifobj.Object.TextMatrix(i,0) = PropertyName Then

                     PropertyValue= obj.GetCellData(i,1)

                     ExitFor

              EndIf

       Next

       MSFlexGrid_GetValue= PropertyValue

End Function

RegisterUserFunc"AcxTable","MSFlexGrid_GetValue","MSFlexGrid_GetValue"

 

Function MSFlexGrid_SetValue( obj,PropertyName, PropertyValue )

       Fori =1 to obj.RowCount    

              Ifobj.Object.TextMatrix(i,0) = PropertyName Then

                     PropertyValue =obj.SetCellData(i,1,PropertyValue)

                     ExitFor

              EndIf

       Next

End Function

RegisterUserFunc"AcxTable","MSFlexGrid_SetValue","MSFlexGrid_SetValue"

 

 

自动化测试项目中的两大类难题是：

1、测试脚本开发的管理问题

2、测试脚本开发的技术问题

第一类难题主要通过采用各种脚本框架来解决，例如模块结构化框架、数据驱动框架、关键字驱动框架等。而第二类难题则主要靠自动化测试工程师通过开发QtestWare这样的测试对象级的框架来解决。