select 图书信息查询
if alltrim(thisform.text1.value)==""
   messagebox("图书必须填充!",64,"提示")
   else
  locate for alltrim(thisform.text1.value)==alltrim(图书信息查询.图书编号)
    if not eof()
    messagebox("此编号已经存在,请重新输入",64,"提示")
    thisform.text1.value=""
    thisform.text2.value=""
    thisform.text3.value=""
    thisform.text4.value=""
    thisform.text5.value=""
    thisform.text6.value=""
    thisform.text1.setfocus
  else
    append blank
    replace 图书编号 with alltrim(thisform.text1.value)
    replace 图书名称 with alltrim(thisform.text2.value)
    replace 价格 with alltrim(thisform.text3.value)
    replace 作者 with alltrim(thisform.text4.value)
    replace 出版社 with alltrim(thisform.text5.value)
    replace 内容简介 with alltrim(thisform.text6.value)
    messagebox("添加成功！")
    thisform.text1.value=""
    thisform.text2.value=""
    thisform.text3.value=""
    thisform.text4.value=""
    thisform.text5.value=""
    thisform.text6.value=""
    thisform.text1.setfocus
   endif
  endif
thisform.list1.requery
thisform.refresh