select reader
locate for alltrim(读者号)==alltrim(thisform.text1.value)
if not found()
messagebox("没有此文件")
else
select rkind
locate for alltrim(类别代码)==alltrim(reader.类别代码)
rnum=允借数
rdate=允借时间
select reader
if 已借数量>=rnum
messagebox("已经超过允许借阅数量")
else
select book
locate for left(书号,6)==alltrim(left(thisform.text2.value,6))and 是否借出=.t.
if not found()
messagebox("此书已经全部借出")
else
repl 是否借出 with .t.
repl reader.已借数量 with reader.已借数量+1
sele borrow
append blank
repl 书号 with book.书号
repl 读者号 with reader.读者号
repl 借阅日期 with date()
repl 应还日期 with date()+rdate
messageebox("借阅日期")
endif
endif
endif
这是我做的表单借书中的源代码。但我不知道还书的源代码怎么编写，请大家帮帮忙，教教小弟。