我用QTP这样测试对不对?

Anniephoto

继续求助~~~~

Anniephoto

大家再帮帮我

Horus_Ra

你那个错误说，没有找到"userid is required"这个对象

Anniephoto

谢谢Horus_Ra，我知道是没有找到"userid is required"这个对象，但不知怎样解决？

checkMsg=Browser("TUser.title").Dialog("Microsoft Internet Explorer").static("userid is required").getROproperty("text")

取不到提示窗口的信息吗？应该怎样做？谢谢。

Anniephoto

这个问题我找了好多资料啊，看到有kai_top 筒子在"基础代码交流贴"发过类似的贴子：

"如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证"

　if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
     error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!").getRoproperty("text")
　　　if error_message<>(datatable.value("error_info"))then
         msgbox(error_message)
      end if
     browser("web_name").dialog("diaglog_name").close
  end if


  为什么他这里error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!").getRoproperty("text")可以取得“用户密码错误”，而不会出错？


郁闷啊，自己解决不了。。。

tkgg0122

提示信息中不是已經說明白了嗎？你的對象倉庫中沒有那個對像，既然對像不存在那怎麼能獲取一個不存在的對像屬性呢？
解決辦法就是你得先把帶"userid is required"提示信息的對話框添加到對像倉庫中去

[ 本帖最后由 tkgg0122 于 2006-4-4 18:26 编辑 ]

tkgg0122

在QTP中一切都是對像，所有的操作都是基於對象而言的

Horus_Ra

QTP要将对象放到对象库中才能识别，不是你写什么他就会认什么的……

"userid is required"是什么东西？？你自己写的吧？？？不是一个对象吧？？？

minliu

原帖由 mstiunicon 于 2006-4-4 09:50 发表

If (Len(CheckUS)>50) Then
            
       If  Browser("TUser.title").Dialog("Microsoft Internet Explorer").Exist then
         dim checkMsg
         checkMsg=Brows ...

请教一下：执行完事后，是不是会自动关闭所有窗口，我想让它提示通过（以对话框形式），应如何写代码啊，谢谢,我想弹出一对话框提示此功能pass，大家看看这样行吗
Dim CheckUS
Dim CheckPW
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))

If ( CheckUS = "" )Then
  If   ( Browser("XXX_2").Dialog("Microsoft Internet Explorer").Exist(1)) Then
   Dim a
   if  ( a = Browser("XXX_2").Dialog("Microsoft Internet Explorer").Static("请输入登录名!").check(checkpoint("请输入登录名!")) = true )then
  msgbox "passed"
   end if
   end if                   
End if

我调试了，可没提示passed啊，请问错误出在哪里，大家帮帮忙，谢谢

[ 本帖最后由 minliu 于 2006-4-6 17:02 编辑 ]

Horus_Ra

我看不懂……
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))
这两句干吗用的？

minliu

将DataTable中USER字段中的值（默认第一行，也可通过方法取指定行）作为登录名,密码的输入值输入
我这里好象都没按下确定按钮的语句，可是还是执行了，还有，你看我这里达到测试目的了吗，有点糊涂

[ 本帖最后由 minliu 于 2006-4-6 18:26 编辑 ]

zengyixun

如果是的话，你的问题是所有窗体的标题都一样，你无法区分是
因为什么错误而出现的提示窗体，我觉得，这个窗体对像，你是可以
获取的，然后在这个窗体上的Text其实也是控件撒，就取这个窗体上的
提示Text比对一下，就应该知道了。

minliu

弹出 的窗口是预期的，我想让它出现提示通过的消息来确认正确性，用代码怎么实现；（或者说弹出不是期望的，提示失败）；直接用msgbox行吗，怎样用啊，该消息框会出现在什么什么时候


If CheckUs =” ”
If 弹出错误提示对话框(输入不能为空)
    If 对话框提示正确
       提示通过   //主要想实现这一步   
   Else 提示“提示信息有误”
Else 提示“提示对话框出错”

[ 本帖最后由 minliu 于 2006-4-7 09:31 编辑 ]

Horus_Ra

不要动不动就Msgbox，你运行脚本的时候不可能等在旁边按的……

报错可以用Reporter.ReportEvent 1，具体用法查帮助

pldy

qtp是一种回归测试工具，那为什么不录制输入不符合条件时的脚本呢．之后再做一些检查点和参数化的设置．
那么以后就可以直接运行这些脚本查看修改的程序是否仍然对这些错误作判断．

minliu

原帖由 Horus_Ra 于 2006-4-7 13:19 发表
不要动不动就Msgbox，你运行脚本的时候不可能等在旁边按的……

报错可以用Reporter.ReportEvent 1，具体用法查帮助

哦，谢谢，我想问一下怎么判断文本框内容为空（检查按清空按钮后文本编辑框是否清空）

[ 本帖最后由 minliu 于 2006-4-7 15:03 编辑 ]

447981218

Dim CheckUS
Dim CheckPW
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))

If ( CheckUS = "" )Then
  If   ( Browser("XXX_2").Dialog("Microsoft Internet Explorer").Exist(1)) Then
   Dim a
   if  ( a = Browser("XXX_2").Dialog("Microsoft Internet Explorer").Static("请输入登录名!").check(checkpoint("请输入登录名!")) = true )then
  msgbox "passed"
   end if
   end if                  
End if