DelphiWebMVC框架下不同数据库的使用

在系统开发是，有时我们需要链接不同的数据库，连接MySQL同时需要连接MSSQL，在框架中按照下面方法设置。

打开 uDBConfig.pas 文件

代码如下，这里进行使用数据库的设置，如果有新数据库链接，参考MYSQL 方式新声明类型，创建，释放，其中 类型参数名称要与Config.json 配置中一致。

unit uDBConfig;

interface

uses
  DBSQLite, DBMySql;

type
  TDBConfig = class
  public
    Default: TDBSQLite;   //必须有Default成员变量名
    MYSQL: TDBMySql;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TDBConfig }

constructor TDBConfig.Create;
begin
  Default := TDBSQLite.Create('SQLite');
  MYSQL := TDBMySql.Create('MYSQL');
end;

destructor TDBConfig.Destroy;
begin
  Default.Free;
  MYSQL.Free;
  inherited;
end;

end.

使用时按照下面方法

ret := Db.MYSQL.FindFirst('tb_users');//使用MYSQL数据库
ret := Db.Default.FindFirst('tb_users');//使用 SQLite 数据库