ok2.txt

用VFP实现的图书馆数据库管理

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