const.bas

来自「酒店管理系统 附带数据库 提供课程设计使用 希望传上来和大家一起分享」· BAS 代码 · 共 13 行

Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-11-30"
'数据源信息常量
Public Const Conn As String = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Hoter;Data Source=D5029"
                         ' + "User ID=sa;Initial Catalog=Hotel;Data Source=D5029"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10

'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Hoter;Data Source=D5029