38 |
|
interface |
39 |
|
|
40 |
|
uses SysUtils, Classes, DB, IB, IBCustomDataSet, |
41 |
< |
IBHeader, IBSQL, IBUtils; |
41 |
> |
IBSQL, IBUtils; |
42 |
|
|
43 |
|
type |
44 |
|
|
147 |
|
property TableNames: TStrings read GetTableNames; |
148 |
|
|
149 |
|
published |
150 |
+ |
property AutoCommit; |
151 |
|
property Active; |
152 |
|
property BufferChunks; |
153 |
|
property CachedUpdates; |
154 |
+ |
property DataSetCloseAction; |
155 |
|
// property Constraints stored ConstraintsStored; |
156 |
|
property DefaultIndex: Boolean read FDefaultIndex write FDefaultIndex default True; |
157 |
|
property FieldDefs stored FieldDefsStored; |
715 |
|
FieldList := FieldList + |
716 |
|
QuoteIdentifier(DataBase.SQLDialect, Name) + |
717 |
|
' CHAR(' + IntToStr(Size) + ')'; {do not localize} |
718 |
< |
ftBoolean, ftSmallint, ftWord: |
718 |
> |
ftBoolean: |
719 |
> |
FieldList := FieldList + |
720 |
> |
QuoteIdentifier(DataBase.SQLDialect, Name) + |
721 |
> |
' BOOLEAN'; {do not localize} |
722 |
> |
ftSmallint, ftWord: |
723 |
|
FieldList := FieldList + |
724 |
|
QuoteIdentifier(DataBase.SQLDialect, Name) + |
725 |
|
' SMALLINT'; {do not localize} |
1471 |
|
end; |
1472 |
|
end; |
1473 |
|
|
1474 |
< |
end. |
1474 |
> |
end. |