一位高人的qtp學(xué)習(xí)筆記

一位高人的QTP一個(gè)高人的QTP筆記供大家學(xué)習(xí)。//178條2、獲取輸出的記錄數(shù)值3、連接數(shù)據(jù)庫(kù)，查詢記錄數(shù)").Frame("mainFrame").OutputCheckPoint("78")Dimmm//注釋，獲取datatable值與DataTable("mainFrameOutput_Text_outdtGlobalSheet)mm=DataTable("mainFrameOutput_Text_out",dtGlobalSheet)MsgBoxmmDimSetres=createobject("adodb.recordset")Setcmd=createobject(" mandType=sql="selectcount(*fromoa_receivebumfwhereBUMFNAMElike收文測(cè)試%'"'sql="selectcount(*)fromoa_receivebumfwhereBUMFNAME='"&nn&"'"http://注釋，sql語(yǔ)句,sqlsql="selectcount(*)fromoa_receivebumfwhereBUMFNAMElikennlikesqlmandText=sqlSetres=Cmd.Execute()//msgboxMsgBox Cstr(res(0))=Reporter.ReportEventmicPass,"test", Reporter.ReportEventmicfail,"test", EndIfSetres=Setcmd.ActiveConnection=nothingSetCmd=nothing12、取參數(shù)化值3DataTable("p_Text",dtGlobalSheet)Dimxname=DataTable("p_Text",dtGlobalSheet)MsgBoxxnameDimSetres=createobject("adodb.recordset")Setcmd=createobject(" mandType=sql="selectnamefromaddress_listtwherename='"&xname&"'"mandText=sqlSetres=Cmd.Execute()'msgboxres("name")MsgBoxres(0)Setres=Setcmd.ActiveConnection=nothingSetCmd=nothing1、Datatable方法GetRowCount 2、Datatable方法SetNextRow 3、Datatable方法getcurrentrow 4、獲取datatableDataTable("p_TextdtLocalSheet)//datatable中參數(shù)名稱為：p_Text 例如：xname為變量，dimxnamexname=DataTable("p_Text",dtLocalSheet)5、datatable.value("num")global形式下的一種省略形式；完整形式是: 6、字符轉(zhuǎn)換Cstrdimmm例如：獲取對(duì)象庫(kù)中index屬性值，似乎只能用GetToProperty,因?yàn)閼?yīng)用程序界面上對(duì)象沒(méi)有該 獲取用于標(biāo)識(shí)對(duì)象的屬性集；對(duì)于這個(gè)集合，有countifbrowser("web_name").dialog("dialog_name").exist(1)then'如果不出現(xiàn)=falseerror_message=browser("web_name").dialog("diaglog_name").static("用戶錯(cuò)誤iferror_message<>(datatable.value("error_info"))thenendifend一是：對(duì)于dialog中，雖然提示信息對(duì)象名稱是"用戶錯(cuò)誤"，但如果信息對(duì)象名稱是“該用戶不存在”，不用更改會(huì)自動(dòng)識(shí)別，主要是錄制第一遍時(shí)，“用戶錯(cuò)誤”只是讓運(yùn)行時(shí)能找到這個(gè)控制，而不管它是什么內(nèi)容，因?yàn)樵趯?duì)象倉(cāng)庫(kù)中，text不是決定該對(duì)象的屬性二是：如果對(duì)于提示信息比較長(zhǎng)的，可以用mid(error_message,n,m)取一部份特征提示信息進(jìn)行驗(yàn)subsetcon.open"Description=IBM_ODBC;DRIVER=SQLServer;SERVER=IBM;UID=sa;"&_"PWD=123456;APP=QuickTest'access方式:con.open AccessDriver'Orocle方式:con.openDRIVER={Oracle setrecord=createobject("adodb.recordset")sql="select*fromibm_one_table"record.opensql,con查找表格中有多少endifloopuntilrecord.eof=truesetrecord=nothingsetcon=nothingendsub10、"is+*"functionisconnected'QTPTD11、for1,參數(shù)化時(shí)選擇：dtLocalSheetDimCountNumFori=0toCountNum-1 12、for2，參數(shù)化時(shí)選擇：dtLocalSheetdimcountNumcountNum=DataTable.GetSheet("Action1").GetRowCountFori=1tocountNumDataTable.GetSheet("Action1").SetCurrentRow(i)//使用SetCurrentRow(i)13、while1，參數(shù)化時(shí)選擇：dtLocalSheetDimCountNum,iWhilei<=CountNumi=i+114、while2，參數(shù)化時(shí)選擇：dtLocalSheetDimCountNum,iWhilei<=CountNumi=i+115、DowhileDimi,RowCount定義兩個(gè)變量RowCount=DataTable.GetSheet("Action1").GetRowCountRowCount等于Action1msgboxRowCountDowhilei<rowcounti=i+1'DataTable.GetSheet("Action1").SetCurrentRow(i)這句話被我注釋掉了，正確的寫法應(yīng)該是下面這樣，Dimusnameusname=Browser("測(cè)試登錄").Page("辦公自動(dòng)化系統(tǒng) （Property）Property為ValueMsgBoxusname17、取得要?jiǎng)h除的idDimid=Browser("測(cè)試登錄").Page("辦公自動(dòng)化系統(tǒng)").Frame("mainFrame_4").GetROProperty("url在urlID信息strId=Midid,instr(60,id,"=")+1)'這一步是把需要的id值取了出來(lái)，例如：strId=MidstrUseridstrId'strUseridID").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set"ON"這樣就把想刪除的記錄選中了。Browser("測(cè)試登錄").Page("辦公自動(dòng)化系統(tǒng)").Frame("mainFrame").WebButton("").Click這樣就刪17.2通過(guò)數(shù)據(jù)庫(kù)取得idDataTable("p_Text",dtGlobalSheet)").Frame("mainFrame_2").WebEdit("addressVO.address").SetDataTable("p_Text1dtGlobalSheet) DataTable("p_Text2",dtGlobalSheet)Dim", '從datatableaddress=DataTable("p_Text1",dtGlobalSheet) =DataTable("p_Text2",dtGlobalSheet)DimSetres=createobject("adodb.recordset")Setcmd=createobject(" Cmd.activeconnection="DRIVER={OracleinmandType='sql="selectaddrefromaddress_listtwherename='"&xname&"'"'sql="selectaddrefromaddress_listtwherename='"&xname&"'sql="selectaddre fromaddress_listtwherename='"&xname&"'andaddress='"&address&"'and mandText=sqlSetres=Cmd.Execute()MsgBoxres(0)'打印DataTable("addre", '輸出值到datatable").Frame("mainFrame").WebCheckBox("value:="&res(0)).Set"ON"Setres=nothingSetcmd.ActiveConnection=nothingSetCmd=nothing").Frame("mainFrame").WebCheckBox("value:="&strUserid).SetON"").Frame("mainFrame").WebCheckBox("value:="&res(0)).SetON"").Frame("mainFrame").WebCheckBox("IDS").SetTOPropertyvalue",Cstr(res(0Cstr為轉(zhuǎn)換成小數(shù)方4:Browser("測(cè)試登錄").Page("辦公自動(dòng)化系統(tǒng)").Frame("mainFrame").WebCheckBox("IDS").SetTOPropertyvalue",strUserid1：instr方法InStr([start,]string1,string2[,這個(gè)函數(shù)需要的的參數(shù)是起始位置、主體字符串、要查找的字符串；Compare是可選參數(shù)。指定字符串比較。此compare參數(shù)是可以省略的，也可以是0,1或2。0（缺?。?做不區(qū)分大小寫的文本比較。例如我們要查找在字符串“abcdefg”中pos=InStr(1,"abcdefg","cd")則pos3表示查找到并且位置為第三個(gè)字符開始。這就是“查找”的實(shí)2：midMid(string,start[,如：MyVarMid("VBScriptisfun46)'MyVarcontains"Script".46位字符例如：MyVar2=Mid("VBScriptisfun",4)'MyVarcontains"Scriptisfun!"3:Right方法Right(string,length)DimAnyString,AnyString="oWorld" 'Definestring.MyStr=Right(AnyString,1) 'Returns"d".MyStr=Right(AnyString,6) 'Returns"World".MyStr=Right(AnyString, 'Returns o20、datatable(","在globalsheetsheetDataTable.DeleteSheet例如：DataTable.DeleteSheetMySheet"3：Export方法例如：DataTable.Export, 'DTSheetsheet的例如：DataTable.ExportSheetC:\name.xls例子：rowReporter.ReportEvent1,"RowNumber",rowrowcount=Reporter.ReportEvent2,"Thereare&rowcount,"rowsinthedatasheet."7：GlobalSheetProperty方法例如：DataTable.GlobalSheet.AddParameter"Time8：Import("DataTable.ImportSheet"C:\name.xls",1'從name.xlssheet，index1，sheet10：LocalSheetProperty","11：SetCurrentRow方法例子：DataTable.SetCurrentRow(2)(12：SetNextRow方法13：ValueProperty1：DataTable.Value(ParameterIDSheetID])DataTable(ParameterIDSheetID])2：DataTable.Value(ParameterID[,SheetID])=NewValueDataTable(ParameterIDSheetID1：DataTable.ValueDestinationActionA")="New例子2：DataTable("addre ",dtGlobalSheet)=Cstr(res(0)) 為sheet一列名稱14:取datatable中某一行值如果想取第一行，就將i121、ReportEventMethodReporter.ReportEventEventStatusReportStepNameDetailsin]'EventStatus狀態(tài)：pass：0，失敗：1，done:2,警告：3，狀態(tài)：0ormicPass，1ormicFail，2ormicDone，3ormicWarning:ReportStepName為Nameoftheintendedstepinthereportobjectname)Reporter.ReportEventmicFail,"CustomStep","Theuser-definedsteprow=DataTable.GetCurrentRowReporter.ReportEvent1RowNumberrowrow為一變量22、reusableaction注：action1和action2都是reusableaction，在action3中調(diào)用action1和Dimname1001").SetTOProperty"text",name13：在action3中，直接調(diào)用action1和action2就可以。多個(gè)reusable23、action2（沒(méi)有驗(yàn)證過(guò)不知道你是不是想把Action2的一些值傳遞給Action3ActionParam既可以作輸入也可以作輸出，所以他們之間的參數(shù)傳遞是很簡(jiǎn)單的。在Action1里面只要實(shí)現(xiàn)如下代碼就可以了：RunAction"Action2",oneItion,InputParamToAction2,OutputParamFromAction2RunAction"Action3",oneItion,OutputParamFromAction2上面的變量OutputParamFromAction2就同時(shí)作為Action2的輸出和Action323、action3（沒(méi)有驗(yàn)證過(guò)）Action級(jí)別的參數(shù)調(diào)用：1ActionProperters>>Action增加input的參數(shù)和output的參數(shù)2：Action1的：parameter("output")="Act