Delphi自动生成编码

原文地址：Delphi自动生成编码作者：Halu小红

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)
       BHStr:=BHStr+BHNumStr;
     end else
     begin
       BHStr:=Format ('%s_%d',[BHFirst,8888]);
     end;
    end
   else   //如果当天尚无记录，则生成一个当天的初始编号
    begin
     BHNumStr:=IntToStr (1);
     while Length (BHNumStr)
     BHStr:=Format('%s_%s',[BHFirst,BHNumStr]);
    end;
    close;
  end;
  Result:=BHStr;
  adoQ_temp.free;
end;
end.