mdlpublic.bas

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

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