common.vb

档案管理系统

Module Common
    Public Server As String
    Public Database As String
    Public Username As String
    Public Password As String
    Public stdDataSet As New DataSet
    Public OleConn As New OleDatabase

    Public Sub DisplayError(ByVal ex As Exception)
        MsgBox("模块：" & ex.Source & "出现错误" & Chr(10) & Chr(13) & "错误信息：" & ex.Message)
    End Sub
End Module