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

📄 script.mts

📁 QTP实例源码（完整）
💻 MTS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	        Call objTestLib.printfile(file,4)
	    Else
			Call objTestLib.printfile(file,5,"Get address inforamtion failed!")
		End If
	end if
End Function

Function SearchParcel ()
	Browser("Accela Automation:_3").Page("Accela Automation:").Image("Search for Parcel").Click @@ script infofile_;_ZIP::Search_for_Parcel_ssf18.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Search for Parcel")_;_NFB_;_620966_;_
	Browser("Accela Automation:_6").Page("Accela Automation:").WebEdit("PartxtParcel").Set "p"
	Browser("Accela Automation:_6").Page("Accela Automation:").Image("Submit").Click 38,6 @@ script infofile_;_ZIP::Submit_ssf19.inf_;_hightlight id_;_Browser("Accela Automation: 6").Page("Accela Automation:").Image("Submit")_;_NFB_;_630967_;_
	strTemp = Browser("Accela Automation:_7").Page("Accela Automation:").WebTable("Parcel").GetCellData(3,1)
	Browser("Accela Automation:_7").Page("Accela Automation:").Image("Select Parcel").Click @@ script infofile_;_ZIP::Select_Parcel_ssf20.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("Select Parcel")_;_NFB_;_630968_;_
	wait(5)
	strParcel = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("vParB1_PARCEL_NBR").GetROProperty("value")
	If instr(strTemp,strParcel) <> 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Get parcel inforamtion failed!")
	End If
End Function

Function SearchLicensed ()
	Browser("Accela Automation:_3").Page("Accela Automation:").Image("Search for Licensed").Click @@ script infofile_;_ZIP::Search_for_Licensed_ssf22.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Search for Licensed")_;_NFB_;_650971_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").Image("Search").Click 32,13 @@ script infofile_;_ZIP::Search_ssf23.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Search")_;_NFB_;_660972_;_
	strTemp = Browser("Accela Automation:_9").Page("Accela Automation:").WebTable("License #").GetCellData(3,1)
	Browser("Accela Automation:_9").Page("Accela Automation:").Image("Select Licensed").Click @@ script infofile_;_ZIP::Select_Licensed_ssf24.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation:").Image("Select Licensed")_;_NFB_;_660973_;_
	strLicensed = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("CAEB1_LICENSE_NBR").GetROProperty("value")
	If instr(strTemp,strLicensed) > 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Get licensed professional inforamtion failed!")
	End If
End Function

Function SearchApplicant ()
	Browser("Accela Automation:_3").Page("Accela Automation:").Image("Copy Contact").Click @@ script infofile_;_ZIP::Copy_Contact_ssf25.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Copy Contact")_;_NFB_;_670974_;_
	Browser("Accela Automation:_10").Page("Accela Automation:").WebList("CNT_TYPE").Select "#0" @@ script infofile_;_ZIP::CNT_TYPE_ssf29.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").WebList("CNT TYPE")_;_NFB_;_680978_;_
	Browser("Accela Automation:_10").Page("Accela Automation:").Image("Submit").Click 23,10 @@ script infofile_;_ZIP::Submit_ssf30.inf_;_hightlight id_;_Browser("Accela Automation: 10").Page("Accela Automation:").Image("Submit")_;_NFB_;_680978_;_
	strTemp = Browser("Accela Automation:_11").Page("Accela Automation:").WebTable("Contact Type").GetCellData(3,2)
	Browser("Accela Automation:_11").Page("Accela Automation:").Image("Select Contact").Click @@ script infofile_;_ZIP::Select_Contact_ssf31.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").Image("Select Contact")_;_NFB_;_680979_;_
	wait(5)
	strBusiness = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AppB1_BUSINESS_NAME").GetROProperty("value")
	If instr(strTemp,strBusiness) > 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Get Applicant Information failed!")
	End If
End Function

