script.mts

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

	If Browser("Accela Automation:_7").Page("Accela Automation:").Image("Add Standard").Exist Then
		If Browser("Accela Automation:_7").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 created condition")
		End If
'	Elseif Browser("Accela Automation:_8").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_8").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_8").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 DeleteCond ()
	Browser("Accela Automation:_7").Page("Accela Automation:").Image("Delete").Click @@ script infofile_;_ZIP::Delete_ssf58.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("Delete")_;_NFB_;_1181163_;_
	Browser("Accela Automation:_7").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf59.inf_;_hightlight id_;_2_;_
	wait(10)
	If Browser("Accela Automation:_7").Page("Accela Automation:").Image("Add Standard").Exist Then
	    If Browser("Accela Automation:_7").Page("Accela Automation:").Link("Agency Testing").Exist=False Then
            Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"the new created condition still exists!")
		End If
	Elseif Browser("Accela Automation:_7").Dialog("Microsoft Internet").WinButton("OK").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_7").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Browser("Accela Automation:_7").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 AddStdCond ()
	Err_Flag = True
	'c. Add a new std condition
	Call objTestLib.printfile(file,3,"        c. Add a new std condition")
	Browser("Accela Automation:_7").Page("Accela Automation:").Image("Add Standard").Click @@ script infofile_;_ZIP::Add_Standard_ssf60.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("Add Standard")_;_NFB_;_1181165_;_
	Browser("Accela Automation:_9").Page("Accela Automation:").Image("Search").Click 31,11 @@ script infofile_;_ZIP::Search_ssf61.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation:").Image("Search")_;_NFB_;_1191165_;_
	If Browser("Accela Automation:_9").Page("Accela Automation:_2").WebCheckBox("SelCond1").Exist(10) Then
		strTemp = Browser("Accela Automation:_9").Page("Accela Automation:_2").WebTable("Type").GetCellData(2,3)
		Browser("Accela Automation:_9").Page("Accela Automation:_2").WebCheckBox("SelCond1").Set "ON"
		Browser("Accela Automation:_9").Page("Accela Automation:_2").WebEdit("Comment").Set "Agency Testing" @@ script infofile_;_ZIP::Comment_ssf64.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation: 2").WebEdit("Comment")_;_NFB_;_1191166_;_
		Browser("Accela Automation:_9").Page("Accela Automation:_2").Image("Save").Click 12,6 @@ script infofile_;_ZIP::Save_ssf65.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation: 2").Image("Save")_;_NFB_;_1191166_;_
		wait(5)
		If Browser("Accela Automation:_7").Page("Accela Automation:").Image("Delete").Exist Then
		    Browser("Accela Automation:_7").Page("Accela Automation:").Link("Agency Testing").SetTOProperty "text",strTemp
			If Browser("Accela Automation:_7").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 created condition")
			End If
'	Elseif Browser("Accela Automation:_9").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_9").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_9").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,"cannot find the delete button!")
        End If
	Else
		Call objTestLib.printfile(file,3,"        ---None: no available std condition exists!")
		Browser("Accela Automation:_9").Page("Accela Automation:_2").Image("Cancel").Click 12,6
	End If
End Function

'Browser("Accela Automation:_7").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf68.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1201169_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====14. Parcel
Call objTestLib.printfile(file,3,"   14. Parcel")
objmsgbox.SQAMsgbox "14. Parcel","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf69.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1201170_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Parcel").Click @@ script infofile_;_ZIP::Parcel_ssf70.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Parcel")_;_NFB_;_1201171_;_
Call AddParcel()
If Err_Flag=False Then
    Call DeleteParcel()
End If

Function AddParcel ()
	Err_Flag = True
	'a. Add a parcel 
	Call objTestLib.printfile(file,3,"        a. Add a parcel")
	'(1) search an existed parcel
	Call objTestLib.printfile(file,3,"        (1) search an existed parcel")
	Browser("Accela Automation:_10").Page("Accela Automation:").Image("Add new Parcel").Click @@ script infofile_;_ZIP::Add_new_Parcel_ssf71.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").Image("Add new Parcel")_;_NFB_;_1201172_;_
	Browser("Accela Automation:_11").Page("Accela Automation:").Image("Search for Parcel").Click @@ script infofile_;_ZIP::Search_for_Parcel_ssf72.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").Image("Search for Parcel")_;_NFB_;_1201173_;_
	Browser("Accela Automation:_12").Page("Accela Automation:").WebEdit("PartxtParcel").Set "p"
	Browser("Accela Automation:_12").Page("Accela Automation:").Image("Submit").Click 31,14 @@ script infofile_;_ZIP::Submit_ssf73.inf_;_hightlight id_;_Browser("Accela Automation: 12").Page("Accela Automation:").Image("Submit")_;_NFB_;_1211175_;_
	Browser("Accela Automation:_13").Page("Accela Automation:").Image("Select Parcel").Click @@ script infofile_;_ZIP::Select_Parcel_ssf74.inf_;_hightlight id_;_Browser("Accela Automation: 13").Page("Accela Automation:").Image("Select Parcel")_;_NFB_;_1211176_;_
	wait(5)
	strTemp = Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("vParB1_PARCEL_NBR").GetROProperty("value")
	If len(strTemp) > 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find any parcel!")
	End If
	'(2) modify the parcel name and submit
	Call objTestLib.printfile(file,3,"        (2) modify the parcel name and submit")
	Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("vParB1_PARCEL_NBR").Set "Agency Testing" @@ script infofile_;_ZIP::vParB1_PARCEL_NBR_ssf75.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").WebEdit("vParB1 PARCEL NBR")_;_NFB_;_1221177_;_
	Browser("Accela Automation:_11").Page("Accela Automation:").Image("Save").Click 16,7 @@ script infofile_;_ZIP::Save_ssf76.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").Image("Save")_;_NFB_;_1221177_;_
	If Browser("Accela Automation:_10").Page("Accela Automation:").Image("Add new Parcel").Exist(5) Then
		If Browser("Accela Automation:_10").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:_11").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_11").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_11").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 DeleteParcel ()
	'b. delete the new added parcel
	Call objTestLib.printfile(file,3,"        b. delete the new added parcel")
	Browser("Accela Automation:_10").Page("Accela Automation:").Image("Delete Parcel").Click @@ script infofile_;_ZIP::Delete_Parcel_ssf77.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").Image("Delete Parcel")_;_NFB_;_1221179_;_
	Browser("Accela Automation:_10").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf78.inf_;_hightlight id_;_2_;_
	wait(5)
	If Browser("Accela Automation:_10").Page("Accela Automation:").Image("Add new Parcel").Exist Then
	    If Browser("Accela Automation:_10").Page("Accela Automation:").Link("Agency Testing").Exist=False Then
       	    Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"the new added parcel still exists!")
		End If
	Elseif Browser("Accela Automation:_10").Dialog("Microsoft Internet").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_10").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Browser("Accela Automation:_10").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:_10").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf79.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1221181_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====15. Owner
Call objTestLib.printfile(file,3,"   15. Owner")
objmsgbox.SQAMsgbox "15. Owner","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf80.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1221182_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Owner").Click @@ script infofile_;_ZIP::Owner_ssf81.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Owner")_;_NFB_;_1221183_;_
Call AddOwner()
If Err_Flag=False Then
   Call DeleteOwner()
End If

Function AddOwner ()
	Err_Flag = True