⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 script.mts

📁 QTP实例源码（完整）
💻 MTS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
   End If
Else
   Call objTestLib.printfile(file,3,"   1. Organizations -- cannot find this link, SKIP")
End If

Function UpdateOrg ()
	Err_Flag = True
	'a.update the first branch
	Call objTestLib.printfile(file,3,"      a.update the first branch")
	Browser("Accela Automation:_5").Page("Accela Automation:").Image("select").Click @@ script infofile_;_ZIP::select_ssf19.inf_;_hightlight id_;_Browser("Accela Automation: 5").Page("Accela Automation:").Image("select")_;_NFB_;_50706_;_
	Wait(5)
	strTemp = Mid(Browser("Accela Automation:_96").Page("Accela Automation:").WebTable("Structure:").GetCellData(1,2),12)
	arrOriginalValue(1) = Browser("Accela Automation:_96").Page("Accela Automation:").WebEdit("desc").GetROProperty("value")
	arrOriginalValue(2) = Browser("Accela Automation:_96").Page("Accela Automation:").WebRadioGroup("status").GetROProperty("value")
	Browser("Accela Automation:_96").Page("Accela Automation:").WebEdit("desc").Set "Agency Tesing" @@ script infofile_;_ZIP::desc_ssf20.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").WebEdit("desc")_;_NFB_;_60707_;_
	Browser("Accela Automation:_96").Page("Accela Automation:").WebRadioGroup("status").Select "I" @@ script infofile_;_ZIP::status_ssf21.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").WebRadioGroup("status")_;_NFB_;_60707_;_
	Browser("Accela Automation:_96").Page("Accela Automation:").Image("Submit").Click 35,8 @@ script infofile_;_ZIP::Submit_ssf22.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").Image("Submit")_;_NFB_;_60707_;_
	wait(10)
	strInnerText = Browser("Accela Automation:_5").Page("Accela Automation:").WebTable("Edit").GetROProperty("innertext")
	If instr(strInnerText,strTemp & "Disable") <> 0 Then
        Err_Flag = False
		Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"updated the first branch failed!")
	End If
End Function

Function RevertOrg ()
	'b.revert the first branch with original data
	Call objTestLib.printfile(file,3,"      b.revert the first branch with original data")
	Browser("Accela Automation:_5").Page("Accela Automation:").Image("select").Click @@ script infofile_;_ZIP::select_ssf23.inf_;_hightlight id_;_Browser("Accela Automation: 5").Page("Accela Automation:").Image("select")_;_NFB_;_70708_;_
	Wait(5)
	Browser("Accela Automation:_96").Page("Accela Automation:").WebEdit("desc").Set arrOriginalValue(1) @@ script infofile_;_ZIP::desc_ssf24.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").WebEdit("desc")_;_NFB_;_80709_;_
	Browser("Accela Automation:_96").Page("Accela Automation:").WebRadioGroup("status").Select arrOriginalValue(2) @@ script infofile_;_ZIP::status_ssf25.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").WebRadioGroup("status")_;_NFB_;_80709_;_
	Browser("Accela Automation:_96").Page("Accela Automation:").Image("Submit").Click 13,8 @@ script infofile_;_ZIP::Submit_ssf26.inf_;_hightlight id_;_Browser("Browser 2").Page("Page").Image("Submit")_;_NFB_;_80709_;_
	Wait(5)
End Function

'Browser("Accela Automation:_5").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf27.inf_;_hightlight id_;_Browser("Accela Automation: 5").Page("Accela Automation:").Image("tab menu")_;_NFB_;_90710_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====2.Group
If Browser("Accela Automation:").Page("Accela Automation:").Link("Groups").Exist Then
	Call objTestLib.printfile(file,3,"   2. Group")
	Browser("Accela Automation:").Page("Accela Automation:").Link("Groups").Click @@ script infofile_;_ZIP::Groups_ssf28.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Groups")_;_NFB_;_90711_;_
	Call SearchGroup()
    If Err_Flag=False Then
	   Call ViewGroup()
	End If
Else
   Call objTestLib.printfile(file,3,"   2. Group -- cannot find this link, SKIP")
End If

Function SearchGroup ()
	Err_Flag = True
	'a.search all groups
	Call objTestLib.printfile(file,3,"      a.search all groups")
	Browser("Accela Automation:_6").Page("Accela Automation:").Image("Submit").Click 22,12 @@ script infofile_;_ZIP::Submit_ssf29.inf_;_hightlight id_;_Browser("Accela Automation: 6").Page("Accela Automation:").Image("Submit")_;_NFB_;_90712_;_
	If Browser("Accela Automation:_7").Page("Accela Automation:").Image("Edit").Exist(5) Then
        Err_Flag = False
		Call objTestLib.printfile(file,4)
	Else
    	Call objTestLib.printfile(file,3,"       ---None, no record exists in system, please add first!")
	End If
End Function

Function ViewGroup ()
	'b.view the first group
	Call objTestLib.printfile(file,3,"      b.view the first group")
	Browser("Accela Automation:_7").Page("Accela Automation:").Image("Edit").Click @@ script infofile_;_ZIP::Edit_ssf30.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("Edit")_;_NFB_;_90713_;_
	If Browser("Accela Automation:_8").Page("Accela Automation:").WebEdit("txtGroupName").Exist(20) Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find the group name box!")
	End If
	If Browser("Accela Automation:_8").Page("Accela Automation:").Image("cnclBtn").Exist Then @@ script infofile_;_ZIP::cnclBtn_ssf31.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("cnclBtn")_;_NFB_;_90715_;_
	    Browser("Accela Automation:_8").Page("Accela Automation:").Image("cnclBtn").Click
	Else
		Browser("Accela Automation:_91").Page("Accela Automation:").Image("Cancel").Click
	End If
