www.pudn.com > SalesManager.rar > modMain.vb

Imports System.IO 
 
 
Module modMain 
 
    Public strConn As String 
    Public stockTemp As Long 
 
    Public Sub GetConn() 
        '从配置文件得到连接字符串 
        Dim strFileName As String = "mag.ini" 
        Dim objReader As StreamReader = New StreamReader(strFileName) 
        strConn = objReader.ReadToEnd() 
        objReader.Close() 
        objReader = Nothing 
    End Sub 
    Public Sub checkNum(ByVal txtTemp As TextBox) 
        Dim tText As String = txtTemp.Text 
        If tText = "" Then 
            Exit Sub 
        End If 
        Dim tNum As Double 
        Try 
            tNum = CDbl(tText) 
        Catch ex As Exception 
            MsgBox("请检查是否输入了其他字符!", MsgBoxStyle.Information, "提示信息:") 
        End Try 
 
    End Sub 
 
End Module