[原创]QTP自定义数据库检查点SQL s…

'产生唯一姓名 username Y=split(date,"-") Y(1)=right("0"Y(1),2) Y(2)=right("0"Y(2),2) Y1=Y(1)Y(2) T=split(time,":") T1=T(1)T(2) Function rand(k,n) randomize n=int((k-1)*rnd+1) rand=n End Function Dim n n=rand(9,n) username="李"Y1T1n Browser

'产生唯一姓名 username
Y=split(date,"-")
Y(1)=right("0"&Y(1),2)
Y(2)=right("0"&Y(2),2)
Y1=Y(1)&Y(2)
T=split(time,":")
T1=T(1)&T(2)
Function rand(k,n)
   randomize
   n=int((k-1)*rnd+1)
  rand=n
End Function
Dim n
n=rand(9,n)
username="李"&Y1&T1&n
Browser("电子政务").Page("电子政务").WebEdit("user_code").Set "admin"
Browser("电子政务").Page("电子政务").WebEdit("user_pass").SetSecure "4927cb503cee9942d160e58f"
Browser("电子政务").Page("电子政务").Image("dl-9").Click
Browser("电子政务").Page("::::行政审批系统::::").sync
wait 5

Browser("电子政务").Page("::::行政审批系统::::").WebElement("业务办理").Click
Browser("电子政务").Page("::::行政审批系统::::").WebElement("系统管理").Click

Browser("电子政务").Page("::::行政审批系统::::").Link("用户权限管理").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33").WebElement("用户管理").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebList("orgid").Select "    工商局"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebButton("搜索").Click

'增加用户开始---------------------------------------------------

Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("增加用户").Click
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_name").Set ""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_code").Set ""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_pass").SetSecure "4927d4079175cb072cf32883"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("conpassword").SetSecure "4927d40a5a602d544577ec1d"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select "地、厅、局级"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select "省级"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebCheckBox("groupId").Set "ON"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select "领导操作工作台"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select "普用户工作台"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.user_organid").Select "    工商局"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select "F"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select "M"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_tel").Set "13661703163"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_address").Set "上海市浦东新区"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_email").Set "huichanglee@163.com"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_remark").Set "暂无备注"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select "0"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select "1"
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebButton("增加").Click

'增加用户-结束-----------------------------------------
'下边代码验证：增加后搜索新添加的用户是否存在，并打印出结果--开始--------
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebEdit("username").Set ""&username
Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("搜索").Click
set user_table=Browser("电子政务").Page("::::行政审批系统::::").Frame("33_7").WebTable("编号")
 user_table_cols=user_table.columncount(1)
 user_table_rows=user_table.rowcount
username1=user_table.GetCellData(2,2)
username2=trim(username)'这里获取添加用户的用户名，并去掉左右空格

If trim(username)=trim(username1) Then
 Reporter.ReportEvent micPass,"添加用户测试","用户添加成功！"
 else
 Reporter.ReportEvent micFail,"添加用户测试","用户添加失败！"
End If

'验证增加用户后，搜索新添加的用户是否存在并打印出结果----结束----------

'自定义数据库检查点----------开始----------------------

Dim rs,cmd,sql
Set rs=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
cmd.activeconnection="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=xzfw_chibi;Data source=192.168.8.9"
cmd.commandtype=1
'sql="select * from sys_user  where user_code='用户名' "  这是sql格式需要者一样一个格式，一下为转化方法。
sql1="select * from sys_user  where user_code="
sql2="'"
sql3=""&username2
sql4="'"
sql=sql1& sql2&sql3&sql4

cmd.commandtext=sql
Set rs =cmd.execute()

If rs.eof=false Then  ’false意为记录到最后，及为符合sql查询结果的记录
 reporter.ReportEvent micPass,"用户添加数据库检查点测试","测试通过！"
 else
  reporter.ReportEvent micFail,"用户添加数据库检查点测试","测试失败！"
End If
Set rs=nothing
Set cmd.activeconnection=nothing
Set cmd=nothing
'自定义数据库检查点---------结束-----------------------