解決Grid自動化測試的思路

MILY: 宋體; mso-bidi-font-size: 7.5pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">最近一個廣州的測試朋友在實際工作中學習自動化測試的時候遇到這樣一個問題，DELPHI中GRID控件的識別，利用robot定位到某個字段的某行上去的問題

當時看到這個問題，想到兩個的解決方法一個是利用對象的方法，賦值，編成函數，輸入列和行，然后由這個函數處理，這樣做直接，高效率，還有一個思路是利用坐標定位然后輸入數據，也是便寫函數，具體計算由函數處理，這種方法雖然不能做到通用，但簡單實用。

按照第一個思路開始行動，因為那位朋友測試的軟件用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