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; |
714 |
|
FieldList := FieldList + |
715 |
|
QuoteIdentifier(DataBase.SQLDialect, Name) + |
716 |
|
' CHAR(' + IntToStr(Size) + ')'; {do not localize} |
717 |
< |
ftBoolean, ftSmallint, ftWord: |
717 |
> |
ftBoolean: |
718 |
> |
FieldList := FieldList + |
719 |
> |
QuoteIdentifier(DataBase.SQLDialect, Name) + |
720 |
> |
' BOOLEAN'; {do not localize} |
721 |
> |
ftSmallint, ftWord: |
722 |
|
FieldList := FieldList + |
723 |
|
QuoteIdentifier(DataBase.SQLDialect, Name) + |
724 |
|
' SMALLINT'; {do not localize} |
1470 |
|
end; |
1471 |
|
end; |
1472 |
|
|
1473 |
< |
end. |
1473 |
> |
end. |