frasqledit.dfm

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

          TitleFont.Color = clBlue
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnMouseMove = DBGrid1MouseMove
          Columns = <
            item
              Expanded = False
              FieldName = 'NAME'
              Title.Caption = 'Fields:'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clBlack
              Title.Font.Height = -11
              Title.Font.Name = 'MS Sans Serif'
              Title.Font.Style = [fsBold]
              Width = 193
              Visible = True
            end>
        end
        object Panel4: TPanel
          Left = 1
          Top = 232
          Width = 241
          Height = 91
          Align = alBottom
          BorderStyle = bsSingle
          TabOrder = 2
          object Label3: TLabel
            Left = 8
            Top = 12
            Width = 43
            Height = 13
            Caption = 'Domain'
            FocusControl = edDomain
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label5: TLabel
            Left = 8
            Top = 40
            Width = 60
            Height = 13
            Caption = 'Field Type'
            FocusControl = edDomain
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object edDomain: TDBEdit
            Left = 64
            Top = 8
            Width = 165
            Height = 21
            Anchors = [akLeft, akTop, akRight]
            DataField = 'DOMAIN_NAME'
            DataSource = dsFields
            TabOrder = 0
          end
          object edFieldType: TEdit
            Left = 72
            Top = 35
            Width = 157
            Height = 21
            Anchors = [akLeft, akTop, akRight]
            ReadOnly = True
            TabOrder = 1
          end
          object chNotNull: TDBCheckBox
            Left = 8
            Top = 64
            Width = 97
            Height = 17
            Caption = 'Not NULL'
            DataField = 'rdb$null_flag'
            DataSource = dsFields
            TabOrder = 2
            ValueChecked = '1'
            ValueUnchecked = 'False'
          end
        end
      end
      object Panel3: TPanel
        Left = 2
        Top = 15
        Width = 243
        Height = 47
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = Panel7Resize
        object Label4: TLabel
          Left = 4
          Top = 2
          Width = 65
          Height = 13
          Caption = 'Filter by name'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 98
          Top = 0
          Width = 141
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnChange = Edit1Change
        end
        object cmbTabsNameViews: TComboBox
          Left = 2
          Top = 23
          Width = 238
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 13
          ParentFont = False
          TabOrder = 1
          OnChange = cmbTabsNameViewsChange
        end
      end
    end
  end
  object qryAllTables: TpFIBDataSet
    SelectSQL.Strings = (
      'select RDB$RELATION_NAME AS NAME'
      ' from RDB$RELATIONS'
      ' where RDB$FLAGS = 1'
      ''
      'order by 1'
      ''
      '')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Filtered = True
    OnFilterRecord = qrySPsFilterRecord
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 93
    Top = 178
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object qrySPs: TpFIBDataSet
    SelectSQL.Strings = (
      'select RDB$PROCEDURE_NAME AS NAME'
      ' from RDB$PROCEDURES'
      'order by 1')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Filtered = True
    OnFilterRecord = qrySPsFilterRecord
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 93
    Top = 130
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object ds: TDataSource
    DataSet = qryAllTables
    Left = 228
    Top = 120
  end
  object trTransaction: TpFIBTransaction
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 88
    Top = 232
  end
  object qryTabFields: TpFIBDataSet
    SelectSQL.Strings = (
      ' Select RF.rdb$field_name NAME, F.rdb$field_name DOMAIN_NAME,'
      ' F.rdb$field_type,F.rdb$field_length,F.rdb$null_flag'
      ' ,F.rdb$field_scale,F.rdb$field_sub_type'
      '  ,@@PREC%0 rdb$field_precision@'
      ' from  RDB$RELATION_FIELDS RF'
      ' join rdb$fields F on RF.rdb$field_source=F.rdb$field_name'
      ' where  RDB$RELATION_NAME=?NAME'
      ''
      'order by RDB$FIELD_POSITION')
    AfterScroll = qryTabFieldsAfterScroll
    BeforeOpen = qryTabFieldsBeforeOpen
    DataSource = ds
    CSMonitorSupport.Enabled = csmeTransactionDriven
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 309
    Top = 235
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    WaitEndMasterScroll = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object qrySPparams: TpFIBDataSet
    SelectSQL.Strings = (
      'select RDB$PARAMETER_NAME,'
      'RDB$PARAMETER_NUMBER,'
      'RDB$PARAMETER_TYPE'
      ' from RDB$PROCEDURE_PARAMETERS'
      'WHERE RDB$PROCEDURE_NAME=?NAME'
      'order by 3 DESC ,2 ')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 309
    Top = 179
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    WaitEndMasterScroll = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsStrikeOut]
    MinFontSize = 0
    MaxFontSize = 0
    Left = 32
    Top = 72
  end
  object FindDialog1: TFindDialog
    Options = [frDown, frMatchCase, frDisableMatchCase, frDisableUpDown, frDisableWholeWord]
    OnFind = FindDialog1Find
    Left = 260
    Top = 248
  end
  object dsFields: TDataSource
    DataSet = qryTabFields
    Left = 360
    Top = 232
  end
  object qrySPFields: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '  RDB$PARAMETER_NAME NAME,'
      
        '  F.rdb$field_name DOMAIN_NAME,F.rdb$null_flag,F.rdb$field_type,' +
        'F.rdb$field_length,'
      
        '  F.rdb$field_scale,  F.rdb$field_sub_type, 0 rdb$field_precisio' +
        'n'
      'from'
      '  RDB$PROCEDURE_PARAMETERS RF'
      ' join rdb$fields F on RF.rdb$field_source=F.rdb$field_name'
      'WHERE RDB$PROCEDURE_NAME=?NAME and'
      ' RDB$PARAMETER_TYPE=1'
      'order BY RDB$PARAMETER_NUMBER'
      ' ')
    AfterOpen = qrySPFieldsAfterOpen
    AfterScroll = qryTabFieldsAfterScroll
    DataSource = ds
    CSMonitorSupport.Enabled = csmeTransactionDriven
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 381
    Top = 179
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object menuPlan: TPopupMenu
    Left = 160
    Top = 264
    object miHidePlan: TMenuItem
      Caption = 'Hide plan window'
      OnClick = miHidePlanClick
    end
  end
  object qryTabFields1: TpFIBDataSet
    SelectSQL.Strings = (
      'Select '
      ' RDB$FIELD_NAME NAME from  RDB$RELATION_FIELDS'
      'where  '
      ' RDB$RELATION_NAME=?NAME'
      'union '
      'select'
      '  RDB$PARAMETER_NAME NAME'
      'from'
      '  RDB$PROCEDURE_PARAMETERS'
      'WHERE'
      ' RDB$PROCEDURE_NAME=?NAME and RDB$PARAMETER_TYPE=1'
      'order BY 1')
    BeforeOpen = qryTabFieldsBeforeOpen
    CSMonitorSupport.Enabled = csmeTransactionDriven
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 309
    Top = 299
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    WaitEndMasterScroll = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object qryAllTables1: TpFIBDataSet
    SelectSQL.Strings = (
      'select RDB$RELATION_NAME AS NAME, 0 T'
      ' from RDB$RELATIONS R'
      ' where RDB$FLAGS = 1 and RDB$VIEW_BLR IS NULL'
      'union'
      'select RDB$RELATION_NAME AS NAME, 1 T'
      ' from RDB$RELATIONS R'
      ' where RDB$FLAGS = 1 and NOT RDB$VIEW_BLR IS NULL'
      'union'
      'select RDB$PROCEDURE_NAME AS NAME,2 T'
      ' from RDB$PROCEDURES'
      ''
      ' order by 2,1')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Filtered = True
    OnFilterRecord = qrySPsFilterRecord
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 45
    Top = 282
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
  object qryAllGenerators: TpFIBDataSet
    SelectSQL.Strings = (
      ' SELECT RDB$GENERATOR_NAME'
      ' FROM RDB$GENERATORS'
      ' WHERE  RDB$SYSTEM_FLAG IS NULL'
      ' ORDER BY 1')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Filtered = True
    OnFilterRecord = qrySPsFilterRecord
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    DefaultFormats.DisplayFormatDate = 'dd.mm.YYYY'
    Left = 85
    Top = 354
    poImportDefaultValues = False
    poGetOrderInfo = False
    poSetRequiredFields = True
    poSetReadOnlyFields = True
    poAskRecordCount = True
    dcForceMasterRefresh = True
    dcForceOpen = True
  end
end