【结帖】无聊的错误**

jianth2005

我有2个不同的功能,同时引用一个资源集,代码完全一样.其中一个报错,一个正确.这个是不是平台的漏洞啊.报错如下:

jianth2005

这个到底是什么错误啊?

zfang

首先请再检查下你1楼所说的这些设置，重新编译一下代码，再运行看是否还报这错？
跟踪一下代码，看在什么时候报的这个错？

jianth2005

procedure THYZKTJZJ.BizFormShow(Sender: TObject);
begin
     czrz:=GGZYJ.TGGZYJ.Create(self);
     czmk:='婚姻状况';
end;
跟踪的时候发现在czrz:=GGZYJ.TGGZYJ.Create(self);这行报错

zfang

czrz:=GGZYJ.TGGZYJ.Create(self);
这个是创建什么？

jianth2005

创建公共数据集.公共数据集的代码如下:
unit GGZYJ;

interface

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

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.

zfang

http://bbs.justep.com/forum.php? ... =%D7%CA%D4%B4%BC%AF
请楼主看下这个帖子

jianth2005

我的资源集代码没有错,就是在创建的时候我用nil.我检测出来了.谢谢!
结帐

zfang

好，谢谢反馈！