End Function

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

'=====3.User
If Browser("Accela Automation:").Page("Accela Automation:").Link("Users").Exist Then
	Call objTestLib.printfile(file,3,"   3. User")
	Browser("Accela Automation:").Page("Accela Automation:").Link("Users").Click @@ script infofile_;_ZIP::Users_ssf35.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Users")_;_NFB_;_90718_;_
	Call SearchUsers()
    If Err_Flag=False Then
   	   call UpdateUser()
       If Err_Flag=False Then
	   	  call RevertUser()
	   End If
   End If
Else
   Call objTestLib.printfile(file,3,"   3. User -- cannot find this link, SKIP")
End If

Function SearchUsers ()
	Err_Flag = True
	'a.search all users
	Call objTestLib.printfile(file,3,"      a.search all users")
	Browser("Accela Automation:_9").Page("Accela Automation:").Image("Submit").Click 25,5 @@ script infofile_;_ZIP::Submit_ssf36.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation:").Image("Submit")_;_NFB_;_90719_;_
	If Browser("Accela Automation:_10").Page("Accela Automation:").Image("Edit").Exist(10) Then
        Err_Flag = False
		Call objTestLib.printfile(file,4)
	Else
    	Call objTestLib.printfile(file,3,"       ---None, no record exists in system, please add first!")
	End If
End Function

Function UpdateUser ()
	Err_Flag = True
	'b.update the first user
	Call objTestLib.printfile(file,3,"      b.update the first user")
	Browser("Accela Automation:_10").Page("Accela Automation:").Image("Edit").Click @@ script infofile_;_ZIP::Edit_ssf37.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").Image("Edit")_;_NFB_;_90720_;_
	arrOriginalValue(1) = Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_EMAIL").GetROProperty("value")
	arrOriginalValue(2) = Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_TITLE").GetROProperty("value")
	arrExpectValue = Array("","kiki.zhao@achievo.com","Kiki","Zhao")
	Call UpdateUserValue(arrExpectValue)
	If Err_Flag=True Then
	    Call objTestLib.printfile(file,5,"Updated standard choice failed" & strMessage)
	Else
		Browser("Accela Automation:_10").Page("Accela Automation:").Image("Edit").Click
		Call VerifyUserValue(arrExpectValue)
	End If
End Function

Function UpdateUserValue (arrUpdateValue)
	Err_Flag = True
	Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_EMAIL").Set arrUpdateValue(1)
	Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_TITLE").Set arrUpdateValue(2)
	Browser("Accela Automation:_11").Page("Accela Automation:").Image("Save").Click 31,6 @@ script infofile_;_ZIP::Save_ssf40.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").Image("Save")_;_NFB_;_90721_;_
	If Browser("Accela Automation:_10").Page("Accela Automation:").Image("New Search").Exist(10) Then
		Err_Flag = False
	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 @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf371.inf_;_hightlight id_;_2_;_
	Else
		strMessage = "there occurs an unexpected error!"
		Browser("Accela Automation:").Back
	End If
End Function

Function VerifyUserValue (arrExpectValue)
	arrTempValue(1) = Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_EMAIL").GetROProperty("value")
	arrTempValue(2) = Browser("Accela Automation:_11").Page("Accela Automation:").WebEdit("GA_TITLE").GetROProperty("value")
	If arrTempValue(1)=arrExpectValue(1) And arrTempValue(2)=arrExpectValue(2) Then
	    Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Updated user failed")
	End If
End Function

Function RevertUser ()
	'c.revert the first standard choice by original data
	Call objTestLib.printfile(file,3,"      c.revert the first user by original data")
	Call UpdateUserValue(arrOriginalValue)
End Function

'Browser("Accela Automation:_10").Page("Accela Automation:").Image("tab_menu").Click
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'###############################Section 3:  Application #####################
Call objTestLib.printfile(file,3,"Section 3: Application")
objmsgbox.SQAMsgbox "Section 3: Application","AA Auto Test",3,0
'=====1.App Type 
If Browser("Accela Automation:").Page("Accela Automation:").Link("App Type").Exist Then
	Call objTestLib.printfile(file,3,"   1. App Type ")
	Browser("Accela Automation:").Page("Accela Automation:").Link("App Type").Click @@ script infofile_;_ZIP::App_Type_ssf46.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("App Type")_;_NFB_;_120728_;_
	'a.Select an app type
	Call objTestLib.printfile(file,3,"      a.Select an app type")
	Call SelectAppType()
  	Call UpdateAppType()
    If Err_Flag=False Then
	  call RevertAppType()
   End If
Else
	Call objTestLib.printfile(file,3,"   1. App Type -- cannot find this link, SKIP")
End If
If Browser("Accela Automation:_12").Page("Accela Automation:").Frame("content").Image("Edit").Exist(15) Then
   'Browser("Accela Automation:_12").Page("Accela Automation:").Sync @@ script infofile_;_ZIP::Accela_Automation__ssf63.inf_;_hightlight id_;_Browser("Accela Automation:_12").Page("Accela Automation:")_;_NFB_;_170737_;_
   Browser("Accela Automation:_12").Close
End If

Function UpdateAppType ()
	'b.Modify the app type by changing the drop-down items
	Call objTestLib.printfile(file,3,"      b.Modify the app type by changing the drop-down items")
	arrOriginalValue(1) = Browser("Accela Automation:_13").Page("Accela Automation:").WebRadioGroup("rbStatus").GetROProperty("value")
12345

⌨️ 快捷键说明

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