起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 459|回复: 12

【结】资源集里面定义常量怎么不能引用

[复制链接]
发表于 2010-3-3 08:24:41 | 显示全部楼层 |阅读模式
资源集里面定义常量怎么不能引用
unit COMMONRES;

interface

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

const
  const_num = 1


这个在另外一个窗体不能引用,会提示说没有定义标识符
我已经在项目中引用啦
回复

使用道具 举报

发表于 2010-3-3 08:32:58 | 显示全部楼层
在const上面加个implementation 试试
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 08:46:14 | 显示全部楼层
unit COMMONRES;

interface

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

const
  const_num = 1

type
  //存储参数的记录
  TParamInfo=Record
    recno:String;
    displayName:String;
    value:String;
    value2:String;
    value3:String;
    sort:String;
    remark:String;
  end;
  //存储套帐信息的记录
  TAccInfo=Record
    userid:String;
    userName:String;
    account:String;
    server:String;
    remark:String;
    connStr:String;
    URL:String;
  end;
  //自定义一个信息和信息处理类 消息内容是一个字符串Msg
  TMyMessage = class(TBizMessage)
  private
    FMsg: String;
  public
    constructor Create(AMsg: String);
    static function Name: String;
    property msg: String read FMsg;
  end;

  //定义消息接收类TMyMessageHandler,重载DoExecute方法,在这个方法中处理消息
  TMyMessageHandler = class(TBizMessageHandler)
  private

  public
    Flabel: TLabel;
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
  end;

  TCOMMONRES = class(TBizLibrary)
  private
    {private declarations}
  public
    //字符串扩充
    //功能:返回定长字符串,在S左边加上系列字符C,产生长度为Len的字符串。
    //例如 s = '1', C = '0', Len = 10, 则Result = ‘0000000001’
    static function StringOfChar(Ch: Char; Count: Integer): string;
    static function StrToRightLenStr(S: string;C: Char;Len: Integer): string;
    //获取操作人员ID,姓名
    static function GetOperatorID(AContext: TContext): String;
    static function GetOperatorName(AContext: TContext): String;
    //获取帐套信息
    //功能传入参数为人员ID,公共字段 Gaccount,Gserver,Gremark,GconnStr存储查询后的结果
    static function GetAccInfo(AContext: TContext):TAccInfo;
    //根据名称 取 表参数控制JC_PARAM的值
    static function GetParamByName(AConStr:String;AName:String):TParamInfo;
    //初始化窗体的bizImageList
    static procedure iniImageList(vbizImageList:TBizImageList);
    //获取单据号
    static function GetBillNo(ConStr:String;BillID:string):string;
    //取小数位数
    static function ngRound(value:double; decimal: integer): double;
    static function ngRecordCopy(vSourceDS, vDestDS: TDataSet): Boolean;
  end;



implementation
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 08:50:47 | 显示全部楼层
不行的  把这个CONST放在implementation后面   那岂不是定义这个单元的私有常量
回复 支持 反对

使用道具 举报

发表于 2010-3-3 08:57:24 | 显示全部楼层
在资源集的类里写静态方法(用来返回常量)的方式来实现。
当然也可以用参数来实现,就看你自己了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-4 10:05:50 | 显示全部楼层
可以用参数来实现?  怎么实现?业务参数?
回复 支持 反对

使用道具 举报

发表于 2010-3-4 10:17:38 | 显示全部楼层
在资源集的类里写静态方法(用来返回常量)的方式来实现。这个简单些。
参数指的是指业务参数
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-4 10:36:55 | 显示全部楼层
那你们定义全局变量怎么定义   用静态方法 ?  太麻烦了
回复 支持 反对

使用道具 举报

发表于 2010-3-4 10:42:19 | 显示全部楼层
http://bbs.justep.com/forum.php?mod=viewthread&tid=3492
3楼。
全局的,设置业务参数的隔离级为全局
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-4 11:13:21 | 显示全部楼层
type
  TrfidCMD = (rcUnknown, rcEcho, rcLogOn, rcLogOff, rcSetTime, rcSetUser, rcSetLanguage, rcSetPassword, rcLed,
              rcBeep, rcClearScreen, rcTextOut, rcCollectData, rcDeleteData , rcFormatData, rcGetData, rcCancelGet);

const
  rfidCMDCaptions: array [TrfidCMD] of string =
             ('Unknown', 'Echo', 'Log On', 'Log Off', 'Set Time', 'Set User', 'Set Language', 'Set Password', 'Led',
              'Beep', 'Clear Screen', 'Text Out', 'Collect Data', 'Delete Data', 'Format Data', 'Get Data', '');

  rfidCMDFormat: array [TrfidCMD] of string =
             ('', 'No Param', 'Worker No, RFID (234561 3EAF5)', 'No Param', 'YMDHNS (%08%07%15%11%20%10)', 'Worker No (234561)', '%0 - Eng, %1 - GB (%1)', 'Set Password (000000)', 'LED NO, ACT (%1%1)',
              'N, GAP (%03%10)', 'X1Y1X2Y2 (%00%01%10%03)', 'XYDATA (%11%02 TEST)', 'No Param', 'RFID NO (3EC13F)','Format Data','%Timeout in Sec (%6)','No Param');

我向这样定义  要在哪里定义才可以?
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 03:54 , Processed in 0.046846 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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