VFP表单查找

[macd43561]

各位帮帮忙,我用VFP做一个图书管理系统的借书界面,当输入借书证号按回车键,界面中的姓名自动出现,当输入图书证号按回车键,界面中的书名自动出现.读者的表为reader.dbf, 书信息的表为book.dbf. 我在实现时第一步能实现,但第二步总是显示"图书证号错误".请大家帮我看看那边出了问题,是不是表book没打开?应该怎么实现?急!急!
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13
use f:\图书管理系统\book.dbf
private tsbh
select book
tsbh=alltrim(thisform.text5.value)
if found() and alltrim(图书编号)=alltrim(thisform.text5.value)
select * from book where 图书编号==tsbh
thisform.text6.value=书名
thisform.text7.value=作者
thisform.text8.value=价格
thisform.refresh
else
messagebox("图书编号错误！",48,"警告")
thisform.refresh
endif
endif

[msd88]

If nKeyCode=13
    use f:\图书管理系统\book.dbf alias book in 0
    local c_tsbh
    select book
    c_tsbh=alltrim(thisform.text5.value)
    Locate all for alltrim(图书编号)=c_tsbh
    If Found()
        thisform.text6.value=书名
         thisform.text7.value=作者
         thisform.text8.value=价格
    else
        messagebox("图书编号错误！",48,"警告")
   endif
endif

[十豆三]

Lparameters nKeyCode, nShiftAltCtrl
If  nKeyCode=13 And !Empty(Thisform.text5.Value)
	If !Used("book")
		Use F:\图书管理系统\book.Dbf Alias book  In 0
	Endif
	Select book
	m.tsbh=Alltrim(Thisform.text5.Value)
	Locate For Alltrim(图书编号)==m.tsbh
	If Found()
		Thisform.text6.Value=书名
		Thisform.text7.Value=作者
		Thisform.text8.Value=价格
		Thisform.Refresh
	Else
		Messagebox("图书编号错误！",48,"警告")
	Endif
Endif

如果此代码在 Text5 的 Keypress 事件中，也可以这样：

Lparameters nKeyCode, nShiftAltCtrl
If  nKeyCode=13 And !Empty(This.Value)
	If !Used("book")
		Use F:\图书管理系统\book.Dbf Alias book  In 0
	Endif
	Select book
	m.tsbh=Alltrim(This.Value)
	Locate For Alltrim(图书编号)==m.tsbh
	If Found()
		Thisform.text6.Value=书名
		Thisform.text7.Value=作者
		Thisform.text8.Value=价格
		Thisform.Refresh
	Else
		Messagebox("图书编号错误！",48,"警告")
	Endif
Endif