设为首页收藏本站
开启辅助访问 切换到窄版

起步软件技术论坛-X3

 找回密码
 立即注册
搜索
起步软件技术论坛-X3»论坛 › X3开发者技术论坛 › 开发者论坛 › 【搞定】帮忙看看为什么出错!!**
123下一页
返回列表 发新帖
楼主: happycpu

【搞定】帮忙看看为什么出错!!**

[复制链接]
happycpu
 楼主| 发表于 2007-7-30 13:55:26 | 显示全部楼层
atiger...O了么?
回复 支持 反对

使用道具 举报

yancm
发表于 2007-7-30 14:26:14 | 显示全部楼层
self为空 ，说明 信息 对象 没有创建就引用了 。楼主检查一下贴出来的之 前的代码吧
回复 支持 反对

使用道具 举报

atiger
发表于 2007-7-30 14:27:18 | 显示全部楼层
你跟踪过吗？在 if not DataSetLJ_ZDY.Active  then  设置断点看看DataSetLJ_ZDY 这个对象是否空？
如果为空，说明数据集没有创建，那么就需要创建这个数据集才可以
回复 支持 反对

使用道具 举报

happycpu
 楼主| 发表于 2007-7-30 15:17:51 | 显示全部楼层
DataSetLJ_ZDY.是个自定义数据集..

在上面的资源包里可以看到.

晕..重新启动一下TOMCAT..怎么出来这个情况啊.

11112.jpg

20.62 KB, 下载次数: 68
回复 支持 反对

使用道具 举报

yancm
发表于 2007-7-30 15:29:08 | 显示全部楼层
\X3 Server\conf\config.justep.xml文件坏了，不是标准的xml结构，无法识别

另，请楼主下次每个问题单独开贴，便于查找
回复 支持 反对

使用道具 举报

happycpu
 楼主| 发表于 2007-7-30 15:34:51 | 显示全部楼层
好的..知道了..


先不要结..我修好了再来.
回复 支持 反对

使用道具 举报

happycpu
 楼主| 发表于 2007-7-30 15:47:24 | 显示全部楼层
是的这个数据集是为空.

那要怎样才能创建这个数据集呢.
回复 支持 反对

使用道具 举报

yancm
发表于 2007-7-30 15:51:18 | 显示全部楼层
看12楼，不仅是数据集为空的问题，是数据集所在的信息就为空！！！！
回复 支持 反对

使用道具 举报

happycpu
 楼主| 发表于 2007-7-30 16:01:01 | 显示全部楼层
unit MKCXCYWXX;

interface

uses
  Business.System, Business.Model, Business.Data;

const
  STRCONN = 'DATABASEURL=Biz:\TRJT\JTSJK.DATABASE';
  //生产累计
  SqlStr_SCLJ='select mz,hc,jj,yk,xs,hclj=sum(hc) ,jjlj=sum(jj),yklj=sum(yk),hjlj=sum(hc+jj+yk),xslj=sum(xs),kclj=sum(hc+jj+yk-xs),bz from MKRBMXB ';
  //销售累计
  SqlStr_XSLJ='select xsfl,xsdd,xsl,xslhj=sum(xsl),dj,drysk=dj*xsl,yskhj=sum(dj*xsl),sk,skhj=sum(sk),xsbz from MKXSMXB';

