opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix the same IProviderSupport / deprecated problem that r647 fixed, but in a prettier way.

Browse Source
This commit is contained in:
rosenfield
2007-06-27 21:31:52 +00:00
parent 87806d7075
commit a4889d64d4
4 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/zeosdbo/src/component/ZAbstractRODataset.pas
View File

@ -114,7 +114,7 @@ type
end; end;
{** Abstract dataset component optimized for read/only access. } {** Abstract dataset component optimized for read/only access. }
TZAbstractRODataset = class(TDataSet) TZAbstractRODataset = class(TWideDataSet)
private private
{$IFDEF VER130BELOW} {$IFDEF VER130BELOW}
FUniDirectional: Boolean; FUniDirectional: Boolean;
@ -338,8 +338,8 @@ type
{$IFDEF WITH_IPROVIDER} {$IFDEF WITH_IPROVIDER}
procedure PSStartTransaction; override; procedure PSStartTransaction; override;
procedure PSEndTransaction(Commit: Boolean); override; procedure PSEndTransaction(Commit: Boolean); override;
{function PSGetTableName: string; override; function PSGetTableNameW: WideString; override;
function PSGetQuoteChar: string; override; } function PSGetQuoteCharW: WideString; override;
function PSGetUpdateException(E: Exception; function PSGetUpdateException(E: Exception;
Prev: EUpdateError): EUpdateError; override; Prev: EUpdateError): EUpdateError; override;
function PSIsSQLBased: Boolean; override; function PSIsSQLBased: Boolean; override;
@ -348,7 +348,7 @@ type
function PSUpdateRecord(UpdateKind: TUpdateKind; function PSUpdateRecord(UpdateKind: TUpdateKind;
Delta: TDataSet): Boolean; override; Delta: TDataSet): Boolean; override;
procedure PSExecute; override; procedure PSExecute; override;
{function PSGetKeyFields: string; override;} function PSGetKeyFieldsW: WideString; override;
function PSGetParams: TParams; override; function PSGetParams: TParams; override;
procedure PSSetParams(AParams: TParams); override; procedure PSSetParams(AParams: TParams); override;
function PSExecuteStatement(const ASQL: string; AParams: TParams; function PSExecuteStatement(const ASQL: string; AParams: TParams;
@ -2766,7 +2766,7 @@ end;
Returns a string quote character. Returns a string quote character.
@retuns a quote character. @retuns a quote character.
} }
{function TZAbstractRODataset.PSGetQuoteChar: string; function TZAbstractRODataset.PSGetQuoteCharW: WideString;
begin begin
if Assigned(FConnection) then if Assigned(FConnection) then
begin begin
@ -2778,7 +2778,7 @@ begin
end end
else else
Result := '"'; Result := '"';
end;} end;
{** {**
Checks if dataset can execute any commands? Checks if dataset can execute any commands?
@ -2887,7 +2887,7 @@ end;
@returns a table name or an empty string is SQL query is complex SELECT @returns a table name or an empty string is SQL query is complex SELECT
or not SELECT statement. or not SELECT statement.
} }
{function TZAbstractRODataset.PSGetTableName: string; function TZAbstractRODataset.PSGetTableNameW: WideString;
var var
Driver: IZDriver; Driver: IZDriver;
Tokenizer: IZTokenizer; Tokenizer: IZTokenizer;
@ -2905,16 +2905,16 @@ begin
if Assigned(SelectSchema) and (SelectSchema.TableCount = 1) then if Assigned(SelectSchema) and (SelectSchema.TableCount = 1) then
Result := SelectSchema.Tables[0].FullName; Result := SelectSchema.Tables[0].FullName;
end; end;
end;} end;
{** {**
Defines a list of query primary key fields. Defines a list of query primary key fields.
@returns a semicolon delimited list of query key fields. @returns a semicolon delimited list of query key fields.
} }
{function TZAbstractRODataset.PSGetKeyFields: string; function TZAbstractRODataset.PSGetKeyFieldsW: WideString;
begin begin
Result := inherited PSGetKeyFields; Result := inherited PSGetKeyFieldsW;
end;} end;
{** {**
Executes a SQL statement with parameters. Executes a SQL statement with parameters.

6
components/zeosdbo/src/component/ZAbstractTable.pas
View File

@ -75,7 +75,7 @@ type
protected protected
{$IFDEF WITH_IPROVIDER} {$IFDEF WITH_IPROVIDER}
function PSIsSQLBased: Boolean; override; function PSIsSQLBased: Boolean; override;
{function PSGetTableName: string; override;} function PSGetTableNameW: WideString; override;
procedure PSSetCommandText(const ACommandText: string); override; procedure PSSetCommandText(const ACommandText: string); override;
{$ENDIF} {$ENDIF}
@ -118,10 +118,10 @@ end;
Gets the name of the table. Gets the name of the table.
@returns the name of this table. @returns the name of this table.
} }
{function TZAbstractTable.PSGetTableName: string; function TZAbstractTable.PSGetTableNameW: WideString;
begin begin
Result := TableName; Result := TableName;
end;} end;
{** {**
Assignes a new name for this table. Assignes a new name for this table.

6
components/zeosdbo/src/component/ZStoredProcedure.pas
View File

@ -91,7 +91,7 @@ type
{$IFDEF WITH_IPROVIDER} {$IFDEF WITH_IPROVIDER}
function PSIsSQLBased: Boolean; override; function PSIsSQLBased: Boolean; override;
procedure PSExecute; override; procedure PSExecute; override;
{function PSGetTableName: string; override;} function PSGetTableNameW: WideString; override;
procedure PSSetCommandText(const ACommandText: string); override; procedure PSSetCommandText(const ACommandText: string); override;
{$ENDIF} {$ENDIF}
@ -353,10 +353,10 @@ end;
Gets the name of the stored procedure. Gets the name of the stored procedure.
@returns the name of this stored procedure. @returns the name of this stored procedure.
} }
{function TZStoredProc.PSGetTableName: string; function TZStoredProc.PSGetTableNameW: WideString;
begin begin
Result := StoredProcName; Result := StoredProcName;
end;} end;
{** {**
Executes this stored procedure. Executes this stored procedure.

2
components/zeosdbo/src/component/ZStreamBlob.pas
View File

@ -104,7 +104,7 @@ begin
end; end;
end; end;
type THackedDataset = class(TDataset); type THackedDataset = class(TWideDataset);
{** {**
Destroys this object and cleanups the memory. Destroys this object and cleanups the memory.