UI色彩与字体

1）UI字体、色彩要一致

2）整体色彩搭配要融为一体，起提示作用的部分要清楚醒目

3）不可修改的字段，统一使用灰色文字显示

窗口风格

1）所有窗口最大化、最小化风格要一致

2）报错页面的风格一致，最好有统一的报错页面

3）类似功能的窗口打开的风格要一致

4）相同功能在不同模块的名称要一致

5）子窗体应尽量在显示在主窗体的左上或居中放置

6）弹出式窗口尽量在不借助滚动条的情况下显示所有内容

7）窗体最小化/最大化时，控件也要随着窗体而缩放

布局

1）窗体控件布局和间距尽量与Windows标准保持一致

2）尽量采用Dock和锚点来让布局合理

3）尽量让窗体中显示大部分常用功能

菜单深度

1）菜单深度一般不要超过三层

2）菜单层次太多时应给出返回主窗口、主分支的快捷链接。

按钮

1）按钮风格相同，大小相似，字体一致

2）无效按钮要屏蔽

控件

1）各复选框和选项框按选择几率的高低而先后排列

2）复选框和选项框要有默认选项，并支持Tab选择

3）界面空间较小时使用下拉框而不用选择框

4）选项数较少时使用选项框，相反使用下拉列表框

文本框输入

必输项

1）必输项中不可为空，不可输入空格

2）必输项给出必输项标识（*）

字段长度

超过数据库规定长度时不允许输入

格式校验

1）身份证号、E-MAIL等特定字段的格式要符合需求的规定

日期格式

1）日期显示格式一致，如 ：yyyy-mm-dd

2）使用日期控件，尽量不是手工录入

特殊字符

1）输入区域输入特殊字符，插入数据库时不出错或提示不允许输入特殊字符。特殊字符包括：'"=~$%^%￥&#@等

英文输入

英文输入不区分大小写，不可输入汉字、数字及特殊字符

数值字段

只能输入+ - 0~9及功能键(BackSpace 光标)

字符字段

1）如果支持日韩文字，则要判断全角假名/半角假名

单行文本框/多行文本框

1) 长度合适，可以容纳相应文字，但不能超过数据库该字段长度，最好将可以输入的最大字符数标在旁边。建议单行文本框中当输入的字符超过一定长度时再输入无效；对于多行文本框给出最大字符数标识

附件

1）可正常添加符合格式的附件

2）附件可正常打开和保存，附件名较长时可正常操作

3）直接输入错误的附件地址，保存时应给出提示信息

4）附件打开/保存到本地时，文件名要显示原文件文件名

5) 附件上传时应作格式和大小的检查，如果格式不对或者附件大小超过最大值，页面应有提示。页面上要有支持上传附件格式和大小的标识。

密码输入

1）需在需求中定义密码是否允许为空或空格；密码是否允许特殊字符；是否区分大小写，密码的可输入长度

2）程序中应给出文字说明密码的可输入长度

鼠标

1）鼠标为不可点击状态时显示箭头，可点击状态显示手型；系统忙时显示沙漏形状

光标定位

1）打开新增（修改）页面时，光标初始定位在第一个待输入的文本区

2）因输入不正确提示用户重新输入时，光标默认focus在出错的输入区，并高亮全选该错误输入

3）若必输项未填写完毕就提交，应给出说明信息并能自动获得焦点

4）可写控件检测到非法输入后应给出说明并能自动获得焦点

TAB键

1）界面支持键盘自动浏览按钮功能。即TAB自动切换功能

页面异常输入测试是系统测试的一个重要方面，但是因为比较繁杂，人工测试时往往难以完全覆盖，此时采用自动化测试，就有相当的优势了。

如下图就是一个典型的信息录入页面

其中就包括很多异常输入测试点：

名称不能包含特殊字符，固定的电话格式，固定的手机格式，银行账号（必须全为数字），付费号码长度限制，手机号码格式、长度限制，Email格式限制等

其实异常策略是有通用性的，现总结如下：

1. exp@@SpecialChar(e_chr)     包含特殊字符，e_chr为指定的特殊字符

2. exp@@StringLenMax(e_len)   字符串超过最大长度，e_len为最大长度值

3. exp@@ StringLenMin(e_len)   字符串不足最小长度，e_len为最小长度值

4. exp@@String                字符串包含数字（要求全字符）

5. exp@@Num                 字符串包含字符（要求全数字）

6. exp@@NumMax(e_max)    输入超过指定最大值，e_max，最大值

6. exp@@NumMin(e_min)    输入不足指定最大值，e_mmin，最小值

7. exp@@NumLenMax(e_len)    数值长度超限，e_len，长度最大值

8. exp@@NumLenMin(e_len)    数值长度不足，e_len，长度最小值

9. exp@@StringPre(e_pre)       字符串不为指定前缀，e_pre，前缀值

