📄

📁 我的图书管理系统
💻
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB y1_CLICK()

   L_A="y"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB z1_CLICK()

   L_A="z"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================


sub a11_click()

 l_a="1"

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
      
 END IF
end sub

'========================

sub a10_click()

 l_a="0"
 
   l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================
sub a12_click()

 l_a="2"

 l_old=l_int
   
 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================

sub a13_click()

 l_a="3"
 
 l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
     l_int=l_old
      
 END IF
end sub

'=======================
sub a14_click()

 l_a="4"
 
  l_old=l_int
  
 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
           
   ELSE
   l_int=l_old
      
 END IF
end sub

'=======================
sub a15_click()

 l_a="5"
 
   l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================
sub a16_click()

 l_a="6"
 
 l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================
sub a17_click()

 l_a="7"
 
 l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================
sub a18_click()

 l_a="8"
 
 l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================
sub a19_click()

 l_a="9"
 
 l_old=l_int

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
        
   ELSE
   
   l_int=l_old
      
 END IF
end sub

'=======================

sub tt_click()

 l_a="-"

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
      
 END IF
end sub

'=======================
sub yy_click()

 l_a="."

 L_INT=L_INT+L_A
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
    
        
   ELSE
      
 END IF
end sub

'=======================

   sub jszh_click()

    if jszh.value="" or len(trim(jszh.value))=0 then
       msgbox "借书证号不能为空,请输入借书证号!"
	  ' jszh.seleted

	 else

        rds2.sql="select 姓名 from tjsz where 借书证号='"&trim(jszh.value)&"'"
		rds2.executeoptions=1
		rds2.refresh
		if rds2.recordset.recordcount>0 then

    		  xm.value=rds2.recordset.fields(0)

		  else

	    	  msgbox "借书证号输入错误!请重新输入"
			 ' jszh.selected
        end if

   end if

   end sub

' 待借图书登记
  sub lend_click()
  
   if lb.value="" or len(trim(lb.value))=0 or jxh.value="" or len(trim(jxh.value))=0 or cxh.value="" or len(trim(cxh.value))=0 then

      msgbox "类别,主序号,次序号不能为空!请输入"

      exit sub
   end if
   
    rds2.sql="select * from ttsml where 分类编号='"&trim(lb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' and 库存数量 <> 0  "

    rds2.executeoptions=1

	rds2.refresh

	if rds2.recordset.recordcount<=0 then

	   msgbox "没有找到你所要借的图书!请重新查找"
	   exit sub

    end if


  

    rds2.sql="insert into tdjts(借书证号,姓名,分类编号,主序号,次序号) values('"&trim(jszh.value)&"','"&trim(xm.value)&"','"&trim(lb.value)&"','"&trim(jxh.value)&"','"&trim(cxh.value)&"')"
    
	rds2.executeoptions=1

	rds2.refresh
	
	if err.number=0 then
	 
	 msgbox "待借图书成功!"
     
'	rds2.sql="update ttsml set 库存数量=库存数量-1 where 分类编号='"&trim(lb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
'	rds2.executeoptions=1

'	rds2.refresh
	
	  
	 else

	 msgbox "待借失败"

    end if


  end sub


   sub cancle_click()
   
    jszh.value=""
       xm.value=""
      lb.value=""
       jxh.value=""
       cxh.value=""


   end sub
</script>

</body>
</html>
上一页 1 23
⌨️ 快捷键说明

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