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 "非主营业务销售"