moddatabase.bas

该压缩包包含有很多关于数据库原理与应用的课件以及课程设计

Attribute VB_Name = "modDatabase"
Option Explicit

Public fineAmt As String
Public maxDays As String

Private cn As Connection


Public rsUser As New Recordset
Public rsPubId As New Recordset
Public rsCatId As New Recordset
Public rsClassId As New Recordset
Public rsLibraryId As New Recordset
Public rsBookId As New Recordset

Public rsBookInfo As New Recordset
Public rsPubInfo As New Recordset
Public rsCatInfo As New Recordset
Public rsClassInfo As New Recordset
Public rsUserInfo As New Recordset
Public rsMemberInfo As New Recordset
Public rsIssueInfo As New Recordset

Public Sub main()
    On Error Resume Next
    Dim crackkey As String
    
    fineAmt = GetSetting(App.Title, "Settings", "FineAmt")
    If fineAmt = "" Then
        fineAmt = Str(2)
        SaveSetting App.Title, "Settings", "FineAmt", CStr(2)
    End If
    
    maxDays = GetSetting(App.Title, "Settings", "MaxDays")
    If maxDays = "" Then
        maxDays = Str(14)
        SaveSetting App.Title, "Settings", "MaxDays", CStr(14)
    End If
    
    If App.PrevInstance = True Then
        MsgBox "Library Management System is already open", vbInformation, "Library Management System"
        Exit Sub
    End If
    
    '显示frmSplash窗体'
    frmSplash.Show
    DoEvents
    
    '设置数据库连接代码'
    Set cn = New Connection
    cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=" & App.Path & "\library.mdb;"
    cn.CursorLocation = adUseClient
    cn.Open
    
    If cn.State = adStateOpen Then
    '打开数据表，将数据返回到rs记录中'
    Set rsUser = New Recordset
    rsUser.CursorLocation = adUseClient
    rsUser.Open "Select user_id from user", cn, adOpenKeyset, adLockPessimistic
    rsBookInfo.Open "Select * from bookinfo", cn, adOpenKeyset, adLockPessimistic
    rsPubId.Open "Select publication_id from publication", cn, adOpenKeyset, adLockPessimistic
    rsCatId.Open "Select catid from cat", cn, adOpenKeyset, adLockPessimistic
    rsClassId.Open "Select class_id from class", cn, adOpenKeyset, adLockPessimistic
    rsLibraryId.Open "Select Library_id from student", cn, adOpenKeyset, adLockPessimistic
    rsBookId.Open "Select book_id from bookinfo", cn, adOpenKeyset, adLockPessimistic
    rsPubInfo.Open "Select * from publication", cn, adOpenKeyset, adLockPessimistic
    rsCatInfo.Open "Select * from cat", cn, adOpenKeyset, adLockPessimistic
    rsClassInfo.Open "Select * from class", cn, adOpenKeyset, adLockPessimistic
    rsUserInfo.Open "Select * from user", cn, adOpenKeyset, adLockPessimistic
    rsMemberInfo.Open "Select * from student", cn, adOpenKeyset, adLockPessimistic
    rsIssueInfo.Open "Select * from Issue", cn, adOpenKeyset, adLockPessimistic
    frmlogin.Show        '显用户登录窗体
    
    Unload frmSplash      '取消显示版权信息窗体
    
    Else
        MsgBox "Database Connection Error", vbCritical, "Library Management System"
        End
    End If
        
End Sub