5256 |
|
|
5257 |
|
procedure TIBGenerator.SetQuerySQL; |
5258 |
|
begin |
5259 |
< |
FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database',[FGeneratorName,Increment]); |
5259 |
> |
if Database <> nil then |
5260 |
> |
FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database', |
5261 |
> |
[QuoteIdentifierIfNeeded(Database.SQLDialect,FGeneratorName),Increment]); |
5262 |
|
end; |
5263 |
|
|
5264 |
|
function TIBGenerator.GetDatabase: TIBDatabase; |
5274 |
|
procedure TIBGenerator.SetDatabase(AValue: TIBDatabase); |
5275 |
|
begin |
5276 |
|
FQuery.Database := AValue; |
5277 |
+ |
SetQuerySQL; |
5278 |
|
end; |
5279 |
|
|
5280 |
|
procedure TIBGenerator.SetGeneratorName(AValue: string); |