module1.bas

一个自己做的电力管理系统,主要用于电力电业行业的管理

Attribute VB_Name = "Module1"
Option Explicit
Public CN As ADODB.Connection '公共连接对象
Public rs As ADODB.Recordset   '公共记录对象
'断开连接数据库
Public Function delConnection()
    rs.Close
    Set rs = Nothing
    CN.Close
    Set CN = Nothing
End Function

'程序入口
Sub Main()
    Load frmLogin    '载入登陆对话框
    frmLogin.Show
End Sub

'创建一个连接
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=electric.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 Function CheckPath(path As String) As String '检测数据库路径是否以"\"结束
    If Right$(path, 1) = "\" Then
        CheckPath = path
    Else
        CheckPath = path & "\"
    End If
End Function
Public Sub MakeCenter(frm As Form) '使窗口显示在屏幕中央
    Dim i As Integer, j As Integer
   
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 2
End Sub