'$include "sqautil.sbh"
51Testing软件测试网}ID ?i1yoSub Main
_4Jmazux0 Dim Result As Integer
51Testing软件测试网GN$i)vY5\a)YE$L dim x as integer
zd*l-?TY3SDx/M0 dim dp as long
IqbmOaylG0 dim dpname as string
51Testing软件测试网&se|U3i WDP&u dim password as string
51Testing软件测试网GE[i!Z3a"H+?2of g)\At0 StartApplication """D:\Program Files\Rational\ClearQuest\clearquest.exe"""
51Testing软件测试网0Tt7x~4Et9Xt dp = sqadatapoolopen("test-cq")
51Testing软件测试网x,Wg-CTe for x=1 to 2
p ["[r @
HG!E0 call sqadatapoolfetch(dp)
s5d(O*pNUI0 call sqadatapoolvalue(dp,1,dpname)
U g!B&E*@0K?%A0P0 call sqadatapoolvalue(dp,2,password)
51Testing软件测试网+hs,A*A8Z+Bw call sqadatapoolvalue(dp,3,cctype)
51Testing软件测试网,Ou`t3Q7X*I!g$k
F Window SetContext, "Caption=Rational ClearQuest Login", ""
51Testing软件测试网q`(a7c/[R:J/@~ EditBox DblClick, "Label=User Name", "Coords=10,6"
0I&yMg8pZ\.o0 msgbox dpname
51Testing软件测试网$uf^9eR'Q9XA InputKeys dpname
bO"{
v4BO9myp0 EditBox DblClick, "Label=Password", "Coords=5,10"
51Testing软件测试网!W$wO
skV*t
y msgbox password
4UE
J@(vILm0 InputKeys password
d1V7_(x4z}a'~tx |0 ComboBox Click, "Label=Database", "Coords=153,12"
&D*`3dK'}1KkE0 ComboListBox Click, "Label=Database", "Text=RSDF : "
G?P3Xr0Ak/Sp-y0 PushButton Click, "Text=OK"
&O;`(nCN0 51Testing软件测试网*?Uf
U Bx?'` result=SQAWaitForObject("\;Type=Window;Caption=Warning - Invalid Login",8000)
51Testing软件测试网9hX'Mw eO'Ze MSGBOX result
51Testing软件测试网zyws5?l*j be[ //x=1返回0 x=2 返回1016 --1016是指在指定的时间内没有找到对象
51Testing软件测试网(M#[$`3r\fE.y9b result=SQAFindObject("\;Type=Window;Caption=Warning - Invalid Login")
xl'a7G*alX9vx0 msgbox result
51Testing软件测试网Z$l0e-p$[ //x=1返回0 x=2 返回1003
|cb)TM0 if result=sqasuccess then
$X&T8P9[u1u0 msgbox "fail"
9JLGU#l/g2Z?0 Window SetContext, "Caption=Warning - Invalid Login", ""
&k:O6{ G+s"S
}J#`k0 PushButton Click, "Text=OK"
\.he]Fi
e0 else
51Testing软件测试网k#I*d&lq1RsLD4w.E msgbox "ok"
51Testing软件测试网r?i]5If Window SetContext, "Caption=Rational ClearQuest - RSDF :", ""
51Testing软件测试网U Y.gG.r
qR&tT Window CloseWin, "", ""
51Testing软件测试网;J'f az(WO9\'s/B~ end if
tYZ8e
ANC4l:_o0 next x
}l-`S|2Z{5D8w0End Sub
51Testing软件测试网I)`.t6X)_@B 51Testing软件测试网
g%Q8^rwx[[?有待完善..............
.?L?Y2c8z\.b0