完成Delphi数据库解决方案后，最后一步是将其成功部署到用户的计算机上。

动态连接字符串

如果使用的是dbGo（ADO）组件，则TADOConnection的ConnectionString属性指定数据存储的连接信息。

显然，当创建要在各种机器上运行的数据库应用程序时，与数据源的连接不应硬编码在可执行文件中。换句话说，数据库可能位于用户计算机上的任何位置（或网络中的其他计算机上）——TADOConnect对象中使用的连接字符串必须在运行时创建。建议存储连接字符串参数的位置之一是Windows注册表（或者，您可能决定使用“普通”INI文件）。

通常，要在运行时创建连接字符串，您必须a）将数据库的完整路径放在注册表中；和b）每次启动应用程序时，从注册表中读取信息，“创建”连接字符串并“打开”连接。

数据库连接

为了帮助您理解这个过程，我们创建了一个示例“框架”应用程序，它由一个表单（应用程序的主表单）和一个数据模块组成。Delphi的数据模块提供了一个方便的组织工具，用于隔离应用程序中处理数据库连接和业务规则的部分。

数据模块的OnCreate事件是放置代码以动态构造ConnectionString并连接到数据库的地方。

procedure TDM.DataModuleCreate(Sender: TObject); begin if DBConnect then ShowMessage('Connected to Database!') else ShowMessage('NOT connected to Database!'); end;

注：数据模块的名称为“DM”。TADOConnect组件的名称为“ADOCON”。

DBConnect函数执行连接到数据库的实际工作，代码如下：

function TDM.DBConnect: boolean; var conStr : string; ServerName, DBName : string; begin ServerName := ReadRegistry('DataSource'); DBName := ReadRegistry('DataCatalog'); conStr := 'Provider=sqloledb;' + 'Data Source=' + ServerName + ';'+ 'Initial Catalog=' + DBName + ';'+ 'User Id=myUser;Password=myPasword'; Result := false; AdoConn.Close; AdoConn.ConnectionString := conStr; AdoConn.LoginPrompt := False; if (NOT AdoConn.Connected) then try AdoConn.Open; Result:=True; except on E:Exception do begin MessageDlg('There was an error connecting to the database. Error:' + #13#10 + e.Message, mtError, [mbOk],0); if NOT TDatabasePromptForm.Execute(ServerName, DBName) then Result := false else begin WriteRegistry('DataSource', ServerName); WriteRegistry('DataCatalog', DBName); //recall this function Result := DBConnect; end; end; end; end; //DBConnect

DBConnect函数连接到MS SQL Server数据库-ConnectionString使用本地connStr变量构造。

数据库服务器的名称存储在ServerName变量中，数据库的名称保存在DBName变量中。该函数首先从注册表中读取这两个值（使用自定义ReadRegistry（）过程）。一旦组装好ConnectionString，我们只需调用AdoConn.Open方法。如果此调用返回“true”，则表示我们已成功连接到数据库。

注意：由于我们通过ConnectionString显式地传递登录信息，由于数据模块是在主窗体之前创建的，因此您可以安全地从主窗体的OnCreate event中的数据模块调用方法。LoginPrompt属性设置为false以防出现不必要的登录对话框。

如果发生异常，“乐趣”开始。虽然Open方法失败的原因可能有很多，但让我们假设服务器名称或数据库名称不正确。如果是这种情况，我们将让用户有机会通过显示自定义对话框表单来指定正确的参数。示例应用程序还包含一个附加表单（DatabasePromptForm），使用户可以为连接组件指定服务器和数据库名称。这个简单的表单只提供了两个编辑框，如果您想提供更友好的界面，可以添加两个组合框，并通过枚举可用的SQL Server和检索SQL Server上的数据库来填充这些组合框。

DatabasePrompt表单提供了一个名为Execute的自定义类方法，该方法接受两个变量（var）参数：ServerName和DBName。

对于用户提供的“新”数据（服务器和数据库名称），我们只需再次（递归）调用DBConnect（）函数。当然，信息首先存储在注册表中（使用另一个自定义方法：WriteRegistry）。

确保datamodule是创建的第一个“表单”！

如果您尝试自己创建此简单项目，则在运行应用程序时可能会遇到访问冲突异常。默认情况下，添加到应用程序的第一个表单将成为main表单（创建的第一个表单）。将数据模块添加到应用程序时，数据模块将作为在主窗体之后创建的窗体添加到“自动创建窗体”列表中。现在，如果尝试在主窗体的OnCreate事件中调用数据模块的任何属性或方法，由于数据模块尚未创建，您将收到访问冲突异常。要解决此问题，您需要手动更改数据模块的创建顺序，并将其设置为应用程序创建的第一个表单（使用“项目属性”对话框或编辑项目源文件）。

由于数据模块是在主窗体之前创建的，因此可以在主窗体的OnCreate事件中从数据模块安全地调用方法。