sql.xfm

来自「odac for oralce 8i,10g,11g easy to conn」· XFM 代码 · 共 151 行

inherited SqlFrame: TSqlFrame
  HorzScrollBar.Range = 521
  VertScrollBar.Range = 189
  object Splitter1: TSplitter
    Left = 0
    Top = 186
    Width = 521
    Height = 3
    Cursor = crVSplit
    Align = alTop
    MinSize = 100
  end
  object Label1: TLabel
    Left = 491
    Top = 52
    Width = 30
    Height = 13
    Caption = 'Label1'
  end
  object meSQL: TMemo
    Left = 0
    Top = 24
    Width = 521
    Height = 162
    Align = alTop
    Constraints.MinHeight = 50
    Font.Color = clText
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Lines.Strings = (
      'declare'
      '  C NUMBER;'
      'begin'
      '  SELECT Count(*)'
      '    INTO :C'
      '    FROM Scott.Dept;'
      'end;')
    ParentFont = False
    TabOrder = 0
  end
  object meResult: TMemo
    Left = 0
    Top = 189
    Width = 521
    Height = 99
    Align = alClient
    Font.Color = clText
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TabStop = False
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 521
    Height = 24
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    ParentColor = False
    TabOrder = 2
    object btExecute: TSpeedButton
      Left = 1
      Top = 1
      Width = 85
      Height = 22
      Caption = 'Execute'
      Flat = True
      Transparent = False
      OnClick = btExecuteClick
    end
    object btBreak: TSpeedButton
      Left = 87
      Top = 1
      Width = 85
      Height = 22
      Caption = 'Break'
      Flat = True
      Transparent = False
      OnClick = btBreakClick
    end
    object btParType: TSpeedButton
      Left = 173
      Top = 1
      Width = 85
      Height = 22
      Caption = 'Params Type ...'
      Flat = True
      Transparent = False
      OnClick = btParTypeClick
    end
    object ToolButton1: TToolButton
      Left = 396
      Top = 2
      Width = 31
      Height = 30
      Style = tbsSeparator
      Caption = 'ToolButton1'
      ImageIndex = 0
    end
    object Panel1: TPanel
      Left = 259
      Top = 1
      Width = 112
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 0
      object cbNonBlocking: TCheckBox
        Left = 15
        Top = 2
        Width = 90
        Height = 18
        Caption = 'NonBlocking'
        TabOrder = 0
        OnClick = cbNonBlockingClick
      end
    end
    object Panel2: TPanel
      Left = 372
      Top = 0
      Width = 652
      Height = 25
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 1
    end
  end
  object OraSQL: TOraSQL
    Session = ODACForm.OraSession
    SQL.Strings = (
      'UPDATE Large1'
      '  SET Field8 = Field9'
      '  WHERE Code < 1000')
    Debug = True
    AfterExecute = OraSQLAfterExecute
    Left = 289
    Top = 42
  end
end