【vfp开源代码栏目提醒】:网学会员在vfp开源代码频道为大家收集整理了createcode.PRG提供大家参考,希望对大家有所帮助!
SET TALK OFF
SET EXACT OFF &&设置字符比较方式
CLEAR &&清屏
SELECT A
USE account &&打开表
hCode="5410" &&将"5410"赋给hCode变量
DO CASE
CASE Dept="办公室"
hCode=hCode+"10"
CASE Dept="1号库"
hCode=hCode+"11"
CASE Dept="2号库"
hCode=hCode+"12"
CASE Dept="3号库"
hCode=hCode+"13"
ENDCASE
hStr=ALLTRIM(STR(RECNO())) &&将记录号转换成字符型数据
IF LEN(hStr)=1
hStr=STUFF(hStr,1,0,"0") &&转换成长度为2的字符串
ENDIF
hCode=hCode+hStr &&添加RECNO()字符串
CLOSE ALL &&关闭表
RETURN &&返回