已经在楼主给的资源包上做了测试。现在把你们界面方案使用的修改步骤列出
1、修改配置文件中的默认界面为用户自定义的界面方案。
2、修改用户自定义界面方案中的系统接口
function TSystemInterface.CreateMainForm(AContext: TContext): TForm;
var
lPostions: array of TOperatorPosition;
begin
TCommonComponentLibrary.UserSystem.CurrentUser := TSystemCore.Operator;
if not Opr.IsSystemManager(TSystemCore.Operator.ID) then
if TSystemLoginDialog.GetPersonMember = nil then
TCommonComponentLibrary.UserSystem.CurrentPosition := TOperatorPosition(TSystemCore.Operator.Positions[0])
else
begin
with TSystemLoginDialog.GetPersonMember do
if TSystemCore.Operator.FindPosition(Parent.Parent.ID, Parent.ID, ID, lPostions) then
TCommonComponentLibrary.UserSystem.CurrentPosition := lPostions[0]
else
raise Exception.CreateFmt('找不到岗位');
end;
Result :=MFChild.TProfessionalExtChild.Create(AContext);
end;
3、在用户自定义方案中的系统接口中需要引入
业务模型\系统空间\系统运行库\系统核心库
业务模型\系统空间\用户界面基础\库\公共组件库
4、在用户自定义方案中的系统接口中uses下加入
CommonComponentLibrary, BaseSystemInterface, SystemCore
如下:
uses
Business.System, Business.Model,Business.Forms,
CommonComponentLibrary, BaseSystemInterface, SystemCore;
5、保存编译后就可以用自定义的界面了。 |