|
ACTION1
Public conn,rst,sql,genre,Cgenre
Const strconn="rovider=MSDAORA.1assword=ussdtest;User ID=ussdtest;Data Source=USSDTESTersist Security Info=True"
Set conn=createobject("Adodb.connection")
Set rst=createobject("Adodb.recordset")
sql="select * from JMBCASE"
conn.open strconn
rst.open sql,conn
rst.movefirst
'Environment.Value("Cgenre")=rst
genre=rst.fields("genre").value
Parameter("rst1")=rst
While not rst.eof
Select Case genre
Case 0
Dialog("移动商务平台测试工具").Restore
RunAction "话费查询USSD", oneIteration
Case 1
RunAction "银行话费查询", oneIteration
End Select
rst.movenext
Wend
conn.close
Set rst=nothing
Set conn=nothing
话费查询USSD ACTION(这是一个Reusable action)
Dialog("移动商务平台测试工具").Restore
Dialog("移动商务平台测试工具").WinRadioButton("话费查询(USSD)").Set
Dialog("移动商务平台测试工具").WinEdit("手机号1").Set rst.fields("mobileno1").value
Dialog("移动商务平台测试工具").WinEdit("手机号2").Set rst.fields("mobileno2").value
Dialog("移动商务平台测试工具").WinEdit("支付密码").Set "123456"
Dialog("移动商务平台测试工具").WinEdit("业务代码").Set rst.fields("operation").value
Dialog("移动商务平台测试工具").WinEdit("SPID1").Set rst.fields("spid1").value
Dialog("移动商务平台测试工具").WinEdit("SPID2").Set rst.fields("spid2").value
Dialog("移动商务平台测试工具").WinEdit("SP密码").Set rst.fields("sppwd").value
Dialog("移动商务平台测试工具").WinEdit("渠道编号").Set rst.fields("channel").value
.
.
.
问题描述如下:
我要在话费查询USSD ACTION里使用ACTION1里的记录集RST,我试了把它设为全局变量,没得行,我也试了环境变量,说是不支持,我用参数传递RST(用的ANY类型),又报类型不符,我究竟要怎样才能在另一个ACTION中去使用第一个ACtion的记录集,使用Dialog("移动商务平台测试工具").WinEdit("业务代码").Set rst.fields("operation").value去操作.谢谢! |
|