基于UFT12.0，满足N个用户申请新店铺需求的测试脚本的自动化实现

简单说明：脚本实现了数据和业务相分离，即数据录入和脚本开发可以由不同的人去完成。 

                 假设数据Excel表已完成，之后可以分三步走

                 1.按需求将所需的对象保存到对象库中

                 2.按需求步骤和自己的逻辑完成代码录入，代码如下

                 3.在运行脚本之前，需要在UFT里面的文件——设置——运行——只运行一次迭代。 

DataTable.Import("C:\Users\LM\Desktop\ShopTask.xlsx")

For i  =  1  To  2  Step  1

CurrentRow  = DataTable.GetSheet ( "Global" ).GetCurrentRow
DataTable.GetSheet ( "Global" ).SetCurrentRow (i )

With Browser ( "会员登录" ).Page ( "会员登录" )    
    .WebEdit ( "j_username1" ). Set DataTable ( "用户名", "Global" )
    .WebEdit ( "j_password" ). Set DataTable ( "密码", "Global" )
    .WebButton ( "登录" ).Click
End  With
Browser ( "会员登录" ).Page ( "完善信息 | 数字本草" ).Link ( "卖家中心" ).Click

With Browser ( "会员登录" ).Page ( "数字本草" )
    

    .Link ( "基础信息" ).Click
    .WebEdit ( "name" ). Set DataTable ( "店铺名称", "Global" )
    .WebEdit ( "description" ). Set  DataTable ( "店铺简介", "Global" )
    .WebEdit ( "contactName1" ). Set  DataTable ( "联系人1", "Global" )
    .WebEdit ( "contactPhone1" ). Set  DataTable ( "联系人1电话", "Global" )

    .WebEdit ( "contactName2" ). Set  DataTable ( "联系人2", "Global" )
    .WebEdit ( "contactPhone2" ). Set  DataTable ( "联系人2电话", "Global" )
    .WebEdit ( "contactName3" ). Set  DataTable ( "联系人3", "Global" )
    .WebEdit ( "contactPhone3" ). Set  DataTable ( "联系人3电话", "Global" )
    .WebEdit ( "telephone" ). Set  DataTable ( "座机号", "Global" )
    .WebEdit ( "fax" ). Set  DataTable ( "传真", "Global" )
    .WebEdit ( "qq" ). Set  DataTable ( "QQ", "Global" )
    
    
    .WebList ( "countryIso" ). Select  DataTable ( "国家", "Global" )
    .WebList ( "regionIso" ). Select  DataTable ( "省份", "Global" )
    .WebList ( "cityCode" ). Select  DataTable ( "市级", "Global" )
    .WebList ( "cityDistrictCode" ). Select  DataTable ( "地区", "Global" )
    .WebEdit ( "street" ). Set  DataTable ( "街道", "Global" )
    .WebButton ( "提交" ).Click
End  With
Browser ( "数字本草" ).Page ( "数字本草" ).Link ( "[退出]" ).Click




Next