script.mts

来自「QTP实例源码（完整）」· MTS 代码 · 共 782 行 · 第 1/5 页

MTS
782 行
字号
12345
	'a. Add an Owner 
	Call objTestLib.printfile(file,3,"        a. Add an Owner ")
	'(1) search an existed Owner
	Call objTestLib.printfile(file,3,"        (1) search an existed Owner")
	Browser("Accela Automation:_14").Page("Accela Automation:").Image("Add new owner").Click @@ script infofile_;_ZIP::Add_new_owner_ssf82.inf_;_hightlight id_;_Browser("Accela Automation: 14").Page("Accela Automation:").Image("Add new owner")_;_NFB_;_1221184_;_
	Browser("Accela Automation:_15").Page("Accela Automation:").Image("Search for Owner").Click @@ script infofile_;_ZIP::Search_for_Owner_ssf83.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").Image("Search for Owner")_;_NFB_;_1221185_;_
	Browser("Accela Automation:_16").Page("Accela Automation:").WebEdit("OwnL1_MAIL_CITY").Set "" @@ script infofile_;_ZIP::OwnL1_MAIL_CITY_ssf88.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").WebEdit("OwnL1 MAIL CITY")_;_NFB_;_1231188_;_
	Browser("Accela Automation:_16").Page("Accela Automation:").WebList("OwnB1_MAIL_STATE").Select "#0" @@ script infofile_;_ZIP::OwnB1_MAIL_STATE_ssf89.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").WebList("OwnB1 MAIL STATE")_;_NFB_;_1231188_;_
	Browser("Accela Automation:_16").Page("Accela Automation:").Image("Submit").Click 23,4 @@ script infofile_;_ZIP::Submit_ssf90.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").Image("Submit")_;_NFB_;_1231188_;_
	Browser("Accela Automation:_17").Page("Accela Automation:").Image("Selbtn").Click @@ script infofile_;_ZIP::Selbtn_ssf91.inf_;_hightlight id_;_Browser("Accela Automation: 17").Page("Accela Automation:").Image("Selbtn")_;_NFB_;_1231189_;_
	wait(5)
	strTemp = Browser("Accela Automation:_15").Page("Accela Automation:").WebEdit("OwnB1_OWNER_FULL_NAM").GetROProperty("value")
	If len(strTemp) > 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find any Owner")
	End If
	'(2) modify the parcel name and submit
	Call objTestLib.printfile(file,3,"        (2) modify the parcel name and submit")
	Browser("Accela Automation:_15").Page("Accela Automation:").WebEdit("OwnB1_OWNER_FULL_NAM").Set "Agency Testing" @@ script infofile_;_ZIP::OwnB1_OWNER_FULL_NAM_ssf92.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").WebEdit("OwnB1 OWNER FULL NAM")_;_NFB_;_1241190_;_
	Browser("Accela Automation:_15").Page("Accela Automation:").WebRadioGroup("OwnB1_PRIMARY_OWNER").Select "N" @@ script infofile_;_ZIP::OwnB1_PRIMARY_OWNER_ssf93.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").WebRadioGroup("OwnB1 PRIMARY OWNER")_;_NFB_;_1241190_;_
	Browser("Accela Automation:_15").Page("Accela Automation:").Image("Save").Click 14,9 @@ script infofile_;_ZIP::Save_ssf94.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").Image("Save")_;_NFB_;_1241190_;_
	If Browser("Accela Automation:_14").Page("Accela Automation:").Image("Add new owner").Exist(5) Then
		If Browser("Accela Automation:_14").Page("Accela Automation:").Link("Agency Testing").Exist Then
    	    Err_Flag = False
			Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"cannot find the new added parcel!")
		End If
'	Elseif Browser("Accela Automation:_15").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_15").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_15").Dialog("Microsoft Internet").WinButton("OK").Click
'		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

Function DeleteOwner ()
	'b. delete the new added owner
	Call objTestLib.printfile(file,3,"        b. delete the new added owner")
	Browser("Accela Automation:_14").Page("Accela Automation:").Image("Delete owner").Click @@ script infofile_;_ZIP::Delete_owner_ssf95.inf_;_hightlight id_;_Browser("Accela Automation: 14").Page("Accela Automation:").Image("Delete owner")_;_NFB_;_1241192_;_
	Browser("Accela Automation:_14").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf96.inf_;_hightlight id_;_2_;_
	wait(5)
	If Browser("Accela Automation:_14").Page("Accela Automation:").Image("Add new owner").Exist Then
	    If Browser("Accela Automation:_14").Page("Accela Automation:").Link("Agency Testing").Exist=False Then
    	    Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"the new added Owner still exists!")
		End If
	Elseif Browser("Accela Automation:_14").Dialog("Microsoft Internet").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_14").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Browser("Accela Automation:_14").Dialog("Microsoft Internet").WinButton("OK").Click
		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

'Browser("Accela Automation:_14").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf97.inf_;_hightlight id_;_Browser("Accela Automation: 14").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1241194_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====16. Address
Call objTestLib.printfile(file,3,"   16. Address")
objmsgbox.SQAMsgbox "16. Address","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf98.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1241195_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Address").Click @@ script infofile_;_ZIP::Address_ssf99.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Address")_;_NFB_;_1241196_;_
Call AddAddress()
If Err_Flag=False Then
   Call DeleteAddress()
End If

