|
'注册普通节点
Dim num,i
num=DataTable.GetSheet("Action2 register").GetRowCount
for i =1 to num
wait(3)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
wait(2)
Dim con
Dim record, testcode
Set con = createobject("adodb.connection")
con. open "DRIVER={Oracle in OraHome92};DSN=test;UID=U_ZNNWD=U_ZNN;DBQ=ORACLE_CFTEST;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Set record = createobject("adodb.recordset")
sql="select CODE from CS_WEBAPP_NODE"
record.open sql, con
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("验证代码").Click
'在数据库中检查代码是否存在
testcode = DataTable("code", "Action2 register")
wait(2)
If ( Instr(1, record("code"), testcode, 1) > 0 )Then
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click
DataTable.GetSheet("Action2 register").SetNextRow
Dim code
Dim j
j=DataTable.GetCurrentRow
code =DataTable.GetSheet("Action2 register").GetParameter("code").ValueByRow(j)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set code
else
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click
End if
record.close
Set record=nothing
con.close
Set con = nothing
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("description").Set DataTable("description", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("vendor").Set DataTable("vendor", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("indexURL").Set DataTable("indexURL", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("appServer").Set DataTable("appServer", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("dbServer").Set DataTable("dbServer", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("version").Set DataTable("version", dtLocalSheet)
wait(2)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
wait(2)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
DataTable.GetSheet("Action2 register").SetNextRow
next
datatable如下:
code name description vendor appServer dbServer version indexURL
code1 name1 des1 vendor1 server1 db1 vers1 URL1
code1 name1 11 11 11 111 11 11
code2 name2 des2 vendor2 server2 db2 vers2 URL2
code3 name3 des3 vendor3 server3 db3 vers3 URL3
代码主要作用是注册普通节点
code栏位输入后,点击验证代码,如果库里有这代码了的,弹出提示框,提示重复了的,如果没有这代码,提示这代码不存在
现在第一行数据,可以新增
但到第2行数据时,因为库里有了code1,点击验证代码,会出现提示框:该代码重复
我现在想做个判断,如果这代码不存在,那就利用这行数据,继续新增
如果这代码重复,我要让其跳到下一行,利用下一行数据,继续新增
现在我的代码主要问题是,判断重复后,code栏位应该set code2,可是这里却是空的,set不进去
另外,name,description还是set为name1,desc1,明显是第一行的数据 |
|