modpublic.bas

好的ERP就是要源代码

Attribute VB_Name = "ModPublic"
Option Explicit

Public voperate As String
Public vopcode As String
Public vopname As String
Public vshpcode As String
Public vsum As String
Private mobjConn As ADODB.Connection

Public Function GetConnection() As ADODB.Connection
'    If mobjConn Is Nothing Then
'        Set mobjConn = New ADODB.Connection
'        mobjConn.CursorLocation = adUseClient
'    End If
'    If mobjConn.State <> adStateOpen Then mobjConn.Open "Provider=MicroSoft.Jet.Oledb.4.0;Data Source= e:\lhysoft\xygl\data\xydb.mdb"
'    Set GetConnection = mobjConn
    
    If mobjConn Is Nothing Then
        Set mobjConn = New ADODB.Connection
        mobjConn.CursorLocation = adUseClient
    End If
    If mobjConn.State <> adStateOpen Then mobjConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties='DSN=bgxy;Description=bgxy;APP=Visual Basic;WSID=HXZIYU;DATABASE=bg_xy;Trusted_Connection=Yes'"
    Set GetConnection = mobjConn
End Function
'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=bgxy;Description=bgxy;APP=Visual Basic;WSID=HXZIYU;DATABASE=bg_xy;Trusted_Connection=Yes"