?? udataaccesshelper.pas
字號(hào):
unit uDataAccessHelper;
interface
uses
Windows, Classes, SysUtils, Forms, uADODataAccess, uDOADataAccess,
uWebDataAccess, uIDataAccess, uDataAccess;
type
TDataAccessHelper = class
public
class function GetADODataAccess: IDataAccess;
class function GetDOADataAccess: IDataAccess;
class function GetWebDataAccess: IDataAccess;
class function GetADODataAccessInstance(AOwner: TComponent): TDataAccess;
class function GetDOADataAccessInstance(AOwner: TComponent): TDataAccess;
class function GetWebDataAccessInstance(AOwner: TComponent): TDataAccess;
end;
implementation
{ TDataAccessHelper }
class function TDataAccessHelper.GetADODataAccess: IDataAccess;
begin
Result := GetADODataAccessInstance(nil);
end;
class function TDataAccessHelper.GetADODataAccessInstance(
AOwner: TComponent): TDataAccess;
begin
result := TADODataAccess.Create(AOwner);
end;
class function TDataAccessHelper.GetDOADataAccess: IDataAccess;
begin
Result := GetDOADataAccessInstance(nil);
end;
class function TDataAccessHelper.GetDOADataAccessInstance(
AOwner: TComponent): TDataAccess;
begin
Result := TDOADataAccess.Create(AOwner);
end;
class function TDataAccessHelper.GetWebDataAccess: IDataAccess;
begin
Result := GetWebDataAccessInstance(nil);
end;
class function TDataAccessHelper.GetWebDataAccessInstance(
AOwner: TComponent): TDataAccess;
begin
Result := TWebDataAccess.Create(AOwner);
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -