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

- Added TDataset.InternalInsert

Browse Source 
- Implemented TField.DisplayName
  - added support for TBufDataset delete and insert
This commit is contained in:
joost 2005-02-07 11:21:50 +00:00
parent 6ecf61688f
commit b993a9c094
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fcl/db/db.pp
View File

@ -119,6 +119,7 @@ type
FRequired : Boolean; FRequired : Boolean;
FSize : Word; FSize : Word;
FName : String; FName : String;
FDisplayName : String;
FAttributes : TFieldAttributes; FAttributes : TFieldAttributes;
Function GetFieldClass : TFieldClass; Function GetFieldClass : TFieldClass;
public public
@ -133,6 +134,7 @@ type
Published Published
property Attributes: TFieldAttributes read FAttributes write FAttributes default []; property Attributes: TFieldAttributes read FAttributes write FAttributes default [];
property Name: string read FName write FName; // Must move to TNamedItem property Name: string read FName write FName; // Must move to TNamedItem
property DisplayName : string read FDisplayName write FDisplayName; // Must move to TNamedItem
property DataType: TFieldType read FDataType write FDataType; property DataType: TFieldType read FDataType write FDataType;
property Precision: Longint read FPrecision write FPrecision; property Precision: Longint read FPrecision write FPrecision;
property Size: Word read FSize write FSize; property Size: Word read FSize write FSize;
@ -958,6 +960,7 @@ type
procedure InitRecord(Buffer: PChar); virtual; procedure InitRecord(Buffer: PChar); virtual;
procedure InternalCancel; virtual; procedure InternalCancel; virtual;
procedure InternalEdit; virtual; procedure InternalEdit; virtual;
procedure InternalInsert; virtual;
procedure InternalRefresh; virtual; procedure InternalRefresh; virtual;
procedure OpenCursor(InfoQuery: Boolean); virtual; procedure OpenCursor(InfoQuery: Boolean); virtual;
procedure RefreshInternalCalcFields(Buffer: PChar); virtual; procedure RefreshInternalCalcFields(Buffer: PChar); virtual;
@ -1374,6 +1377,7 @@ type
TRecUpdateBuffer = record TRecUpdateBuffer = record
RecordNo : integer; RecordNo : integer;
FieldsUpdateBuffer : TFieldsUpdateBuffer; FieldsUpdateBuffer : TFieldsUpdateBuffer;
UpdateKind : TUpdateKind;
end; end;
TRecordsUpdateBuffer = array of TRecUpdateBuffer; TRecordsUpdateBuffer = array of TRecUpdateBuffer;
@ -1392,6 +1396,8 @@ type
FOpen : Boolean; FOpen : Boolean;
FUpdateBuffer : TRecordsUpdateBuffer; FUpdateBuffer : TRecordsUpdateBuffer;
FEditBuf : PRecUpdateBuffer; FEditBuf : PRecUpdateBuffer;
FApplyingUpdates: boolean;
FBDeletedRecords: integer;
procedure CalcRecordSize; procedure CalcRecordSize;
function LoadBuffer(Buffer : PChar): TGetResult; function LoadBuffer(Buffer : PChar): TGetResult;
function GetFieldSize(FieldDef : TFieldDef) : longint; function GetFieldSize(FieldDef : TFieldDef) : longint;
@ -1410,7 +1416,10 @@ type
function getnextpacket : integer; function getnextpacket : integer;
function GetRecordSize: Word; override; function GetRecordSize: Word; override;
procedure InternalPost; override; procedure InternalPost; override;
procedure InternalCancel; override;
procedure InternalEdit; override; procedure InternalEdit; override;
procedure InternalInsert; override;
procedure InternalDelete; override;
procedure InternalFirst; override; procedure InternalFirst; override;
procedure InternalLast; override; procedure InternalLast; override;
procedure InternalSetToRecord(Buffer: PChar); override; procedure InternalSetToRecord(Buffer: PChar); override;
@ -1423,7 +1432,7 @@ type
procedure SetFieldData(Field: TField; Buffer: Pointer); override; procedure SetFieldData(Field: TField; Buffer: Pointer); override;
function IsCursorOpen: Boolean; override; function IsCursorOpen: Boolean; override;
function GetRecordCount: Longint; override; function GetRecordCount: Longint; override;
function ApplyRecUpdate : boolean; virtual; function ApplyRecUpdate(UpdateKind : TUpdateKind) : boolean; virtual;
{abstracts, must be overidden by descendents} {abstracts, must be overidden by descendents}
function Fetch : boolean; virtual; abstract; function Fetch : boolean; virtual; abstract;
function LoadField(FieldDef : TFieldDef;buffer : pointer) : boolean; virtual; abstract; function LoadField(FieldDef : TFieldDef;buffer : pointer) : boolean; virtual; abstract;
@ -1837,7 +1846,12 @@ end.
{ {
$Log$ $Log$
Revision 1.35 2005-02-03 19:10:39 florian Revision 1.36 2005-02-07 11:21:50 joost
- Added TDataset.InternalInsert
- Implemented TField.DisplayName
- added support for TBufDataset delete and insert
Revision 1.35 2005/02/03 19:10:39 florian
+ adapted for use fo tcollection.owner + adapted for use fo tcollection.owner
Revision 1.34 2005/01/12 10:28:44 michael Revision 1.34 2005/01/12 10:28:44 michael