object frmSaveSQLs: TfrmSaveSQLs
  Left = 43
  Top = 203
  Caption = 'FIBPlus  SQLNavigator'
  ClientHeight = 450
  ClientWidth = 511
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter3: TSplitter
    Left = 0
    Top = 194
    Width = 511
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 511
    Height = 194
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 511
      Height = 28
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 25
      EdgeBorders = [ebTop, ebBottom]
      Images = ImageList1
      TabOrder = 0
      Wrapable = False
      object btnGetForms: TToolButton
        Left = 0
        Top = 0
        Hint = 'Scan all forms from active project'
        Caption = 'btnGetForms'
        ImageIndex = 7
        OnClick = btnGetFormsClick
      end
      object ToolButton5: TToolButton
        Left = 25
        Top = 0
        Hint = 'Close forms opened from SQLnavigator'
        Caption = 'ToolButton5'
        ImageIndex = 8
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 50
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 58
        Top = 0
        Hint = 'Save selected SQLs'
        Caption = 'ToolButton1'
        DropdownMenu = PopupMenu3
        ImageIndex = 0
        OnClick = miSaveallSQLs1Click
      end
      object ToolButton3: TToolButton
        Left = 83
        Top = 0
        Hint = 'Find in SQLs'
        Caption = 'ToolButton3'
        ImageIndex = 2
        OnClick = SpeedButton1Click
      end
      object ToolButton2: TToolButton
        Left = 108
        Top = 0
        Hint = 'Check selected SQLs '
        Caption = 'ToolButton2'
        ImageIndex = 4
        OnClick = SpeedButton2Click
      end
      object ToolButton8: TToolButton
        Left = 133
        Top = 0
        Hint = 'Save project calls to descriptions'
        Caption = 'ToolButton8'
        ImageIndex = 6
        OnClick = ToolButton8Click
      end
      object ToolButton4: TToolButton
        Left = 158
        Top = 0
        Hint = 'Hide Search Result'
        Caption = 'ToolButton4'
        Enabled = False
        ImageIndex = 3
        OnClick = HideSearchResult1Click
      end
      object ToolButton9: TToolButton
        Left = 183
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 191
        Top = 0
        Hint = 'Show object inspector'
        Caption = 'ToolButton7'
        ImageIndex = 5
        OnClick = ToolButton7Click
      end
      object ToolButton10: TToolButton
        Left = 216
        Top = 0
        Hint = 'Show SQL Editor'
        Caption = 'ToolButton10'
        ImageIndex = 1
        OnClick = ToolButton10Click
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 28
      Width = 511
      Height = 166
      Align = alClient
      BevelOuter = bvNone
      BorderWidth = 8
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 264
        Top = 8
        Height = 150
      end
      object lstForms: TCheckListBox
        Left = 8
        Top = 8
        Width = 256
        Height = 150
        OnClickCheck = lstFormsClickCheck
        Align = alLeft
        Color = clBtnFace
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 13
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnClick = lstFormsEnter
        OnEnter = lstFormsEnter
      end
      object lstQueries: TCheckListBox
        Left = 267
        Top = 8
        Width = 236
        Height = 150
        OnClickCheck = lstQueriesClickCheck
        Align = alClient
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 13
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 1
        OnClick = lstQueriesEnter
        OnDblClick = lstQueriesDblClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 428
    Width = 511
    Height = 22
    Panels = <
      item
        Width = 50
      end>
    ExplicitTop = 435
  end
  object Panel1: TPanel
    Left = 0
    Top = 197
    Width = 511
    Height = 231
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 8
    Caption = 'Panel1'
    TabOrder = 2
    ExplicitHeight = 238
    object Splitter1: TSplitter
      Left = 8
      Top = 117
      Width = 495
      Height = 8
      Cursor = crVSplit
      Align = alBottom
      ExplicitTop = 124
    end
    object GrSearch: TGroupBox
      Left = 8
      Top = 125
      Width = 495
      Height = 98
      Align = alBottom
      Caption = 'Search Result for ""'
      TabOrder = 0
      Visible = False
      ExplicitTop = 132
      object Panel3: TPanel
        Left = 2
        Top = 15
        Width = 491
        Height = 81
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 4
        TabOrder = 0
        object Splitter4: TSplitter
          Left = 299
          Top = 4
          Height = 73
          Align = alRight
        end
        object ListBox1: TListBox
          Left = 4
          Top = 4
          Width = 295
          Height = 73
          Align = alClient
          ItemHeight = 13
          PopupMenu = PopupMenu2
          TabOrder = 0
          OnClick = ListBox1Click
          OnDblClick = ListBox1DblClick
        end
        object MemErrMess: TMemo
          Left = 302
          Top = 4
          Width = 185
          Height = 73
          Align = alRight
          ReadOnly = True
          TabOrder = 1
          Visible = False
        end
      end
    end
    object PageControl1: TPageControl
      Left = 8
      Top = 8
      Width = 495
      Height = 109
      ActivePage = TabSQL
      Align = alClient
      TabOrder = 1
      ExplicitHeight = 116
      object TabSQL: TTabSheet
        Caption = 'SelectSQL'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabInsertSQL: TTabSheet
        Caption = 'InsertSQL'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabUpdateSQL: TTabSheet
        Caption = 'UpdateSQL'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabDeleteSQL: TTabSheet
        Caption = 'DeleteSQL'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabRefreshSQL: TTabSheet
        Caption = 'RefreshSQL'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 168
    Top = 136
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      OnClick = SelectAll1Click
    end
    object Unselectall1: TMenuItem
      Caption = 'Unselect All'
      OnClick = SelectAll1Click
    end
    object GotocurrentComponent1: TMenuItem
      Caption = 'Goto current component'
      OnClick = GotocurrentComponent1Click
    end
    object ShowSearchResult1: TMenuItem
      Caption = 'Show Search Result'
      OnClick = ShowSearchResult1Click
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'sql'
    Filter = '*.sql|*.sql'
    Left = 56
    Top = 88
  end
  object FindDialog1: TFindDialog
    Options = [frDisableUpDown]
    OnFind = FindDialog1Find
    Left = 56
    Top = 136
  end
  object PopupMenu2: TPopupMenu
    Left = 56
    Top = 272
    object HideSearchResult1: TMenuItem
      Caption = 'Hide Search Result'
      OnClick = HideSearchResult1Click
    end
    object CopytoClipboard1: TMenuItem
      Caption = 'Copy to Clipboard'
      OnClick = CopytoClipboard1Click
    end
  end
  object pFIBDatabase1: TpFIBDatabase
    DBParams.Strings = (
      'lc_ctype=WIN1251')
    DefaultTransaction = pFIBTransaction1
    SQLDialect = 1
    Timeout = 0
    DesignDBOptions = []
    WaitForRestoreConnect = 0
    Left = 104
    Top = 88
  end
  object pFIBTransaction1: TpFIBTransaction
    DefaultDatabase = pFIBDatabase1
    TimeoutAction = TARollback
    Left = 160
    Top = 88
  end
  object qryCheck: TpFIBQuery
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    GoToFirstRecordOnExecute = False
    Left = 208
    Top = 88
  end
  object ImageList1: TImageList
    Left = 125
    Top = 238
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object PopupMenu3: TPopupMenu
    Left = 181
    Top = 238
    object miSaveallSQLs1: TMenuItem
      Caption = 'Save all SQLs'
      OnClick = miSaveallSQLs1Click
    end
    object SaveonlySelectSQL1: TMenuItem
      Caption = 'Save only SelectSQL'
      OnClick = miSaveallSQLs1Click
    end
  end
  object qryBuf: TpFIBQuery
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    GoToFirstRecordOnExecute = False
    Left = 357
    Top = 230
  end
  object qryObjects: TpFIBQuery
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    GoToFirstRecordOnExecute = False
    SQL.Strings = (
      'Select'
      '    ID,PROPERTY_VALUE'
      'from fib$objects'
      'where'
      '        PROJECT_ID     =:PID'
      '    and UNIT_NAME      =:UN'
      '    and COMPONENT_NAME =:CN'
      '    and PROPERTY       =:PN')
    Left = 405
    Top = 230
  end
  object qryInsObj: TpFIBQuery
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    GoToFirstRecordOnExecute = False
    SQL.Strings = (
      'Insert    into  fib$objects'
      '(     ID,'
      '      PROJECT_ID  ,'
      '      UNIT_NAME    ,'
      '      COMPONENT_NAME ,'
      '      PROPERTY ,'
      '      PROPERTY_VALUE '
      ')'
      'values'
      '        (:ID,:PID,:UN,:CN,:PN,:PV)')
    Left = 405
    Top = 278
  end
  object qryUpdObj: TpFIBQuery
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    GoToFirstRecordOnExecute = False
    SQL.Strings = (
      'UPDATE fib$objects'
      'SET PROPERTY_VALUE =:PV'
      'WHERE ID=:ID')
    Left = 357
    Top = 278
  end
  object qryDescr: TpFIBDataSet
    UpdateSQL.Strings = (
      'update RDB$RELATIONS set RDB$DESCRIPTION = :RDB$DESCRIPTION'
      'where RDB$RELATION_NAME=:OBJNAME')
    SelectSQL.Strings = (
      'select RDB$RELATION_NAME OBJNAME,'
      'RDB$DESCRIPTION from RDB$RELATIONS '
      'where RDB$RELATION_NAME = :OBJNAME')
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    Left = 309
    Top = 222
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object qryAllDescr: TpFIBDataSet
    UpdateSQL.Strings = (
      'update RDB$RELATIONS set RDB$DESCRIPTION = :RDB$DESCRIPTION'
      'where RDB$RELATION_NAME=:OBJNAME')
    SelectSQL.Strings = (
      'select RDB$RELATION_NAME OBJNAME,'
      'RDB$DESCRIPTION from RDB$RELATIONS ')
    Transaction = pFIBTransaction1
    Database = pFIBDatabase1
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    Left = 301
    Top = 278
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
end
