【vfp开源代码栏目提醒】:本文主要为网学会员提供proca.PRG,希望对需要proca.PRG网友有所帮助,学习一下!
SET TALK OFF
SET EXACT OFF &&设置字符比较方式
CLEAR &&清屏
SELECT A
USE account &&打开表
kg="Y"
DO WHILE kg="Y"
usercode=getcode(A.DEPT,RECNO())
? ALLTRIM(name),"的编号是",usercode
SKIP
IF EOF()
kg="N"
ENDIF
ENDDO
CLOSE ALL &&关闭表
RETURN &&返回
PROCEDURE getcode
PARAMETERS hDept,hRec
hCode="5410"
DO CASE
CASE hDept="办公室"
hCode=hCode+"10"
CASE hDept="1号库"
hCode=hCode+"11"
CASE hDept="2号库"
hCode=hCode+"12"
CASE hDept="3号库"
hCode=hCode+"13"
ENDCASE
hStr=ALLTRIM(STR(hRec))
IF LEN(hStr)=1
hStr=STUFF(hStr,1,0,"0") &&转换成长度为2的字符串
ENDIF
hCode=hCode+hStr &&添加RECNO()字符串
RETURN hCode
ENDPROC