NorthwindCS启动解读及高级应用示例 - Office中国论坛/Access中国论坛

Function CheckConnectedServer()
If (CurrentProject.Connection.Properties("Initial Catalog") = "NorthwindCS") Then
''' 表明现在连接的正是NorthwindCS数据库
Exit Sub
ElseIf CheckForNorthwind(CurrentProject.Connection) Then
Exit Sub
Else
''' 数据库服务器上没有找到northwindCS，(连接已经成功)
''' 所以运行DBInstallPrompt问是否安装一个
''' 如果DBInstallPrompt返回true，表示数据库安装完毕，所以
''' 用ChangeDB(“NorthwindCS”)来使连接切换到northwindCS
If (DBInstallPrompt(CurrentProject.Connection.Properties("Data Source"))) Then
MsgBox "在 SQL Server 上创建 NorthwindCS 数据库: ", _
vbOKOnly + vbInformation, "安装成功"
ChangeDB ("NorthwindCS")
Else
''' 如果安装不成功，只要将连接设成空的，退出
CurrentProject.OpenConnection "Provider="
End If
End If
End Function

复制代码

Screen.MousePointer = 11
If CreateDB() Then
If RunScript("NorthwindCS", Script) Then
DBInstallPrompt = True
End If
End If
Screen.MousePointer = 0[code]
编程的新手，要特别注意这种编程的风格，就是将某个功能编写成返回类型为布尔值的函数，然后在调用判断的过程就已经执行了这个函数。例如CreatDB和RunScript都是返回布尔值的函数，在函数内部，定义了如果执行成功就返回true，否则就返回false。所以，If CreatDB()的条件成立也就是CreatDB()返回true。这是常用的编程方法。
CreatDB()函数就是在上述连接中执行SQL服务器端命令:
[code]use master
go
create database NorthwindCS
go
exec sp_dboption 'NorthwindCS','trunc. Log on chkpt.','true'
go
exec sp_dboption 'NorthwindCS’,’trunc. Log on chkpt.','true'
go

复制代码

Public Const promptConn = True '设计时为false，分发前改为true

'=====================================================================

'为了不使用户在选择上发生麻烦，在程序设计的时候就要决定用何种方法分发

'所以定义了一个枚举常量，adpBackup表示用备份还原方式安装数据库

'adpScript表示用.sql脚本方式安装数据库

'当然，你可以不用这么做，从而给用户和自己最大的灵活性

Public Enum DBInstMode

adpBackup = 0

adpScript = 1

End Enum

'======================================================

'现在我们用备份还原方式安装数据库

Public Const defaultDBInstMethod = DBInstMode.adpBackup

'Public Const defaultDBInstMethod = DBInstMode.adpScript

'======================================================

'这里我们把要分发给用户的备份文件名和扩展名先行命名

Public Const defaultDBName = "NorthwindCS"

Public Const DBBackupFile = ".inst"

Public Const DBSQLFile = ".sql"

'======================================================

'======================================================

'如果用户是用windows集成安全性登录，那么程序启动后，数

'据库那里应该有该windows用户及其适当权限，所以连接以后

'马上可以得到用户的数据库（也就是windows用户）的名称，

'这个名称如果不在数据库的用户表里，那么就立即应该实施

'一个插入动作，之前可以让用户将实际姓名改为他自己的。

'用户表里应该包含logName, realName这两个字段，密码是不

'需要的。

'如果用户是用传统方式登录的，那么有可能系统管理员为了

'数据库服务器管理上的方便，用一个统一的登录名和密码进行

'登录，如果分发的程序是ADE，那么即使保留了密码，用户

'还是不能轻易通过读取连接字符串来得到这个密码。

'例如debug.print currentProject.baseConnectionString

'所以，一般而言还是安全的。

'而在这种情况下，要区分不同的用户

'只能自己编程，通过一个窗体提示用户输入用户名和密码。

'=====================================================

'由于两种登录方法的不同程序逻辑，有必要设计两个不同的

'窗体，区分用户在两种登录模式下的启动窗体。

'=====================================================

Public Const integratedLoginStartupForm = "start1"

Public Const legacyLoginStartupForm = "start2"

Public Const setupForm = "setup"