Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-12-03"
'定义数据库连接字符串
Public Const Conn As String = "Provider=Microsoft.Jet
Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-11-25"
'定义数据库连接字符串
Public Const Conn As String = "Provider=Microsoft.Jet
Attribute VB_Name = "Const"
'数据库访问常量
Public Const SQL_C_CHAR As Long = 1
Public Const SQL_COLUMN_LABEL As Long = 18
Public Const SQL_DROP As Long = 1
Public Const SQL_DRROR As Long = -1
Public C
Attribute VB_Name = "Const"
'数据库访问常量
Public Const SQL_C_CHAR As Long = 1
Public Const SQL_COLUMN_LABEL As Long = 18
Public Const SQL_DROP As Long = 1
Public Const SQL_DRROR As Long = -1
Public C