【vfp开源代码栏目提醒】:网学会员,鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“appendrec.prg”一文,供大家参考学习!
OPEN DATABASE netstock SHARED &&共享打开数据库
USE account SHARED && 共享打开表
kg="Y"
DO WHILE kg="Y"
IF RLOCK() &&锁定表
APPEND BLANK
REPLACE name WITH "王新"
REPLACE dept WITH "2号库"
REPLACE username WITH "wxin9000"
REPLACE pass
word WITH "wangx99"
REPLACE role WITH REPLICATE(CHR(20),20)
UNLOCK &&解锁数据
kg="N"
ELSE
WAIT "其他用户正在使用book表。" WINDOW NOWAIT TIMEOUT 10
ENDIF
ENDDO
CLOSE ALL
RETURN