【搞定】报错**

jianth2005

代码停止在这里:
szbm:=lContextCurrent.Dept.DisplayName;

atiger

你是在设计环境下直接运行功能的还是运行系统初始化来运行功能的？如果是前者，用后者看看。

如果是后者，请问1楼的代码写到哪个对象上，功能？信息？还是资源集？

jianth2005

我是写在功能上

jianth2005

在功能里面调用资源集的信息时错误

atiger

没有看的太明白
你的意思
1、是运行系统初始化，然后从功能树上来运行该功能的？
2、1楼的代码是写在功能上了？
3、能把代码帖全了吗？
资源集中被功能调用的代码包括声明，和功能调用资源集中的代码

另外，http://bbs.justep.com/forum.php?mod=viewthread&tid=21849  这个帖子你看一下，是否与你那边的情况类似

jianth2005

procedure TGZXMZJ.Button_bcClick(Sender: TObject);//功能
var
   czrz:GGZYJ.TGGZYJ;//调用资源集
   czmk,cznr_cz:string;//操作日志
begin
czrz.czrz(self.Context,czmk,cznr_cz)
end;

jianth2005

资源集合代码
unit GGZYJ;

interface

uses
  Business.System, Business.Model,Business.data, Business.Forms;

type
  TGGZYJ = class(TBizLibrary)

    Query1: TQuery;
  private
    {private declarations}
  public
    {public declarations}
  procedure czrz(AContext:TContext;czmk,cznr:string);
  end;

implementation
procedure TGGZYJ.czrz(AContext:TContext;czmk,cznr:string);
var
   Query_czrz:TQuery;
   lContextCurrent: TContextCurrent;
   ygxm,dlzh,szbm:string;
begin
     lContextCurrent := Business.Model.TContextCurrent.Create(AContext);
     ygxm:=lContextCurrent.Operator.DisplayName;
     dlzh:=lContextCurrent.Operator.ID;
     szbm:=lContextCurrent.Dept.DisplayName;
     Query_czrz:=TQuery.Create(SELF);
     Query_czrz.Close;
     Query_czrz.ConnectionString := 'DATABASEURL=Biz:\RLZYGLXT\RLZYGLXTSJK.Database';
     Query_czrz.CommandText := 'insert CZRZ(YGBH,YGXM,DLZH,SZBM,CZMK,CZSJ,CZNR,XZ) values('''+dlzh+''','''+ygxm+''','''+dlzh+''','''+szbm+''','''+czmk+''','''+SysUtils.DateTimeToStr(SysUtils.Now)+''','''+cznr+''',0)';
     Query_czrz.Execute;
end;
end.

jianth2005

procedure TGZXMZJ.Button_bcClick(Sender: TObject);//功能
var
   czrz:GGZYJ.TGGZYJ;//调用资源集
   czmk,cznr_cz:string;//操作日志
begin
czrz.czrz(self.Context,czmk,cznr_cz)
end;
资源集代码:
unit GGZYJ;

interface

uses
  Business.System, Business.Model,Business.data, Business.Forms;

type
  TGGZYJ = class(TBizLibrary)

    Query1: TQuery;
  private
    {private declarations}
  public
    {public declarations}
  procedure czrz(AContext:TContext;czmk,cznr:string);
  end;

implementation
procedure TGGZYJ.czrz(AContext:TContext;czmk,cznr:string);
var
   Query_czrz:TQuery;
   lContextCurrent: TContextCurrent;
   ygxm,dlzh,szbm:string;
begin
     lContextCurrent := Business.Model.TContextCurrent.Create(AContext);
     ygxm:=lContextCurrent.Operator.DisplayName;
     dlzh:=lContextCurrent.Operator.ID;
     szbm:=lContextCurrent.Dept.DisplayName;
     Query_czrz:=TQuery.Create(SELF);
     Query_czrz.Close;
     Query_czrz.ConnectionString := 'DATABASEURL=Biz:\RLZYGLXT\RLZYGLXTSJK.Database';
     Query_czrz.CommandText := 'insert CZRZ(YGBH,YGXM,DLZH,SZBM,CZMK,CZSJ,CZNR,XZ) values('''+dlzh+''','''+ygxm+''','''+dlzh+''','''+szbm+''','''+czmk+''','''+SysUtils.DateTimeToStr(SysUtils.Now)+''','''+cznr+''',0)';
     Query_czrz.Execute;
end;
end.
补充一句,我建功能的时候是把主窗体删了.然后复制我做好的窗体上去的.这样会不会有影响?

atiger

我建功能的时候是把主窗体删了.然后复制我做好的窗体上去的.这样会不会有影响?
应该不会

请问你是在怎么运行这个功能的？我从2楼就开始问了，你是通过系统初始化模拟运行平台运行功能的，还是直接运行功能的？请用系统初始化模拟运行平台运行功能看看是否正常

另外，你的功能的隔离级设置为啥，是未定义还是岗位还是岗位成员？

jianth2005

直接运行功能有问题.在系统初始化模拟运行没有问题.什么原因?