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

rzport_hxp · 发表于 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

lixy · 发表于 2008-4-22 16:16:22

GetAutoIncreaseID 这个函数特点就是这样的（获取一次编号，就会被占用），除非自己写。
或者不用自动填充的方式填充编号，只在保存的时候填充编号。

rzport_hxp · 发表于 2008-4-22 16:22:13

有没有其他这方面的函数，包括自己写的，给介绍下。谢谢

lixy · 发表于 2008-4-22 16:58:30

现成的没有了。如果不想占用编号，就不要用自动填充了。或者自己用存储过程算出一个编号。

rzport_hxp · 发表于 2008-4-22 17:16:14

看似实现起来很麻烦，比较头疼。。。

lixy · 发表于 2008-4-22 17:32:55

楼主对数据库比较熟悉，可以用存储过程啊

lixy · 发表于 2008-5-4 15:01:32

楼主请回馈

rzport_gongyu · 发表于 2008-5-4 16:08:33

就是用存储过程写的现在能实现了结贴

		自动登录	找回密码
密码			立即注册