qtp 自动化测试桌面程序-点滴1(录制设置、共用文件)
1 automation-record and run settings--设置录制程序
2 将function/repository 放于单独于test的文件夹中-方便多个test使用同一个仓库、函数
3 格式化当前日期
'========================================
'名称:get_currentdatetxt
'作用:反回当前日期的字符串显示为:yyyymmdd+txt
'参数:无
'返回值:yyyymmdd + txt格式的字符串
'调用:msgbox get_currentdatetxt
'========================================
Function get_currentdatetxt(orderstr)
myYear=year(now)
myMonth=month(now)
myDay=Day(now)
get_currentdatetxt=Cstr(myYear & myMonth & myDay & orderstr)
End Function
'========================================
'名称:get_currentdatestr
'作用:把当日期格式显示为:yyyy-mm-dd
'参数:无
'返回值:yyyy-mm-dd格式的当前日期
'调用:msgbox get_currentdatestr
'========================================
Function get_currentdatestr()
myYear=year(now)
myMonth=month(now)
myDay=Day(now)
get_currentdatestr=Cstr(myYear&"-"&myMonth&"-"&myDay)
End Function
4 网格中下拉框选择不到数据可以使用输入方式输入数据
Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("其他收入单").WinObject("TDBGridEh").Click 173,30
Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("其他收入单").WinObject("TDBGridEh").Type "非主营业务销售"