当时看到这个问题,想到两个的解决方法一个是利用对象的方法,赋值,编写程函数,输入列和行,然后由这个函数处理,这样做直接,高效率,还有一个思路是" name="description" />

Rational 识别 Delphi TDBGrid的解决方法

发表于:2008-09-18来源:作者:点击数: 标签:rationalRATIONALRationalTDBGridDELPHI
MI LY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">当时看到这个问题,想到两个的解决方法一个是利用对象的方法,赋值,编写程函数,输入列和行,然后由这个函数处理,这样做直接,高效率,还有一个思路是

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函数SqaSetPropertycell赋值完成上边要的功能,首先用robot来的gui insertobject properties来抓取对象TDBGrid的属性,这样做是因为函数SqaSetProperty只能对robot抓取道的属性起作用,也就是说即使有cell属性,robotobject 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属性,怎么办?于是研究delphiTDBGrid的源代码发现TDBGrid继承的TcustomGrid中有HideEditUpdateEdit等方法,说明在输入数据的时候TDBGird在后台是生成了一个输入文本框,焦点改变后这个文本框自动消失把数据输入到TDBGrid。这样我们只要能给这个EDITTEXT属性赋值同样可以实现,因为TDBGrid没有CELL属性,不能直接利用SQASetProperty函数给cellfocus属性赋值,只能利用点击这个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

原文转自:http://www.ltesting.net