Function AddAddress ()
	Err_Flag = True
	'a. Add an Address by searching an existed address
	Call objTestLib.printfile(file,3,"        a. Add an Address by searching an existed address")
	Browser("Accela Automation:_18").Page("Accela Automation:").Image("Add new Address").Click @@ script infofile_;_ZIP::Add_new_Address_ssf100.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("Add new Address")_;_NFB_;_1241197_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").Image("Search for Address").Click @@ script infofile_;_ZIP::Search_for_Address_ssf101.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").Image("Search for Address")_;_NFB_;_1241198_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Submit").Click 22,6 @@ script infofile_;_ZIP::Submit_ssf102.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Submit")_;_NFB_;_1251199_;_
	Browser("Accela Automation:_21").Page("Accela Automation:").Image("Selbtn").Click @@ script infofile_;_ZIP::Selbtn_ssf103.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation:").Image("Selbtn")_;_NFB_;_1251200_;_
	wait(5)
	strTemp = Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("AdrFullAddr").GetROProperty("value")
	Browser("Accela Automation:_19").Page("Accela Automation:").WebRadioGroup("AdrB1_PRIMARY_ADDR_F").Select "N" @@ script infofile_;_ZIP::AdrB1_PRIMARY_ADDR_F_ssf104.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebRadioGroup("AdrB1 PRIMARY ADDR F")_;_NFB_;_1261201_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").Image("Save").Click 26,5 @@ script infofile_;_ZIP::Save_ssf105.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").Image("Save")_;_NFB_;_1261201_;_
	If Browser("Accela Automation:_18").Page("Accela Automation:").Image("Add new Address").Exist(5) Then
		Browser("Accela Automation:_18").Page("Accela Automation:").Link("NewAddress").SetTOProperty "text",strTemp
		If Browser("Accela Automation:_18").Page("Accela Automation:").Link("NewAddress").Exist Then
            Err_Flag = False
			Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"can not find the added address!")
		End If
'	Elseif Browser("Accela Automation:_19").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_19").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_19").Dialog("Microsoft Internet").WinButton("OK").Click
'		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

Function DeleteAddress ()
	'b. delete the new added Address
	Call objTestLib.printfile(file,3,"        b. delete the new added Address")
	Browser("Accela Automation:_18").Page("Accela Automation:").Image("Delete Address").Click @@ script infofile_;_ZIP::Accela_Automation__CAESummary_-_R8032-L_ssf194.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("Delete Address")_;_NFB_;_1261203_;_
	Browser("Accela Automation:_18").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf107.inf_;_hightlight id_;_2_;_
	wait(5)
	If Browser("Accela Automation:_18").Page("Accela Automation:").Image("Add new Address").Exist Then
	    If Browser("Accela Automation:_18").Page("Accela Automation:").Link("NewAddress").Exist=False Then
       	    Call objTestLib.printfile(file,4)
	    Else
			Call objTestLib.printfile(file,5,"the added address still exists!")
		End If
	Elseif Browser("Accela Automation:_18").Dialog("Microsoft Internet").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_18").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Browser("Accela Automation:_18").Dialog("Microsoft Internet").WinButton("OK").Click
		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

'Browser("Accela Automation:_18").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf108.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1261205_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====17. Structure
Call objTestLib.printfile(file,3,"   17. Structure")
objmsgbox.SQAMsgbox "17. Structure","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf109.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1261206_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Structure").Click @@ script infofile_;_ZIP::Structure_ssf110.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Structure")_;_NFB_;_1261207_;_
Call AddStructure()
If Err_Flag=False Then
   Call DeleteStructure()
End If

Function AddStructure ()
	Err_Flag = True
	'a. Add a structure by searching an existed structure
	Call objTestLib.printfile(file,3,"        a. Add a structure by searching an existed structure")
	Browser("Accela Automation:_22").Page("Accela Automation:").Image("Add new Structure").Click
	Browser("Accela Automation:_38").Page("Accela Automation:").Image("Search Structure").Click
	wait(5) @@ script infofile_;_ZIP::Page_ssf197.inf_;_hightlight id_;_Browser("Browser_4").Page("Page")_;_NFB_;_1701339_;_
	Browser("Accela Automation:_39").Page("Accela Automation:").Image("Submit").Click 16,8 @@ script infofile_;_ZIP::Submit_ssf199.inf_;_hightlight id_;_Browser("Accela Automation: 39").Page("Accela Automation:").Image("Submit")_;_NFB_;_1761349_;_
	wait(5)
	strInnerText = Browser("Browser_2").Page("Page").WebTable("Structure").GetROProperty("innertext")
	If instr(strInnerText,"No Records")=0 Then
        strTemp = Browser("Browser_2").Page("Page").WebTable("Structure").GetCellData(3,1)
		Browser("Browser_2").Page("Page_2").Image("Select").Click
		wait(5)
		Browser("Accela Automation:_38").Page("Accela Automation:").Image("Save").Click
		wait(5)
		strInnerText = Browser("Accela Automation:_22").Page("Accela Automation:_2").WebTable("Name").GetROProperty("innertext")
		If instr(strInnerText,strTemp) <> 0 Then
			Err_Flag = False
			Call objTestLib.printfile(file,4)
12345

script.mts - 源码说明

本页面展示了「QTP实例源码（完整）」中的 script.mts 源码文件，采用 MTS 编程语言编写，共 782 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与QTP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?