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.ltesting.net