QTP 自动货测试桌面程序-笔记 （单据-下拉框选择、对话框 、菜单）

1 录制下拉框使用键盘上下键 回车键选择记录行

Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("采购计划").WinObject("TRzDBComboBox_2").Click 119,12
Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("采购计划").WinObject("TRzDBComboBox_2").Type micDwn
Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("采购计划").WinObject("TRzDBComboBox_2").Type micReturn

2 对话框 录制完成-需要删除其后的 window().active 语句

Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("采购计划").WinObject("TRzToolbar").Click 436,26

Dialog("驷惠WIN系列管理软件").WinButton("是(Y)").Click

Dialog("驷惠WIN系列管理软件").WinButton("否(N)").Click

Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window("采购计划").Close

3 菜单录制 有时回放时会找不到 需要添加 object repository 

Set MenuDescription=Description.Create
MenuDescription("menuobjtype").value="2"

Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Activate

menuPath=Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").WinMenu(MenuDescription).BuildMenuPath("<Item 3>;<Item 3>")
Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").WinMenu(MenuDescription).Select menuPath

rem Window("驷惠WIN系列[汽车4S连锁管理软件]  6.").WinMenu("Menu").Select "<Item 3>;<Item 3>"

4 窗口录制后可使用变量（主窗口使用变量出错未解决）

Set winpurch=Description.Create
winpurch("regexpwndtitle").value="采购看板"
winpurch("regexpwndclass").value="TfrmBuyBoard"

rem Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").WinMenu("Menu").Select "<Item 3>;<Item 3>"

Window("驷惠WIN系列[汽车4S连锁管理软件] 6.").Window(winpurch).Close