ok2.txt

来自「用VFP实现的图书馆数据库管理」· 文本 代码 · 共 11 行

SET EXACT ON
Select adminstrator
locate for workid=thisform.edtworkid &&And password=edtpassword
SET EXACT OFF
if found()
thisform.rvalue=.T.
thisform.release
else
=MEssageBox("清重新输入",16,"提示")
endif