QTP自动化测试-调用函数

在QTP里调用函数不使用小括号如：

MoreQueryValueForSupplier xg,yg,rowno

'=============================================
'名称：MoreQueryValueForSupplier
'作用：更多查询-添加查询条件-往来信息
'参数：rowno 当前运行的行数,xg 点击X轴位置，yg 点击的y轴位置
'函数调用实例：MoreQueryValueForSupplier(x,y,2)
'=============================================
Function MoreQueryValueForSupplier(xg,yg,rowno)

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'1往来编码
Window("查询").WinObject("TRzStringGrid").Type "0"

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'2往来单位名称
Window("查询").WinObject("TRzStringGrid").Type DataTable("SupplierName",dtGlobalSheet)

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'3往来助记符

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'4联系人
Window("查询").WinObject("TRzStringGrid").Type DataTable("SupplierContact",dtGlobalSheet)

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'5联系人助记符

Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'6电话
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("TelNumber").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'7手机
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("MobileNumber").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'8传真
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("FaxNumber").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'9地址
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("SupplierAddress1").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'10邮编
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("ZipCode").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'11城市
Window("查询").WinObject("TRzStringGrid").Type "0"
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'12email
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("Email").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'13主页
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("IntranetAddr").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'14法人
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("LegalPerson").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'15报警信用额度
Window("查询").WinObject("TRzStringGrid").Type "0"
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'16最大信用额度
Window("查询").WinObject("TRzStringGrid").Type "0"
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'17类别名称
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("SupplierType02").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'18送货线路
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'19发货方式
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'20客户来源
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'21全称
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("SupplierFullName").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'22税号
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("TaxNumber").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'23开户银行
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("BankName").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'24开户账户
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("AccontName").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'25开票地址
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("InvoiceAddress").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'26经营范围
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("BusinessScope").ValueByRow(rowno)
Window("查询").WinObject("TRzStringGrid").VScroll micLineNext, 1
Window("查询").WinObject("TRzStringGrid").Click xg,yg'27备注
Window("查询").WinObject("TRzStringGrid").Type DataTable.GetSheet("infosupplier").GetParameter("Memo").ValueByRow(rowno)

End Function

QTP自动化测试-调用函数

猜你喜欢