起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: cdz0451

【结贴】继承桌面的文档如何循环数据**

[复制链接]
 楼主| 发表于 2007-10-23 11:31:15 | 显示全部楼层
报错行

11.gif

4.36 KB, 下载次数: 269

回复 支持 反对

使用道具 举报

发表于 2007-10-23 14:59:05 | 显示全部楼层
1.grid中没有显示数据?你添加grid的columns属性了么?
2.procedure TXXCB.actDetailExecute(Sender: TObject);
begin
  TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXSJ.Info\XXCK.FormDoc',
    SysUtils.Format('-vvmPlanDetail -l%s -p', [PlanDataSet.FieldByName('FPlanID').AsString]), False, nil, False);
end;
意思实说运行'Biz:\JTTXM\XXSJ.Info\XXCK.FormDoc'功能
3.出错的数据集你做强制类型转换了么?
  参考:
function TPLANNAV.GetPlanDataSet: TSQLDataSet;
begin
  Result := DataSetBrokerPlan.DataSet as TSQLDataSet;
end;

function TPLANNAV.GetPlanCenterInfo: TPlanCenterInfo;
begin
  Result := InfoBroker.Info as TPlanCenterInfo;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-23 17:17:24 | 显示全部楼层
出了一些错误,你的指导我也不太明白。给你发资源包,你帮忙调试下吧,这个问题已经又1个星期了

信息采编.rar

1.05 MB, 下载次数: 83

回复 支持 反对

使用道具 举报

发表于 2007-10-24 08:50:37 | 显示全部楼层
楼主给的包导入以后“数据信息”编译就有问题,我没有在你的上面做,我做了一个例子楼主参考一下。

demo.rar

1.25 MB, 下载次数: 95

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-24 14:34:55 | 显示全部楼层
看了你给的例子,我按你给的做了一个,但是报了错误,不知道是哪的问题

11.gif

8.04 KB, 下载次数: 233

回复 支持 反对

使用道具 举报

发表于 2007-10-24 14:57:15 | 显示全部楼层
首先确认你修改代码的单元能够编译通过,因为你昨天给我的包的那个最根的信息都编译不过去。
从错误信息看是这个字段没有找到,楼主怎会用到Fplantitle这个计划表中的字段呢?是不是有的地方没有改过来呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-24 14:58:27 | 显示全部楼层
编译已经没问题了,但是我也在找报错的这个字段,我没用这个字段啊
回复 支持 反对

使用道具 举报

发表于 2007-10-24 15:23:28 | 显示全部楼层
把你的代码贴出来看一下吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-24 15:25:05 | 显示全部楼层
unit XXCB;

interface

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

type
  TXXCB = class(DESKTOPINFO.TDESKTOPDOC)
    DataSetBroker1: TDataSetBroker;
    InfoBroker1: TInfoBroker;
    Timer1: TTimer;
    ImageList1: TImageList;
    ActionList1: TActionList;
    PopupMenu1: TPopupMenu;
    Grid: TDataTransparentGrid;
    procedure actDetailExecute(Sender: TObject);
    procedure FormDocCreate(Sender: TObject);
  private
    function GetTestDataSet: TSQLDataSet;
    function GetTestInfo: TXXSJ;
  public
    property TestDataSet: TSQLDataSet read GetTestDataSet;
    property XXSJ: TXXSJ read GetTestInfo;
  end;

implementation

function TXXCB.GetTestDataSet: TSQLDataSet;
begin
  Result := DataSetBroker1.DataSet as TSQLDataSet;
end;

function TXXCB.GetTestInfo: TXXSJ;
begin
  Result := InfoBroker1.Info as TXXSJ;
end;

procedure TXXCB.actDetailExecute(Sender: TObject);
begin
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func','' , False, nil, False);
end;

procedure TXXCB.FormDocCreate(Sender: TObject);
begin
  DataSetBroker1.DataSet.Open;
end;     //这行是报错的行

end.
回复 支持 反对

使用道具 举报

发表于 2007-10-24 15:48:53 | 显示全部楼层
procedure TXXCB.FormDocCreate(Sender: TObject);函数中的
Inherited;  怎么没有了?
这样试试:
procedure TXXCB.FormDocCreate(Sender: TObject);
begin
Inherited;
TestDataSet.Open;
end;   

另外把协同常量库修改的地方铁出来看一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-30 00:16 , Processed in 0.045765 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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