起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: sxl841117

【搞定】工作台问题**

[复制链接]
 楼主| 发表于 2007-12-13 12:49:13 | 显示全部楼层
我在1楼贴了图的 
我想实现的是:比如我点1985-1994大事记 然后功能里显示的是这条记录的功能
然而我现在做好的,点任何一条记录,都显示的是第一条记录
回复 支持 反对

使用道具 举报

发表于 2007-12-13 13:21:25 | 显示全部楼层
这个显示哪条记录是您控制的。
比如工作台的原理是通过运行功能后面的参数,进行过滤。我的待办功能通过传入的参数进行过滤。
楼主自己调试下参数是否正常接收到了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-13 13:33:06 | 显示全部楼层
CreateDesktopPanel('企业文化', cCorpCultureDoc, cCorpCultureFunc, [U]SysUtils.Format('-vvmCorpCulIssuance -f%s -l%s', [''])), [/U]  
这里是常量库中我加的代码 
SysUtils.Format('-vvmCorpCulIssuance -f%s -l%s', ['']) 里面的参数了解了一些 
-vvmCorpCulIssuance  这个是我的显示模式

%s 是什么意思?不怎么了解。 (DELPHI才刚接触)

“CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])) 
这个是你们写的 ”
[TRTLConsts.NeedProcessTaskTypeStr] 这个里面的我应该怎么写?是怎么样的一个调用过程?

我加下划线的地方应该就是过滤的地方吧 

procedure TCORPCULNavigation.actViewDetailExecute(Sender: TObject);
begin
  Inherited;
   TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\HGOPERATION\CorpCulIssuance.Func',
    [U]DataSetBroker1.DataSet.FieldByName('CultureGUID').[/U] AsString, False, nil, False);
end;
这个是我在导航加的代码
回复 支持 反对

使用道具 举报

发表于 2007-12-13 13:46:11 | 显示全部楼层
您的工作台打开的功能看起来是自定义的。
那就需要自己处理过滤数据的功能。
6楼链接里面有提到的。
自己的功能需要接收参数,然后用参数过滤去。并不是您传个参数就会自动过滤的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-13 14:07:29 | 显示全部楼层
我的导航是有继承的

1.jpg

33.95 KB, 下载次数: 157

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-13 14:08:05 | 显示全部楼层
1

2.jpg

104.1 KB, 下载次数: 156

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-13 14:08:41 | 显示全部楼层
2

3.jpg

96.98 KB, 下载次数: 150

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-13 14:12:42 | 显示全部楼层
那么如果是要用继承的话 应该是怎么弄的 过程大概是怎么样的? 麻烦了
回复 支持 反对

使用道具 举报

发表于 2007-12-13 17:08:47 | 显示全部楼层
最初由 sxl841117 发布
[B]我加下划线的地方应该就是过滤的地方吧 

procedure TCORPCULNavigation.actViewDetailExecute(Sender: TObject);
begin
  Inherited;
   TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\HGOPERATION\CorpCulIssuance.Func',
    DataSetBroker1.DataSet.FieldByName('CultureGUID'). AsString, False, nil, False);
end;
这个是我在导航加的代码
[/B]


这是您传入参数的地方哪个,但不是过滤得地方。
需要在您的'Biz:\HGOPERATION\CorpCulIssuance.Func里面根据传入的参数进行过滤。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-14 10:24:47 | 显示全部楼层
CreateDesktopPanel('企业文化', cCorpCultureDoc, cCorpCultureFunc, SysUtils.Format('-vvmCorpCulIssuance -f%s -l%s', [''])),  

SysUtils.Format('-vvmCorpCulIssuance -f%s -l%s', [''])),  
这里是用来传入过滤参数的? 中括号里的是写的过滤的方法? 
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-2 19:50 , Processed in 0.054408 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表