modulemain.bas

来自「vb6.0作的图书借阅管理系统,用户名admin 密码admin」· BAS 代码 · 共 92 行

Attribute VB_Name = "ModuleMain"
Option Explicit
Public ADOCon As New ADODB.Connection
Public ADOBwr As New ADODB.Recordset
Public User As String
Public UserPermission As String
Public frmBrowseLoad As Boolean
Public frmAddBookLoad As Boolean
Public frmBorrowBookLoad As Boolean
Public frmReturnBookLoad As Boolean
Public frmBorrowerLoad As Boolean
Public frmReaderLoad As Boolean

Public Function ConnectToServer() As Boolean
On Error GoTo LabErr
    'ADOCon.ConnectionString = "Provider = Microsoft.Jet.oledb.4.0;Data Source = " & App.Path & "\Books.mdb"
    ADOCon.ConnectionString = "Provider = Microsoft.Jet.oledb.4.0;Data Source = " & App.Path & "\BooksDB.mdb;jet oledb:database password=administrator"
    'ADOCon.ConnectionString = "Driver={SQL Server};Server=LocalHost;uid=sa;pwd=sa;database=Books"
    ADOCon.Open
    ConnectToServer = True
    frmStar.Show vbModal
    'MsgBox "已经成功连接数据库", vbInformation + vbOKOnly, "提示信息"
    Exit Function
LabErr:
    ConnectToServer = False
    MsgBox "错误号码:" & Err.Number & vbTab & "错误描述:" & Err.Description, vbCritical + vbOKOnly, "错误提示"
End Function

Sub Main()
    If ConnectToServer = True Then
        frmLogin.Show vbModal
        MDIMain.Show
    End If
End Sub
Public Sub DisConnect()
    If ADOCon.State = adStateOpen Then
        ADOCon.Close
    End If
End Sub

Public Sub SynData()
    If frmBrowseLoad = True Then
        If frmBrowse.frmBrowseStatus = "ALL" Then
            Set frmBrowse.ADORec = Nothing
            frmBrowse.ADORec.Open "Books", ADOCon, adOpenDynamic, adLockOptimistic, -1
        End If
        If frmBrowse.frmBrowseStatus = "IN" Then
            Set frmBrowse.ADORec = Nothing
            frmBrowse.ADORec.Open "select * from Books where 图书状态='IN'", ADOCon, adOpenDynamic, adLockOptimistic, -1
        End If
        If frmBrowse.frmBrowseStatus = "OUT" Then
            Set frmBrowse.ADORec = Nothing
            frmBrowse.ADORec.Open "select * from Books where 图书状态='OUT'", ADOCon, adOpenDynamic, adLockOptimistic, -1
        End If
        Set frmBrowse.Flex.DataSource = frmBrowse.ADORec
    End If
    
    If frmAddBookLoad = True Then
        Set frmAddBook.ADOAdd = Nothing
        frmAddBook.ADOAdd.Open "Books", ADOCon, adOpenDynamic, adLockOptimistic, -1
        Set frmAddBook.Flex.DataSource = frmAddBook.ADOAdd
    End If
    
    If frmBorrowerLoad = True Then
        Set frmBorrower.ADOBbk = Nothing
        frmBorrower.ADOBbk.Open "BorrowBook", ADOCon, adOpenDynamic, adLockOptimistic, -1
        Set frmBorrower.Flex.DataSource = frmBorrower.ADOBbk
    End If
    
    If frmReaderLoad = True Then
        Set ADOBwr = Nothing
        ADOBwr.Open "Borrower", ADOCon, adOpenDynamic, adLockOptimistic, -1
        Set frmReader.Flex.DataSource = ADOBwr
    End If
    
    If frmBorrowBookLoad = True Then
        Set frmBorrowBook.AdoBow = Nothing
        frmBorrowBook.AdoBow.Open "select * from Books where 图书状态='IN'", ADOCon, adOpenDynamic, adLockOptimistic, -1
        Set frmBorrowBook.Flex.DataSource = frmBorrowBook.AdoBow
        Set frmBorrowBook.Flex1.DataSource = ADOBwr
    End If
    
    If frmReturnBookLoad = True Then
        Set frmReturnBook.AdoRtn = Nothing
        frmReturnBook.AdoRtn.Open "select * from Books where 图书状态='OUT'", ADOCon, adOpenDynamic, adLockOptimistic, -1
        Set frmReturnBook.Flex.DataSource = frmReturnBook.AdoRtn
        Set frmReturnBook.Flex1.DataSource = ADOBwr
    End If
    
End Sub