sql.lfm

来自「Oracle Data Access Components Source Cod」· LFM 代码 · 共 149 行

object SqlFrame: TSqlFrame
  Height = 240
  Width = 601
  object Label1: TLabel
    Left = 491
    Height = 14
    Top = 52
    Width = 32
    Caption = 'Label1'
    ParentColor = False
  end
  object Splitter1: TSplitter
    Cursor = crVSplit
    Height = 3
    Top = 186
    Width = 601
    Align = alTop
    MinSize = 100
    ResizeAnchor = akTop
  end
  object meSQL: TMemo
    Height = 162
    Top = 24
    Width = 601
    Align = alTop
    Constraints.MinHeight = 50
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Pitch = fpVariable
    Lines.Strings = (
      'declare'
      '  C NUMBER;'
      'begin'
      '  SELECT Count(*)'
      '    INTO :C'
      '    FROM Scott.Dept;'
      'end;'
    )
    TabOrder = 0
  end
  object meResult: TMemo
    Height = 51
    Top = 189
    Width = 601
    Align = alClient
    Font.Height = 11
    Font.Name = 'Tahoma'
    Font.Pitch = fpVariable
    ReadOnly = True
    TabOrder = 1
    TabStop = False
  end
  object ToolBar: TPanel
    Height = 24
    Width = 601
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 24
    ClientWidth = 601
    Color = 170
    ParentColor = False
    TabOrder = 2
    object btExecute: TSpeedButton
      Left = 1
      Height = 22
      Top = 1
      Width = 85
      Caption = 'Execute'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btExecuteClick
    end
    object btBreak: TSpeedButton
      Left = 87
      Height = 22
      Top = 1
      Width = 85
      Caption = 'Break'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btBreakClick
    end
    object btParType: TSpeedButton
      Left = 173
      Height = 22
      Top = 1
      Width = 85
      Caption = 'Params Type ...'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btParTypeClick
    end
    object ToolButton1: TToolButton
      Left = 396
      Top = 2
      Width = 31
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object Panel1: TPanel
      Left = 259
      Height = 22
      Top = 1
      Width = 112
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 112
      ParentColor = False
      TabOrder = 0
      object cbNonBlocking: TCheckBox
        Left = 15
        Height = 19
        Top = 2
        Width = 87
        Caption = 'NonBlocking'
        OnClick = cbNonBlockingClick
        TabOrder = 0
      end
    end
    object Panel2: TPanel
      Left = 372
      Height = 25
      Width = 730
      Anchors = [akTop, akLeft, akRight]
      BevelOuter = bvNone
      ParentColor = False
      TabOrder = 1
    end
  end
  object OraSQL: TOraSQL
    SQL.Strings = (
      'UPDATE Large1'
      '  SET Field8 = Field9'
      '  WHERE Code < 1000'
    )
    Debug = True
    AfterExecute = OraSQLAfterExecute
    left = 289
    top = 42
  end
end