mdumain.bas

教学资源管理系统

Attribute VB_Name = "mduMain"
Public fMainForm As frmMain
Public strUserName As String
Public blnBGSound As Boolean
Public con As ADODB.Connection
Public rs As ADODB.Recordset

Sub Main()

    Dim conStr As String
    If App.PrevInstance Then
        MsgBox "教学资源管理系统正在运行，请检查任务拦", , "提示"
        End
    End If
    frmSplash.Show
    frmSplash.Refresh
    
    
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\system.dat;Mode=ReadWrite;Persist Security Info=False"

    con.ConnectionString = conStr
    con.Open
    Dim sql As String
    sql = "select * from sys where setname='sound'"
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
    blnBGSound = False
    
    Dim m_MidiFile1 As String
    
    If rs("setvalue") = "auto" Then
        Dim i As Integer
        i = CInt(Second(Time()))
        i = (i Mod 5)
        m_MidiFile1 = App.Path + "\bgsound\beijing" + CStr(i) + ".mid"
        PlayMidiFile m_MidiFile1
        blnBGSound = True
    Else
        If rs("setvalue") <> "-1" Then
            m_MidiFile1 = App.Path + "\bgsound\beijing" + rs("setvalue") + ".mid"
            PlayMidiFile m_MidiFile1
            blnBGSound = True
        End If
    End If
    rs.Close
    sql = "select * from sys where setname='username'"
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
    strUserName = rs("setvalue")
    rs.Close
    sql = "select * from sys where setname='pass'"
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
    If rs("setvalue") <> "1" Then
        Dim fLogin As New frmLogin
        Load fLogin
        rs.Close
        sql = "select * from sys where setname='password'"
        rs.Open sql, con, adOpenKeyset, adLockPessimistic
        fLogin.password = rs("setvalue")
        fLogin.txtUserName.Text = strUserName
        
       
        fLogin.Show vbModal
        If Not fLogin.OK Then
        '登录失败，退出应用程序
            End
        End If
        
        Unload fLogin
    End If
    rs.Close
    con.Close
    
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    fMainForm.Show
    
End Sub