Function AsLif ()
	Browser("Accela Automation:_3").Page("Accela Automation:").Image("Copy Licensed").Click @@ script infofile_;_ZIP::Copy_Licensed_ssf32.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Copy Licensed")_;_NFB_;_690980_;_
	wait(5)
	strBusiness = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AppB1_BUSINESS_NAME").GetROProperty("value")
	If len(strBusiness) > 0 Then
       Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Get Applicant Information failed!")
	End If
End Function

Function FillInSubmit ()
	Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("Adlvaluation").Set "250000"
	Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AdlHOUSE_COUNT").Set "1" @@ script infofile_;_ZIP::AdlHOUSE_COUNT_ssf34.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("AdlHOUSE COUNT")_;_NFB_;_690980_;_
	Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AdlBUILDING_COUNT").Set "1"
	Browser("Accela Automation:_3").Page("Accela Automation:").WebList("AdlConst_Type_Code").Select "101 - Single Family Houses Detached" @@ script infofile_;_ZIP::AdlConst_Type_Code_ssf35.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebList("AdlConst Type Code")_;_NFB_;_690980_;_
	Browser("Accela Automation:_3").Page("Accela Automation:").Image("Submit").Click 28,10 @@ script infofile_;_ZIP::Submit_ssf36.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Submit")_;_NFB_;_690980_;_
	If Browser("Accela Automation:_12").Page("Accela Automation:").Link("Detail").Exist(15) Then
		Call objTestLib.printfile(file,4)
	Elseif Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_3").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Call objTestLib.printfile(file,5,"cannot submit this form, the error message is " & strMessage)
		Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf40.inf_;_hightlight id_;_2_;_
		'ExitRun(0)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		'ExitRun(0)
	End If
End Function

Function VerifySummary ()
	'(1)fetch new application number
	Call objTestLib.printfile(file,3,"      (1).fetch new application number")
	strAppNumber1 = Browser("Accela Automation:_12").Page("Accela Automation:").WebEdit("PerID1").GetROProperty("value")
	strAppNumber2 = Browser("Accela Automation:_12").Page("Accela Automation:").WebEdit("PerID2").GetROProperty("value")
	strAppNumber3 = Browser("Accela Automation:_12").Page("Accela Automation:").WebEdit("PerID3").GetROProperty("value")
	If len(strAppNumber1) > 0 And len(strAppNumber2) > 0 And len(strAppNumber3) > 0 Then
        Call objTestLib.printfile(file,4)
		strAppNumberTotal = strAppNumber1 & "-" & strAppNumber2 & "-" & strAppNumber3
		DataTable("Appno1",dtGlobalSheet) = "*" & strAppNumber1
		DataTable("Appno2",dtGlobalSheet) = "*" & strAppNumber2
		DataTable("Appno3",dtGlobalSheet) = "*" & strAppNumber3
		objmsgbox.SQAMsgbox "A new application created successfully!! The number is: " & strAppNumberTotal,"AA Auto Test",3,0
	Else
		objmsgbox.SQAMsgbox "Creating application failed!","AA Auto Test",3,0
		Call objTestLib.printfile(file,5,"Creating application failed!")
	End If
	'(2).verify the detail and comments links
	Call objTestLib.printfile(file,3,"      (2).verify the detail and comments links")
	Browser("Accela Automation:_12").Page("Accela Automation:").Link("Detail").Click @@ script infofile_;_ZIP::Detail_ssf41.inf_;_hightlight id_;_Browser("Accela Automation: 12").Page("Accela Automation:").Link("Detail")_;_NFB_;_700986_;_
	wait(5) @@ script infofile_;_ZIP::Accela_Automation__ssf42.inf_;_hightlight id_;_Browser("Accela Automation:_13").Page("Accela Automation:")_;_NFB_;_700987_;_
	strInnerText = Browser("Accela Automation:_13").Page("Accela Automation:").WebTable("Job Value:").GetROProperty("innertext")
	If instr(strInnerText,"Job Value:") <> 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"the detail link is bad!")
	End If
	Browser("Accela Automation:_13").Back
	Browser("Accela Automation:_12").Page("Accela Automation:").Link("Comments").Click @@ script infofile_;_ZIP::Comments_ssf43.inf_;_hightlight id_;_Browser("Accela Automation: 12").Page("Accela Automation:").Link("Comments")_;_NFB_;_700988_;_
	If Browser("Accela Automation:_14").Page("Accela Automation:").Link("New Comment").Exist(5) Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"the detail link is bad!")
	End If
	Browser("Accela Automation:_43").Page("Accela Automation:").Image("Close").Click @@ script infofile_;_ZIP::Close_ssf243.inf_;_hightlight id_;_Browser("Accela Automation: 43").Page("Accela Automation:").Image("Close")_;_NFB_;_1871369_;_
End Function

'Browser("Accela Automation:_12").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf37.inf_;_hightlight id_;_Browser("Accela Automation: 12").Page("Accela Automation:").Image("tab menu")_;_NFB_;_690982_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::Accela_Automation__ssf38.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_690983_;_

'=====2. Find Application 
Call objTestLib.printfile(file,3,"   2. Find Application ")
objmsgbox.SQAMsgbox "2. Find Application","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("Find App").Click @@ script infofile_;_ZIP::Find_App_ssf45.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Find App")_;_NFB_;_720991_;_
Browser("Accela Automation:_15").Page("Accela Automation:").WebEdit("PerID1_TXT").Set strAppNumber1 @@ script infofile_;_ZIP::PerID1_TXT_ssf46.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").WebEdit("PerID1 TXT")_;_NFB_;_720992_;_
Browser("Accela Automation:_15").Page("Accela Automation:").WebEdit("PerID2_TXT").Set strAppNumber2 @@ script infofile_;_ZIP::PerID2_TXT_ssf47.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").WebEdit("PerID2 TXT")_;_NFB_;_720992_;_
Browser("Accela Automation:_15").Page("Accela Automation:").WebEdit("PerID3_TXT").Set strAppNumber3 @@ script infofile_;_ZIP::PerID3_TXT_ssf48.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").WebEdit("PerID3 TXT")_;_NFB_;_720992_;_
Browser("Accela Automation:_15").Page("Accela Automation:").Image("Submit").Click 10,15 @@ script infofile_;_ZIP::Submit_ssf49.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").Image("Submit")_;_NFB_;_720992_;_
wait(5)
strTemp = Trim(Browser("Accela Automation:_16").Page("Accela Automation:").WebTable("Application").GetCellData(2,2))
If Ucase(strTemp)=strAppNumberTotal Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"cannot find the new created application")
End If
Browser("Accela Automation:_16").Page("Accela Automation:").Image("Select").Click @@ script infofile_;_ZIP::Select_ssf50.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").Image("Select")_;_NFB_;_720993_;_

'=====3. Application Summary 
Call objTestLib.printfile(file,3,"   3. Application Summary")
objmsgbox.SQAMsgbox "3. Application Summary","AA Auto Test",3,0
'=====a.verify the app number
Call objTestLib.printfile(file,3,"      a.verify the app number")
strValue = Browser("Accela Automation:_12").Page("Accela Automation:").WebEdit("PerID3").GetROProperty("value")
If len(strValue) <> 0 Then
   If instr(strValue,strAppNumber3) <> 0 Then
   	   Call objTestLib.printfile(file,4)
   Else
   	   Call objTestLib.printfile(file,5,"The App no :" & strValue & " displayed incorrectly!")
   End If
Else
	Call objTestLib.printfile(file,5,"cannot find the app number!")
End If

'b.verify the detail and comment links
Call objTestLib.printfile(file,3,"      b.verify the detail and comment links") @@ script infofile_;_ZIP::Accela_Automation__2_ssf51.inf_;_hightlight id_;_Browser("Accela Automation:_12").Page("Accela Automation:_2")_;_NFB_;_720994_;_
If Browser("Accela Automation:_12").Page("Accela Automation:").Link("Detail").Exist(10) Then
    Call objTestLib.printfile(file,4)
Else
    Call objTestLib.printfile(file,5,"Cannot find detail link!")
12345

⌨️ 快捷键说明

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