【vfp开源代码栏目提醒】:网学会员为需要vfp开源代码的朋友们搜集整理了createproduct.PRG相关资料,希望对各位网友有所帮助!
SET TALK OFF &&设置环境变量
SET EXACT OFF
SELECT A &&打开相关表
USE 物品
SELECT B
USE prodtype
SELECT C
USE products
SELECT A
kg="Y" &&设置循环变量
DO WHILE kg="Y" &&DO WHILE 循环
hName=A.物品名称
hModel=A.规格型号
myType=A.物品类型
hManufact=A.生产厂商
hUnit=A.计量单位
hRec=RECNO()
SELECT B
LOCATE FOR typename=myType
IF FOUND()
hType=B.typecode
ELSE
? "没有找到物品类型",myType,"的编号"
EXIT &&出现错误,退出循环
ENDIF
hCode=generateCode(hType,hRec)
SELECT C &&追加物品信息记录
APPEND BLANK
REPLACE pcode WITH hCode
REPLACE pname WITH hName
REPLACE pmodel WITH hModel
REPLACE ptype WITH hType
REPLACE manufact WITH hManufact
REPLACE unit WITH hUnit
SELECT A
SKIP &&下移物品表的表指针
IF EOF()
kg="N"
ENDIF
ENDDO
CLOSE ALL &&关闭表
RETURN
FUNCTION generateCode
LPARAMETERS gType,gRec
gCode=gType+"00000" &&生成8位编码
hStr=ALLTRIM(STR(gRec))
gCode=STUFF(gCode,9-LEN(hStr),LEN(hStr),hStr) &&在字符串中替换字符
RETURN gCode &&返回生成的编码
ENDFUNC