起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 301|回复: 13

[请求]流水号参数的引用**

[复制链接]
发表于 2007-4-23 14:23:37 | 显示全部楼层 |阅读模式
我想引用流水号参数,但是运行出来的不是我想要的格式,我想要的是0001这种格式,请问该如何修改代码,谢谢
回复

使用道具 举报

发表于 2007-4-23 15:18:20 | 显示全部楼层
TCOMMONUTILS.StrToRightLenStr()函数
回复 支持 反对

使用道具 举报

发表于 2007-4-23 15:20:40 | 显示全部楼层
TCOMMONUTILS.StrToRightLenStr(TCOMMONUTILS.GetAutoIncreaseID(context,'唯一ID',''),'0',4)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-23 15:47:33 | 显示全部楼层
写在哪呀,唯一id是指什么,新手!!谢谢
回复 支持 反对

使用道具 举报

发表于 2007-4-23 16:13:46 | 显示全部楼层
在你自己的功能中写就可以了,TCOMMONUTILS在 业务模型\业务系统\公共\公共函数\公共函数中,用的时候要先引用这个资源集
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-24 08:01:17 | 显示全部楼层
??不明白,能不能说的具体怎么做呀!!
回复 支持 反对

使用道具 举报

发表于 2007-4-24 08:54:47 | 显示全部楼层
比如你在你的功能窗体上放一个按钮,在Onclick事件中这样写
procedure TMainForm.Button1Click(Sender: TObject);
var
  lNo: string;
begin
  lNo := COMMONUTILS.TCOMMONUTILS.StrToRightLenStr(COMMONUTILS.TCOMMONUTILS.GetAutoIncreaseID(context,'aaa',''),'0',4);
end;
注意要在项目管理中引入 业务模型\业务系统\公共\公共函数\公共函数
lNo就是你想要的流水号
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-24 10:13:25 | 显示全部楼层
可以留下QQ吗,我是新手,没有去参加过培训,所以操作起来比较麻烦,请见谅!!
我是想在这个张出现后,编号自动生成
回复 支持 反对

使用道具 举报

发表于 2007-4-25 09:51:21 | 显示全部楼层
建议楼主看看 入门手册  3.2.4         创建“订单编号”业务参数
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-25 16:01:35 | 显示全部楼层
看了,设置没问题,到了赋值怎么写0001.0002.....
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-6 20:03 , Processed in 0.042890 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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