mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 14:29:14 +02:00
* Patch from Stephano to implement IProviderSupport
git-svn-id: trunk@17354 -
This commit is contained in:
michael
parent
f97f223de6
commit
64c0fede25
@ -2305,3 +2305,132 @@ begin
|
|||||||
FDataSources.Remove(ADataSource);
|
FDataSources.Remove(ADataSource);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{------------------------------------------------------------------------------}
|
||||||
|
{ IProviderSupport methods}
|
||||||
|
|
||||||
|
procedure TDataset.PSEndTransaction(Commit: Boolean);
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSExecute;
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSExecuteStatement(const ASQL: string; AParams: TParams;
|
||||||
|
ResultSet: Pointer): Integer;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSGetAttributes(List: TList);
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetCommandText: string;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetCommandType: TPSCommandType;
|
||||||
|
begin
|
||||||
|
Result := ctUnknown;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetDefaultOrder: TIndexDef;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
//DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetIndexDefs(IndexTypes: TIndexOptions): TIndexDefs;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetKeyFields: string;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetParams: TParams;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetQuoteChar: string;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetTableName: string;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSGetUpdateException(E: Exception; Prev: EUpdateError
|
||||||
|
): EUpdateError;
|
||||||
|
begin
|
||||||
|
if Prev <> nil then
|
||||||
|
Result := EUpdateError.Create(E.Message, '', 0, Prev.ErrorCode, E)
|
||||||
|
else
|
||||||
|
Result := EUpdateError.Create(E.Message, '', 0, 0, E)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSInTransaction: Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSIsSQLBased: Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSIsSQLSupported: Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSReset;
|
||||||
|
begin
|
||||||
|
//DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSSetCommandText(const CommandText: string);
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSSetParams(AParams: TParams);
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataset.PSStartTransaction;
|
||||||
|
begin
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataset.PSUpdateRecord(UpdateKind: TUpdateKind; Delta: TDataSet
|
||||||
|
): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
DatabaseError('Provider support not available', Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{------------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
|||||||
@ -1092,6 +1092,144 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TParam }
|
||||||
|
|
||||||
|
TBlobData = string;
|
||||||
|
|
||||||
|
TParamBinding = array of integer;
|
||||||
|
|
||||||
|
TParamType = (ptUnknown, ptInput, ptOutput, ptInputOutput, ptResult);
|
||||||
|
TParamTypes = set of TParamType;
|
||||||
|
|
||||||
|
TParamStyle = (psInterbase,psPostgreSQL,psSimulated);
|
||||||
|
|
||||||
|
TParams = class;
|
||||||
|
|
||||||
|
TParam = class(TCollectionItem)
|
||||||
|
private
|
||||||
|
FNativeStr: string;
|
||||||
|
FValue: Variant;
|
||||||
|
FPrecision: Integer;
|
||||||
|
FNumericScale: Integer;
|
||||||
|
FName: string;
|
||||||
|
FDataType: TFieldType;
|
||||||
|
FBound: Boolean;
|
||||||
|
FParamType: TParamType;
|
||||||
|
FSize: Integer;
|
||||||
|
Function GetDataSet: TDataSet;
|
||||||
|
Function IsParamStored: Boolean;
|
||||||
|
protected
|
||||||
|
Procedure AssignParam(Param: TParam);
|
||||||
|
Procedure AssignTo(Dest: TPersistent); override;
|
||||||
|
Function GetAsBoolean: Boolean;
|
||||||
|
Function GetAsCurrency: Currency;
|
||||||
|
Function GetAsDateTime: TDateTime;
|
||||||
|
Function GetAsFloat: Double;
|
||||||
|
Function GetAsInteger: Longint;
|
||||||
|
Function GetAsLargeInt: LargeInt;
|
||||||
|
Function GetAsMemo: string;
|
||||||
|
Function GetAsString: string;
|
||||||
|
Function GetAsVariant: Variant;
|
||||||
|
Function GetDisplayName: string; override;
|
||||||
|
Function GetIsNull: Boolean;
|
||||||
|
Function IsEqual(AValue: TParam): Boolean;
|
||||||
|
Procedure SetAsBlob(const AValue: TBlobData);
|
||||||
|
Procedure SetAsBoolean(AValue: Boolean);
|
||||||
|
Procedure SetAsCurrency(const AValue: Currency);
|
||||||
|
Procedure SetAsDate(const AValue: TDateTime);
|
||||||
|
Procedure SetAsDateTime(const AValue: TDateTime);
|
||||||
|
Procedure SetAsFloat(const AValue: Double);
|
||||||
|
Procedure SetAsInteger(AValue: Longint);
|
||||||
|
Procedure SetAsLargeInt(AValue: LargeInt);
|
||||||
|
Procedure SetAsMemo(const AValue: string);
|
||||||
|
Procedure SetAsSmallInt(AValue: LongInt);
|
||||||
|
Procedure SetAsString(const AValue: string);
|
||||||
|
Procedure SetAsTime(const AValue: TDateTime);
|
||||||
|
Procedure SetAsVariant(const AValue: Variant);
|
||||||
|
Procedure SetAsWord(AValue: LongInt);
|
||||||
|
Procedure SetDataType(AValue: TFieldType);
|
||||||
|
Procedure SetText(const AValue: string);
|
||||||
|
function GetAsWideString: WideString;
|
||||||
|
procedure SetAsWideString(const aValue: WideString);
|
||||||
|
public
|
||||||
|
constructor Create(ACollection: TCollection); overload; override;
|
||||||
|
constructor Create(AParams: TParams; AParamType: TParamType); reintroduce; overload;
|
||||||
|
Procedure Assign(Source: TPersistent); override;
|
||||||
|
Procedure AssignField(Field: TField);
|
||||||
|
Procedure AssignToField(Field: TField);
|
||||||
|
Procedure AssignFieldValue(Field: TField; const AValue: Variant);
|
||||||
|
procedure AssignFromField(Field : TField);
|
||||||
|
Procedure Clear;
|
||||||
|
Procedure GetData(Buffer: Pointer);
|
||||||
|
Function GetDataSize: Integer;
|
||||||
|
Procedure LoadFromFile(const FileName: string; BlobType: TBlobType);
|
||||||
|
Procedure LoadFromStream(Stream: TStream; BlobType: TBlobType);
|
||||||
|
Procedure SetBlobData(Buffer: Pointer; ASize: Integer);
|
||||||
|
Procedure SetData(Buffer: Pointer);
|
||||||
|
Property AsBlob : TBlobData read GetAsString write SetAsBlob;
|
||||||
|
Property AsBoolean : Boolean read GetAsBoolean write SetAsBoolean;
|
||||||
|
Property AsCurrency : Currency read GetAsCurrency write SetAsCurrency;
|
||||||
|
Property AsDate : TDateTime read GetAsDateTime write SetAsDate;
|
||||||
|
Property AsDateTime : TDateTime read GetAsDateTime write SetAsDateTime;
|
||||||
|
Property AsFloat : Double read GetAsFloat write SetAsFloat;
|
||||||
|
Property AsInteger : LongInt read GetAsInteger write SetAsInteger;
|
||||||
|
Property AsLargeInt : LargeInt read GetAsLargeInt write SetAsLargeInt;
|
||||||
|
Property AsMemo : string read GetAsMemo write SetAsMemo;
|
||||||
|
Property AsSmallInt : LongInt read GetAsInteger write SetAsSmallInt;
|
||||||
|
Property AsString : string read GetAsString write SetAsString;
|
||||||
|
Property AsTime : TDateTime read GetAsDateTime write SetAsTime;
|
||||||
|
Property AsWord : LongInt read GetAsInteger write SetAsWord;
|
||||||
|
Property Bound : Boolean read FBound write FBound;
|
||||||
|
Property Dataset : TDataset Read GetDataset;
|
||||||
|
Property IsNull : Boolean read GetIsNull;
|
||||||
|
Property NativeStr : string read FNativeStr write FNativeStr;
|
||||||
|
Property Text : string read GetAsString write SetText;
|
||||||
|
Property Value : Variant read GetAsVariant write SetAsVariant stored IsParamStored;
|
||||||
|
property AsWideString: WideString read GetAsWideString write SetAsWideString;
|
||||||
|
published
|
||||||
|
Property DataType : TFieldType read FDataType write SetDataType;
|
||||||
|
Property Name : string read FName write FName;
|
||||||
|
Property NumericScale : Integer read FNumericScale write FNumericScale default 0;
|
||||||
|
Property ParamType : TParamType read FParamType write FParamType;
|
||||||
|
Property Precision : Integer read FPrecision write FPrecision default 0;
|
||||||
|
Property Size : Integer read FSize write FSize default 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TParams }
|
||||||
|
|
||||||
|
TParams = class(TCollection)
|
||||||
|
private
|
||||||
|
FOwner: TPersistent;
|
||||||
|
Function GetItem(Index: Integer): TParam;
|
||||||
|
Function GetParamValue(const ParamName: string): Variant;
|
||||||
|
Procedure SetItem(Index: Integer; Value: TParam);
|
||||||
|
Procedure SetParamValue(const ParamName: string; const Value: Variant);
|
||||||
|
protected
|
||||||
|
Procedure AssignTo(Dest: TPersistent); override;
|
||||||
|
Function GetDataSet: TDataSet;
|
||||||
|
Function GetOwner: TPersistent; override;
|
||||||
|
public
|
||||||
|
Constructor Create(AOwner: TPersistent); overload;
|
||||||
|
Constructor Create; overload;
|
||||||
|
Procedure AddParam(Value: TParam);
|
||||||
|
Procedure AssignValues(Value: TParams);
|
||||||
|
Function CreateParam(FldType: TFieldType; const ParamName: string; ParamType: TParamType): TParam;
|
||||||
|
Function FindParam(const Value: string): TParam;
|
||||||
|
Procedure GetParamList(List: TList; const ParamNames: string);
|
||||||
|
Function IsEqual(Value: TParams): Boolean;
|
||||||
|
Function ParamByName(const Value: string): TParam;
|
||||||
|
Function ParseSQL(SQL: String; DoCreate: Boolean): String; overload;
|
||||||
|
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle): String; overload;
|
||||||
|
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; var ParamBinding: TParambinding): String; overload;
|
||||||
|
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; var ParamBinding: TParambinding; var ReplaceString : string): String; overload;
|
||||||
|
Procedure RemoveParam(Value: TParam);
|
||||||
|
Procedure CopyParamValuesFromDataset(ADataset : TDataset; CopyBound : Boolean);
|
||||||
|
Property Dataset : TDataset Read GetDataset;
|
||||||
|
Property Items[Index: Integer] : TParam read GetItem write SetItem; default;
|
||||||
|
Property ParamValues[const ParamName: string] : Variant read GetParamValue write SetParamValue;
|
||||||
|
end;
|
||||||
|
|
||||||
{ TDataSet }
|
{ TDataSet }
|
||||||
|
|
||||||
TBookmark = Pointer;
|
TBookmark = Pointer;
|
||||||
@ -1134,6 +1272,48 @@ type
|
|||||||
TDatasetClass = Class of TDataset;
|
TDatasetClass = Class of TDataset;
|
||||||
TBufferArray = ^pchar;
|
TBufferArray = ^pchar;
|
||||||
|
|
||||||
|
{------------------------------------------------------------------------------}
|
||||||
|
{IProviderSupport interface}
|
||||||
|
|
||||||
|
TPSCommandType = (
|
||||||
|
ctUnknown,
|
||||||
|
ctQuery,
|
||||||
|
ctTable,
|
||||||
|
ctStoredProc,
|
||||||
|
ctSelect,
|
||||||
|
ctInsert,
|
||||||
|
ctUpdate,
|
||||||
|
ctDelete,
|
||||||
|
ctDDL
|
||||||
|
);
|
||||||
|
|
||||||
|
IProviderSupport = interface
|
||||||
|
procedure PSEndTransaction(ACommit: Boolean);
|
||||||
|
procedure PSExecute;
|
||||||
|
function PSExecuteStatement(const ASQL: string; AParams: TParams;
|
||||||
|
ResultSet: Pointer = nil): Integer;
|
||||||
|
procedure PSGetAttributes(List: TList);
|
||||||
|
function PSGetCommandText: string;
|
||||||
|
function PSGetCommandType: TPSCommandType;
|
||||||
|
function PSGetDefaultOrder: TIndexDef;
|
||||||
|
function PSGetIndexDefs(IndexTypes: TIndexOptions = [ixPrimary..ixNonMaintained])
|
||||||
|
: TIndexDefs;
|
||||||
|
function PSGetKeyFields: string;
|
||||||
|
function PSGetParams: TParams;
|
||||||
|
function PSGetQuoteChar: string;
|
||||||
|
function PSGetTableName: string;
|
||||||
|
function PSGetUpdateException(E: Exception; Prev: EUpdateError): EUpdateError;
|
||||||
|
function PSInTransaction: Boolean;
|
||||||
|
function PSIsSQLBased: Boolean;
|
||||||
|
function PSIsSQLSupported: Boolean;
|
||||||
|
procedure PSReset;
|
||||||
|
procedure PSSetCommandText(const CommandText: string);
|
||||||
|
procedure PSSetParams(AParams: TParams);
|
||||||
|
procedure PSStartTransaction;
|
||||||
|
function PSUpdateRecord(UpdateKind: TUpdateKind; Delta: TDataSet): Boolean;
|
||||||
|
end;
|
||||||
|
{------------------------------------------------------------------------------}
|
||||||
|
|
||||||
TDataSet = class(TComponent)
|
TDataSet = class(TComponent)
|
||||||
Private
|
Private
|
||||||
FOpenAfterRead : boolean;
|
FOpenAfterRead : boolean;
|
||||||
@ -1324,6 +1504,32 @@ type
|
|||||||
procedure InternalOpen; virtual; abstract;
|
procedure InternalOpen; virtual; abstract;
|
||||||
procedure InternalInitFieldDefs; virtual; abstract;
|
procedure InternalInitFieldDefs; virtual; abstract;
|
||||||
function IsCursorOpen: Boolean; virtual; abstract;
|
function IsCursorOpen: Boolean; virtual; abstract;
|
||||||
|
protected { IProviderSupport methods }
|
||||||
|
procedure PSEndTransaction(Commit: Boolean); virtual;
|
||||||
|
procedure PSExecute; virtual;
|
||||||
|
function PSExecuteStatement(const ASQL: string; AParams: TParams;
|
||||||
|
ResultSet: Pointer = nil): Integer; virtual;
|
||||||
|
procedure PSGetAttributes(List: TList); virtual;
|
||||||
|
function PSGetCommandText: string; virtual;
|
||||||
|
function PSGetCommandType: TPSCommandType; virtual;
|
||||||
|
function PSGetDefaultOrder: TIndexDef; virtual;
|
||||||
|
function PSGetIndexDefs(IndexTypes: TIndexOptions = [ixPrimary..ixNonMaintained])
|
||||||
|
: TIndexDefs; virtual;
|
||||||
|
function PSGetKeyFields: string; virtual;
|
||||||
|
function PSGetParams: TParams; virtual;
|
||||||
|
function PSGetQuoteChar: string; virtual;
|
||||||
|
function PSGetTableName: string; virtual;
|
||||||
|
function PSGetUpdateException(E: Exception; Prev: EUpdateError)
|
||||||
|
: EUpdateError; virtual;
|
||||||
|
function PSInTransaction: Boolean; virtual;
|
||||||
|
function PSIsSQLBased: Boolean; virtual;
|
||||||
|
function PSIsSQLSupported: Boolean; virtual;
|
||||||
|
procedure PSReset; virtual;
|
||||||
|
procedure PSSetCommandText(const CommandText: string); virtual;
|
||||||
|
procedure PSSetParams(AParams: TParams); virtual;
|
||||||
|
procedure PSStartTransaction; virtual;
|
||||||
|
function PSUpdateRecord(UpdateKind: TUpdateKind; Delta: TDataSet)
|
||||||
|
: Boolean; virtual;
|
||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
@ -1716,144 +1922,6 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TParam }
|
|
||||||
|
|
||||||
TBlobData = string;
|
|
||||||
|
|
||||||
TParamBinding = array of integer;
|
|
||||||
|
|
||||||
TParamType = (ptUnknown, ptInput, ptOutput, ptInputOutput, ptResult);
|
|
||||||
TParamTypes = set of TParamType;
|
|
||||||
|
|
||||||
TParamStyle = (psInterbase,psPostgreSQL,psSimulated);
|
|
||||||
|
|
||||||
TParams = class;
|
|
||||||
|
|
||||||
TParam = class(TCollectionItem)
|
|
||||||
private
|
|
||||||
FNativeStr: string;
|
|
||||||
FValue: Variant;
|
|
||||||
FPrecision: Integer;
|
|
||||||
FNumericScale: Integer;
|
|
||||||
FName: string;
|
|
||||||
FDataType: TFieldType;
|
|
||||||
FBound: Boolean;
|
|
||||||
FParamType: TParamType;
|
|
||||||
FSize: Integer;
|
|
||||||
Function GetDataSet: TDataSet;
|
|
||||||
Function IsParamStored: Boolean;
|
|
||||||
protected
|
|
||||||
Procedure AssignParam(Param: TParam);
|
|
||||||
Procedure AssignTo(Dest: TPersistent); override;
|
|
||||||
Function GetAsBoolean: Boolean;
|
|
||||||
Function GetAsCurrency: Currency;
|
|
||||||
Function GetAsDateTime: TDateTime;
|
|
||||||
Function GetAsFloat: Double;
|
|
||||||
Function GetAsInteger: Longint;
|
|
||||||
Function GetAsLargeInt: LargeInt;
|
|
||||||
Function GetAsMemo: string;
|
|
||||||
Function GetAsString: string;
|
|
||||||
Function GetAsVariant: Variant;
|
|
||||||
Function GetDisplayName: string; override;
|
|
||||||
Function GetIsNull: Boolean;
|
|
||||||
Function IsEqual(AValue: TParam): Boolean;
|
|
||||||
Procedure SetAsBlob(const AValue: TBlobData);
|
|
||||||
Procedure SetAsBoolean(AValue: Boolean);
|
|
||||||
Procedure SetAsCurrency(const AValue: Currency);
|
|
||||||
Procedure SetAsDate(const AValue: TDateTime);
|
|
||||||
Procedure SetAsDateTime(const AValue: TDateTime);
|
|
||||||
Procedure SetAsFloat(const AValue: Double);
|
|
||||||
Procedure SetAsInteger(AValue: Longint);
|
|
||||||
Procedure SetAsLargeInt(AValue: LargeInt);
|
|
||||||
Procedure SetAsMemo(const AValue: string);
|
|
||||||
Procedure SetAsSmallInt(AValue: LongInt);
|
|
||||||
Procedure SetAsString(const AValue: string);
|
|
||||||
Procedure SetAsTime(const AValue: TDateTime);
|
|
||||||
Procedure SetAsVariant(const AValue: Variant);
|
|
||||||
Procedure SetAsWord(AValue: LongInt);
|
|
||||||
Procedure SetDataType(AValue: TFieldType);
|
|
||||||
Procedure SetText(const AValue: string);
|
|
||||||
function GetAsWideString: WideString;
|
|
||||||
procedure SetAsWideString(const aValue: WideString);
|
|
||||||
public
|
|
||||||
constructor Create(ACollection: TCollection); overload; override;
|
|
||||||
constructor Create(AParams: TParams; AParamType: TParamType); reintroduce; overload;
|
|
||||||
Procedure Assign(Source: TPersistent); override;
|
|
||||||
Procedure AssignField(Field: TField);
|
|
||||||
Procedure AssignToField(Field: TField);
|
|
||||||
Procedure AssignFieldValue(Field: TField; const AValue: Variant);
|
|
||||||
procedure AssignFromField(Field : TField);
|
|
||||||
Procedure Clear;
|
|
||||||
Procedure GetData(Buffer: Pointer);
|
|
||||||
Function GetDataSize: Integer;
|
|
||||||
Procedure LoadFromFile(const FileName: string; BlobType: TBlobType);
|
|
||||||
Procedure LoadFromStream(Stream: TStream; BlobType: TBlobType);
|
|
||||||
Procedure SetBlobData(Buffer: Pointer; ASize: Integer);
|
|
||||||
Procedure SetData(Buffer: Pointer);
|
|
||||||
Property AsBlob : TBlobData read GetAsString write SetAsBlob;
|
|
||||||
Property AsBoolean : Boolean read GetAsBoolean write SetAsBoolean;
|
|
||||||
Property AsCurrency : Currency read GetAsCurrency write SetAsCurrency;
|
|
||||||
Property AsDate : TDateTime read GetAsDateTime write SetAsDate;
|
|
||||||
Property AsDateTime : TDateTime read GetAsDateTime write SetAsDateTime;
|
|
||||||
Property AsFloat : Double read GetAsFloat write SetAsFloat;
|
|
||||||
Property AsInteger : LongInt read GetAsInteger write SetAsInteger;
|
|
||||||
Property AsLargeInt : LargeInt read GetAsLargeInt write SetAsLargeInt;
|
|
||||||
Property AsMemo : string read GetAsMemo write SetAsMemo;
|
|
||||||
Property AsSmallInt : LongInt read GetAsInteger write SetAsSmallInt;
|
|
||||||
Property AsString : string read GetAsString write SetAsString;
|
|
||||||
Property AsTime : TDateTime read GetAsDateTime write SetAsTime;
|
|
||||||
Property AsWord : LongInt read GetAsInteger write SetAsWord;
|
|
||||||
Property Bound : Boolean read FBound write FBound;
|
|
||||||
Property Dataset : TDataset Read GetDataset;
|
|
||||||
Property IsNull : Boolean read GetIsNull;
|
|
||||||
Property NativeStr : string read FNativeStr write FNativeStr;
|
|
||||||
Property Text : string read GetAsString write SetText;
|
|
||||||
Property Value : Variant read GetAsVariant write SetAsVariant stored IsParamStored;
|
|
||||||
property AsWideString: WideString read GetAsWideString write SetAsWideString;
|
|
||||||
published
|
|
||||||
Property DataType : TFieldType read FDataType write SetDataType;
|
|
||||||
Property Name : string read FName write FName;
|
|
||||||
Property NumericScale : Integer read FNumericScale write FNumericScale default 0;
|
|
||||||
Property ParamType : TParamType read FParamType write FParamType;
|
|
||||||
Property Precision : Integer read FPrecision write FPrecision default 0;
|
|
||||||
Property Size : Integer read FSize write FSize default 0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
{ TParams }
|
|
||||||
|
|
||||||
TParams = class(TCollection)
|
|
||||||
private
|
|
||||||
FOwner: TPersistent;
|
|
||||||
Function GetItem(Index: Integer): TParam;
|
|
||||||
Function GetParamValue(const ParamName: string): Variant;
|
|
||||||
Procedure SetItem(Index: Integer; Value: TParam);
|
|
||||||
Procedure SetParamValue(const ParamName: string; const Value: Variant);
|
|
||||||
protected
|
|
||||||
Procedure AssignTo(Dest: TPersistent); override;
|
|
||||||
Function GetDataSet: TDataSet;
|
|
||||||
Function GetOwner: TPersistent; override;
|
|
||||||
public
|
|
||||||
Constructor Create(AOwner: TPersistent); overload;
|
|
||||||
Constructor Create; overload;
|
|
||||||
Procedure AddParam(Value: TParam);
|
|
||||||
Procedure AssignValues(Value: TParams);
|
|
||||||
Function CreateParam(FldType: TFieldType; const ParamName: string; ParamType: TParamType): TParam;
|
|
||||||
Function FindParam(const Value: string): TParam;
|
|
||||||
Procedure GetParamList(List: TList; const ParamNames: string);
|
|
||||||
Function IsEqual(Value: TParams): Boolean;
|
|
||||||
Function ParamByName(const Value: string): TParam;
|
|
||||||
Function ParseSQL(SQL: String; DoCreate: Boolean): String; overload;
|
|
||||||
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle): String; overload;
|
|
||||||
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; var ParamBinding: TParambinding): String; overload;
|
|
||||||
Function ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; var ParamBinding: TParambinding; var ReplaceString : string): String; overload;
|
|
||||||
Procedure RemoveParam(Value: TParam);
|
|
||||||
Procedure CopyParamValuesFromDataset(ADataset : TDataset; CopyBound : Boolean);
|
|
||||||
Property Dataset : TDataset Read GetDataset;
|
|
||||||
Property Items[Index: Integer] : TParam read GetItem write SetItem; default;
|
|
||||||
Property ParamValues[const ParamName: string] : Variant read GetParamValue write SetParamValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TMasterParamsDataLink = Class(TMasterDataLink)
|
TMasterParamsDataLink = Class(TMasterDataLink)
|
||||||
Private
|
Private
|
||||||
FParams : TParams;
|
FParams : TParams;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user