来自「我的图书管理系统」· 代码 · 共 170 行 · 第 1/2 页

    <p align="center"><input type="button" value="返    回" name="return"
    onclick="returning()" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"
       ></p>
    　</td>
  </tr>
</table>
</div><script language="vbscript">
 
  'grid1.AllowAddnew = true

 ' grid1.AllowDelete = true

 ' grid1.AllowUpdate = true

</script>


<p><script language="vbscript">

 
  sub find_click()
  
    RDS1.SQL = "select 借书证号,编号,姓名 from tjsZ where 借书证号='"&rtrim(jszh.value)&"'"
    RDS1.ExecuteOptions = 1
    RDS1.Refresh 

    
  if RDS1.Recordset.recordcount <= 0 then
  
     MsgBox "没有找到满足条件的记录!",,"提示窗口" 
  
  end if
  
  end sub

 
  Sub MoveFirst()

  RDS1.Recordset.MoveFirst

End Sub

Sub MovePrevious()
   If Not RDS1.Recordset.BOF Then
      RDS1.Recordset.MovePrevious
    else
	msgbox "已经到最上一条了!"
   End If
End Sub

Sub MoveNext()
   If Not RDS1.Recordset.EOF Then
      RDS1.Recordset.MoveNext
    else
     msgbox "已经到最后一条了!"
   End If
End Sub

Sub MoveLast()
   RDS1.Recordset.MoveLast
End Sub

sub refreshing()

	if search_flag then
		rds1.sql = saveSQL
		
		RDS1.ExecuteOptions=1
		rds1.refresh
		jszh.value =""
	end if
	
end sub

sub returning()
   history.go(-1)
end sub   

</script> </p>



</body>
</html>