【结帖】入门手册中同样的问题**

sgmx

http://bbs.justep.com/forum.php? ... hlight=TConfirmKind，我出现了和上述链接同样的问题，但是我在type中定义了
TConfirmKind= (ckAuditing,ckConfirm,ckUndefined);
老保存不了，提示错误啊！

sgmx

unit XSDDYWXX;

interface

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

type
    TXSDDYWXX = class(TInfo)
    DataSetDDSJJ: TSQLDataSet;
    DataSetDDMXSJJ: TSQLDataSet;
    DataSetDDSHSJJ: TSQLDataSet;
    DataSetDDSPSJJ: TSQLDataSet;
    FIELD_DDMXSJJ_HJJE: TExprCalcField;
    FIELD_DDSHSJJ_SPLX: TUserDataField;
    FIELD_DDSPSJJ_SPLX: TUserDataField;

  private
    {private declarations}
  public
    {public declarations}
    {定位当前操作者的审批（审核）记录}
    function LocateOprConfirmRecord(ASPLX : TSPLX) : boolean;
    type TSPLX = (ckAuditing,ckConfirm,ckUndefined);
    {准备一条当前操作者的审批（审核）记录}
    function PrepareOprConfirmRecord(ASPLX : TSPLX) : boolean;
    {获取当前订单号}
    function CurrentDDBH : string;
    {设置订单状态}
    procedure SetDDZT(ADDZT : TDDZT);
    {计算折扣并重新计算总金额}
    procedure CalcDiscounts;
    {计算总金额}
    procedure CalcZJE;
  end;

implementation


end.

sgmx

unit XSDDYWXX;

interface

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

type
    TXSDDYWXX = class(TInfo)
    DataSetDDSJJ: TSQLDataSet;
    DataSetDDMXSJJ: TSQLDataSet;
    DataSetDDSHSJJ: TSQLDataSet;
    DataSetDDSPSJJ: TSQLDataSet;
    FIELD_DDMXSJJ_HJJE: TExprCalcField;
    FIELD_DDSHSJJ_SPLX: TUserDataField;
    FIELD_DDSPSJJ_SPLX: TUserDataField;
   
    TSPLX = (ckAuditing,ckConfirm,ckUndefined);
  private
    {private declarations}
  public
    {public declarations}
    {定位当前操作者的审批（审核）记录}
    function LocateOprConfirmRecord(ASPLX : TSPLX) : boolean;
    type TSPLX = (ckAuditing,ckConfirm,ckUndefined);
    {准备一条当前操作者的审批（审核）记录}
    function PrepareOprConfirmRecord(ASPLX : TSPLX) : boolean;
    {获取当前订单号}
    function CurrentDDBH : string;
    {设置订单状态}
    procedure SetDDZT(ADDZT : TDDZT);
    {计算折扣并重新计算总金额}
    procedure CalcDiscounts;
    {计算总金额}
    procedure CalcZJE;
  end;

implementation


end.

sgmx

请快点帮助解决！

alang

类型定义不能在类定义中，应该放在外面
type
    TSPLX = (ckAuditing,ckConfirm,ckUndefined);

    TXSDDYWXX = class(TInfo)
    DataSetDDSJJ: TSQLDataSet;
    DataSetDDMXSJJ: TSQLDataSet;
    DataSetDDSHSJJ: TSQLDataSet;
    DataSetDDSPSJJ: TSQLDataSet;
    FIELD_DDMXSJJ_HJJE: TExprCalcField;
    FIELD_DDSHSJJ_SPLX: TUserDataField;
    FIELD_DDSPSJJ_SPLX: TUserDataField;
   
  private
    {private declarations}
  public
    {public declarations}
    {定位当前操作者的审批（审核）记录}
    function LocateOprConfirmRecord(ASPLX : TSPLX) : boolean;
    type TSPLX = (ckAuditing,ckConfirm,ckUndefined);
    {准备一条当前操作者的审批（审核）记录}
    function PrepareOprConfirmRecord(ASPLX : TSPLX) : boolean;
    {获取当前订单号}
    function CurrentDDBH : string;
    {设置订单状态}
    procedure SetDDZT(ADDZT : TDDZT);
    {计算折扣并重新计算总金额}
    procedure CalcDiscounts;
    {计算总金额}
    procedure CalcZJE;
  end;

atiger

请楼主在仔细阅读一下你1楼帖出来的连接
1、让你在type中定义一下TConfirmKind = (ckAuditing, ckConfirm, ckUndefined);
      不是让你在这个定义前加上 type 。
2、检查提示的行中是否有汉字的等于等符号，应该写成英文的

sgmx

我原来的位置就是写在type最后，和private之前，只是不是写在type 最前，老出现问题，我察看了一下delphi的书，有一本是type写在function之后的，我才照着做的！

sgmx

好了，写在type的第一个问题就解决了，是不是这句话必须写在TXSDDYWXX = class(TInfo)
这句话之前？谢谢！

alang

TSPLX = (ckAuditing,ckConfirm,ckUndefined);
定义一个枚举类型，当然应该在type中定义了
TXSDDYWXX = class(TInfo)是定义一个类，里面可以定义这个类的域、方法、属性，但是不能定义新的类型

sgmx

还有一个问题，为什么定义了这些方法和过程，但方法和过程如何实现在入门手册中并没有提到阿？所以我在编译的时候提示过程声明了，但是没有定义！