robot对DELPHI中GRID控件的识别问题

原创 2004年04月23日 13:31:00

最近一个广州的测试朋友在实际工作中学习自动化测试的时候遇到这样一个问题,DELPHIGRID控件的识别,利用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函数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

虽然赋值成功,但是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

 

就到这里吧。

                                        写于 2004-4-23 凌晨1.30

 

介绍一个好用的Grid控件"EjunGrid"

官方网站:http://www.ejun.cn/EjunGrid是一款类似Excel风格的高品质表格控件,我们设计的目标是让广大软件开发者能够轻松快速开发出专业、高水准的软件产品,使您的软件具备方便快...
  • chinagoodyang
  • chinagoodyang
  • 2007年04月22日 23:46
  • 1583

Delphi下EasyGrid使用体会

最近在编写软件的时候,非常需要一款支持多表头的StringGrid控件,朋友介绍使用EasyGrid控件,这款控件大概从04年开始就没有再更新,网上有关与它的资料也较少。但是通过其demo,此软件还是...
  • chinajobs
  • chinajobs
  • 2016年07月30日 09:41
  • 1228

delphi FMX gridlayout与gridpannellayout

Gridlayout:       如果将ItemWidth设置为-1,则单元格的宽度自动按TGridLayout的宽度进行等分计算.       使用TGridLayout布局控件,其子控件的P...
  • qq_38204686
  • qq_38204686
  • 2017年11月02日 14:08
  • 469

delphi Cxdbgrid 根据单元格数据使单元格改变颜色

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(  Sender: TcxCustomGridTableView; ACanvas: TcxCan...
  • kye_jufei
  • kye_jufei
  • 2008年07月11日 08:08
  • 1719

Robot Framework项目实战笔记

在项目实践中,Robot Framework确实很好用,比起QTP来说有超越。但是作为初学者,还是有很多闪光点需要触碰的,本文主要记录了一些实践中遇到的问题,作者找到的各种解决方案,供大家参考,少走一...
  • weixin_40974457
  • weixin_40974457
  • 2017年11月14日 21:12
  • 57

Delphi第三方控件大比拼(收费篇)

好了,看过了上一节的一些免费的第三方控件之后,下面让我们来看一下商业控件的情形吧,我们同样也把商业控件分成8个类别,进行一下评测,来和前面推荐的免费的控件来比一比看,到底是谁利害,商业控件可不一定能全...
  • iris1121
  • iris1121
  • 2009年01月08日 12:00
  • 2732

Delphi第三方控件大比拼

  下面这篇文章是一位网友对多种第三方组(控)件的看法,英雄所见所略同,他的见解还是颇有见地的。但所谓智者见智,仁者见者,下面的红字是我的个人看法。   古人云∶“工欲善其事,必先利其器。” 这句话,...
  • Tunix126
  • Tunix126
  • 2007年09月14日 14:33
  • 1140

Robotframework+Selenium2 WebDriver进行Web UI测试

因为工作原因,基本上没有接触到Web测试,但是在做Robotium的Webview app的时候接触到hybird app的测试,这只是针对android app测试,所以有了闲暇时间研究了一下Sel...
  • u011995159
  • u011995159
  • 2015年07月22日 17:28
  • 1503

在DBGrid表格控件中实现下拉表格控件

一、DBGrid网格处理的原理         Delphi提供了功能强大的DBGrid组件,以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件,每一个获得焦点(Grid)只是一个简...
  • xiongmao000738
  • xiongmao000738
  • 2011年11月26日 13:00
  • 2949

GridCtrl 控件说明

如果想在你的工程中使用这个Grid控件的话,你还得在你的工程中添加一些文件: gridctrl.cpp, gridctrl.h Grid控件资源文件和头文件 gridcellbase.cpp, g...
  • objectively
  • objectively
  • 2013年07月21日 11:20
  • 2937
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:robot对DELPHI中GRID控件的识别问题
举报原因:
原因补充:

(最多只允许输入30个字)