71 |
|
TIBExtract = class(TComponent) |
72 |
|
private |
73 |
|
FAlwaysQuoteIdentifiers: boolean; |
74 |
+ |
FCaseSensitiveObjectNames: boolean; |
75 |
|
FDatabase : TIBDatabase; |
76 |
|
FTransaction : TIBTransaction; |
77 |
|
FMetaData: TStrings; |
138 |
|
property Transaction : TIBTransaction read GetTransaction write SetTransaction; |
139 |
|
property ShowSystem: Boolean read FShowSystem write FShowSystem; |
140 |
|
property AlwaysQuoteIdentifiers: boolean read FAlwaysQuoteIdentifiers write FAlwaysQuoteIdentifiers; |
141 |
+ |
property CaseSensitiveObjectNames: boolean read FCaseSensitiveObjectNames write FCaseSensitiveObjectNames; |
142 |
|
end; |
143 |
|
|
144 |
|
TSQLType = record |
2964 |
|
DidActivate := true; |
2965 |
|
end; |
2966 |
|
FMetaData.Clear; |
2967 |
+ |
if not CaseSensitiveObjectNames then |
2968 |
+ |
ObjectName := ExtractIdentifier(FDatabaseInfo.DBSQLDialect,ObjectName); |
2969 |
|
case ObjectType of |
2970 |
|
eoDatabase : ExtractDDL(true, '', ExtractTypes); |
2971 |
|
eoDomain : |