mdlpublic.bas

来自「<Visual Basic 数据库开发实例精粹（第二版）>一书首先介」· BAS 代码 · 共 24 行

Attribute VB_Name = "Module1"

Public g_DBConn As New ADODB.Connection

Public g_LoginedUser As UserType

Type UserType
  ID As String
  Type As Integer
End Type

Public Function sffunLimitNumber(ByVal IntVal As Integer) As Integer
 
  If (IntVal <> vbKeyBack) And (IntVal < 48 Or IntVal > 57) Then
    Beep
    MsgBox "请输入数字!"
    IntVal = 0
  End If

  sffunLimitNumber = IntVal
    
End Function