fds

[lidanbing]

sele 图书信息表
      loca for 图书条形码=alltrim(thisform.text1.value)
  if found()
      t1=借阅状态
       t2=图书条形码
         
    if t1=="在馆"
       messagebox("图书在馆，可以借阅！",48,"提示") 
    else 
        
        sele 读者信息表
        loca for 读者条形码=alltrim(thisform.text2.value)
        if found()
        t3=姓名 
        t4=联系方式
        insert into 预约信息表(图书条形码,读者条形码,读者姓名,联系方式,预约时间) value( t2,thisform.text2.value,t3,t4,date()) 
        messagebox("预约成功！",48,"提示")
        endif
        endif
    endif