qtp腳本測試飛機訂票系統（代碼）

嗯，之前沒怎麼研究過這個，最近作課設用到了，順便發一下。

有要用的話，本身改一下路徑什麼的。版本qtp10.0

Mainaction

Dim AgentName

Dim Password

Dim DateOfFlight

Dim FaxNumber

Dim SelectTest

Dim DateOfUpdate

Dim DeleteName

Dimy 

Dim e

Dim e

Datatable.ImportSheet "C:\Users\yue\Desktop\yuetest\excel\Main.xls","Sheet1","Main"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel 

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\L\Desktop\Version1\excel\Main.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

 

For x=1 to rowcount

y =1

AgentName = ExcelShe.Cells(x,y)

y= y+1

Password = ExcelShe.Cells(x,y)

y = y+1

DateOfFlight = ExcelShe.Cells(x,y)

y= y+1

FaxNumber = ExcelShe.Cells(x,y)

y= y+1

SearchTest = ExcelShe.Cells(x,y)

y = y+1

DateOfUpdate = ExcelShe.Cells(x,y)

j =y+1

DeleteName = ExcelShe.Cells(x,y)

 

u = 0

'調用登陸Action

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

RunAction "Login", oneIteration, AgentName, Password

 e = DataTable.Value("Login","Global")

   

If e = "1" Then  RunAction "Book", oneIteration, DateOfFlight else u = 1 End If

 e  = DataTable.Value("Book","Global")

If e = "1" Then  RunAction "Fax", oneIteration, FaxNumber End If

 e  = DataTable.Value("Fax","Global")

If e = "1" Then  RunAction "Search", oneIteration, SearchTest, x  End If

 e  = DataTable.Value("Search","Global")

If e = "1" Then  RunAction "Update", oneIteration, DateOfUpdate End If

 e  = DataTable.Value("Update","Global")

If e = "1" Then  RunAction "Delete", oneIteration,DeleteName  End If

If u =0 Then Window("Flight Reservation").WinMenu("Menu").Select "File;Exit" End If

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

Loginaction

Dim user

Dim pass

Datatable.ImportSheet " C:\Users\yue\Desktop\yuetest\excel\Login.xls","Sheet1","Login"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\yue\Desktop\yuetest\excel\Login.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

If j=1 Then  AgentName =ExcelShe.Cells(i,j)  Else Password = ExcelShe.Cells(i,j)  End If

Next

'調用登陸Action

SystemUtil.RUN "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

RunAction "Login", oneIteration, AgentName, Password

If Window("Flight Reservation").Exist Then  Window("Flight Reservation").Close  

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

Login

Option explicit

Dim AgentName

Dim Password

Dim login

   login  = 0

user = parameter("AgentName")

pass = parameter("Password")

 

Dialog("Login").WinEdit("Agent Name:").Set user

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set pass

Dialog("Login").WinButton("OK").Click

 

'登陸腳本實現參數化驗證

If Dialog("Login").Dialog("Flight Reservations").Exist Then

If Dialog("Login").Dialog("Flight Reservations").Static("text:=Please enter agent name").Exist Then

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "用戶名不能爲空"

elseIf Dialog("Login").Dialog("Flight Reservations").Static("text:=Agent name must be at least 4 characters long.").Exist Then

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "用戶名必須大於 4 個字符"

elseIf Dialog("Login").Dialog("Flight Reservations").Static("text:=Please enter password").Exist Then

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "密碼不能爲空"

elseIf Dialog("Login").Dialog("Flight Reservations").Static("text:=Incorrect password. Please try again").Exist Then

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "密碼輸入錯誤"

elseIf Dialog("Login").Dialog("Flight Reservations").Static("text:=Password must be at least 4 characters long").Exist Then

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "密碼必須大於 4 個字符"

else

Dialog("Login").Dialog("Flight Reservations").WinButton("肯定").Click

Dialog("Login").WinButton("Cancel").Click

Reporter.ReportEvent micFail, "輸入異常錯誤!!"

End If

else

login = 1

Reporter.ReportEvent micDone, "登陸", "完成登陸操做"

Reporter.ReportEvent micDone, "訂票", "開始訂票"

wait 2

End If

DataTable.Value("Login","Global") = login

 

 

Bookaction

Dim dingprq

Datatable.ImportSheet "C:\Users\yue\Desktop\yuetest\excel\Book.xls","Sheet1","Book"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\yue\Desktop\yuetest\excel \Book.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

dingprq =ExcelShe.Cells(i,j)

Next

'調用訂票Action

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set "mercury"

Dialog("Login").WinButton("OK").Click

RunAction "Book", oneIteration, DateOfFlight

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

Book

Option explicit

Dim dingprq

dingprq = parameter("DateOfFlight")

Dim  book

   book  = 0

