module1.bas

来自「学生选课系统。VB+Access。可进行学生信息的管理」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Public username As String
Public power As String
Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function