sqldriverediteh.dfm

最新的 DBGRIDEH4.0

                        'ftCursor')
                      Title.Caption = 'Params|Type'
                      Width = 51
                    end
                    item
                      EditButtons = <>
                      FieldName = 'ParValue'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Value'
                      Width = 29
                    end>
                end
              end
            end
            inherited Panel8: TPanel
              Left = 400
              Width = 13
              Height = 14
              inherited SpeedButton2: TSpeedButton
                Width = 12
                Height = 13
              end
            end
          end
        end
        object TabSheet5: TTabSheet
          Caption = 'GetRec'
          ImageIndex = 4
          inline FrameGetRecSQL: TSQLEditFrame
            Width = 553
            Height = 357
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 357
              inherited Splitter2: TSplitter
                Left = 394
                Width = 3
                Height = 357
              end
              inherited Panel4: TPanel
                Width = 394
                Height = 357
                inherited RichEdit1: TRichEdit
                  Top = 23
                  Width = 394
                  Height = 334
                end
                inherited Panel5: TPanel
                  Width = 394
                  Height = 23
                  inherited Button3: TButton
                    Left = 3
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                  inherited Check: TButton
                    Left = 61
                    Top = 2
                    Width = 55
                    Height = 19
                  end
                  inherited Button1: TButton
                    Left = 119
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                end
              end
              inherited Panel3: TPanel
                Left = 397
                Width = 156
                Height = 357
                inherited gridParams: TDBGridEh
                  Width = 156
                  Height = 361
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ParName'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Name'
                      Width = 59
                    end
                    item
                      DropDownRows = 37
                      EditButtons = <>
                      FieldName = 'ParType'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = (
                        'ftUnknown'
                        'ftString'
                        'ftFixedChar'
                        'ftMemo'
                        'ftAdt'
                        'ftSmallint'
                        'ftWord'
                        'ftAutoInc'
                        'ftInteger'
                        'ftTime'
                        'ftDate'
                        'ftDateTime'
                        'ftBCD'
                        'ftFMTBCD'
                        'ftCurrency'
                        'ftFloat'
                        'ftTimeStamp'
                        'ftBoolean'
                        'ftBytes'
                        'ftVarBytes'
                        'ftBlob'
                        'ftGraphic'
                        'ftTypedBinary'
                        'ftOraBlob'
                        'ftOraClob'
                        'ftArray'
                        'ftDataSet'
                        'ftReference'
                        'ftCursor')
                      Title.Caption = 'Params|Type'
                      Width = 51
                    end
                    item
                      EditButtons = <>
                      FieldName = 'ParValue'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Value'
                      Width = 29
                    end>
                end
              end
            end
            inherited Panel8: TPanel
              Left = 539
              Width = 13
              Height = 14
              inherited SpeedButton2: TSpeedButton
                Width = 11
                Height = 12
              end
            end
          end
        end
        object tsSpecParams: TTabSheet
          Caption = 'Other'
          ImageIndex = 5
          object Panel11: TPanel
            Left = 274
            Top = 0
            Width = 279
            Height = 357
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 0
            object Label1: TLabel
              Left = 10
              Top = 187
              Width = 62
              Height = 13
              Caption = 'Update fields'
            end
            object Label2: TLabel
              Left = 10
              Top = 116
              Width = 45
              Height = 13
              Caption = 'Key fields'
            end
            object Bevel1: TBevel
              Left = 80
              Top = 192
              Width = 193
              Height = 2
            end
            object Bevel2: TBevel
              Left = 63
              Top = 123
              Width = 210
              Height = 2
            end
            object Label3: TLabel
              Left = 10
              Top = 72
              Width = 61
              Height = 13
              Caption = 'Update table'
            end
            object Bevel3: TBevel
              Left = 80
              Top = 79
              Width = 192
              Height = 2
            end
            object Bevel5: TBevel
              Left = 4
              Top = 6
              Width = 2
              Height = 352
            end
            object MemoUpdateFields: TMemo
              Left = 10
              Top = 202
              Width = 263
              Height = 158
              Anchors = [akLeft, akTop, akBottom]
              ScrollBars = ssVertical
              TabOrder = 0
            end
            object MemoKeyFields: TMemo
              Left = 10
              Top = 133
              Width = 264
              Height = 47
              ScrollBars = ssVertical
              TabOrder = 1
            end
            object dbeUpdateTable: TDBEditEh
              Left = 10
              Top = 89
              Width = 263
              Height = 21
              EditButtons = <>
              TabOrder = 2
              Text = 'TableName'
              Visible = True
            end
            object GroupBox1: TGroupBox
              Left = 10
              Top = -2
              Width = 264
              Height = 69
              Caption = ' Dinamic generation '
              TabOrder = 3
              object cbDinaDeleteSQL: TCheckBox
                Left = 10
                Top = 49
                Width = 248
                Height = 14
                Caption = 'Dinamic delete SQL'
                TabOrder = 0
              end
              object cbDinaInsertSQL: TCheckBox
                Left = 10
                Top = 32
                Width = 248
                Height = 13
                Caption = 'Dinamic insert SQL'
                TabOrder = 1
              end
              object cbDinaUpdateSQL: TCheckBox
                Left = 10
                Top = 15
                Width = 249
                Height = 14
                Caption = 'Dinamic update SQL'
                TabOrder = 2
              end
            end
          end
          object Panel12: TPanel
            Left = 0
            Top = 0
            Width = 274
            Height = 357
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel12'
            TabOrder = 1
            object mSpecParams: TMemo
              Left = 0
              Top = 26
              Width = 276
              Height = 335
              Align = alClient
              TabOrder = 0
            end
            object Panel10: TPanel
              Left = 0
              Top = 0
              Width = 276
              Height = 26
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object Label4: TLabel
                Left = 3
                Top = 7
                Width = 60
                Height = 13
                Caption = 'SpecParams'
              end
              object Bevel4: TBevel
                Left = 72
                Top = 13
                Width = 133
                Height = 2
              end
              object bLoadSpecString: TButton
                Left = 209
                Top = 3
                Width = 66
                Height = 21
                Caption = 'Load list'
                TabOrder = 0
                OnClick = bLoadSpecStringClick
              end
            end
          end
        end
      end
      object bBuildUpdates: TButton
        Left = 349
        Top = 1
        Width = 79
        Height = 19
        Caption = 'Build updates'
        TabOrder = 1
        OnClick = bBuildUpdatesClick
      end
    end
  end
  object MemTableEh1: TMemTableEh
    Params = <>
    AfterOpen = MemTableEh1AfterOpen
    Left = 88
    Top = 383
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 116
    Top = 383
  end
  object mtParams: TMemTableEh
    Active = True
    CachedUpdates = True
    Params = <>
    Left = 452
    Top = 222
    object mtParamsParName: TStringField
      DisplayWidth = 10
      FieldName = 'ParName'
      Size = 255
    end
    object mtParamsParType: TStringField
      DefaultExpression = 'ftString'
      DisplayWidth = 13
      FieldName = 'ParType'