paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: formatting

Browse Source 
git-svn-id: trunk@22939 -
This commit is contained in:
lacak 2012-11-06 09:29:22 +00:00
parent 221ee477b2
commit 43375ef468
2 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/datasource.inc
View File

@ -429,7 +429,7 @@ begin
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
TMasterDataLink TMasterParamsDataLink
---------------------------------------------------------------------} ---------------------------------------------------------------------}
constructor TMasterParamsDataLink.Create(ADataSet: TDataSet); constructor TMasterParamsDataLink.Create(ADataSet: TDataSet);
@ -448,7 +448,7 @@ begin
end; end;
Procedure TMasterParamsDataLink.SetParams(AVAlue : TParams); Procedure TMasterParamsDataLink.SetParams(AValue : TParams);
begin begin
FParams:=AValue; FParams:=AValue;

36
packages/fcl-db/src/base/db.pas
View File

@ -1760,6 +1760,22 @@ type
property OnMasterDisable: TNotifyEvent read FOnMasterDisable write FOnMasterDisable; property OnMasterDisable: TNotifyEvent read FOnMasterDisable write FOnMasterDisable;
end; end;
{ TMasterParamsDataLink }
TMasterParamsDataLink = Class(TMasterDataLink)
Private
FParams : TParams;
Procedure SetParams(AVAlue : TParams);
Protected
Procedure DoMasterDisable; override;
Procedure DoMasterChange; override;
Public
constructor Create(ADataSet: TDataSet); override;
Procedure RefreshParamNames; virtual;
Procedure CopyParamsFromMaster(CopyBound : Boolean); virtual;
Property Params : TParams Read FParams Write SetParams;
end;
{ TDataSource } { TDataSource }
TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object; TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;
@ -1800,7 +1816,7 @@ type
property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData; property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;
end; end;
{ TDBDataset } { TDBDataset }
TDBDatasetClass = Class of TDBDataset; TDBDatasetClass = Class of TDBDataset;
TDBDataset = Class(TDataset) TDBDataset = Class(TDataset)
@ -1817,7 +1833,7 @@ type
Property Transaction : TDBTransaction Read FTransaction Write SetTransaction; Property Transaction : TDBTransaction Read FTransaction Write SetTransaction;
end; end;
{ TDBTransaction } { TDBTransaction }
TDBTransactionClass = Class of TDBTransaction; TDBTransactionClass = Class of TDBTransaction;
TDBTransaction = Class(TComponent) TDBTransaction = Class(TComponent)
@ -1852,7 +1868,7 @@ type
property Active : boolean read FActive write setactive; property Active : boolean read FActive write setactive;
end; end;
{ TCustomConnection } { TCustomConnection }
TLoginEvent = procedure(Sender: TObject; Username, Password: string) of object; TLoginEvent = procedure(Sender: TObject; Username, Password: string) of object;
@ -1951,20 +1967,6 @@ type
end; end;
TMasterParamsDataLink = Class(TMasterDataLink)
Private
FParams : TParams;
Procedure SetParams(AVAlue : TParams);
Protected
Procedure DoMasterDisable; override;
Procedure DoMasterChange; override;
Public
constructor Create(ADataSet: TDataSet); override;
Procedure RefreshParamNames; virtual;
Procedure CopyParamsFromMaster(CopyBound : Boolean); virtual;
Property Params : TParams Read FParams Write SetParams;
end;
const const
FieldTypetoVariantMap : array[TFieldType] of Integer = (varError, varOleStr, varSmallint, FieldTypetoVariantMap : array[TFieldType] of Integer = (varError, varOleStr, varSmallint,
varInteger, varSmallint, varBoolean, varDouble, varCurrency, varCurrency, varInteger, varSmallint, varBoolean, varDouble, varCurrency, varCurrency,