delphi中自动生成单据和记录编号

unit CreateOrderNum;

interface

uses
  Windows,SysUtils,ADODB,StrUtils,Messages,Dialogs;

  Function Create_OrderNum(BH_FieldName,TableName,RQ_FieldName,orderFirst:string):string;
  Function Create_RecordNum(BH_FieldName,TableName,RecordFirst:string):string;
  Function GetNewBHStr(BHTableName, BHFieldName, BHFirst:string; BHLength:Integer):string;//获取唯一编号

implementation

// 注意： 此函数要通过DataModule中的ADOConnection1与数据库相连

uses DataModule;

 

Function Create_OrderNum(BH_FieldName,TableName,RQ_FieldName,orderFirst:string):string;
//-----------------------   Create_OrderNum  函数说明   ------------------------//
//----- 函数作用： 根据时间和数据库已有记录自动生成单据编号                ----//
//----- 参数说明： BH_FieldName(表的编号字段名),TableName(表名),           ----//
//-----            RQ_FieldName(日期字段名),orderFirst(单据开头标识)       ----//
//----- 调用方法： Create_OrderNum('YFK_BH','TDD_YFK','YFK_RQ','YFK');     ----//
//----- 返回值：  字符串类型  如：FKD_201008100001                         ----//
//----- 作者：    苏贵阳     2010-8-10                                     ----//
//-----------------------------------------------------------------------------//
var
  adoQ_temp : TADOQuery;
begin
  adoQ_temp:= TADOQuery.Create(nil);                     //生成临时的ADOQuery变量
  adoQ_temp.Connection := DataModule1.ADOConnection1 ;   //将adoQ_temp与ADOConnection1相连
  with adoQ_temp do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('select %s from %s where %s=:rq',[BH_FieldName,TableName,RQ_FieldName]));
    Parameters.ParamByName('rq').Value := DateToStr(date());
    Open;
    if not adoQ_temp.IsEmpty then
    begin   //如果当天已有记录，则取出最大的编号，然后最后流水号加1
      Last;
      Result:=Format ('%s_%s',[orderFirst,IntToStr(StrToInt64(RightStr(Fields[0].AsString,12))+1)]);
    end
    else    //如果当天尚无记录，则生成一个当天的初始编号
    begin
       Result:=Format('%s_%s',[orderFirst,(FormatDateTime('yyyymmdd',date())+'0001')]);
    end;
    close;
  end;
  adoQ_temp.free;    //释放临时ADOQuery变量
end;
//---------------------------- 常见问题 -----------------------------//
//---- 问题：编号无法自动累加                                    ----//
//---- 解答：请检查该表中日期字段的格式                          ----//
//----       正确的格式如：  2010-08-10 00:00:00.000             ----//
//-------------------------------------------------------------------//

 

Function Create_RecordNum(BH_FieldName,TableName,RecordFirst:string):string;
//-----------------------   Create_RecordNum  函数说明   ----------------------//
//----- 函数作用： 自动生成单据编号，新生成的编号为已有最大编号的下一个    ----//
//----- 参数说明： BH_FieldName(表的编号字段名),TableName(表名),           ----//
//-----            orderFirst(单据开头标识)                                ----//
//----- 调用方法： Create_RecordNum('DTJ_BH','TCP_DTJ','DTJ')              ----//
//----- 返回值：  字符串类型  如：DTJ_0001                                 ----//
//----- 作者：    苏贵阳     2010-8-12                                     ----//
//-----------------------------------------------------------------------------//
var
  str : string;
  adoQ_temp : TADOQuery;
begin
  adoQ_temp:= TADOQuery.Create(nil);                     //生成临时的ADOQuery变量
  adoQ_temp.Connection := DataModule1.ADOConnection1 ;   //将adoQ_temp与ADOConnection1相连
  with adoQ_temp do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('select %s from %s',[BH_FieldName,TableName]));
    Open;
    if not adoQ_temp.IsEmpty then
    begin   //取出最大的编号，然后最后流水号加1
      Last;
      str := IntToStr(StrToInt64(RightStr(Fields[0].AsString,4))+1);
      case  Length(str) of
        1: str :=Format('000%s',[str]);
        2: str :=Format('00%s',[str]);
        3: str :=Format('0%s',[str]);
        4: str :=Format('%s',[str]);
      end;
      Result:=Format ('%s_%s',[RecordFirst,str]);
    end
    else    //如果尚无记录，则生成一个初始编号
    begin
       Result:=Format('%s_%s',[RecordFirst,'0001']);
    end;
    close;
  end;
  adoQ_temp.free;
end;

Function GetNewBHStr(BHTableName, BHFieldName, BHFirst:string; BHLength:Integer):string;//获取唯一编号
//-----------------------   GetNewBHStr  函数说明   ---------------------------//
//----- 函数作用： 自动生成单据编号，新生成的编号为已有最大编号的下一个    ----//
//----- 参数说明： BHTableName(表名),BHFieldName(表的编号字段名),          ----//
//-----            BHFirst(单据开头标识),BHLength(流水号长度)              ----//
//----- 调用方法： GetNewBHStr('TCP_CPXX','CPXX_BH','CPX',4);              ----//
//----- 返回值：  字符串类型  如：CPX_0001                                 ----//
//----- 作者：                                                             ----//
//-----------------------------------------------------------------------------//
var
  BHStr, BHLen, BHNumStr: string;
  IPos, BHNum, I: Integer;
  adoQ_temp : TADOQuery;
begin
  adoQ_temp:= TADOQuery.Create(nil);                     //生成临时的ADOQuery变量
  adoQ_temp.Connection := DataModule1.ADOConnection1 ;   //将adoQ_temp与ADOConnection1相连
  with adoQ_temp do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('select %s from %s',[BHFieldName,BHTableName]));
    Open;
    if not adoQ_temp.IsEmpty then
    begin   //如果当天已有记录，则取出最大的编号，然后最后流水号加1
      Last;
      BHStr:=Fields[0].AsString;
      IPos :=Pos ('_',BHStr);
      if IPos>0 then
      begin
        BHLen:=Copy (BHStr,IPos+1,Length (BHStr));
        BHStr:=Copy (BHStr,1,IPos);
        BHNumStr:=IntToStr(StrToIntDef(BHLen,1)+1);
        while Length (BHNumStr)<Length (BHLen) do BHNumStr:='0'+BHNumStr;
        BHStr:=BHStr+BHNumStr;
      end else
      begin
        BHStr:=Format ('%s_%d',[BHFirst,8888]);
      end;
    end
    else    //如果当天尚无记录，则生成一个当天的初始编号
    begin
      BHNumStr:=IntToStr (1);
      while Length (BHNumStr)<BHLength do BHNumStr:='0'+BHNumStr;
      BHStr:=Format('%s_%s',[BHFirst,BHNumStr]);
    end;
    close;
  end;
  Result:=BHStr;
  adoQ_temp.free;
end;
end.