module1.bas

电子皮带秤管理软件,绝对超值

Attribute VB_Name = "Module1"
Option Explicit
Public Connstr As String
Public Flow(6) As Single
Public Rate(6) As Single
Public GrossWeight(6) As Single
Public OpenState As Boolean
Public MaxRate(1) As Single
Public MaxFlow(1) As Single

Public Const ODBC_ADD_SYS_DSN = 4
Public Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Public Function LoadDbSource2(StrDriver, StrAttributes As String) As Boolean
        LoadDbSource2 = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes)
End Function

Public Function AddOdbc(Resource As String, DbName As String)
        Dim StrAttributes As String
        StrAttributes = "DSN=" & Resource & Chr(0) & "Desciption=动态加载ODBC示例" & Chr(0)
        StrAttributes = StrAttributes & "Dbq=" & App.Path & "\" & DbName & Chr(0) & "FIL=MS Access;" & Chr(0)
        StrAttributes = StrAttributes & "MaxBufferSize=2048" & Chr(0) & "PageTimeout=5" & Chr(0)
        Call LoadDbSource2("Microsoft Access Driver (*.mdb)", StrAttributes)
End Function

Public Function IsNum(strX As String) As String
    Dim mm As String
    Dim a()     As String
    Dim acount     As Integer
    Dim i     As Integer
    Dim a_num     As Boolean
    Dim tmp As String
    
    acount = 1
    ReDim Preserve a(1 To acount)
    If InStr(strX, "-") > 0 Then
     tmp = "-"
     Else
     tmp = " "
    End If
    For i = 1 To Len(strX)
            If (Asc(Mid(strX, i, 1)) >= 48 And Asc(Mid(strX, i, 1)) <= 57) _
                    Or Asc(Mid(strX, i, 1)) = 46 Then
                  a(acount) = a(acount) & Mid(strX, i, 1)
                  If a_num = False Then
                        a_num = True
                  End If
            Else
                  If a_num = True Then
                        acount = acount + 1
                        ReDim Preserve a(1 To acount)
                        a_num = False
                  End If
            End If
    Next i
    i = UBound(a())
   
    If Len(a(1)) >= 2 Then
      IsNum = tmp & a(1)
   '   Debug.Print IsNum
    End If
End Function