QTP登录功能的测试

编写登录功能，然后使用QTP来进行相应的测试。一、登录功能的实现：数据库的建立（1）新建数据库在这里采用的是MicrosoftOfficeAccess软件建立的数据库，打开之后，新建数据库，如图所示：（2）在右侧中选择“空数据库”（3）填入数据库的名称：（4）设计表（5）设计表字段（6）保存，填写表的名称（7）打开表写入一条记录，并保存（8）关闭数据库。2、登录功能的实现（1）新建一个网站login（2）把数据库test.mdb拷贝到App_Data文件夹下。（3）将Default.aspx重命名为login.aspx，并添加控件，如图所示：其中，请输入用户名为Label控件，ID为Label1（默认）用户名后控件为TextBox控件，ID为name。密码后控件为TextBox控件，ID为userpw。登录按钮为Button控件，ID为默认（4）然后，添加“登录”按钮的事件处理程序，代码如下：引入命名空间：“登录”按钮的单击事件处理程序代码：（5）在根目录下，新建一个success页面，页面设计如图其中，退出是一个超级链接，可以退回到登录页面。二、设计测试用例编号测试项操作步骤数据预期结果实际结果结果比较说明1界面检视界面正常装载后，检视页面是否符合规范页面title是否正确；页面的默认焦点是否控制在用户名输入框中；TAB键能否控制；未登陆状态下，页面的页面title正确；默认焦点控制在用户名输入框中；TAB键正常控制其他按钮（非登陆/重置按钮）不可选或选择无效2用户登陆输入正确的用户名和正确的密码用户名：admin密码：admin正常登陆，转入对应的系统页面输入正确的用户名和错误的密码用户名：admin密码：test出现“密码错误!”提示输入错误的用户名和错误的密码用户名：test密码：test出现“用户名不存在!”提示不输入用户名和密码/或均为空格，直接点击登陆用户名：密码：出现“请输入用户名!”的提示只输入用户名，密码为空/或为空格用户名：test密码：出现“请输入密码!”提示框用户名为空/或为空格，只输入密码用户名：密码：test出现“请输入用户名!”提示三、录制测试过程，保存四、修改脚本，先将登录用户名参数化为username，datatable选本地表五、修改脚本，先将登录用户名参数化为password，datatable选本地表六、修改脚本，在datatable中创建一个预期数列表status；双击列名，修改为status七、按照测试用例的设计，填写用户名username、密码password以及status的参数值。八、切换到专家视图，修改代码：Dimi'定义行号Fori=1toDataTable.GetSheet(Action1).GetRowCount'登录过程Browser(无标题页).Page(无标题页).WebEdit(name).SetDataTable(username,dtLocalSheet)Browser(无标题页).Page(无标题页).WebEdit(userpw_2).SetSecureDataTable(password,dtLocalSheet)Browser(无标题页).Page(无标题页).WebButton(登录).ClickBrowser(无标题页).Page(无标题页).OutputCheckPoint(无标题页)NextBrowser(无标题页).Page(无标题页_2).Link(退出).ClickBrowser(无标题页).Page(无标题页).SyncBrowser(无标题页).Close九、插入一个文本输出点，输出系统的实际提示信息，并将该输出值保存在datatable中action1的outmsg列（1）选择“登录”，在右下方图片上选择提示信息，在上面单击右键，选择菜单中的“InsertTextOutput…”。在弹出对话框中，Insertstatement项中选择“Aftercurrentstep”（2）在关键字视图上，选择OutPut，单击右键，选择“OutPutValueProperties”，在弹出对话框中，选择“Modify”，弹出“OutputOptions”对话框，在Name中填写“outmsg”，然后选择“Currentactionsheet(local)”（即本地表）十、比较修改代码Dimi'定义行号Dimoutputvalue'定义读取系统实际的提示信息的变量Dimistatus'定义读取系统预期提示信息的变量Fori=1toDataTable.GetSheet(Action1).GetRowCount'登录过程Browser(无标题页).Page(无标题页).WebEdit(name).SetDataTable(username,dtLocalSheet)Browser(无标题页).Page(无标题页).WebEdit(userpw_2).SetSecureDataTable(password,dtLocalSheet)Browser(无标题页).Page(无标题页).WebButton(登录).ClickBrowser(无标题页).Page(无标题页).OutputCheckPoint(无标题页)outputvalue=datatable(outmsg,dtlocalsheet)'将实际输出值赋予变量istatus=datatable(status,dtlocalsheet)'将预期输出值赋予变量IfoutputvalueistatusThen'预期值与实际值不等，报错reporter.ReportEvent1,登录功能测试,预期值为：+istatus+,实际值为：+outputvalueEndIfdatatable.GetSheet(Action1).setnextrow'获取action1中的下一行数据NextBrowser(无标题页).Page(无标题页_2).Link(退出).ClickBrowser(无标题页).Page(无标题页).SyncBrowser(无标题页).Close