const.bas

来自「汽车租赁系统VB源码」· BAS 代码 · 共 12 行

Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'数据源信息常量
Public Const conn As String = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=Cars;Data Source=localhost;"
'一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10
'设置延迟的API
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)