const.bas

详细介绍车辆租赁管理系统,有详细的注释,可下载学习或直接使用.

Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2004-10-08"
'数据源信息常量
Public Const DATABASE As String = "Lease.mdb"
'一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10
'设置延迟的API
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)