module1.bas

图书管理系统 关于图书管理的系统 毕业设计的最好选择

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public select_menu As String            '标记所选择的菜单
Public userID As String                 '标记当前用户ID
Public userpow As String                '标记用户权限
Public book_num As String              '要借的书的编号

'从第一条开始向下检索
'找到结果返回True，没有找到返回Flase
Public Function findfirst(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.MoveFirst
rs.Find criteria
findfirst = Not rs.EOF And Err.Number = 0
End Function

'从当前数据记录的下一条开始向下检索
Public Function findnext(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.Find criteria, 1
findnext = Not rs.EOF And Err.Number = 0
End Function
'从最后一条数据开始向上检索
Public Function findlast(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.MoveLast
rs.Find criteria, , adSearchBackward
findlast = Not rs.EOF And Err.Number = 0
End Function
''从当前数据记录的上一条开始向上检索
Public Function findprevious(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.Find criteria, 1, adSearchBackward
findprevious = Not rs.EOF And Err.Number = 0
End Function