Rational 識別 Delphi TDBGrid的解決方法

MILY: 宋體; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">當時看到這個問題，想到兩個的解決方法一個是利用對象的方法，賦值，編寫程函數，輸入列和行，然后由這個函數處理，這樣做直接，高效率，還有一個思路是利用坐標定位然后輸入數據，也是便寫函數，具體計算由函數處理，這種方法雖然不能做到通用，但簡單實用。

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