本篇主要讲述Flight打开订单的正确性测试，通过数据库进行数据驱动测试，主要步骤和考虑思路如下：
1.从数据库中随机读取一条存在的记录
2.在Flight中打开本条记录
3.比较数据库中的数据和软件界面上的显示是否一致
- 其中数据库中读出的记录数据保存在局部变量中
- 界面显示的实际数据通过Output Value保存到QTP自带的DataTable中.
Option Explicit
Dim conn, rst, maxnumber, rndNumber, sql
Dim dbFlightNumber, dbTicketNumber, dbPlaneType, dbCustomerName
Dim oPlaneType
'------------------------------------------------------------------------------------------------------------------------------------------------------
'获取数据库中的记录数据(期望结果)
Const strConn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=QT_Flight32"
Set conn=CreateObject("Adodb.Connection")
Set rst=CreateObject("Adodb.RecordSet")
conn.open strConn
'获取最大Order_Number
sql = "select max(order_number) from orders "
rst.Open sql, conn
maxNumber = rst.Fields(0).Value
rst.Close
'随即获取一条记录
rndNumber = RandomNumber(1, maxNumber)
sql = "Select Flight_Number, Tickets_Ordered, Class, Customer_Name from orders where order_number =" & CStr(rndNumber)
rst.Open sql, conn
While rst.EOF
rndNumber = RandomNumber(1, maxNumber)
sql = "Select Flight_Number, Tickets_Ordered, Class, Customer_Name from orders where order_number =" & CStr(rndNumber)
rst.Open sql, conn
Wend
rst.MoveFirst
While not rst.EOF
dbFlightNumber = rst.Fields(0).value
dbTicketNumber =rst.Fields(1).value
dbPlaneType = rst.Fields(2).value
dbCustomerName = rst.Fields(3).value
rst.MoveNext
Wend
conn.close
Set rst=nothing
Set conn=nothing
'------------------------------------------------------------------------------------------------------------------------------------------------------
'录制脚本程序
SystemUtil.CloseProcessByName "Flight4a.exe"
SystemUtil.Run Environment.Value("ProductDir") & "\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set "Admin"
Dialog("Login").WinEdit("Password:").Set "Mercury"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set rndNumber '在这里Set 随机打开的订单
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Window("Flight Reservation").Activate
'获取 界面显示的实际数据(实际结果)
Window("Flight Reservation").WinEdit("Flight No:").Output CheckPoint("Flight No:")
Window("Flight Reservation").WinEdit("Tickets:").Output CheckPoint("Tickets:")
Window("Flight Reservation").WinEdit("Name:").Output CheckPoint("CustomerName")
'将界面上的仓位转换为1,2,3
If Window("Flight Reservation").WinRadioButton("First").GetROProperty("Text") = "ON" Then
oPlaneType = 1
ElseIf Window("Flight Reservation").WinRadioButton("Business").GetROProperty("Text") = "ON" Then
oPlaneType = 2
ElseIf Window("Flight Reservation").WinRadioButton("Economy").GetROProperty("Text") = "ON" Then
oPlaneType = 3
End If
'检查Flight Number
If CStr(dbFlightNumber) = CStr(DataTable("oFlightNumber", dtLocalSheet)) Then
Reporter.ReportEvent micPass, "打开订单- Flight Number", "期望结果是：" & dbFlightNumber & ", 界面显示实际结果是：" & DataTable("oFlightNumber", dtLocalSheet)
Else
Reporter.ReportEvent micPass, "打开订单- Flight Number", "期望结果是：" & dbFlightNumber & ", 界面显示实际结果是：" & DataTable("oFlightNumber", dtLocalSheet)
End If
'检查Ticket Number
If CStr(dbTicketNumber) = CStr(DataTable("oTicketNumber", dtLocalSheet)) Then
Reporter.ReportEvent micPass, "打开订单- TicketNumber", "期望结果是：" & dbTicketNumber & ", 界面显示实际结果是：" & DataTable("oTicketNumber", dtLocalSheet)
Else
Reporter.ReportEvent micPass, "打开订单- TicketNumber", "期望结果是：" & dbTicketNumber & ", 界面显示实际结果是：" & DataTable("oTicketNumber", dtLocalSheet)
End If
'检查Customer Name
If CStr(dbCustomerName) = CStr(DataTable("oCustomerName", dtLocalSheet)) Then
Reporter.ReportEvent micPass, "打开订单- CustomerName", "期望结果是：" & dbCustomerName & ", 界面显示实际结果是：" & DataTable("oCustomerName", dtLocalSheet)
Else
Reporter.ReportEvent micPass, "打开订单- CustomerName", "期望结果是：" & dbCustomerName & ", 界面显示实际结果是：" & DataTable("oCustomerName", dtLocalSheet)
End If
'检查Plane Type
If CStr(dbPlaneType) = CStr(oPlaneType) Then
Reporter.ReportEvent micPass, "打开订单- Plane Type", "期望结果是：" & dbPlaneType & ", 界面显示实际结果是：" & oPlaneType
Else
Reporter.ReportEvent micPass, "打开订单- Plane Type", "期望结果是：" & dbPlaneType & ", 界面显示实际结果是：" & oPlaneType
End If
'Close Prog
Window("Flight Reservation").Close
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1786175
