unitmain.dfm

通过oci实现的oracle查询分析器功能和可以 尤其对BLOB字段的度曲

object Formmain: TFormmain
  Left = -4
  Top = -4
  AutoScroll = False
  Caption = 'ORACLE查询分析器(OCI)'
  ClientHeight = 702
  ClientWidth = 1024
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 209
    Top = 0
    Width = 1
    Height = 683
    Cursor = crHSplit
    Beveled = True
    Color = clBtnText
    ParentColor = False
  end
  object PageControl1: TPageControl
    Left = 40
    Top = 304
    Width = 693
    Height = 469
    Style = tsButtons
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 683
    Width = 1024
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 210
    Top = 0
    Width = 814
    Height = 683
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 2
    OnResize = Panel1Resize
    object Splitter2: TSplitter
      Left = 0
      Top = 87
      Width = 814
      Height = 2
      Cursor = crVSplit
      Align = alTop
      Beveled = True
      Color = clBlack
      ParentColor = False
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 814
      Height = 87
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Panel2'
      TabOrder = 0
      object RichEdit1: TRichEdit
        Left = 0
        Top = 0
        Width = 757
        Height = 87
        Hint = '脚本容器'
        TabStop = False
        Align = alClient
        ParentShowHint = False
        PlainText = True
        ScrollBars = ssBoth
        ShowHint = True
        TabOrder = 1
        WordWrap = False
        OnChange = RichEdit1Change
        OnDragDrop = RichEdit1DragDrop
        OnDragOver = RichEdit1DragOver
      end
      object Panel3: TPanel
        Left = 757
        Top = 0
        Width = 57
        Height = 87
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object SpeedButton3: TSpeedButton
          Left = 2
          Top = 22
          Width = 50
          Height = 16
          Hint = '清除脚本'
          Caption = 'clear'
          Flat = True
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton3Click
        end
        object SpeedButton8: TSpeedButton
          Left = 2
          Top = 38
          Width = 50
          Height = 16
          Hint = '保存脚本'
          Caption = 'save'
          Flat = True
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton8Click
        end
        object SpeedButton9: TSpeedButton
          Left = 2
          Top = 54
          Width = 50
          Height = 16
          Hint = '载入脚本'
          Caption = 'load'
          Flat = True
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton9Click
        end
        object SpeedButton2: TSpeedButton
          Left = 2
          Top = 70
          Width = 50
          Height = 15
          Hint = '执行脚本'
          Caption = 'exec'
          Flat = True
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton2Click
        end
        object CSpinEdit1: TCSpinEdit
          Left = 2
          Top = 0
          Width = 50
          Height = 21
          Hint = '最大返回记录数'
          TabStop = True
          MaxValue = 10000
          MinValue = 100
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          Value = 100
        end
      end
    end
    object StringGrid2: TStringGrid
      Left = 0
      Top = 89
      Width = 814
      Height = 594
      Hint = '数据容器'
      Align = alClient
      ColCount = 2
      DefaultColWidth = 70
      DefaultRowHeight = 20
      RowCount = 2
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goAlwaysShowEditor]
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 1
      OnDrawCell = StringGrid2DrawCell
      OnSelectCell = StringGrid2SelectCell
    end
    object Memo1: TMemo
      Left = 104
      Top = 160
      Width = 377
      Height = 0
      TabStop = False
      Lines.Strings = (
        '[函数]'
        'sysdate='
        'min()='
        'max()='
        '[标准用词]'
        'select='
        'from='
        'if='#9
        'then='
        'end='
        'order='
        'begin='#9
        'delete='
        'truncate='#9
        'table='
        'by='
        'group='#9
        'having='#9
        'min='
        'max='
        'sysdate='
        'dual='
        'where='
        'CREATE='
        'insert='
        'into='
        'VALUES='
        'RETURNING='
        'or='
        'PROCEDURE='
        'NUMBER='
        'VARCHAR2='
        'BLOB='
        'int='
        'out=')
      ScrollBars = ssBoth
      TabOrder = 2
      Visible = False
      WantReturns = False
      WordWrap = False
    end
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 209
    Height = 683
    Hint = '对象树'
    Align = alLeft
    DragMode = dmAutomatic
    Images = ImageList1
    Indent = 19
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = True
    StateImages = ImageList1
    TabOrder = 3