QTP的登陆脚本设计（转载）

目标如下：
m(]6Yd+^z'p!P0:H/I r O \/`%c3k987231.    脚本需要处理成功和失败的用户的登陆51Testing软件测试网@0f1o-tf
^|
Q0C @(Q'v;E0q/E i02.   数据驱动51Testing软件测试网5U#{(bdtiNf

设计开发脚本如下：51Testing软件测试网5x/s@4g0X kt)qA

6Q?+j:q;T)`0[:Wpl1?{\M98723第一步录制脚本如下
zap4?0D!b03] d;iYc^98723Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "吕巍"51Testing软件测试网@+v
RSJo51Testing软件测试网JYDPct3q4T;hh
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网*Q z,H [E `r
4Wdn!^)cm0Browser("智能变电巡检仪系统 4.0").Page("Page").Syn51Testing软件测试网|5c`(\ qS/Qh
y!_!}l
|(s[l0Browser("智能变电巡检仪系统 4.0").Close

以上为录制的正确的用户名,下边录制错误的用户名51Testing软件测试网p6S\ll't T51Testing软件测试网*]uBBJ1B f
F(}
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"51Testing软件测试网.M_5V;R!oc R51Testing软件测试网YRSYC7jOD
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网[M;GE&Z
L!Ucm)L^5r!s98723出现错误提示“该用户不存在”51Testing软件测试网0cr O ]rv

第二步 增强脚本51Testing软件测试网/Y,RsG"s8N`}3R~

现在需要设计的是一套脚本驱动所有的测试数据，这样可以驱动所有的用例数据，qtp中提供了datatable。51Testing软件测试网U(`}4c6E V:^
PXiJ9`o0但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名，如何结合起来呢？
u*{
mu2W6M{0,fe%U1o C;A98723这里我把datatable看作存放测试用例的地方，里面放入测试数据，还放入测试的预期结果。这样我的设计已经出现雏形了。51Testing软件测试网 W p.uih2Wa

E{.c7Ns \l9^/`98723我把datatable设计为三列51Testing软件测试网"l|oS.~j

username  password status51Testing软件测试网$\/tBt*Z
8rZJ,g WV*c98723吕x               51Testing软件测试网 S _1Hcw T.q+hP
!oW%XG?-[Eh0xxx       xxxx     该用户不存在

第三列放入最后执行的结果,我设计的是空为成功登陆,如果有信息就用实际运行的结果和这一列对比.好了万事俱备只欠东风了51Testing软件测试网'p+X{'tXVB

修改脚本如下：51Testing软件测试网1YKX1v Hj51Testing软件测试网6K7KrB5k
Dim iStatus51Testing软件测试网
J7j;]$j0?VRpG5\

Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet)51Testing软件测试网;dA2F5h;r'N
2[3AoHw(H0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set DataTable("password", dtLocalSheet)51Testing软件测试网 x Yq5S?)[51Testing软件测试网1VJ}'vg8d.c
iStatus = DataTable("status", dtLocalSheet)

If   iStatus=""  Then51Testing软件测试网!\,y+_cWFt0P)L51Testing软件测试网*Dihd ]
  Browser("智能变电巡检仪系统 4.0").Close51Testing软件测试网K.T!E9c Ps
Wt!bH6r7W:]98723End If

51Testing软件测试网!N&[v7OD7u
+u0]'O:P KmqV98723If   iStatus="该用户不存在"    Then51Testing软件测试网C#D
j b].u
%`WZ0i C0     Reporter.ReportEvent micFail, "登陆", "登陆失败."
%y1Tc&ftUO0S4`(nQF$C98723End If

Browser("智能变电巡检仪系统 4.0").Close

第三步，设置脚本运行过程

打开 tests-〉settings51Testing软件测试网1EFB k ]-Wz7x I
l"V9L @ f"R#}0设置RUN TAB页面下 Datatable iterations中 Run On all rows

这样就完成了整个脚本的设计工作，以上通过一个简单例子吧脚本的设计和软件的功能结合起来，达成脚本的设计效果。