10. exp@@NumPre(e_pre)       数值不使用指定前缀，e_pre，前缀值

11. exp@@Email               数值不为标准Email格式

12. exp@@Need               必输入项，提供空字符串

具体实现上，在准备数据文件时，提供两种数据：

1.      每个字段的默认输入值，即正确值。也是自动化程序执行时默认输入的数据

2.      异常值，针对每个字段，提供该字段可能需要的异常策略，对所有异常进行遍历。

第一行为默认值，第二行为字段对应的异常策略

分三个函数来处理

1.      执行函数

Public Sub excep_OpUser()

              routingname = "企业用户输入－异常测试"

              ‘ 载入数据表数据的第2行

GE_SetCurRow OppDataFile,"企业用户",2

              Dim objStr,oScript,i

              set bjStr = CreateObject("Scripting.Dictionary")

              set Script. = CreateObject("Scripting.Dictionary")

              ‘ 根据数据表字段设置每个字段的QTP执行语句

              for i = 1 to DataTable.GetSheet("UserData").GetParameterCount

                     if DataTable.GetSheet("UserData").GetParameter(i)="企业名称" Then _

                             objStr.add DataTable.value(i,"UserData"),".WebEdit("opername").set "

                     。。。。

              Next

              ‘ 调用异常数据生成函数，返回值保存在dictionary对象oScript中

              Gen_excepData(objStr,oScript)

‘ 依次对含异常策略的字段进行异常测试

              For i = 0 to oScript.Count-1

                     Call OpUserSet(1,oScript(i))

              Next

              set bjStr = Nothing

              set Script. = Nothing

       End Sub

2.      异常数据生成函数

Public Function Gen_excepData(byval dObj,byRef oScript)

       ‘ 异常值，正确值，异常类型，异常参数

Dim errorValue,CorrectValue,expType,expPara

       Dim objName,scriptstr

       Dim i,j,expItem

       expItem = 0    ‘ 记录异常数

       Randomize

       for i = 1 to DataTable.GetSheet("UserData").GetParameterCount

              ‘ 第一行数据为默认正确数值

              CorrectValue = DataTable.GetSheet("UserData").GetParameter(i).ValueByRow(1)

              datatable.SetCurrentRow 2

              if Instr(Datatable.value(i,"UserData"),"exp@@")>0 Then

                     objName = dObj.Item(Datatable.value(i,"UserData"))

                     ‘ 同一字段多种异常策略的处理

                     arr1 = split (Datatable.value(i,"UserData"),"|",-1,1)

                     For j = 0 to Ubound(arr1)

                            ‘ 获取异常类型和异常参数

