module1.bas

药品管理系统,药品的进销,药品的过期以及药品系统的备分

Attribute VB_Name = "Module1"
    Public userid As String
        
    Public adoCon As New ADODB.Connection
    Public adoRS As New ADODB.Recordset
    
    Public GL_REPORT As String
    
Public Sub openconn()
 
    On Error GoTo checkerr
    Dim conStr As String
  
    conStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=YPGL"
  
    
    adoCon.ConnectionString = conStr
  
    adoCon.Open
    
    Exit Sub
checkerr:
    MsgBox "Error Occured: " & Err.Number & ": " & Err.Description & " in: " & Err.Source & vbCrLf & vbCrLf & "Please call me and tell me about this error & how it came", vbCritical
    Call closeconn
    End
    
End Sub


Public Sub closeconn()
   On Error Resume Next
    adoRS.Close
    Set adoRS = Nothing
    adoCon.Close
    Set adoCon = Nothing
End Sub

Public Sub rs(ByVal sqlstr As String)
    On Error GoTo checkerr2
 
    adoRS.Open sqlstr, adoCon, adOpenDynamic, adLockOptimistic
    Exit Sub
checkerr2:
    MsgBox "Error Occured: " & Err.Number & ": " & Err.Description & " in: " & Err.Source & vbCrLf & vbCrLf & "Please call me and tell me about this error & how it came", vbCritical
    Call closeconn
    End
End Sub


Public Function numdisp(ByVal num)
    numdisp = FormatNumber(num, , , vbFalse, vbTrue)
End Function