过程:一系列的活动,把输入转化成输出的流程,其中的活动可裁剪.
规程:为了细致一个活动的具体做法而做的说明,可被别的流程调用,主要是强调步骤,告诉别人怎么去做.
规范:主要是针对输出的,实现一个活动的标准

    流程需要和工具结合，只有好的工具才能有力推动我们的流程实施起来。我们在实际工作中当bug状态修改的时候让我们的开发人员添加研发的评论在里面，针对这个功能我们来进行实现？针对该功能进行实现，打开qc9.2，登陆项目进行自定义，选择Workflow,打开scrīpt editor，编写代码

    qc作为测试管理工具除了本身四大模块的管理功能，其中很吸引人的地方就可以通过workflow定制其测试流程，并根据情况定制其功能。

   案例1： 如某项目组，项目组成员经常会误操作状态为closed的bug内容，为了缺陷得到保护，可以在workflow中的defects_bug_moveto事件中添加如下代码：作用是把所有状态为closed的bug为只读。

      Sub Defects_Bug_MoveTo
      On Error Resume Next
      if Bug_Fields("BG_STATUS" ).value = "Closed" then
          For i=0 to Bug_Fields.Count
              Bug_Fields.FieldById(i).IsReadOnly = True
          Next
       end if
       On Error GoTo 0
      End Sub

   51Testing自2004年3月份在上海成立公司后专注测试领域，于04年10月8日开第一期软件测试就业班，到现在为止已经开了60期测试班了，每个班参加培训的人数有30-40人，同时在深圳北京上海在读的学员就有400多名，已经就业的学员到已达1890人（这60期班还不包括在上海开的一期软件测试就业业余班的学员），学员分布在全国it发达城市的432家公司。我有幸成为最早加入51Testing的一名员工，员工号为：005，当时加入的时候只有博为峰（李波  王威  周峰）三人还有一位后来被喻为51Testing两龙两凤之一的 张兆凤，51最能干的出纳。当时基本上公司属于一穷二白，经过公司4年多的发展已经有了三家分舵：上海博为峰软件技术有限公，博为峰教育科技（北京）有限公司，深圳博为峰信息技术有限公司。

   因为内部高手如云才会有今天的这种成就：

   51testing就业培训的首席第一代掌门人 -  周峰  外号袖珍斯瓦辛格  据说每次上课都单臂俯卧撑3000，搞的学员敬畏。

   51Testing就业培训的上海第二代掌门人（周峰第一代） -  宋峰 外号 魅力男人 曾经迷倒女子三千，粉丝无穷，据说很多学员为了追他这颗星 统一了组织名称叫做 宋饭。第一次见他是在51testing江湖英雄会（51testing沙龙斑竹聚会）上见到，自此一见对他倾倒万分，恨不能成为女子。

   51Testing就业培训的上海左护法 - 周春江 外号 春春 面对无数风波，曾经在51testing的圣地-公司办公室，与学员交流达5个小时之久，据说当时学员出来泪流雨下，感动非常。曾经南下厦门横扫建行信息中心，江湖自此成名。擅长 顺风顺水测试流程掌，单元测试紧密罗股拳。

   51Testing就业培训的上海右护法 - 王琰 外号 小黄蓉（曾经有学员给51testing老师按照金庸小说中的人物评，因此留下了大名） 聪明伶俐，擅长兰花缺陷佛穴手。

   51Testing就业培训的上海神秘高手之一 - 陈霁 江湖人称 云层 ，上课风趣幽默，让人摸不着底，深不可测，为人行踪飘忽 一会在江南出现 一会再大漠出现（51testing全国师资统一调配，所以可能会在上海上课也可能在北京上课）擅长 大力金刚性能测试掌 千丝万缕数据飘换步。

  51Testing就业培训的上海神秘高手之一 - 吴晓红 外号 江湖一点红，从苏州走来，在福州成名，福州富士通一战（51testing和别的培训机构不一样的地方在于老师也要做企业培训，所以对老师的要求很高），威名远镇。多次被就业培训学员点名指教。  

  北京是51testing一重地，内部也是高手如云，神秘非常，据说在不管什么样的学员不管什么样的素质到了北京51testing都成了一名江湖中人，已经培养了多位测试届高手。此地神秘莫测。。。。

  51Testing就业培训北京掌门人 是一位女掌门 - 商莉 外号 商妈妈 曾经是51testing出动多位能人才请动，据说此位在江湖上价位非凡，在阿里巴巴支付宝开坛讲经过。女中豪杰。妈妈的外号来自其孩子，其孩子誉为小天使，海子聪明伶俐。和另外一位51testing史上最智慧的男人 徐林林的儿子（还没出生）结为连理了。

  51Testing就业培训北京护法  - 田威峰  外号 强人  为人不善言笑，为人严谨，功力深厚，开发测试全能手，曾经在多个大战役（多个千万级项目）中带领兄弟（他是项目经理）出生入死，是51testing全国所有分舵中 第一开发高手。

  51Testing就业培训来自神秘岛的高手 - 王静兰 外号 神秘人，唯一一位在上海北京都长期战斗过的高手。在北京

   其他还有很多高人如51testing北京的教母苗文静 ，传奇人物之一，是51testing最特别爱情的得主，和学员谈恋爱-51testing上海第15期学员，现在Hp做自动化测试工作，据说正在装修屋舍，准备结婚。已经有多人在他的指点下走向成功。51testing史上最完美的男人王海龙，被誉为男人中的极品，女人的最爱。

  我们自己都说51testing是个黑社会，孕育了很多小帮派，如北京51testing的烟囱帮，主要是北京4期班的学员，里面高手如云，有到神州数码做性能测试的李锋，有专门去天阳宏业做自动化测试秦英凯，有在东软做手机测试的大姐大，还有其他小组织，测试四人帮，据说有位要去日本了。还有很多传说，有一期班被誉为钱多多 水多多，还有学员中出了一个51testing历史上最善于思考的学员，自己就测试的内容开发了很多自己独创的测试模型。

   51testing最小的学员是北京2期的学员的孩子，当时她来上课的时候孩子还在他的肚子里，她是一位测试经理。估计以后这个人能成为最有发展潜力的测试高手。。。。。期待

   在自动化测试过程中，发现问题需要对其进行保存和提交，下面是利用qtp的自动提交缺陷到qc中，代码如下： 

      Dim TDConnection

      Set TDConnection = CreateObject("TDApiOle.TDConnection")

      TDConnection.InitConnectionEx "http://192.168.1.180:8080/qcbin"
      TDConnection.Login "pcl", ""
      TDConnection.Connect "深圳博为峰信息技术有限公司", "mis"
      If TDConnection.Connected Then

          MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName + chr (13) +"Project " + TDConnection.ProjectName )

     Else

       MsgBox("Not Connected")

