【结贴】平台登录后的工具选项功能**

zywindy · 发表于 2009-2-28 10:55:44

我可不可以在图中所示的窗体中增加功能呢？

zfang · 发表于 2009-2-28 11:53:16

增加什么功能？

zywindy · 发表于 2009-3-2 07:43:38

就是在界面上再加上一些颜色控制

zfang · 发表于 2009-3-2 08:50:35

楼主，这个选项调用的是：业务模型\协同系统\配置\参数设置功能库\用户选项设置窗体
我的是3102版本，具体你看看吧。

zywindy · 发表于 2009-3-2 14:58:59

我已经在这个窗体上增加了几个控制颜色的按钮，我想用户修改颜色之后把值能赋给参数，然后在下次登录的时候能显示修改后的颜色，可是我设置了以后，注销运行后可以，但是退出再重新运行的时候，这个参数的值根本没有改变，怎么办呢？

zywindy · 发表于 2009-3-2 15:23:50

procedure TCT1.Button1Click(Sender: TObject);
var
  lParam: Business.Model.TBizParam;
  lStr: string;
begin
  lParam := JUSTEPCOMMONUNIT.TJUSTEPCOMMONUNIT.GetParam(Self.Context,
'Biz:\YWKJ1\DICT\YWCSZ1.ParamGroup', 'YWCS1');
lParam.Value := 11;
  Dialogs.ShowMessage(Variants.VarToStr(lParam.Value));
end;

用这种方法赋值以后，退出平台，再看业务参数的表达式值根本没有发生变化，这个问题怎么解决啊！

zfang · 发表于 2009-3-2 15:52:48

你具体怎么做的呢？

zywindy · 发表于 2009-3-2 16:04:30

我在用户选项设置窗体中添加了几个控制颜色的按钮，点击按钮选择颜色以后将值利用上面的方法赋给业务参数，但是退出平台后，再运行，结果参数的值还是赋值之前的，也就是说这个业务参数的表达式值根本没有改变

zfang · 发表于 2009-3-2 16:17:41

楼主，平台的机制是这样的，这个选项中的设置是保存在TSYSINFO表的，存的是xml格式的内容，具体控制都是通过TSETTINGLIB和TBusinessConfig这两个类来实现的。你可以具体参考一下，业务模型\协同系统\配置\参数设置功能库\用户选项设置窗体中的相关属性设置，业务模型\系统空间\系统运行库\配置库里加上相关的属性。然后在标准风格主窗体中去找FConfig这个对象的相关代码。

zywindy · 发表于 2009-3-3 08:31:32

我已经按照楼上的调试好了，但是我设置了颜色后，我创建的窗体怎么调用这些颜色呢

		自动登录	找回密码
密码			立即注册