--- ibx/trunk/examples/dbInfo/Unit1.lfm 2018/01/01 11:31:10 81 +++ ibx/trunk/examples/dbInfo/Unit1.lfm 2018/01/01 11:31:13 82 @@ -9,7 +9,7 @@ object Form1: TForm1 DefaultMonitor = dmPrimary OnShow = FormShow Position = poScreenCenter - LCLVersion = '1.8.0.4' + LCLVersion = '1.8.1.0' object Memo1: TMemo Left = 12 Height = 302 @@ -44,4 +44,32 @@ object Form1: TForm1 left = 328 top = 56 end + object TableNameLookup: TIBQuery + AllowAutoActivateTransaction = False + Database = IBDatabase1 + Transaction = IBTransaction1 + BufferChunks = 1000 + CachedUpdates = False + GenerateParamNames = False + GeneratorField.ApplyOnEvent = gaeOnNewRecord + SQL.Strings = ( + 'SELECT r.RDB$RELATION_ID,' + ' trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME' + 'FROM RDB$RELATIONS r' + ) + Params = <> + DataSetCloseAction = dcDiscardChanges + left = 336 + top = 128 + end + object IBTransaction1: TIBTransaction + Active = False + DefaultDatabase = IBDatabase1 + Params.Strings = ( + 'read' + 'consistency' + ) + left = 328 + top = 212 + end end