module1.vb

这是一个教务信息管理系统！

Imports System.Data
'引入数据库操作类命名空间
Imports System.Data.OleDb
'引入ADO.NET操作命名空间
Module Module1

    Public Function Testtxt(ByVal txt As String) As Boolean
        '判断字符串是否为空
        If Trim(txt) = "" Then
            Testtxt = False
        Else
            Testtxt = True
        End If
    End Function

End Module