module1.bas

程序主要是关于学生成绩管理系统

Attribute VB_Name = "ModuleMain"
Option Explicit
Public UserType As Boolean '如果是true那么是超级用户
Public cn As ADODB.Connection '公共连接对象
Public searchSQL As String
Public IsAdmin As Boolean '判断是否为系统管理员登陆


'创建一个连接
Public Function MakeConnection() As String
    Set cn = New ADODB.Connection
    On Error GoTo connecterr
    With cn
        .CursorLocation = adUseClient
     
       
        .ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
                   "DBQ=cj.MDB;" & _
                   "DefaultDir=" & CheckPath(App.path) & ";" & _
                   "UID=;PWD=;"  '数据库密码 ，防止被人用其它软件打开数据库
        .Open
    
    End With
    MakeConnection = "OK"
    Exit Function
connecterr:
    Dim i As Integer
    Dim sError As String
    If cn.Errors.Count > 0 Then
        For i = 0 To cn.Errors.Count - 1
            sError = sError & cn.Errors(i).Number & ":" & cn.Errors(i).Description & vbCrLf
        Next i
    End If
    MakeConnection = sError
    Exit Function
End Function


Public Sub MakeCenter(frm As Form) '使窗口显示在屏幕中央
    Dim intx2 As Integer, inty2 As Integer
    intx2 = (Screen.Width - frm.Width) / 2
    inty2 = (Screen.Height - frm.Height) / 2
    frm.Left = intx2
    frm.Top = inty2
End Sub

Public Function CheckPath(path As String) As String '检测数据库路径是否以"\"结束
    If Right$(path, 1) = "\" Then
        CheckPath = path
    Else
        CheckPath = path & "\"
    End If
End Function

'程序入口
Sub Main()
    searchSQL = "SELECT * FROM 学生表"
    UserType = False
    IsAdmin = False
    Load login '载入登陆对话框
    login.Show
End Sub