# | Line 111 | Line 111 | end; | |
---|---|---|
111 | ||
112 | procedure TGeneratorEditor.FormShow(Sender: TObject); | |
113 | begin | |
114 | + | if (PrimaryKeys.Database = nil) or not PrimaryKeys.Database.Connected then Exit; |
115 | SQLTransaction.Active := true; | |
116 | PrimaryKeys.Active := true; | |
117 | GeneratorQuery.Active := true; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |