13、调用VBS文件的函数
'----获取
测试结果值------------------------------------------------------------------
TestResult = FunctionName&": "&FunctionPassOrNot&"!"&FunctionResult &"("&Cstr(now())&")"
'-----调用函数:【退出功能】结果写入测试报告TXT文件-----------------
'-----调用函数:执行文件路径并调用call----------------------------------------
ExecuteFile("E:\工作资料\Project-Product\Products\AntiTerrorist\AntiTerroristTest\BtvsTest\Function\UFTFunctions.vbs")
call FunctionResultIntoReportTxt(ReportPath,ReportFileName,TestResult)
Browser("登录").CloseAllTabs
14、调用函数库中的函数
'----给变量赋值--------
UserIDSql = "select ID from xt_yhb where DLYHM = '"&DTCreater&"'"
'----调用函数:加载函数文件qfl、执行函数并取返回值---------------------------------
LoadFunctionLibrary "D:\Documents\Unified Functional Testing\Library1_FunSelectUserId.qfl"
Set UserIDRs = SelectRs(ConnStr,UserIDSql)
DTCreater = UserIDRs.Fields("ID")
DTModifer = UserIDRs.Fields("ID")
'-----------文件Library1_FunSelectUserId.qfl------------------------------------------------------------------------
Function SelectRs(ConnStr,SelectSql)
Set Conn=CreateObject("ADODB.Connection")
Conn.Open ConnStr
' Set SqlRs=CreateObject("ADODB.Recordset")
' UserRs.CursorLocation=3
' UserRs.Open Sql,ConnStr,3,1
'
' SelectRs=SqlRs
Set SelectRs=Conn.Execute(SelectSql)
SelectRs.Close()
Conn.Close()
End Function