type
  TMKCXCYWXX = class(TInfo)
    DataSetTB_Z: TSQLDataSet;
    DataSetTB_C_SC: TSQLDataSet;
    DataSetTB_C_XS: TSQLDataSet;
    FIELD_TB_C_SC_DRZCL: TExprCalcField;
    FIELD_TB_C_SC_DRKC: TExprCalcField;
    FIELD_TB_C_XS_YSK: TExprCalcField;
    FIELD_TB_C_SC_DRHCHJ: TAggField;
    FIELD_TB_C_SC_DRJJHJ: TAggField;
    FIELD_TB_C_SC_DRYKHJ: TAggField;
    FIELD_TB_C_SC_DRXSHJ: TAggField;
    FIELD_TB_C_SC_DRZCLHJ: TAggField;
    FIELD_TB_C_SC_DRKCHJ: TAggField;
    FIELD_TB_C_XS_DRXSLHJ: TAggField;
    FIELD_TB_C_XS_DRYSKHJ: TAggField;
    FIELD_TB_C_XS_DRSJSKHJ: TAggField;
    DataSetLJ_SC: TUserDataSet;
    FIELD_LJ_ZDY_MZ: TUserDataField;
    FIELD_LJ_ZDY_HC: TUserDataField;
    FIELD_LJ_ZDY_HCLJ: TUserDataField;
    FIELD_LJ_ZDY_JJ: TUserDataField;
    FIELD_LJ_ZDY_JJLJ: TUserDataField;
    FIELD_LJ_ZDY_YK: TUserDataField;
    FIELD_LJ_ZDY_YKLJ: TUserDataField;
    FIELD_LJ_ZDY_HJ: TUserDataField;
    FIELD_LJ_ZDY_HJLJ: TUserDataField;
    FIELD_LJ_ZDY_XS: TUserDataField;
    FIELD_LJ_ZDY_XSLJ: TUserDataField;
    FIELD_LJ_ZDY_KC: TUserDataField;
    FIELD_LJ_ZDY_KCLJ: TUserDataField;
    FIELD_LJ_ZDY_BZ: TUserDataField;
    DataSetLJ_XS: TUserDataSet;
    FIELD_LJ_XS_XSFS: TUserDataField;
    FIELD_LJ_XS_XSDD: TUserDataField;
    FIELD_LJ_XS_XSL: TUserDataField;
    FIELD_LJ_XS_DJ: TUserDataField;
    FIELD_LJ_XS_LJXSL: TUserDataField;
    FIELD_LJ_XS_YSK: TUserDataField;
    FIELD_LJ_XS_YSKLJ: TUserDataField;
    FIELD_LJ_XS_SJSK: TUserDataField;
    FIELD_LJ_XS_SJSKLJ: TUserDataField;
    FIELD_LJ_XS_XSBZ: TUserDataField;
    DataSetFX_RB: TPivotDataSet;
  private
    {private declarations}
  public
     //生产累计 三个参数，1、开始时间 2、结束时间 3、单位
      procedure Sum_SCLj(ADate:String;BDate:String;Cdw:String);
     //销售累计 三个参数，1、开始时间 2、结束时间 3、单位
     procedure SumbyXSLJ(ADate:String;BDate:String;Cdw:String);

  end;

implementation
     procedure TMKCXCYWXX.Sum_SCLj(ADate:String;BDate:String;Cdw:String);
       var   Sql_SCLJ:TQuery;
             Sql_SCLJ_Str:string;
           begin
              if not DataSetLJ_SC.Active  then
                     DataSetLJ_SC.Open ;
                     DataSetLJ_SC.EmptyDataSet ;
                     Sql_SCLj:=TQuery.Create (nil);
                try
                      Sql_SCLj.ConnectionString:=STRConn;
                      Sql_SCLJ_Str:= SqlStr_SCLJ;
                      Sql_SCLJ_Str:=Sql_SCLJ_Str
                      + 'where  ZBGUID in (Select guid from mkrbb where TBRQ>= '''+Adate+''' and TBRQ <= '''+BDate+''
                      +'''and TBDW=  '''+Cdw+''')'
                      +'group by mz,hc,jj,yk,xs,bz';
                      Sql_SCLj.CommandText:=Sql_sclj_str;
                      Sql_sclj.open;
                 finally
                     Sql_SCLJ.Free ;
                end;
                //jsDialogs.showmsg('','');
           end;
  //----------------------------------------------------------------------------------


  //---------------------------------------------------------------------------------

   procedure TMKCXCYWXX.SumbyXSLJ(ADate:String;BDate:String;Cdw:String);
         var
             Sql_XSLJ:TQuery;
             Sql_SCXS_Str:string;
            begin
            if not DataSetLJ_XS.Active then
                   DataSetLJ_XS.Open;
                   DataSetLJ_XS.EmptyDataSet;
                   Sql_XSLJ:=TQuery.Create (nil);
                   try
                     Sql_XSLJ.CommandText :=STRCONN;
                     SQl_SCXS_STR:= SqlStr_XSLJ;
                     SQl_SCXS_STR:=SQl_SCXS_STR
                      + 'where  ZBGUID in (Select guid from mkrbb where TBRQ>= '''+Adate+''' and TBRQ <= '''+BDate+''
                      +'''and TBDW=  '''+Cdw+''')'
                      +'group by xsfl,xsdd,xsl,dj,sk,xsbz';
                     Sql_XSLJ.CommandText :=SQl_SCXS_STR;
                     Sql_XSLJ.Execute ;
                   finally

                   end;
            end;
end.


呵呵.初学者..这是全部单元的代码..帮忙看看。




unit MKCXCYWXX;

interface

uses
  Business.System, Business.Model, Business.Data;

const
  STRCONN = 'DATABASEURL=Biz:\TRJT\JTSJK.DATABASE';
  //生产累计
  SqlStr_SCLJ='select mz,hc,jj,yk,xs,hclj=sum(hc) ,jjlj=sum(jj),yklj=sum(yk),hjlj=sum(hc+jj+yk),xslj=sum(xs),kclj=sum(hc+jj+yk-xs),bz from MKRBMXB ';
  //销售累计
  SqlStr_XSLJ='select xsfl,xsdd,xsl,xslhj=sum(xsl),dj,drysk=dj*xsl,yskhj=sum(dj*xsl),sk,skhj=sum(sk),xsbz from MKXSMXB';

type
  TMKCXCYWXX = class(TInfo)
    DataSetTB_Z: TSQLDataSet;
    DataSetTB_C_SC: TSQLDataSet;
    DataSetTB_C_XS: TSQLDataSet;
    FIELD_TB_C_SC_DRZCL: TExprCalcField;
    FIELD_TB_C_SC_DRKC: TExprCalcField;
    FIELD_TB_C_XS_YSK: TExprCalcField;
    FIELD_TB_C_SC_DRHCHJ: TAggField;
    FIELD_TB_C_SC_DRJJHJ: TAggField;
    FIELD_TB_C_SC_DRYKHJ: TAggField;
    FIELD_TB_C_SC_DRXSHJ: TAggField;
    FIELD_TB_C_SC_DRZCLHJ: TAggField;
    FIELD_TB_C_SC_DRKCHJ: TAggField;
    FIELD_TB_C_XS_DRXSLHJ: TAggField;
    FIELD_TB_C_XS_DRYSKHJ: TAggField;
    FIELD_TB_C_XS_DRSJSKHJ: TAggField;
    DataSetLJ_SC: TUserDataSet;
    FIELD_LJ_ZDY_MZ: TUserDataField;
    FIELD_LJ_ZDY_HC: TUserDataField;
    FIELD_LJ_ZDY_HCLJ: TUserDataField;
    FIELD_LJ_ZDY_JJ: TUserDataField;
    FIELD_LJ_ZDY_JJLJ: TUserDataField;
    FIELD_LJ_ZDY_YK: TUserDataField;
    FIELD_LJ_ZDY_YKLJ: TUserDataField;
    FIELD_LJ_ZDY_HJ: TUserDataField;
    FIELD_LJ_ZDY_HJLJ: TUserDataField;
    FIELD_LJ_ZDY_XS: TUserDataField;
    FIELD_LJ_ZDY_XSLJ: TUserDataField;
    FIELD_LJ_ZDY_KC: TUserDataField;
    FIELD_LJ_ZDY_KCLJ: TUserDataField;
    FIELD_LJ_ZDY_BZ: TUserDataField;
    DataSetLJ_XS: TUserDataSet;
    FIELD_LJ_XS_XSFS: TUserDataField;
    FIELD_LJ_XS_XSDD: TUserDataField;
    FIELD_LJ_XS_XSL: TUserDataField;
    FIELD_LJ_XS_DJ: TUserDataField;
    FIELD_LJ_XS_LJXSL: TUserDataField;
    FIELD_LJ_XS_YSK: TUserDataField;
    FIELD_LJ_XS_YSKLJ: TUserDataField;
    FIELD_LJ_XS_SJSK: TUserDataField;
    FIELD_LJ_XS_SJSKLJ: TUserDataField;
    FIELD_LJ_XS_XSBZ: TUserDataField;
    DataSetFX_RB: TPivotDataSet;
  private
    {private declarations}
  public
     //生产累计 三个参数，1、开始时间 2、结束时间 3、单位
      procedure Sum_SCLj(ADate:String;BDate:String;Cdw:String);
     //销售累计 三个参数，1、开始时间 2、结束时间 3、单位
     procedure SumbyXSLJ(ADate:String;BDate:String;Cdw:String);

  end;

implementation
     procedure TMKCXCYWXX.Sum_SCLj(ADate:String;BDate:String;Cdw:String);
       var   Sql_SCLJ:TQuery;
             Sql_SCLJ_Str:string;
           begin
              if not DataSetLJ_SC.Active  then
                     DataSetLJ_SC.Open ;
                     DataSetLJ_SC.EmptyDataSet ;
                     Sql_SCLj:=TQuery.Create (nil);
                try
                      Sql_SCLj.ConnectionString:=STRConn;
                      Sql_SCLJ_Str:= SqlStr_SCLJ;
                      Sql_SCLJ_Str:=Sql_SCLJ_Str
                      + 'where  ZBGUID in (Select guid from mkrbb where TBRQ>= '''+Adate+''' and TBRQ <= '''+BDate+''
                      +'''and TBDW=  '''+Cdw+''')'
                      +'group by mz,hc,jj,yk,xs,bz';
                      Sql_SCLj.CommandText:=Sql_sclj_str;
                      Sql_sclj.open;
                 finally
                     Sql_SCLJ.Free ;
                end;
                //jsDialogs.showmsg('','');
           end;
  //----------------------------------------------------------------------------------


  //---------------------------------------------------------------------------------

   procedure TMKCXCYWXX.SumbyXSLJ(ADate:String;BDate:String;Cdw:String);
         var
             Sql_XSLJ:TQuery;
             Sql_SCXS_Str:string;
            begin
            if not DataSetLJ_XS.Active then
                   DataSetLJ_XS.Open;
                   DataSetLJ_XS.EmptyDataSet;
                   Sql_XSLJ:=TQuery.Create (nil);
                   try
                     Sql_XSLJ.CommandText :=STRCONN;
                     SQl_SCXS_STR:= SqlStr_XSLJ;
                     SQl_SCXS_STR:=SQl_SCXS_STR
                      + 'where  ZBGUID in (Select guid from mkrbb where TBRQ>= '''+Adate+''' and TBRQ <= '''+BDate+''
                      +'''and TBDW=  '''+Cdw+''')'
                      +'group by xsfl,xsdd,xsl,dj,sk,xsbz';
                     Sql_XSLJ.CommandText :=SQl_SCXS_STR;
                     Sql_XSLJ.Execute ;
                   finally

                   end;
            end;
end.
回复 支持 反对

使用道具 举报

happycpu
 楼主| 发表于 2007-7-30 16:05:03 | 显示全部楼层
初学者帮忙看看...



在告诉我怎么创建这个数据集..
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-13 06:14 , Processed in 0.043172 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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