consts.bas

来自「一个小型管理系统.~!!不同的用户拥有不同的权限」· BAS 代码 · 共 15 行

Attribute VB_Name = "Consts"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2008-3-1"
'数据源信息常量
'Public Const Conn As String = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;" _
                                + "User ID=sa;Initial Catalog=Hotel;Data Source=127.0.0.1"
                                'Data Source=YE-5B3D5361F47D Data Source=114EF334F637425
 Public Const Conn As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Hotel;Data Source=114EF334F637425"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10