sqledit.dfm

很久以前用delphi写的一个SQLServer外部的企业管理器

object SQLEditForm: TSQLEditForm
  Left = 311
  Top = 244
  AutoScroll = False
  Caption = 'SQLEditForm'
  ClientHeight = 424
  ClientWidth = 629
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 122
    Width = 629
    Height = 8
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    Color = clScrollBar
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 629
    Height = 122
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object SQLText: TMemo
      Left = 1
      Top = 1
      Width = 627
      Height = 120
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      OnChange = SQLTextChange
      OnClick = SQLTextChange
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 403
    Width = 629
    Height = 21
    Panels = <
      item
        Width = 120
      end
      item
        Width = 150
      end
      item
        Width = 100
      end
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 130
    Width = 629
    Height = 6
    Align = alTop
    TabOrder = 2
  end
  object ResultPage: TPageControl
    Left = 0
    Top = 136
    Width = 629
    Height = 267
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 3
    TabPosition = tpBottom
    object TabSheet1: TTabSheet
      Caption = '      '#32593#26684'     '
      object ResultFrame: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 241
        Align = alClient
        Color = clScrollBar
        ParentColor = False
        TabOrder = 0
        object ResultFramePanel: TPanel
          Left = 0
          Top = -1
          Width = 1001
          Height = 354
          BevelOuter = bvNone
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '      '#28040#24687'      '
      ImageIndex = 1
      object SQLInfo: TMemo
        Left = 0
        Top = 0
        Width = 621
        Height = 241
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdApplyButton]
    Left = 136
    Top = 24
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Color = clWhite
    Left = 80
    Top = 8
  end
  object SaveDialog: TSaveDialog
    Filter = 'SQLBrowser'#25991#20214'(*.sql)|*.sql|'#25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 200
    Top = 24
  end
end