frasqledit.dfm

FIBPlus is a component suite intended for work with InterBase. It is direct, fast and flexible Inter

object fSQLEdit: TfSQLEdit
  Left = 0
  Top = 0
  Width = 777
  Height = 456
  ParentShowHint = False
  ShowHint = True
  TabOrder = 0
  object Splitter2: TSplitter
    Left = 527
    Top = 0
    Width = 3
    Height = 456
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 527
    Height = 456
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object splPlan: TSplitter
      Left = 1
      Top = 452
      Width = 525
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Visible = False
    end
    object Panel10: TPanel
      Left = 1
      Top = 1
      Width = 525
      Height = 23
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      OnResize = Panel10Resize
      object SpeedButton1: TSpeedButton
        Left = 1
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Change Font'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888444488844444488887488888744
          7888888448888744888888874888844788888888444444488888888874884478
          8888888884484488888888888744478888888888884448888888888888747888
          8888888888848888888888888888888888888888888888888888}
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 24
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Find in SQL text'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888800000888880000080F000888880F00080F000888880F
          0008000000080000000800F000000F00000800F000800F00000800F000800F00
          00088000000000000088880F00080F0008888800000800000888888000888000
          88888880F08880F0888888800088800088888888888888888888}
        OnClick = SpeedButton2Click
      end
      object btnCheck: TSpeedButton
        Left = 47
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Check SQL'
        Flat = True
        Glyph.Data = {
          6E020000424D6E0200000000000076000000280000002A000000150000000100
          040000000000F8010000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777777777777777777770000007777777777777777777777777777
          777777777777770000007777778888888888777777777FFFFFFFFFFF77777700
          000077780000000000087777777788888888888F7777770000007778FFFFFFFF
          FF08777777778F7777FF778F7777770000007778FFFFFF00FF08777777778F77
          7F88F78F7777770000007778FFFFF0000F08777777778F77F8888F8F77777700
          00007778FFFF80000F88777777778F7F88888F877777770000007778FFF80000
          0008777777778F78888888F77777770000007778FFF000F00008777777778F78
          887888F77777770000007778FFF00FFF0008777777778F78877788FF77777700
          00007778FFFFFFFF0008777777778F777777788F7777770000007778FFFFFFF8
          7000777777778F7777777888F777770000007778FFFFFFF8FF00877777778F77
          77778788F777770000007778FFFFFFF8F880077777778F7777778F888F777700
          00007778FFFFFFF88770087777778FFFFFF7887788F777000000777888888888
          777700777777888888888777788F770000007777777777777777707777777777
          77777777778F7700000077777777777777777777777777777777777777777700
          0000777777777777777777777777777777777777777777000000777777777777
          777777777777777777777777777777000000}
        NumGlyphs = 2
        OnClick = btnCheckClick
      end
      object btnGenSQL: TSpeedButton
        Left = 381
        Top = 1
        Width = 94
        Height = 22
        Caption = 'Generate SQL'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          88888888888888888888888888888887178800000000088111880FFFFFFF0887
          17880F77777F088888880F7FFF7F088818880F77777F088717880FFFFFFF0881
          11880F77888F088111880FFFF000088111880F778080888111880FFFF0088881
          1188000000888881118888888888888818888888888888888888}
        OnClick = btnGenSQLClick
      end
      object btnReplaceZv: TSpeedButton
        Left = 70
        Top = 0
        Width = 23
        Height = 22
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888888888888888888888888808888
          8888888808808808888888888080808888888888880008888888888000000000
          8888888888000888888888888080808888888888088088088888888888808888
          8888080888888888080808088888888808080808888888880808}
        OnClick = btnReplaceZvClick
      end
      object btnShowInCodeEditor: TSpeedButton
        Left = 93
        Top = 0
        Width = 23
        Height = 22
        Hint = 'To Code Editor'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888800000000008888880FFFFFFFF08888880FFFFFFFF084
          88880F777777F04444880F7FFFF7F08488480F7FFFF7F08888480F777777F088
          88480FFFFFFFF08888880FFFFF00008000000FFFFF0F0880FFF00FFFFF008880
          FFF0000000088880F000888888888880F0088888888888800088}
        OnClick = btnShowInCodeEditorClick
      end
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 433
      Width = 525
      Height = 19
      Panels = <
        item
          Width = 80
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object Panel6: TPanel
    Left = 530
    Top = 0
    Width = 247
    Height = 456
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object Panel7: TGroupBox
      Left = 0
      Top = 0
      Width = 247
      Height = 68
      Align = alTop
      Caption = 'Generate options'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 3
        Top = 17
        Width = 58
        Height = 13
        Caption = 'SQL Kind:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 140
        Top = 17
        Width = 67
        Height = 13
        Caption = 'ParamSymbol:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LbTableSyn: TCheckBox
        Left = 5
        Top = 51
        Width = 90
        Height = 13
        Caption = 'Use table alias'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object chReplaceSQL: TCheckBox
        Left = 5
        Top = 34
        Width = 84
        Height = 17
        Caption = '&Replace SQL'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 2
      end
      object chOnlySelFields: TCheckBox
        Left = 100
        Top = 34
        Width = 140
        Height = 17
        Caption = 'Use Selected Fields Only '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object cmbKindSQL: TComboBox
        Left = 61
        Top = 12
        Width = 79
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 0
        Items.Strings = (
          'Select'
          'Insert'
          'Update'
          'Delete'
          'Execute')
      end
      object cmbParamSymbol: TComboBox
        Left = 208
        Top = 12
        Width = 36
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = cmbParamSymbolChange
        Items.Strings = (
          ':'
          '?')
      end
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 68
      Width = 247
      Height = 388
      Align = alClient
      Caption = 'Database objects'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Panel2: TPanel
        Left = 2
        Top = 62
        Width = 243
        Height = 324
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 0
        object Splitter1: TSplitter
          Left = 1
          Top = 89
          Width = 241
          Height = 4
          Cursor = crVSplit
          Align = alTop
        end
        object DBGrid1: TDBGrid
          Left = 1
          Top = 1
          Width = 241
          Height = 88
          Align = alTop
          Color = clBtnFace
          DataSource = ds
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgAlwaysShowSelection]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlue
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid1DblClick
          OnKeyDown = DBGrid1KeyDown
          OnMouseMove = DBGrid1MouseMove
          Columns = <
            item
              Expanded = False
              FieldName = 'NAME'
              Title.Alignment = taCenter
              Title.Caption = 'Tables'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 193
              Visible = True
            end>
        end
        object DBGrid2: TDBGrid
          Left = 1
          Top = 93
          Width = 241
          Height = 139
          Align = alClient
          Color = clBtnFace
          DataSource = dsFields
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgAlwaysShowSelection, dgCancelOnExit, dgMultiSelect]
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET