📄 s2.model.ts2adodatabasemanager.pas
字号:
unit S2.Model.TS2ADODatabaseManager;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
S2.Model.TS2DatabaseManager, DB, ADODB, S2.Model.IS2ADODatabaseConnection,
S2.Model.IS2DatabaseConnection;
type
TS2ADODatabaseManager = class(TS2DatabaseManager, IS2ADODatabaseConnection)
Connection: TADOConnection;
public
function GetADOConnection: TADOConnection; virtual;
function GetConnection: IS2DatabaseConnection; override;
end;
implementation
{$R *.dfm}
{ TS2ADODatabaseManager }
function TS2ADODatabaseManager.GetADOConnection: TADOConnection;
begin
Result := Connection;
end;
function TS2ADODatabaseManager.GetConnection: IS2DatabaseConnection;
begin
Result := IS2ADODatabaseConnection(Self);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -