command.dfm

SQL远程管理程序的源码,DELPHI做的.不需要控件

object frmCommand: TfrmCommand
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Command window'
  Color = clBtnFace
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 150
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Memo1: TSynMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 150
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    TabOrder = 0
    OnKeyUp = Memo1KeyUp
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Courier New'
    Gutter.Font.Style = []
    Highlighter = SynSQLSyn1
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 178
    Width = 688
    Height = 275
    Align = alClient
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 153
    Width = 688
    Height = 25
    Align = alTop
    TabOrder = 2
    object Button1: TButton
      Left = 2
      Top = 1
      Width = 75
      Height = 25
      Caption = 'Do Command'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Qry1: TADOQuery
    Connection = frmConnect.ADOConnection
    Parameters = <>
    Left = 24
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Qry1
    Left = 64
    Top = 16
  end
  object SynSQLSyn1: TSynSQLSyn
    DefaultFilter = 'SQL Files (*.sql)|*.sql'
    SQLDialect = sqlStandard
    Left = 296
    Top = 184
  end
end