ClearQuest的动态关联
来源:互联网 发布:linux版eclipse下载 编辑:程序博客网 时间:2024/06/10 01:52
1. 创建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放到窗体上。
2.创建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
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
Set sessionObj = GetSession()
prj_name = GetFieldValue("item").GetValue()
Set queryObj = sessionObj.BuildQuery("one_menu")
queryObj.BuildField ("model_one_menu")
Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_AND)
filterObj.BuildFilter "pm", AD_COMP_OP_EQ, prj_name
Set resultSetObj = sessionObj.BuildResultSet(queryObj)
resultSetObj.Execute
Do While resultSetObj.MoveNext = AD_SUCCESS
choices.AddItem resultSetObj.GetColumnValue(1)
SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
Loop
3、新建一个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
Set sessionObj = GetSession()
prj_name = GetFieldValue("one_menu").GetValue()
Set queryObj = sessionObj.BuildQuery("two_menu")
queryObj.BuildField ("model_two_menu")
Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_AND)
filterObj.BuildFilter "one_menu", AD_COMP_OP_EQ, prj_name
Set resultSetObj = sessionObj.BuildResultSet(queryObj)
resultSetObj.Execute
Do While resultSetObj.MoveNext = AD_SUCCESS
choices.AddItem resultSetObj.GetColumnValue(1)
SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
Loop
- ClearQuest的动态关联
- Rational ClearQuest的郁闷
- ClearQuest 的后台数据库分析
- ClearQuest的FAQ
- ClearQuest---缺陷管理工具的王者
- RTC与ClearQuest的集成
- 项目开发的管理助手--ClearQuest
- UCM ClearCase 与 ClearQuest的集成
- Base ClearCase与ClearQuest的集成
- Base ClearCase与ClearQuest的集成
- 新颖的 Rational ClearQuest Designer for Eclipse
- ClearQuest对Oracle 11g的支持
- 导出和导入ClearQuest的模式
- 解决ClearQuest登录慢的一种方案
- 清除IBM Relational ClearQuest 的缓存垃圾
- vc 动态控件的变量关联
- Flex绘图类的动态关联实现
- 动态获取文件的关联扩展名
- 一步一步学Remoting之三:复杂对象
- 教育部:5年内中国大学将再扩招438万人
- Lex和Yacc入门教程(八).使用堆栈编译语法
- 一步一步学Remoting之四:承载方式
- db_nk_cache_size
- ClearQuest的动态关联
- 一步一步学Remoting之五:异步操作
- 美化上传控件二
- Microsoft .Net Remoting系列专题之一
- Microsoft .Net Remoting系列专题之二
- 正则表达式教程
- Oracle大对象的使用
- Microsoft .Net Remoting系列专题之三
- ASP.NET 2.0中合并 GridView 的表头单元格