|
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("menu").WebElement("用户管理").Click
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("menu").Link("新增用户").Click
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebEdit("userEdit:usernum").Set DataTable("用户编号", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebEdit("userEdit:username").Set DataTable("用户名", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebEdit("userEdit:email").Set DataTable("用户邮箱", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebList("userEdit:_idJsp27").Select DataTable("用户类别", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebEdit("userEdit:usercredit").Set DataTable("信誉度", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebCheckBox("userEdit:_idJsp35").Set DataTable("管理员", dtLocalSheet)
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("main").WebButton("新增").Click
If Browser("欢迎使用bookadmin图书管理系统").Dialog("Microsoft Internet Explorer").Exist(1) Then '如果不出现=false
error_message = Browser("欢迎使用bookadmin图书管理系统").Dialog("Microsoft Internet Explorer").static("用户编号只能是1-20位!").GetRoProperty("text")
If error_message<>(datatable.Value("I",dtlocalsheet)) Then
msgbox(errror_message)
End If
' Browser("欢迎使用bookadmin图书管理系统").Dialog("Microsoft Internet Explorer").close
End If
Browser("欢迎使用bookadmin图书管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("欢迎使用bookadmin图书管理系统").Page("欢迎使用bookadmin图书管理系统").Frame("menu").Link("新增用户").Click
以上是代码,但输出的error_message是空的. |
|