const.bas

这是我们公司的题库管理系统,用VB实现,可以进行试题制作,编辑、试卷制作、试卷生成和试卷打印(A3/和A4)

Attribute VB_Name = "Const"
Public Const SQL_C_CHAR As Long = 1    '在SQL语句中使用C语言中的CHAR数据类型
Public Const SQL_COLUMN_LABEL As Long = 18    '列标签
Public Const SQL_DROP As Long = 1     '释放SQL语句句柄
Public Const SQL_ERROR As Long = -1     'SQL语句返回错误信息
Public Const SQL_NO_DATA_FOUND As Long = 100    '结果集为空
Public Const SQL_SUCCESS As Long = 0    'SQL语句执行成功
Public Const SQL_SUCCESS_WITH_INFO As Long = 1    '执行SQL语句返回一个警告信息
Public Const VerNum As String = "版本号1.0.01"    '版本号
Public Const GenDate As String = "日期 2004-02-20"   '日期


'数据源信息常量
Public Const DATABASE As String = "TikuSys"
Public Const DSN As String = "TikuSys"
Public Const DB_PASSWORD As String = "8263958"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10