FDConnection连接，同一表单多个FDQuery同时关联

本文链接：https://blog.csdn.net/yuyongfeng80/article/details/143199279

delphi fdconnection1连接及共享连接

在Delphi中，使用FDConnection1进行数据库连接通常涉及到创建一个连接对象，设置连接属性，然后打开连接以便进行数据操作。如果需要在多个地方共享同一个数据库连接，可以考虑将连接组件置于数据模块中，或者使用全局变量。

以下是一个简单的例子，展示如何在Delphi中设置FDConnection1的属性并打开连接：

procedure TForm1.ConnectToDatabase;
begin
FDConnection1.Params.Database := 'myDatabase';
FDConnection1.Params.UserID := 'myUsername';
FDConnection1.Params.Password := 'myPassword';
FDConnection1.Params.Server := 'myServer';
FDConnection1.Params.DriverID := 'MyDriverID'; // 例如: Firebird, MySQL, SQL Server, etc.
FDConnection1.Connected := True; // 打开连接
end;

为了在多个地方共享连接，可以将FDConnection1放置在一个单独的数据模块中，并通过Shared属性标记它。然后，在程序的其他部分通过模块名访问FDConnection1。在数据模块中：

// 在数据模块中定义连接组件

interface

uses
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
FireDAC.UI.Login, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef, FireDAC.VCLUI.Wait,
FireDAC.Comp.Client;

var
FDConnection1: TFDConnection;

implementation

initialization
// 在初始化时设置连接属性
FDConnection1.Params.Database := 'myDatabase';
FDConnection1.Params.UserID := 'myUsername';
FDConnection1.Params.Password := 'myPassword';
FDConnection1.Params.Server := 'myServer';
FDConnection1.Params.DriverID := 'MyDriverID';
FDConnection1.Connected := True; // 连接数据库

end.

在表单中要引入

uses
MyDataModule; // 引入数据模块

procedure TForm1.SomeProcedure;
begin
// 使用共享的连接
if not DataModule1.FDConnection1.Connected then
DataModule1.FDConnection1.Connected := True;
// 执行数据库操作
end;

确保在程序结束时关闭连接，以免资源占用和潜在的数据库连接泄露。

procedure TForm1.CloseDatabaseConnection;
begin
if FDConnection1.Connected then
FDConnection1.Connected := False; // 关闭连接
end;

在实际的应用程序中，你可能还需要处理例如异常、连接池管理、性能优化等方面的问题，但上述代码提供了一个基本的连接和共享连接的例子。