End If

     Set BugFactory = TDConnection.BugFactory

     Set Bug = BugFactory.AddItem (Nothing)

     Bug.Status = "New"

       Bug.Summary = "Connecting to TD"

       Bug.Priority = "4-Very High" ' depends on the DB

       Bug.AssignedTo = "admin" ' user that must exist in the DB's users list

       Bug.DetectedBy = "admin" ' user that must exist in the DB's users list

     Bug.Post

     set Bug=nothing

    set TDConnection =nothing

   把qc服务器上bug输出到本地excel表中，利用Quality Center Open Test Architecture API -OTA COM 9.0编写脚本代码读取服务器上bug列表，以下代码在vb中编写，调试通过。

 注意：The OTAClient.dll (OTA COM 9.0 Type Library) 从服务器上下载后保存在你本机文件夹
\Program Files\Common Files\Mercury Interactive\Quality Center下。

代码：    

     Dim QCConnection As TDConnection
     Dim BugFactory As BugFactory
    
     Dim BugList
     Dim Bug As Bug
     Dim Row As Integer
     Dim Excel, Sheet
         
         
     On Error GoTo makeConnectionErr
    
     If (QCConnection Is Nothing) Then
        Set QCConnection = New TDAPIOLELib.TDConnection
     End If
   
     If (QCConnection Is Nothing) Then GoTo makeConnectionErr
    

         
    
     QCConnection.InitConnectionEx "http://192.168.1.180:8080/qcbin"
     QCConnection.Login "pcl", ""
     'DEFAULT = Domain, QualityCenter_Demo = Project
     QCConnection.Connect "深圳博为峰信息技术有限公司", "mis"
    
     If QCConnection.Connected = True Then
       
       
       
        Debug.Print "Connection Success"
       
        If QCConnection.LoggedIn = True Then
        Debug.Print "Logedin"
        If QCConnection.ProjectName <> "mis" Then
            
             If QCConnection.ProjectConnected = True Then
                Debug.Print "ok"
             End If
         End If
      End If
    
     Else
        MsgBox "Connection Failed"
     End If
    
     'Check status.
     
            
           
        

     Set BugFactory = QCConnection.BugFactory
     Set BugList = BugFactory.NewList("")
    
    
    
     Set Excel = CreateObject("Excel.Application")
     Excel.WorkBooks.Add
     Set Sheet = Excel.ActiveSheet

    Row = 1
        Sheet.Cells(Row, 1).Value = "BG_BUG_ID"
        Sheet.Cells(Row, 2).Value = "Summary"
        Sheet.Cells(Row, 3).Value = "DetectedBy"
        Sheet.Cells(Row, 4).Value = "Priority"
        Sheet.Cells(Row, 5).Value = "Status"
        Sheet.Cells(Row, 6).Value = "AssignedTo"
     
   Row = 2
   For Each Bug In BugList
        Sheet.Cells(Row, 1).Value = Bug.Field("BG_BUG_ID")
        Sheet.Cells(Row, 2).Value = Bug.Summary
        Sheet.Cells(Row, 3).Value = Bug.DetectedBy
        Sheet.Cells(Row, 4).Value = Bug.Priority
        Sheet.Cells(Row, 5).Value = Bug.Status
        Sheet.Cells(Row, 6).Value = Bug.AssignedTo
        Row = Row + 1
    Next

    Excel.ActiveWorkbook.SaveAs ("c:\QualityCenter_DEFECTS.xls")
    Excel.Quit

    Set Excel = Nothing
    Set BugList = Nothing
   
    QCConnection.ReleaseConnection
    Set QCConnection = Nothing
makeConnectionErr:
   Debug.Print Err, fName, Err.Descrīption & vbCrLf & errmsg