object GeneratorEditor: TGeneratorEditor
  Left = 334
  Height = 374
  Top = 239
  Width = 478
  ActiveControl = Button1
  Caption = 'Define Generator'
  ClientHeight = 374
  ClientWidth = 478
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.1.0'
  object Bevel1: TBevel
    Left = 16
    Height = 336
    Top = 16
    Width = 355
  end
  object Label1: TLabel
    Left = 32
    Height = 14
    Top = 40
    Width = 99
    Caption = 'Generator Name'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 32
    Height = 14
    Top = 192
    Width = 66
    Caption = 'Field Name'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 35
    Height = 14
    Top = 269
    Width = 82
    Caption = 'Increment By'
    ParentColor = False
  end
  object Button1: TButton
    Left = 392
    Height = 30
    Top = 24
    Width = 75
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object Button2: TButton
    Left = 392
    Height = 30
    Top = 64
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object OnNewRecord: TRadioButton
    Left = 38
    Height = 22
    Top = 112
    Width = 116
    Caption = 'On New Record'
    Checked = True
    TabOrder = 2
    TabStop = True
  end
  object OnPost: TRadioButton
    Left = 38
    Height = 22
    Top = 144
    Width = 70
    Caption = 'On Post'
    TabOrder = 3
  end
  object IncrementBy: TEdit
    Left = 39
    Height = 24
    Top = 292
    Width = 52
    TabOrder = 4
    Text = 'IncrementBy'
  end
  object UpDown1: TUpDown
    Left = 91
    Height = 24
    Top = 292
    Width = 17
    Associate = IncrementBy
    Min = 0
    Position = 0
    TabOrder = 5
    Wrap = False
  end
  object GeneratorNames: TIBLookupComboEditBox
    Left = 33
    Height = 27
    Top = 56
    Width = 313
    KeyField = 'RDB$GENERATOR_NAME'
    ListField = 'RDB$GENERATOR_NAME'
    ListFieldIndex = 0
    ListSource = GeneratorSource
    LookupCache = False
    ScrollListDataset = True
    TabOrder = 6
    AutoInsert = False
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 0
  end
  object FieldNames: TIBLookupComboEditBox
    Left = 33
    Height = 27
    Top = 208
    Width = 303
    KeyField = 'ColumnName'
    ListField = 'ColumnName'
    ListFieldIndex = 0
    ListSource = PrimaryKeySource
    LookupCache = False
    ScrollListDataset = True
    TabOrder = 7
    AutoInsert = False
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 0
  end
  object SQLTransaction: TIBTransaction
    Active = False
    Params.Strings = (
      'read'
      'consistency'
    )
    left = 400
    top = 264
  end
  object GeneratorQuery: TIBQuery
    AllowAutoActivateTransaction = False
    Transaction = SQLTransaction
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select RDB$GENERATOR_NAME FROM RDB$GENERATORS                          '
      'Where RDB$SYSTEM_FLAG = 0'
      'Order by 1 asc'
    )
    Params = <>
    DataSetCloseAction = dcDiscardChanges
    left = 269
    top = 322
  end
  object GeneratorSource: TDataSource
    DataSet = GeneratorQuery
    left = 176
    top = 322
  end
  object PrimaryKeys: TIBQuery
    AllowAutoActivateTransaction = False
    Transaction = SQLTransaction
    BeforeOpen = PrimaryKeysBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
      'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
      'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
      'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
      '= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
      '''PRIMARY KEY'' and RDB$RELATION_NAME = '
      ':RDB$RELATION_NAME'
    )
    Params = <    
      item
        DataType = ftUnknown
        Name = 'RDB$RELATION_NAME'
        ParamType = ptInput
      end>
    DataSetCloseAction = dcDiscardChanges
    left = 269
    top = 264
    ParamData = <    
      item
        DataType = ftUnknown
        Name = 'RDB$RELATION_NAME'
        ParamType = ptInput
      end>
  end
  object PrimaryKeySource: TDataSource
    DataSet = PrimaryKeys
    left = 160
    top = 264
  end
  object IdentifyStatementSQL: TIBSQL
    GenerateParamNames = False
    UniqueParamNames = False
    ParamCheck = True
    Transaction = SQLTransaction
    left = 400
    top = 192
  end
end