Mormot 是一個支持 Delphi 平臺的高性能開源框架, 它提供了一系列的數(shù)據(jù)訪問特性，基于這些特性提供了一系列支持多種配置方式的 ORM 框架，其中一個最重要的特性之一就是 Mormot MySQL 數(shù)據(jù)庫訪問。

與其他 ORM 框架不同的是，Mormot 不僅僅是使用 SQL 語句將開發(fā)人員與數(shù)據(jù)庫連接起來，而且它還支持 PHP 的 MySQL 擴展。使用 PHP 的 MySQL 擴展，可以大大簡化與 MySQL 數(shù)據(jù)庫的交互。開發(fā)人員可以將 PHP 及 MySQL 進行配置，就可以用 PHP 所提供的函數(shù)來訪問 MySQL 數(shù)據(jù)庫。

unit Test1;
uses
SysUtils, SynZip, SynCommons, SynDB, SynDBODBC, SynTests;
procedure AddSQLiteTest(W: ITestWare);
begin
W.AddTestCase('SQLite3',
TTestDatabase.Create(ODBC_DB_SQLITE3, 'tmp\test1.db', '', '', '_sqlite3'));
end;
procedure AddFirebirdTest(W: ITestWare);
begin
W.AddTestCase('Firebird',
TTestDatabase.Create(ODBC_DB_FIREBIRD, 'localhost:e:\temp\test.fdb', '', '', '_firebird'));
end;
procedure AddMySQLTest(W: ITestWare);
begin
W.AddTestCase('MySQL',
TTestDatabase.Create(ODBC_DB_MYSQL, 'localhost:3306', 'mormot', 'mOrm0t!', '_mysql'));
end;
procedure AddPostgreSQLTest(W: ITestWare);
begin
W.AddTestCase('PostgreSQL',
TTestDatabase.Create(ODBC_DB_POSTGRESQL, 'localhost:5432', 'mormot', 'mOrm0t!', '_postgres'));
end;
const
TestDBName = '__synopseunittest';
TestDBFile = 'e:\dev\synopse\synsqlite3\test\synopsetest.db';
var
Client: TSQLRestClientURI;
Model: TSQLModel;
UserID: integer;
begin
Model := TSQLModel.Create([TSQLAuthUser,TSQLAuthGroup]);
Client := TSQLRestClientURI.Create('localhost',PORT,TestDBName,'','');
try
UserID := Client.Add(Model,'TSQLAuthUser',
['UserName','PassWord','DisplayName','Email','UserRights','UserGroups','UserLocked'],
['root','synopse','Synopse User','root@synopse.info','','',''],[]);
Check(UserID>0);
finally
Client.Free;
Model.Free;
end;
end.

在上面的代碼中，我們可以使用 Mormot ORM 框架實現(xiàn)了對 MySQL 的訪問。通過配置從而連接到 MySQL 數(shù)據(jù)庫，同時，我們使用 PHP 的 MySQL 擴展對數(shù)據(jù)庫進行了訪問。這提供了 Delphi 程序員很多方便性，同時也更加高效和準(zhǔn)確。