start.bas

成绩统计分析系统,可统计并分析学生的成绩。

Attribute VB_Name = "Start"
Public StartGO As Boolean
Public Con As ADODB.Connection
Public Xk(10) As String
Public KSHLst As String

'过程(函数)
Sub Main()
    For i = 0 To 9
        Xk(i) = "无"
    Next
If App.PrevInstance = True Then
    MsgBox "已有当前程序在运行！", 16, "严重错误"
   Exit Sub
End If

    '应用初始化
    AppInitialize

    
    '显示主窗口
    If StartGO = True Then
        FrmMain.Show
    Else
        ReleaseResource
    End If
End Sub

'初始化
Private Sub AppInitialize()
     '数据库连接通道
    Set Con = New ADODB.Connection
    
    Dlglogin.Show vbModal
End Sub

'释放资源(除了发起窗体)
Sub ReleaseResource(Optional Sender As Object)
    
'卸载所有窗体
Dim i As Long
On Error Resume Next

For i = Forms.Count - 1 To 0 Step -1
   Unload Forms(i)
 If Not Force Then
    If Forms.Count > i Then
       Exit Sub
    End If
 End If
Next i

If Force Or (Forms.Count = 0) Then Close
If Force Or (Forms.Count > 0) Then End
Con.Close

End Sub