ClearQuest的動態關聯

領測軟件測試網 一. 創建Record types –Stateless：
1、 在Record Types –Stateless中創建一個type，其名字叫：“項目”，其DBName為“item”。
2、 然后在項目中的fields中新建一個field，取名字為“item_name”，其type選擇為SHORT_STRING。
3、 在項目的forms中選擇把該field放到窗體上。
 
 
4、 在Record Types –Stateless中創建一個type，其名字叫：“一級菜單”，其DBName為“one­_menu”。
5、 然后在項目中的fields中新建一個field，取名字為：“model­_one_name”，其type選擇為SHORT_STRING。另外再創建一個type其field name為：“item­_name”；type為：REFERENCE，其Reference To為：“項目”。
6、 在項目的forms中選擇把該field放到窗體上。
 
 
7、 在Record Types –Stateless中創建一個type，其名字叫： “二級菜單”，其DBName為：“two­_menu”。
8、 然后在項目中的fields中新建一個field，取名字為：“model­_two_name”，其type選擇為SHORT_STRING。另外再創建一個type其field name為：“model­_one_name”；type為：REFERENCE，其Reference To為：“一級菜單”。
9、 在項目的forms中選擇把field放到窗體上。
 
 
二．創建Record types：
    1、新建一個field，其field name為：“項目”，type為：REFERENCE，其Reference To為：“項目”。其choice list為BASIC，點Basic的右鍵，點Hook properties；在出現的對話框中選中：Recalculate choice List.其代碼如下：
       Dim sessionObj
            Dim queryObj
            Dim filterObj
            Dim resultSetObj
            Dim prj_name
            Dim curSession
 
            Set sessionObj = GetSession()
 
            Set queryObj = sessionObj.BuildQuery(\"item\")
            queryObj.BuildField (\"item_name\")       
            Set resultSetObj = sessionObj.BuildResultSet(queryObj)
 
resultSetObj.Execute    
 
            Do While resultSetObj.MoveNext = AD_SUCCESS [Page]
             choices.AddItem resultSetObj.GetColumnValue(1)
SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
            Loop
 
2、新建一個field，其field name為：“一級菜單”，type為：REFERENCE，其Reference To為：“一級菜單”。其choice list為BASIC，點Basic的右鍵，點Hook properties；在出現的對話框中選中：Recalculate choice List.其代碼如下：
 Dim sessionObj
    Dim queryObj
    Dim filterObj
    Dim resultSetObj
    Dim prj_name 
 

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: clearquest ClearQuest 動態