mdlmain.bas

本程序提供了超市 管理系统的源代码

Attribute VB_Name = "mdlMain"
Option Explicit

'ActiveX DLL的启动程序，为DLL初始化时执行
Public Sub Main()

End Sub

'替换字符串中的单引号
Public Function RealString(strOrigional) As String
  RealString = Replace(strOrigional, "'", "''")
End Function

'得到某个节点或列表项所表示的对象的实际ID，如“A11”，则得到11，“B2”，则得到2
Public Function GetID(strKey As String) As Long
  GetID = Val(Right(strKey, Len(strKey) - 1))
End Function