如何自动生成编号？

Question

如何生成通知单编号存入数据库中，比如：
2005年四月 0504001  0504002  0504003 ……0504999
2005年五月 0505001  0505002  0505003 ……0505999
……

Answer 1

http://blog.csdn.net/jinjazz/archive/2004/09/27/118183.aspx

Answer 2

先执行
Create table #1 (dd varchar(7))
Create table a (idd varchar(3), de varchar(4))
再一直执行多遍
declare @count int
Select @count = count(*) from a
if @count > 0
begin
  declare @de1 varchar(10), @de varchar(10), @idd varchar(3)
  select @de = de, @idd = idd from a  
  set @de1 = substring(convert(varchar(4), datepart(yy, getdate())), 3, 4)+convert(varchar(2), datepart(dd, getdate()))
  if @de <> @de1
    Update a set de = @de1, idd = '001'
  else       
  begin
    declare @idd1 int, @idd2 int
    set @idd1 = convert(int, @idd)+1
    set @idd2 = len(@idd1)
    if @idd2 = 1 
      Update a set idd = '00' +convert(varchar(3), @idd1)
    if @idd2 = 2 
      Update a set idd = '0' +convert(varchar(3), @idd1)
    if @idd2 = 3 
      Update a set idd = convert(varchar(3), @idd1)
  end
end
else
begin
  insert a (idd, de) values ('001', substring(convert(varchar(4), datepart(yy, getdate())), 3, 4)+convert(varchar(2), datepart(dd, getdate())))
end
Select * from aInsert #1 (dd) Select de+idd from a
Select * from #1测试过了没问题

Answer 3

//--动态编号
function TCustomerFrm.GetCardId:String;
var
  CurDate,CurYear,CurMonth:string;
  Query:TADOQuery;
begin
    Curdate := leftstr(datetimetostr(now),pos(' ',datetimetostr(now)));
    CurYear := leftstr(curdate,4);
    CurMonth := leftstr(rightstr(curdate,length(curdate)-pos('-',curdate)),pos('-',rightstr(curdate,length(curdate)-pos('-',curdate)-1)));
    if length(Curmonth) = 1 then Curmonth := '0' + Curmonth;
    Query := TADOQuery.Create(self);
    Query.Connection := DM.ADOConnDB;
    Query.SQL.Text:='select max(PID) as PID from Person' +
                    ' where left(PID,6)=''' + curyear + curmonth + '''';
    query.Open;
    if query.FieldByName('PID').AsString = '' then
    begin
      result := curyear + curmonth + '001';
    end
    else if query.FieldByName('PID').AsString <> '' then
    begin
      if RightStr(IntToStr(query.FieldByName('PID').AsString) + 1),3) = '999' then
        result := curyear + curmonth + '001'  //=====如编号等200504999时则为200504001
      else
        result := inttostr(strtoint(query.FieldByName('PID').AsString) + 1); //====否则自加1
    end;
    query.Close;
    query.Free;
end;

Answer 4

如果是单用户的，跟xjjrocker(了无痕) 说的差不多，最简单的办法就是：年+月+流水码，年和月自动获得系统的，流水码取当前最大值+1；如果是多用户的，要搞个流水码缓冲区,且给这些流水码一些标识，比如“未使用”，“被申请使用”，“已经使用”

Answer 5

其实没那么简单的，
因为，你的时间做流号就是判断之前用过的日期和现在的日期是否是同一天
如果不是同一天那么号码就需要从001从新开始
所以我的办法是，建一个表，在里面装入日期也就是0504，流水号001两个字段当你的生产单加一条生产通知单的时候，就需要判断日期是否相同，
如果相同UPDATE

Answer 6

其实没那么简单的，
因为，你的时间做流号就是判断之前用过的日期和现在的日期是否是同一天
如果不是同一天那么号码就需要从001从新开始
所以我的办法是，建一个表，在里面装入日期也就是0504，流水号001两个字段当你的生产单加一条生产通知单的时候，就需要判断日期是否相同，
如果相同UPDATE流水号+1，如果不相同则update日期为当天的日期
流水号为001这样做才是标准的。
因为我以前也做过这方面的。。
ERP

Answer 7

取数据库中最大的ID号，转为INT型，加１就可以了

Answer 8

TO masterjames(三月街)
？？？
你看清楚了吗？
号码是固定的。7位，照你那样加不知道加多少了
而且前4位是日期，我晕死能。