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