⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 -+-ڢ

📁 我的图书管理系统
💻
📖 第 1 页 / 共 2 页
字号:
🔍
12 

     end if

   else

     msgbox "借书证号输入错误!此人没有借书!"
	 exit sub
  

  end if

  rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "

  rds1.executeoptions=1
  rds1.refresh

  if rds1.recordset.recordcount>0 then

    sm=rds1.recordset.fields(0).value
    zz=rds1.recordset.fields(1).value
    xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
  
   else

    msgbox "没有找至此图书,请重新输入!"
   
   exit sub

  end if


  rds2.sql="SELECT 图片 FROM TJSZ WHERE  借书证号 = '"&trim(jszh.value)&"' "

  rds2.executeoptions=1
  rds2.refresh

  TP=RdS2.recordset.FIELDS(0).VALUE

  jszh_1.value=jszh.value
  fllb_1.value=fllb.value
  xm_1.value=name
  sh_1.value=xh
  sm_1.value=sm
  if isnull(zz)=true then
  
    zz_1.value = ""
   else
    zz_1.value=zz
  end if  

 js.disabled=true
 hs.disabled=true
 xj.disabled=true
 b2.disabled=true
 hs_1.disabled=false
 xj_1.disabled=true

  sure.disabled=true


end if


end sub


'借书

 SUB SURE_CLICK()

   RDS1.SQL="INSERT INTO TJSDJ(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(XJTS.value)&"')"
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH



   IF ERR.NUMBER=0 THEN

    RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(XJTS)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH

    rds1.sql="update ttsml set 库存数量=库存数量-1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="update tjsz set 借书本数=借书本数+1 where 借书证号='"&trim(jszh.value)&"'"
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="delete from tdjts where 借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh


	MSGBOX "此书成功借出!"

	js.disabled=false
	hs.disabled=false
	xj.disabled=false
	b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

	
   end if


 END SUB


'还书

 sub hs_1_click()
   
   RDS1.SQL="delete from TJSDJ    where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH

   IF ERR.NUMBER=0 THEN

    rds1.sql="update ttsml set 库存数量=库存数量+1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="update tjsjl set 还书日期=getdate() where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	MSGBOX "还书成功!"

   js.disabled=false
   hs.disabled=false
   xj.disabled=false
    b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

   	
   end if

 end sub

sub xj_click()
  
  if jszh.value="" or len(trim(jszh.value))=0 or fllb.value="" or len(trim(fllb.value))=0 or jxh.value="" or len(trim(fllb.value))=0  then

      msgbox "借书证号,分类编号,主序号不能为空!"
	  EXIT SUB
   else

      rds1.sql="SELECT * FROM Tjsdj WHERE  借书证号= '"&trim(jszh.value)&"' "
   
      rds1.executeoptions=1

      rds1.refresh

      if rds1.recordset.recordcount>0 then
         
       rds1.sql="SELECT 姓名 FROM Tjsz WHERE  借书证号= '"&trim(jszh.value)&"' "
   
       rds1.executeoptions=1

       rds1.refresh

       if rds1.recordset.recordcount>0 then
     
          name=rds1.recordset.Fields(0).Value
  
       else

          msgbox  "此借书证号没有登记借书、请重新输入!"

       exit sub

      end if
    else

       msgbox "此人没有借书,不能进行续借!"
	   exit sub

   end if
	
	 rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "

     rds1.executeoptions=1

     rds1.refresh

    if rds1.recordset.recordcount>0 then

       sm=rds1.recordset.fields(0).value
       zz=rds1.recordset.fields(1).value
       xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
  
    else

      msgbox "没有找至此图书,请重新输入!"
    exit sub

    end if


    rds2.sql="SELECT 图片 FROM TJSZ WHERE  借书证号 = '"&trim(jszh.value)&"' "

    rds2.executeoptions=1
    rds2.refresh

    TP=RdS2.recordset.FIELDS(0).VALUE

    jszh_1.value=jszh.value
    fllb_1.value=fllb.value
    xm_1.value=name
    sh_1.value=xh
    sm_1.value=sm
    if isnull(zz)=true then
    
     zz_1.value=""
     else
      zz_1.value=zz 
   end if
    js.disabled=true
    hs.disabled=true
    xj.disabled=true
    b2.disabled=true
    hs_1.disabled=true
    xj_1.disabled=false

   sure.disabled=true


  end if

 end sub

 sub xj_1_click()

   RDS1.SQL="delete from TJSDJ  where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH

   IF ERR.NUMBER=0 THEN

   	rds1.sql="update tjsjl set 还书日期=getdate() where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh
    
	RDS1.SQL="INSERT INTO Tjsdj(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(sJTS.value)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH
	 

    RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(sJTS.value)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH
	
	MSGBOX "续借图书成功!"

    js.disabled=false
    hs.disabled=false
    xj.disabled=false
    b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

   	
   end if


end sub

sub b2_click()

 jszh.value=""
 fllb.value=""
 jxh.value=""
 cxh.value="0"
 xjts.value="0"
 sjts.value="0"

end sub

sub cancel_click()

 jszh_1.value=""
 fllb_1.value=""
 xm_1.value=""
 sh_1.value=""
 sm_1.value=""
 zz_1.value=""

  js.disabled=false
  hs.disabled=false
  xj.disabled=false
  b2.disabled=false
  sure.disabled=true
  hs_1.disabled=true
  xj_1.disabled=true

end sub
</script>

</table>
</center></div>
</body>
</html>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -