moddatabase.bas

图书管理系统需求规格说明书.doc

Attribute VB_Name = "modDatabase"
Option Explicit
    

Public fineAmt As String
Public maxDays As String

Public cn As Connection
Public rsUser As 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
    '在注册表中写入参数设置
    SaveSetting App.Title, "Settings", "CHECK", "ALLOW"
    '从中注册表中读出参数设置
    crackkey = GetSetting(App.Title, "Settings", "CHECK")
    If crackkey = "" Then
        MsgBox "您没有本系统的使用权" & vbCrLf & "请在登录操作系统后再运行本系统" & vbCrLf & vbCrLf & "请与系统管理员联系", vbInformation, "验证检查"
        End
    End If
    
    fineAmt = GetSetting(App.Title, "Settings", "FineAmt")
    If fineAmt = "" Then
        fineAmt = Str(2)  '默认设置每天2个单位
        SaveSetting App.Title, "Settings", "FineAmt", CStr(2)
    End If
    
   
    maxDays = GetSetting(App.Title, "Settings", "MaxDays")
    If maxDays = "" Then
        maxDays = Str(14)  '默认设置14天
        SaveSetting App.Title, "Settings", "MaxDays", CStr(14)
    End If
   
    
    If App.PrevInstance = True Then
        MsgBox "地大图书管系统正在运行", vbInformation, "地大图书馆"
        Exit Sub
    End If
    
    '显示splash screen
    frmSplash.Show
    DoEvents
    
    '载入托盘图标
    Load frmSYSTRAYICON
    
    '连接数据库
    Set cn = New Connection
    cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\library.mdb;"
    cn.CursorLocation = adUseClient
    cn.Open
    
    If cn.State = adStateOpen Then
        
        Set rsUser = New Recordset
        rsUser.CursorLocation = adUseClient
        rsUser.Open "Select 用户名 from 用户", cn, adOpenKeyset, adLockPessimistic
        rsBookInfo.Open "select * from 书籍信息", cn, adOpenKeyset, adLockPessimistic
        rsPubId.Open "select 出版社号 from 出版社", cn, adOpenKeyset, adLockPessimistic
        rsCatId.Open "select 种类号 from 种类", cn, adOpenKeyset, adLockPessimistic
        rsClassId.Open "select 班级号 from 班级", cn, adOpenKeyset, adLockPessimistic
        rsLibraryId.Open "select 借书证号 from 学生", cn, adOpenKeyset, adLockPessimistic
        rsBookId.Open "select 书号 from 书籍信息", cn, adOpenKeyset, adLockPessimistic
        rsPubInfo.Open "select * from 出版社", cn, adOpenKeyset, adLockPessimistic
        rsCatInfo.Open "select * from 种类", cn, adOpenKeyset, adLockPessimistic
        rsClassInfo.Open "select * from 班级", cn, adOpenKeyset, adLockPessimistic
        rsUserInfo.Open "select * from 用户", cn, adOpenKeyset, adLockPessimistic
        rsMemberInfo.Open "select * from 学生", cn, adOpenKeyset, adLockPessimistic
        rsIssueInfo.Open "select * from 借书", cn, adOpenKeyset, adLockPessimistic
       
    Else
        '当数据库连接错误时显示以下出错提示
        MsgBox "数据库连接失败", vbCritical, "地大图书馆"
        End
    End If
    
End Sub