paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +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;
{ ---------------------------------------------------------------------
TMasterDataLink
TMasterParamsDataLink
---------------------------------------------------------------------}
constructor TMasterParamsDataLink.Create(ADataSet: TDataSet);
@ -448,7 +448,7 @@ begin
end;
Procedure TMasterParamsDataLink.SetParams(AVAlue : TParams);
Procedure TMasterParamsDataLink.SetParams(AValue : TParams);
begin
FParams:=AValue;

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

@ -1760,6 +1760,22 @@ type
property OnMasterDisable: TNotifyEvent read FOnMasterDisable write FOnMasterDisable;
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 }
TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;
@ -1800,7 +1816,7 @@ type
property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;
end;
{ TDBDataset }
{ TDBDataset }
TDBDatasetClass = Class of TDBDataset;
TDBDataset = Class(TDataset)
@ -1817,7 +1833,7 @@ type
Property Transaction : TDBTransaction Read FTransaction Write SetTransaction;
end;
{ TDBTransaction }
{ TDBTransaction }
TDBTransactionClass = Class of TDBTransaction;
TDBTransaction = Class(TComponent)
@ -1852,7 +1868,7 @@ type
property Active : boolean read FActive write setactive;
end;
{ TCustomConnection }
{ TCustomConnection }
TLoginEvent = procedure(Sender: TObject; Username, Password: string) of object;
@ -1951,20 +1967,6 @@ type
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
FieldTypetoVariantMap : array[TFieldType] of Integer = (varError, varOleStr, varSmallint,
varInteger, varSmallint, varBoolean, varDouble, varCurrency, varCurrency,