If RegExpTest("exp@@.{1,}\(.{1,}\)",arr1(j)) Then

                                   exptype = Mid(arr1(j),6,InStr(arr1(j),"(")-6)

                                   expPara = Mid(arr1(j),InStr(arr1(j),"(")+1,InStr(arr1(j),")")-InStr(arr1(j),"(")-1)

                            Else

                                   expType = replace(arr1(j),"exp@@","")

                            End If                  

                            ‘ 不同策略对应的数据生成

                            select Case expType

                            Case "SpecialChar"

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"%")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"'")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"/")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),":")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"*")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"&")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"?")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"""")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"<")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),">")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"|")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

自动化测试中，经常遇到页面需要输入时间，而这个时间很多时候是当前时间之后某个范围之类才有效。我们采用数据驱动时如果采用绝对时间，则数据复用性就很差了，数据需要经常修改。所以采用相对时间

下面的函数用于获取相对时间

'------------------------------------------------------------------------

'获取以当前时间为参照的偏移时间

'increTime: 偏移时间量，可使用负数 格式：day:hour:min:sec  如 1:3:8:23

'------------------------------------------------------------------------

Public Function GetTime(byval increTime)

       Dim y,m,d,h,n,s,timeArray

       timeArray = split(increTime,":",-1,1)

       d= timeArray(0)

       h= timeArray(1)

       n= timeArray(2)

       s= timeArray(3)

       GetTime = dateadd("d",d,now)

       GetTime = dateadd("h",h,GetTime)

       GetTime = dateadd("n",n,GetTime)

       GetTime = dateadd("s",s,GetTime)

       ' change to GE Time type

       Dim dateArr,timeArr

       timeArray = split(GetTime," ",-1,1)

       dateArr = split(timeArray(0),"-",-1,1)

       y = dateArr(0)

       m = ExpandByZero("L", dateArr(1),2)

       d = ExpandByZero("L", dateArr(2),2)

       timeArr = split(timeArray(1),":",-1,1)

       h = ExpandByZero("L", timeArr(0),2)

       n = ExpandByZero("L", timeArr(1),2)

       s = ExpandByZero("L", timeArr(2),2)

       GetTime = y  & "-" & m & "-" & d & " " & h & ":" & n & ":" & s

End Function

'------------------------------------------------------------------------

'以0扩展当前字符串

'way: 扩展方式 L-左扩，R-右扩

'OrigStr: 原字符串

'HopeLen: 扩展后字符长度

'------------------------------------------------------------------------

Public Function ExpandByZero(byval way,byval OrigStr,byval HopeLen)

   Dim i,ZeroStr

   ZeroStr = ""

   For i =1 to HopeLen - len(OrigStr)

              ZeroStr = ZeroStr & "0"

   Next

   If way = "L" Then

              ExpandByZero = ZeroStr & OrigStr

       elseif way = "R" Then

              ExpandByZero = OrigStr & ZeroStr

       else

              Exit Function

   End If

End Function

对于共同开发的自动化测试项目，实例方便的调用是很重要的。QTP采用的是vbscript脚本，所以也支持类，但是应为vbs并不支持类的继承，所以只能算作一种“拟类”。采用类对脚本进行封装，有很多好处，对于测试执行人员，可以通过项目情况对封装的类进行调用，而并不必关心类实现的细节。

此处对QTP类的使用进行一些总结。

'类名称

Class TestCase

       Private DataFile

       ' ----用例预置条件

       Private Function CasePrepare()

       End Function

       ' ----测试数据输入

       Public Function CaseData(byval RowNum)

       End Function

       ' ----测试执行

       Public Function CaseRun()

       End Function

       ' ----测试结果检查

       Public Function CaseCheck()

       End Function

       '获取测试用例号

       Public Property Get CaseID()

              CaseID = "TestCase_0001"

       End Property

       '获取测试用例名称

       Public Property Get CaseName()

              CaseName = "用户登录"

       End Property

       '----构造函数----

       Private Sub Class_Initialize() 

              DataFile = "C:\autotest\data.xls"

              Call CasePrepare()

    End Sub

       '----解构函数----

       Private Sub Class_Terminate()

       End Sub

End Class

其中Class_initialize为构造函数，类初始化时调用，此处预设了数据文件，并在此处调用了用例预置函数。

Class_Terminate为解构函数，一般用于释放类执行过程种占用的内存等

Property Get用于获取类的属性，此处获取该测试用例类的ID，和名称属性

模拟测试用例，类中包含了测试用例的几个部分：

CasePrepare： 测试预置条件，如测试用户登录，此处可以判断登录界面是否已经显示

Casedata: 测试数据准备，如测试用户登录，此处可以载入登录用户、登录密码等数据

CaseRun：测试执行，如测试用户登录，此处可以执行输入验证码，点击登录按钮等操作

CaseCheck：执行结果检查，如测试用户登录，此处可以对登录结果进行检查，如页面是否正确跳转，如用户、密码不对，是否正确显示提示信息等。

具体在QTP中的使用如下：

Dim CaseLogin

Set CaseLogin = New TestCase

CaseLogin.CaseData 2 ‘载入数据文件中的第2行数据作为测试输入

CaseLogin.CaseRun

If CaseLogin.CaseCheck Then

  Case_LogInfo “测试用例 ”CaseLogin. CaseID & “测试通过！”,MicPass

Else

Case_LogError “测试用例 ”CaseLogin. CaseID & “测试失败！”,MicFail

End If

BatchRun.vbs（转载请注明出处）

同目录下需存在runlist.txt文件，保存需要批量运行的test路径，形如：

c:\autotest\test1
c:\autotest\test2

------------------

On Error Resume Next
error.clear
Dim qtApp
Dim qtTest
Dim qtResultsOpt
Dim fso, MyFile,TestName
Const ForReading = 1, ForWriting = 2

Set WshShell = CreateObject("Wscrīpt.Shell")
WshShell.Popup "开始批量执行自动化测试脚本！", 3, "my AutoTest", 0 + 64

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch

qtApp.Visible = True
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

Set fso = CreateObject("scrīpting.FileSystemObject")
Set MyFile = fso.OpenTextFile(".\RunList.txt", ForReading, True)
Do While MyFile.AtEndOfStream <> True
 TestName = MyFile.ReadLine

 qtApp.Open TestName, True
 Set qtTest = qtApp.Test
 qtTest.Settings.Run.OnError = "Dialog"
 
 Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
 qtResultsOpt.ResultsLocation = TestName &"\AutoRes"
 
 qtTest.Run qtResultsOpt, True
 qtTest.close
 wait 1
Loop

MyFile.Close
qtApp.Quit

MsgBox "自动化测试脚本执行完毕！脚本测试结果存放在各自的AutoRes目录下，请用QTP result工具查看"

Set fso = Nothing
Set qtResultsOpt = Nothing  
Set qtTest = Nothing 
Set qtApp = Nothing
Set WshShell = Nothing