database_operate.bas

小小图书管理系统是功能完善,已经可以实用于小型单位或科室的图书管理.系统界面美观,操作方便,代码带有详尽的注释,相信大家一定会喜欢

Attribute VB_Name = "Module1"
Option Explicit
Public constr As String
Public privage As Integer
Public rst As ADODB.Recordset
Public rst1 As ADODB.Recordset
Public con As ADODB.Connection
Public tablename As String
Type userdata
   user_id As String
   pwd As String
   right As Integer
End Type
Public Sub connect_db()
 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\book_manage_db.mdb" + ";Persist Security Info=False"
 Set con = New ADODB.Connection
 con.CursorLocation = adUseClient
 con.ConnectionString = constr
 con.Open
End Sub
Function open_connection(table_name As String)
Dim sqlstr As String
Dim str As String
  Set con = New ADODB.Connection
  Set rst = New ADODB.Recordset
  con.CursorLocation = adUseClient
  sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\book_manage_db.mdb" + ";Persist Security Info=False"
  con.Open sqlstr
  str = "select * from " & table_name & ""
  rst.Open str, con, adOpenDynamic, adLockOptimistic
  rst.Requery
End Function

Public Sub check_privage(rightlevel As Integer)
Dim right As Integer
 right = rightlevel
Select Case right
        Case 1:
        
         Form1.m_borrow_book.Enabled = False
         Form1.M_send_book.Enabled = False
         
         Form1.M_bookdata_in.Enabled = False
         Form1.M_workerdata_in.Enabled = False
         Form1.M_book_seek.Enabled = True
         Form1.m_borrow_bookthings.Enabled = True
         Form1.M_worker_seek.Enabled = True
         
         Form1.M_user_set.Enabled = False
         Form1.M_workerdata_in.Enabled = False
         
         Form1.Show
         Unload frm_login
        Case 2:
        Form1.m_borrow_book.Enabled = True
         Form1.M_send_book.Enabled = True
         
         Form1.M_bookdata_in.Enabled = False
         Form1.M_workerdata_in.Enabled = False
         Form1.M_book_seek.Enabled = True
         Form1.m_borrow_bookthings.Enabled = True
         Form1.M_worker_seek.Enabled = True
         
         Form1.M_user_set.Enabled = False
         Form1.M_workerdata_in.Enabled = False
         
         Form1.Show
         Unload frm_login
        Case 3:
       Form1.m_borrow_book.Enabled = False
         Form1.M_send_book.Enabled = False
         
         Form1.M_bookdata_in.Enabled = False
         Form1.M_workerdata_in.Enabled = False
         Form1.M_book_seek.Enabled = True
         Form1.m_borrow_bookthings.Enabled = True
         Form1.M_worker_seek.Enabled = True
         
         Form1.M_user_set.Enabled = False
         Form1.M_workerdata_in.Enabled = True
         
         Form1.Show
         Unload frm_login
        Case 4:
         Form1.m_borrow_book.Enabled = True
         Form1.M_send_book.Enabled = True
         
         Form1.M_bookdata_in.Enabled = True
         Form1.M_workerdata_in.Enabled = True
         Form1.M_book_seek.Enabled = True
         Form1.m_borrow_bookthings.Enabled = True
         Form1.M_worker_seek.Enabled = True
         
         Form1.M_user_set.Enabled = True
         Form1.M_workerdata_in.Enabled = True
         Form1.Show
         Unload frm_login
      End Select
End Sub