表单自编号规则

以前开发的规则是从数据库中以计数形式累计+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;

分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~