autoinc.prg

来自「课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。」· PRG 代码 · 共 21 行

*——“AutoInc”函数
*     作用：使“000000XX”形式的编号自动加1
*     接收“0000XX”形式的字符串作为参数
*	  字符串长度限制为10
FUNCTION autoinc(nCode)
	*——获取字符串长度
	nLen=Len(nCode)
	*——将字符型转换为数值型，即获取非0部分的数值
	nCode = VAL(nCode)
	*——非0部分数字加1
	nCode = nCode + 1
	*——转换为字符型
	nCode = ALLTRIM(STR(nCode))
	*——获取转换后的字符串的长度
	nLength = LEN(nCode)
	*——在数字之前加上前置“0”
	nZero="000000000000"
	nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
	*——返回结果
	RETURN nCode
ENDFUNC