表单自编号规则

以前开发的规则是从数据库中以计数形式累计+1,但是出现删除单据后会出现变的错乱。
遂又寻找方案,在群里,群主提到了他的编号规则,时间日期,产生一启发。
方案1:
代码:jbbh.Caption:='SC'+FormatDateTime('yymmddhhmmss',Now())+inttostr(Random(9));/
一句话搞定,另或采用函数
代码如下:
function zibianhao(str1: string): string; {自编号//代码由序铭提供}
var
Hour, Min, Sec, MSec: Word;
str2: string;
begin
DecodeTime(Now, Hour, Min, Sec, MSec);
str2 := inttostr(Random(Sec));
if length(str2) = 1 then
str2 := '0' + str2;
Result := str1 + FormatDateTime('yyyymmddhhmmss', Now()) + str2;
end;

分享到: