ttsjyproc.asp

我的图书管理系统

<script language="vbscript">
 '=============================
 
 '待借图书
 sub lend_click()
 
 
 
  if rds1.recordset.recordcount<=0 then
   
   exit sub
   
  end if 
  
 
  l=false
    
  if l_press= false then
  
 
   
    dim l_t,l_r,l_k,l_l,l_d  
    
    l_t=instrrev(rds1.recordset.fields(0),"/")
    
      
    l_k=instrrev(rds1.recordset.fields(0),"-")
    
    l_r=mid(rds1.recordset.fields(0),1,l_t-1)
    
    l_l=mid(rds1.recordset.fields(0),l_t+1,(l_k-l_t)-1)
    
    l_d=trim(mid(rds1.recordset.fields(0),l_k+1))
    
      
    
    
    rds2.sql="select * from ttsml where 分类编号='"&l_r&"' and 主序号='"&l_l&"' and 次序号='"&l_d&"' and 库存数量 > 0  "
 
    rds2.executeoptions=1

	rds2.refresh
 
	if rds2.recordset.recordcount<=0 then

	   msgbox "你所要借的图书库存为零!请重新查找"
	   
	   exit sub

    end if
    
    
 '找出文件里的IC卡号及地址   

  
    
     Dim xk_tjh,f,t,icno,xk_1,f1,t1,c_no
    
     
   set xk_1=CreateObject("Scripting.FileSystemObject")
     
   if xk_1.fileexists("c:\windows\no.txt")=true then
    
     set  f1 = xk_1.OpenTextFile("c:\windows\no.txt",1,-2)
         
     t1 = f1.readline
        
     c_no=trim(t1)
        
     f1.Close
     
     rds2.sql="select * from manager where ip地址='"&c_no&"' and ltrim(rtrim(状况))='read' "
   
     rds2.executeoptions=1
     rds2.refresh
     if rds2.recordset.recordcount<=0 then
     
        msgbox "请稍微等一会,管理员还没有准备好",,"提示窗口"
        exit sub
        
     end if    
     
   
   else

     msgbox "没有设置网卡地址号,请按电脑的顺序在c:\windows\no.txt文件中设置为1或2或3等",,"提示窗口" 
     exit sub
   
   end if  
  '\\\\\\\\\\\\\\\\\\\ 

   
   rds2.sql="insert into tdjts(分类编号,主序号,次序号,IP地址,借还) values('"&l_r&"','"&l_l&"','"&l_d&"','"&c_no&"','1')"
   
   rds2.executeoptions=1

   rds2.refresh
	
	if err.number=0 then
	 
	 msgbox "待借图书成功!"
     
	
	  
	 else

	 msgbox "待借失败"

    end if

'  end if
  
end if  
 
end sub

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

'还书

sub return_click()

  if rds1.recordset.recordcount<=0 then
   
   exit sub
   
  end if 
  
  
  l=false
    
  if l_press= false then
  
 
   
    dim l_t,l_r,l_k,l_l,l_d  
    
    l_t=instrrev(rds1.recordset.fields(0),"/")
    
      
    l_k=instrrev(rds1.recordset.fields(0),"-")
    
    l_r=mid(rds1.recordset.fields(0),1,l_t-1)
    
    l_l=mid(rds1.recordset.fields(0),l_t+1,(l_k-l_t)-1)
    
    l_d=trim(mid(rds1.recordset.fields(0),l_k+1))
    

    rds2.sql="select * from ttsml where 分类编号='"&l_r&"' and 主序号='"&l_l&"' and 次序号='"&l_d&"'"  
    rds2.executeoptions=1

	rds2.refresh

	if rds2.recordset.recordcount<=0 then

	   msgbox "你没有借此书图书!请重新查找",,"提示窗口"
	   
	   exit sub

    end if
    
    
 '找出文件里的IC卡号及地址   

  
    
     Dim xk_tjh,f,t,icno,xk_1,f1,t1,c_no
    
     
      set xk_1=CreateObject("Scripting.FileSystemObject")
      
      if xk_1.fileexists("c:\windows\no.txt")=true then
         
         set  f1 = xk_1.OpenTextFile("c:\windows\no.txt",1,-2)
         
         t1 = f1.readline
        
         c_no=trim(t1)
        
         f1.Close
         
         rds2.sql="select * from manager where ip地址='"&c_no&"' and ltrim(rtrim(状况))='read'"
         rds2.executeoptions=1
         rds2.refresh
         if rds2.recordset.recordcount<=0 then
     
           msgbox "请稍微等一会,管理员还没有准备好",,"提示窗口"
           exit sub
        
         end if    
         
      else
         
         msgbox "没有设置网卡地址号,请按电脑的顺序在c:\windows\no.txt设置为1或2或3等到文件中",,"提示窗口" 
         exit sub
         
     end if      
     
  '\\\\\\\\\\\\\\\\\\\ 
  

   
   '借还 标记 1为借书  0为还书

   rds2.sql="insert into tdjts(分类编号,主序号,次序号,IP地址,借还) values('"&l_r&"','"&l_l&"','"&l_d&"','"&c_no&"','0')"
   
   rds2.executeoptions=1

   rds2.refresh
	
	if err.number=0 then
	 
	   msgbox "发送还书申请成功!"
     
	
	  
	else

	  msgbox "发送还书申请成功!"

    end if

  
