QTP中一些很有用的代码.docVIP

1 生产随机数列第一种方法randomize更新反回的数据funcation rand(k,n)n=int((k-1)*rnd+1)rand=nend funcation第二种方法n=randomnumber.value(1,255)2??当运行到表中的某一行，自动导出表中的所有数据row=datatable.getcurrentrowif row=5 then??datatable.export(d:\data.xml)end if3 参数化密码webedit(txtpass).setsecuresdsdf....如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set4　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证if browser(web_name).dialog(dialog_name).exist(1) then如果不出现=false? ? error_message=browser(web_name).dialog(diaglog_name).static(用户密码错误!.getRoproperty(text)　　　if error_message(datatable.value(error_info))then? ?? ?? ?msgbox(error_message)? ?? ?end if? ???browser(web_name).dialog(diaglog_name).close??end if这里我总结了两点技巧：　　一是：对于dialog中，虽然提示信息对象名称是用户密码错误，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性? ???二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理5??datatable.value(num)只在global形式下的一种省略形式；完整形式是:datatable.value(num,dtlocalsheet)-----向某一列的单元格赋值:datatable.value(column_name,dtlocalsheet)=nanjing-----取得某一行具体值：datatable.setcurrentrow(n)msgbox(datatable.getsheet(global).getparameter(column_name).Rawvalue)或者kk=datatable.Rawvalue(column_name,action1)----在run-time时，动态添加表格与数据kk=datatable.addsheet(sheet_name).addparameter(column_name,value).name;7? ?wintreeview一些操作选择一个条目:wintreeview.select(item)根是0根的名称：wintreeview.getitem(0)8? ?数据库检查点模块:sub database_checkset con=createobject(adodb.connection)con.open Description=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;_? ?? ?? ?? ?? ???;PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_tableaccess方式:con.open DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdbOrocle方式:con.open DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;P WD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;set record=createobject(adodb.recordset)sql=select*from ib