Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2003-10-08"
'数据源信息常量
Public Const DATABASE As String = "HotelSys"
Public Const DSN As String = "HotelSys" '数据源名
Public Const DB_USER_NAME As String = "HOTELMAN" '用户名
Public Const DB_PASSWORD As String = "HOTELMAN" '密码
Public Const CONN As String = "DSN=HotelSys;UID=HOTELMAN;PWD=HOTELMAN"
'一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10
