【IT168 技术文章】
最近一个广州的测试朋友在实际工作中学习自动化测试的时候遇到这样一个问题，怎样做把点击 Grid ，然后输入数据，自动化。
当时看到这个问题，想到两个的解决方法一个是利用对象的方法，赋值，编写程函数，输入列和行，然后由这个函数处理，这样做直接，高效率，还有一个思路是利用坐标定位然后输入数据，也是便写函数，具体计算由函数处理，这种方法虽然不能做到通用，但简单实用。
按照第一个思路开始行动，因为那位朋友测试的软件用 delphi 开发，其中 gird 是个第三方控件 , 这里我用 TDBGrid 来代替他的第三方控件做到问题简单化，先把实际问题解决，自己动手做了个程序，用 ADO 连接数据库，利用 DataGrid 显示数据，来模拟实际情况。录制脚本如下：
Sub Main
Dim Result As Integer
''Initially Recorded: 2004-4-22 23:01:19
''Script Name: First
StartApplication """C:\Documents and Settings\Administrator\ 桌面 \T\Project1.exe"""
Window SetContext, "Caption=Form1", ""
GenericObject DblClick, "Class=TDBGrid;ClassIndex=1", "Coords=168,27"
InputKeys "good"
GenericObject Click, "Class=TDBGrid;ClassIndex=1", "Coords=369,33"
Window CloseWin, "", ""
End Sub
用过 delphi 的人都知道 TstringGrid 有个 Cell 属性，我们可以利用 robot 函数 SqaSetProperty 给 cell 赋值完成上边要的功能，首先用 robot 来的 gui insert 的 object properties 来抓取对象 TDBGrid 的属性，这样做是因为函数 SqaSetProperty 只能对 robot 抓取道的属性起作用，也就是说即使有 cell 属性， robot 的 object properties 抓取不到这个属性，我们也无法实现前边的想法。用 object properties 抓取 TDBGrid 的属性后发现，只抓取到了部分属性，根本没有可以利用的 cell 属性，怎么办，利用 delphi enabler 来做一次看是否可以得到更多的属性，我把 sqasrv.pas （其实 delphi enabler 的核心就是这个 delphi 单元文件）加入到工程文件中，重新编译（可能编译的时候有一些问题，我遇到的问题是 Unit ''oleAuto'' is deprecated, 用 $WARN UNIT_DEPRECATED ON/OFF 编译开关，就可以解决了），重新录制脚本如下：（这回 TDBGrid 的属性基本都抓取到了）。
Sub Main
Dim Result As Integer
''Initially Recorded: 2004-4-22 23:38:55
''Script Name: Second
StartApplication """C:\Documents and Settings\Administrator\ 桌面 \T\Project1.exe"""
Window SetContext, "Name=Form1;Type=Form", ""
GenericObject DblClick, "Name=DBGrid1;Type=CustomGrid", "Coords=93,30"
InputKeys "jack"
GenericObject Click, "Name=DBGrid1;Type=CustomGrid", "Coords=338,26"
Window CloseWin, "", ""
End Sub
可是仍然没有我们要的 cell 属性，只有 columns 属性，没有我需要的 cell 属性，怎么办？于是研究 delphi 的 TDBGrid 的源代码发现 TDBGrid 继承的 TcustomGrid 中有 HideEdit ， UpdateEdit 等方法，说明在输入数据的时候 TDBGird 在后台是生成了一个输入文本框，焦点改变后这个文本框自动消失把数据输入到 TDBGrid 。这样我们只要能给这个 EDIT 的 TEXT 属性赋值同样可以实现，因为 TDBGrid 没有 CELL 属性，不能直接利用 SQASetProperty 函数给 cell 的 focus 属性赋值，只能利用点击这个 cell 来赋予它焦点，因为只有焦点在这个 cell 上后才会出现浮动的文本框，修改上边的脚本：
Sub Main
Dim Result As Integer
Dim Var as String
''Initially Recorded: 2004-4-22 23:38:55
''Script Name: Second
StartApplication """C:\Documents and Settings\Administrator\ 桌面 \T\Project1.exe"""
Window SetContext, "Name=Form1;Type=Form", ""
GenericObject DblClick, "Name=DBGrid1;Type=CustomGrid", "Coords=93,30"
Result = SQASetProperty ("Name=;Type=CustomGrid;Index=1", "Text", "Mr.")
Result = SQAGetProperty("Name=;Type=CustomGrid;Index=1", "Text", VAR)
GenericObject Click, "Name=DBGrid1;Type=CustomGrid", "Coords=338,26"
if Result = 0 then
MsgBox "Hello"
End if
GenericObject Click, "Name=DBGrid1;Type=CustomGrid", "Coords=338,26"
''Window CloseWin, "", ""
End Sub