end if  
 
end sub


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


 sub tsxj_click()
  
  if rds1.recordset.recordcount<=0 then
   
   exit sub
   
  end if 
    

  l=false
    
  if l_press= false then
  
 
   
    dim l_t,l_r,l_k,l_l,l_d  
    
  if rds1.recordset.recordcount>0 then
  
    l_t=instrrev(rds1.recordset.fields(0),"/")
    
      
    l_k=instrrev(rds1.recordset.fields(0),"-")
    
    l_r=mid(rds1.recordset.fields(0),1,l_t-1)
    
    l_l=mid(rds1.recordset.fields(0),l_t+1,(l_k-l_t)-1)
    
    l_d=trim(mid(rds1.recordset.fields(0),l_k+1))
    
      
    
    
    
    
 '找出文件里的IC卡号及地址   

  
    
     Dim xk_tjh,f,t,icno,xk_1,f1,t1,c_no
    
   
  
     
     set xk_1=CreateObject("Scripting.FileSystemObject")
     
   if xk_1.fileexists("c:\windows\no.txt")=true then
    
     set  f1 = xk_1.OpenTextFile("c:\windows\no.txt",1,-2)
         
     t1 = f1.readline
        
     c_no=trim(t1)
        
     f1.Close
     rds2.sql="select * from manager where ip地址='"&c_no&"' and ltrim(rtrim(状况))='read'"
     rds2.executeoptions=1
     rds2.refresh
     if rds2.recordset.recordcount<=0 then
     
        msgbox "请稍微等一会,管理员还没有准备好",,"提示窗口"
        exit sub
        
     end if    
   
   else

     msgbox "没有设置网卡地址号,请按电脑的顺序在c:\windows\no.txt文件中设置为1或2或3等",,"提示窗口" 
     exit sub
   
   end if  
  '\\\\\\\\\\\\\\\\\\\ 
  
  
   
   '借还  标记为1  借书 0为还书


   
   rds2.sql="insert into tdjts(分类编号,主序号,次序号,IP地址,借还) values('"&l_r&"','"&l_l&"','"&l_d&"','"&c_no&"','2')"
   
   rds2.executeoptions=1

   rds2.refresh
	
	if err.number=0 then
	 
	    msgbox "发送续借图书成功!"
     
	
	  
	 else

	    msgbox "发送续借图书成功!",,"提示窗口"

    end if

'  end if
  
   end if  
   
end if
 
end sub

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

  '============================
  
 '选定图书类别 
  
sub disp_click()


  IF L_PRESS=TRUE THEN
  
     RDS2.SQL="select 分类编号,索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号='"&TRIM(GRID1.COLUMNS.ITEM(0))&"'"
     RDS2.ExecuteOptions = 1
     RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号='"&TRIM(GRID1.COLUMNS.ITEM(0))&"'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
      
      L_PRESS=FALSE
      Grid1.CAPTION=" 图 书 目  录 浏 览"
             
        
    ELSE
   
         
   END IF

END IF
end sub 

sub cancle_click()

 if l_press=true then
 
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 like '"&TRIM(l_cancle)&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
      
      L_PRESS=FALSE
      Grid1.CAPTION=" 图 书 目  录 浏 览"
      
      
      
 
 
 end if


end sub
 
'=====================    

SUB A1_CLICK()


   L_A="A"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
 if l_press=true then  
   
   RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 like '"&L_INT&"'+'%'"
   
  ' RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE substring(分类编号,1,1) = '"&L_INT&"' order by 分类编号"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
      
     ' RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE substring(分类编号,1,1) = '"&L_INT&"' order by 分类编号"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
       RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'========================
SUB b1_CLICK()

   L_A="b"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
  if l_press=true then
  
      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
 
 else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
       RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
 END IF


end if

END SUB



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

SUB c1_CLICK()

   L_A="c"
   
   l_int=""
   
   L_INT=L_INT+L_A
if l_press=true then
    
   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

else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
       RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if
END SUB

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

SUB d1_CLICK()


   L_A="d"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
 if l_press=true then
   
   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&"'+'%'"