起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 238|回复: 7

【结贴】自动编号的问题(请教。。。)**

[复制链接]
发表于 2008-4-22 16:00:20 | 显示全部楼层 |阅读模式
我有一个计划编号(字符型)2008-04-21001
                          2008-04-22001
                                                    2008-04-22002
日期后加001然后每天以此累加,新的一天自动为001
我设计了了一个业务参数
procedure TYWCSZ1.ParamYWCS1GetValue(Sender: TObject; var Value: Variant);
const
   cZeroLeng = '000';
var
  sDate: String;
begin
  sdate := SysUtils.FormatDateTime('yyyy-mm-dd',SysUtils.Date);
  //sDate := StrUtils.MidStr(sdate,3,2);
  Value := TCOMMONUTILS.GetAutoIncreaseID(Self.Context,
    TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  Value := sDate+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0',3);
end;
然后表自动填充,现在的问题是我每次进去都自动加1,怎么判断
当天最大然后加1
回复

使用道具 举报

发表于 2008-4-22 16:16:22 | 显示全部楼层
GetAutoIncreaseID  这个函数特点就是这样的(获取一次编号,就会被占用),除非自己写。
或者不用自动填充的方式填充编号,只在保存的时候填充编号。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-22 16:22:13 | 显示全部楼层
有没有其他这方面的函数,包括自己写的,给介绍下。谢谢
回复 支持 反对

使用道具 举报

发表于 2008-4-22 16:58:30 | 显示全部楼层
现成的没有了。如果不想占用编号,就不要用自动填充了。或者自己用存储过程算出一个编号。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-22 17:16:14 | 显示全部楼层
看似实现起来很麻烦,比较头疼。。。
回复 支持 反对

使用道具 举报

发表于 2008-4-22 17:32:55 | 显示全部楼层
楼主对数据库比较熟悉,可以用存储过程啊
回复 支持 反对

使用道具 举报

发表于 2008-5-4 15:01:32 | 显示全部楼层
楼主请回馈
回复 支持 反对

使用道具 举报

发表于 2008-5-4 16:08:33 | 显示全部楼层
就是用存储过程写的 现在能实现了 结贴
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-12 02:56 , Processed in 0.039569 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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