uidataaccess.pas

抽象三层访问数据库示例

{*******************************************************}
{       软件名称: --通用--                              }
{       单元名称: uIDataAccess.pas                      }
{       中文名称: 数据访问接口                          }
{       单元描述:                                       }
{       创    建: SamonHua                              }
{       创建日期: 2007-12-18                            }
{       修    改: 参见VSS记录                           }
{       版权所有 (C)2002-2007 深圳壹平台信息技术有限公司}
{*******************************************************}
unit uIDataAccess;

interface

uses
  Windows, Classes, SysUtils;

type
  IDataAccess = interface(IInterface)
    ['{D142E2EA-4850-46F2-B3A5-403319154A2F}']
    function GetWebURL: string;
    function GetDBHost: string;
    function GetDBName: string;
    function GetDBPassword: string;
    function GetDBType: string;
    function GetDBUserName: string;
    function GetDBConnectString: string;
    function GetExtendConfig: string;
    procedure SetWebURL(const Value: string);
    procedure SetDBHost(const Value: string);
    procedure SetDBName(const Value: string);
    procedure SetDBPassword(const Value: string);
    procedure SetDBType(const Value: string);
    procedure SetDBUserName(const Value: string);
    procedure SetDBConnectString(const Value: string);
    procedure SetExtendConfig(const Value: string);
    function GetData(const TableNameOrSQL: string): OleVariant;
    function GetXMLData(const TableNameOrSQL: string): OleVariant;
    function GetID(const TableName: string): string;
    function UpdateData(Data: OleVariant; const TableNameOrSQL, KeyFields: string): Boolean;
    function ExcuteSQL(const ASQL: string): Boolean;
    function UpdateBatchData(BatchDataList: TList): Boolean;
    function GetBlobContent(const TableName, KeyFieldName, KeyFieldValue, BlobFieldName: string;
      BlobFieldContent: TStream): boolean;
    function UpdateBlobContent(const TableName, KeyFieldName, KeyFieldValue, BlobFieldName: string;
      BlobFieldContent: TStream): boolean;
    function GetFileContent(const AFileName: string; FileContent: TStream): boolean;
    procedure CheckDBClientEnvironment;
    function BeginTrans: integer;
    procedure CommitTrans;
    procedure RollbackTrans;
    function InTransaction: boolean;
  end;

implementation

end.