Window("Flight Reservation").WinObject("Date of Flight:").Type dingprq

Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"

'訂票腳本實現參數化驗證

If Window("Flight Reservation").Dialog("Flight Reservations").Exist Then

If Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Valid flight dates are after 01/02/19").Exist Then                         '日期變化

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票日期必須爲當前日期（含）以後"

'月份錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid month Entered.The month must be greater than 01 and less than 12.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票月份必須大於01且小於12"

'日期錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid day Entered. The date should be valid for the given month.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票日期必須對給定月份有效"

'未輸入

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Please enter a flight date.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "未輸入航班日期"

'年份錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid year Entered. " + chr(10) + "The year must be greater than 2019" + chr(10) + "and less than 2038.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

'Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Reporter.ReportEvent micPass, "訂票年份必須大於2019且小於2038"

else

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micFail, "輸入異常錯誤!!"

End If

else

book = 1

Window("Flight Reservation").WinComboBox("Fly To:").Select "Denver"

Window("Flight Reservation").WinButton("FLIGHT").Click

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Activate "17707   FRA   03:48 PM   DEN   04:31 PM   AA     $111.00"

Window("Flight Reservation").WinEdit("Name:").Set "Dylan"

Window("Flight Reservation").WinEdit("Tickets:").Set "3"

Window("Flight Reservation").WinRadioButton("First").Set

Window("Flight Reservation").WinButton("Insert Order").Click

Reporter.ReportEvent micDone, "訂票", "完成訂票操做"

Reporter.ReportEvent micDone, "傳真", "開始傳真"

wait 2

End If

DataTable.Value("Book","Global") =  book

 

 

Faxaction

Dim chuanzh

Datatable.ImportSheet " C:\Users\yue\Desktop\yuetest\excel \Fax.xls","Sheet1","Fax"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\yue\Desktop\yuetest\excel \Fax.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

FaxNumber =ExcelShe.Cells(i,j)

Next

'調用傳真Action

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set "mercury"

Dialog("Login").WinButton("OK").Click

RunAction "Fax", oneIteration, FaxNumber

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

Fax

Option explicit

Dim chuanzh

Dim  fax

   fax = 0

chuanzh = parameter("FaxNumber")

Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "11"

Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..."

Window("Flight Reservation").Dialog("Fax Order No. 11").WinObject("Fax Number:").Type FaxNumber

Window("Flight Reservation").Dialog("Fax Order No. 11").WinButton("Send").Click

'傳真腳本實現參數化驗證

If Window("Flight Reservation").Dialog("Fax Order No. 11").Dialog("Flight Reservations").Exist Then

If Window("Flight Reservation").Dialog("Fax Order No. 11").Dialog("Flight Reservations").Static("text:=Please complete the fax number.").Exist Then

Window("Flight Reservation").Dialog("Fax Order No. 11").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Fax Order No. 11").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "傳真號碼錯誤"

else

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micFail, "輸入異常錯誤!!"

End If

else

fax = 1

Reporter.ReportEvent micDone, "傳真", "完成傳真操做"

Reporter.ReportEvent micDone, "查詢", "開始查詢"

wait 2

End If

DataTable.Value("Fax","Global") = fax

 

 

Searchaction

Dim SearchTest

Datatable.ImportSheet " C:\Users\yue\Desktop\yuetest\excel \Search.xls","Sheet1","Search"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\yue\Desktop\yuetest\excel \Search.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

 

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

SearchTest =ExcelShe.Cells(i,j)

Next

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set "mercury"

Dialog("Login").WinButton("OK").Click

'調用查找Action

RunAction "Search", oneIteration, SearchTest, i

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

Search

Option explicit

Dim SearchTest

Dim SearchNum

Dim search

search = 0

SearchTest = parameter("SearchTest")

SearchNum = parameter("SearchNum")

Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."

If SearchNum MOD 3 = 1 Then  

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set SearchTest

elseIf SearchNum MOD 3 = 2 Then

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinObject("23/22/3_").Type SearchTest

else

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit_2").Set SearchTest

End If

Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

'查詢腳本實現參數化驗證

If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist Then

If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=No orders found. Please try again").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "沒有找到包含顧客名字的訂單"

elseIf Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=Invalid year Entered. The year must be greater than 1970 and less than 2038.").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "訂票年份必須大於1970年且不到2038年"

elseIf Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=Invalid month Entered.The month must be greater than 01 and less than 12.").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "訂票月份必須大於01且小於12"

elseIf Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=Invalid day Entered. The date should be valid for the given month.").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "訂票日期必須對給定月份有效"

elseIf Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=Order number " + SearchTest + " does not exist").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass,"失敗測試","訂單號不存在"

else

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micFail,"輸入異常","輸入異常錯誤!!"

End If

elseIf SearchNum MOD 3 = 1 OR SearchNum MOD 3 = 2 Then Window("Flight Reservation").Dialog("Open Order").Dialog("Search Results").WinButton("OK").Click

search = 1

Reporter.ReportEvent micDone, "查詢", "完成查詢操做"

Reporter.ReportEvent micDone, "更新", "開始更新"

wait 2

End If

DataTable.Value("Search","Global") = search

 

 

Updateaction

Dim DateOfUpdate

Datatable.ImportSheet " C:\Users\yue\Desktop\yuetest\excel \Update.xls","Sheet1","Update"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\yue\Desktop\yuetest\excel \Update.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

DateOfUpdate =ExcelShe.Cells(i,j)

Next

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set "mercury"

Dialog("Login").WinButton("OK").Click

'調用更新Action

RunAction "Update", oneIteration, DateOfUpdate

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

Update

Option explicit

Dim DateOfUpdate

Dim update

update = 0

DateOfUpdate = parameter("DateOfUpdate")

Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "11"

Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type  micDel

Window("Flight Reservation").WinObject("Date of Flight:").Type DateOfUpdate

Window("Flight Reservation").WinButton("FLIGHT").Click

'更新腳本實現參數化驗證

If Window("Flight Reservation").Dialog("Flight Reservations").Exist Then

If Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Valid flight dates are after 01/03/19").Exist Then                         '日期變化

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass,"失敗測試","訂票日期必須爲當前日期（含）以後"

'年份錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid year Entered. " + chr(10) + "The year must be greater than 2019" + chr(10) + "and less than 2038.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票年份必須大於2019且小於2038"

'月份錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid month Entered.The month must be greater than 01 and less than 12.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票月份必須大於01且小於12"

'日期錯誤

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Invalid day Entered. The date should be valid for the given month.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "訂票日期必須對給定月份有效"

'未輸入

elseIf Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Please enter a flight date.").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "未輸入航班日期"

else

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micFail, "輸入異常錯誤!!"

End If

else

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click

Window("Flight Reservation").WinButton("Update Order").Click

'未修改

If Window("Flight Reservation").Dialog("Flight Reservations").Static("text:=Record not updated; No Field values set").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("肯定").Click

Reporter.ReportEvent micPass, "沒有記錄被更新"

End If

update = 1

Reporter.ReportEvent micDone, "完成更新操做"

Reporter.ReportEvent micDone, "開始刪除"

wait 2

End If

DataTable.Value("Update","Global") = update

 

 

Deleteaction

Dim DeleteName

Datatable.ImportSheet " C:\Users\yue\Desktop\yuetest\excel \Delete.xls","Sheet1","Delete"

'建立ExcelApp對象

Set ExcelApp=CreateObject("Excel.Application")

'打開excel文件工做簿

Set ExcelWor=ExcelApp.Workbooks.Open("C:\Users\L\Desktop\Version1\excel\Delete.xls")

'這裏須要用到UsedRange，表示Sheet1所使用單元格的範圍，不然會將全部單元格都打印出

Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange

'計算使用的單元格行數

rowcount=ExcelShe.Rows.count

'計算使用的單元格的列數

columncount=ExcelShe.Columns.count

For i=1 to rowcount

For j=1 to columncount

'獲取單元格的內容

DeleteName =ExcelShe.Cells(i,j)

Next

SystemUtil.run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Agent Name:").Type  micTab

Dialog("Login").WinEdit("Password:").Set "mercury"

Dialog("Login").WinButton("OK").Click

'調用刪除Action

RunAction "Delete", oneIteration, DeleteName

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

Next

Set ExcelShe=Nothing

'關閉工做簿對象

ExcelWor.Close

'退出ExcelApp對象

ExcelApp.Quit

 

 

 

Delete

Option explicit

Dim DeleteName

Dim del

del = 0

DeleteName = parameter("DeleteName")

Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."

If Window("Flight Reservation").Dialog("Flight Reservations").Exist Then

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("否(N)").Click

End If

Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON"

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set DeleteName

Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

'刪除腳本實現參數化驗證

If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist Then

If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Static("text:=No orders found. Please try again").Exist Then

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micPass, "沒有找到包含顧客名字的訂單"

else

Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("肯定").Click

Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click

Reporter.ReportEvent micFail, "輸入異常錯誤!!"

End If

else

Window("Flight Reservation").Dialog("Open Order").Dialog("Search Results").WinButton("OK").Click

Window("Flight Reservation").WinButton("Delete Order").Click

Window("Flight Reservation").Dialog("Flight Reservations").WinButton("是(Y)").Click 

del = 1

Reporter.ReportEvent micDone, "完成刪除操做"

Reporter.ReportEvent micDone, "已經完成"

wait 2

End If

 

DataTable.Value("Del","Global") = del