MILY: 宋體; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">當時看到這個問題，想到兩個的解決方法一個是利用對象的方法，賦值，編寫程函數，輸入列和行，然后由這個函數處理，這樣做直接，高效率，還有一個思路是利用坐標定位然后輸入數據，也是便寫函數，具體計算由函數處理，這種方法雖然不能做到通用，但簡單實用。
按照第一個思路開始行動，因為那位朋友javascript:;" onClick="javascript:tagshow(event, '%B2%E2%CA%D4');" target="_self">測試的軟件用delphi開發，其中gird是個第三方控件,這里我用TDBGrid來代替他的第三方控件做到問題簡單化，先把實際問題解決，自己動手做了個程序，用ADO連接數據庫，利用DataGrid顯示數據，來模擬實際情況。錄制腳本如下：
Sub
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
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
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
雖然賦值成功，但是datagrid無法顯示你需要的數據（這里需要研究一下），因為時間的緣故，就用第二種方式坐標的方式來實現，考慮多平臺共享使用，寫SetGridFocus函數，思路這樣得到tdbgrid對象，得到其中column的屬性寬高，計算坐標（這些都在函數內部實現），其中移動有個固定值24是追蹤tdbgrid代碼中defaultHeight為24
最后代碼如下：
Sub SetGridFocus(strObject as String, strCol as String, strRow as String, strValue as String)
Dim iResult as Integer
Dim iCount as Integer
Dim ColWidth() as integer
Dim iWidth as Integer
Dim strColPos as Integer
Dim strRowPos as Integer
Dim strCor as String
Dim iTemp as integer
strColPos = 0
strRowPos = 0
iTemp = 0
SQAGetProperty strObject ,"Columns.Count", iCount
if iCount <> 0 then
Redim ColWidth(iCount - 1)
While iTemp < iCount
iResult = SQAGetProperty (strObject, "Columns.Items(" + CStr(iTemp) +").Width",iWidth)
ColWidth(iTemp) = iWidth
iTemp = iTemp + 1
wend
End if
strColPos = 20
if CInt(strCol) <> 1 then
for iTemp = 1 to CInt(strCol)-1
strColPos = strColPos+ ColWidth(iTemp-1)
next iTemp
End if
for iTemp = 1 to CInt(strRow)
strRowPos = 24 +strRowPos
next iTemp
strCor = "Coords=" & strColPos &","+CStr(strRowPos)
GenericObject Click, strObject, strCor
InputKeys strValue
stop
strCor = "Coords=" & strColPos &","+CStr(strRowPos + 24)
GenericObject Click, strObject, strCor
End Sub
上編寫的還有很多疏漏的地方，對于浮動文本框賦值成功，卻無法改動tdbgrid中的值沒有深入研究，該函數在實際應用中還有個小問題，沒有做到很完全“周到“ ，下回有時間改正。
備注：
最后我把代碼進行優化和擴展，開發了針對grid的相關函數，下邊是其中之一
//得到列數
Function GetColCount(sGridRecogStr as String) as Integer
Dim Result as Integer
Dim vValue as Variant
Dim sLogMessage as String
Dim sErrorMessage as String
grdGetRowCount = -1
Result = SQAGetProperty(sGridRecogStr, "Column.Count", vValue)
If Result = sqaSuccess Then
GetRowCount = CInt(vValue)
Else
sLogMessage = "無法得到Grid的列數”
sErrorMessage = "[" & CStr(Result) & " = " & Error(Result) &"]"
SQALogMessage sqaFail, sLogMessage, sErrorMessage
End If
End Function
就到這里吧。
