paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 07:00:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Published TSQLQuery.MaxIndexesCount and FieldDefs

Browse Source 
* Set default values for MaxIndexesCount and Readonly

git-svn-id: trunk@17378 -
This commit is contained in:
joost 2011-04-27 20:18:15 +00:00
parent 884708c6f2
commit 840d06dddb
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/bufdataset.pas
View File

@ -528,7 +528,7 @@ type
function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint; override;
property ChangeCount : Integer read GetChangeCount;
property MaxIndexesCount : Integer read FMaxIndexesCount write SetMaxIndexesCount;
property MaxIndexesCount : Integer read FMaxIndexesCount write SetMaxIndexesCount default 2;
published
property FileName : string read FFileName write FFileName;
property PacketRecords : Integer read FPacketRecords write SetPacketRecords default 10;
@ -541,7 +541,7 @@ type
TBufDataset = class(TCustomBufDataset)
published
property MaxIndexesCount default 2;
property MaxIndexesCount;
// TDataset stuff
property FieldDefs;
Property Active;

4
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -321,7 +321,7 @@ type
// protected
property SchemaType : TSchemaType read FSchemaType default stNoSchema;
property Transaction;
property ReadOnly : Boolean read FReadOnly write SetReadOnly;
property ReadOnly : Boolean read FReadOnly write SetReadOnly default false;
property SQL : TStringlist read FSQL write SetSQL;
property UpdateSQL : TStringlist read FUpdateSQL write SetUpdateSQL;
property InsertSQL : TStringlist read FInsertSQL write SetInsertSQL;
@ -342,7 +342,9 @@ type
public
property SchemaType;
Published
property MaxIndexesCount;
// TDataset stuff
property FieldDefs;
Property Active;
Property AutoCalcFields;
Property Filter;