main.dfm

可以很方便地管理access数据库

object main_Form: Tmain_Form
  Left = 106
  Top = 135
  Width = 848
  Height = 568
  Caption = 'FreeSQL ... Write By WJH'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF006666
    6666666666666666666666666666666666666666666666666999999999966666
    6666666666666666699999999996666666666666666666666999999999966666
    6666666666666666699966666666666666666666666666666999666666666666
    6666666666666666699966666666666666666666666666666999666666666666
    6666666666666666699966666666666666666666666666666999666666666666
    666666666BBBBB6BB9996666666666666666666BBBBBBBBBB999666666666666
    666666BBBBBBBBBBB999666666666666666666BBBB66BBBBB999666666666666
    66666BBBB66BBB6BB99966666666666666666BBB6666B66BBB66666666666666
    66666BBB6666666BBB66666666666666EEEEEBBB6666666BBB666666666666EE
    EEEEEBBB6666666BBB666666666666EEEEEEEEBBB66666BBBB66666666666EEE
    E66666BBBB666BBBB666666666666EEE66666EEBBBBBBBBBB666666666666666
    666EEEEEBBBBBBBB666666666666666EEEEEEEE66BBBBB6666666666666666EE
    EEEEEE66666666666666666666666EEEEE666666666666666666666666666EEE
    66666EEE666666666666666666666EEE6666EEEE666666666666666666666EEE
    EEEEEEE66666666666666666666666EEEEEEEEE666666666666666666666666E
    EEEEE66666666666666666666666666666666666666666666666666666660000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Splitter1: TSplitter
    Left = 0
    Top = 87
    Width = 840
    Height = 6
    Cursor = crVSplit
    Align = alTop
  end
  object Label2: TLabel
    Left = 0
    Top = 0
    Width = 840
    Height = 15
    Align = alTop
    Caption = '   数据库连接 ...'
    Color = clTeal
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Splitter4: TSplitter
    Left = 0
    Top = 281
    Width = 840
    Height = 6
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 93
    Width = 840
    Height = 188
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter3: TSplitter
      Left = 199
      Top = 0
      Width = 5
      Height = 188
      Cursor = crHSplit
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 199
      Height = 188
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Label5: TLabel
        Left = 0
        Top = 0
        Width = 199
        Height = 15
        Align = alTop
        Caption = '   Table 列表 ...'
        Color = clOlive
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object ListBox1: TListBox
        Left = 0
        Top = 49
        Width = 199
        Height = 139
        Align = alClient
        ItemHeight = 15
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnClick = ListBox1Click
        OnDblClick = ListBox1DblClick
      end
      object ToolBar3: TToolBar
        Left = 0
        Top = 15
        Width = 199
        Height = 34
        AutoSize = True
        ButtonHeight = 30
        ButtonWidth = 31
        Caption = 'ToolBar1'
        EdgeBorders = [ebTop, ebBottom]
        Flat = True
        Images = ImageList1
        TabOrder = 1
        object ToolButton25: TToolButton
          Left = 0
          Top = 0
          Width = 8
          Caption = 'ToolButton8'
          ImageIndex = 6
          Style = tbsSeparator
        end
        object ToolButton36: TToolButton
          Left = 8
          Top = 0
          Cursor = crHandPoint
          Hint = '联接'
          Caption = 'ToolButton20'
          ImageIndex = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton36Click
        end
        object ToolButton37: TToolButton
          Left = 39
          Top = 0
          Cursor = crHandPoint
          Hint = '打开表'
          Caption = 'ToolButton22'
          ImageIndex = 13
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton37Click
        end
        object ToolButton38: TToolButton
          Left = 70
          Top = 0
          Cursor = crHandPoint
          Hint = '删除数据联接记录'
          Caption = 'ToolButton9'
          ImageIndex = 6
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton38Click
        end
        object ToolButton47: TToolButton
          Left = 101
          Top = 0
          Width = 8
          Caption = 'ToolButton18'
          ImageIndex = 6
          Style = tbsSeparator
        end
        object ToolButton48: TToolButton
          Left = 109
          Top = 0
          Cursor = crHandPoint
          Hint = '导出 Table 列表'
          Caption = 'ToolButton16'
          ImageIndex = 11
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton48Click
        end
        object ToolButton50: TToolButton
          Left = 140
          Top = 0
          Width = 8
          Caption = 'ToolButton15'
          ImageIndex = 8
          Style = tbsSeparator
        end
      end
    end
    object Panel6: TPanel
      Left = 204
      Top = 0
      Width = 636
      Height = 188
      Align = alClient
      Caption = 'Panel6'
      TabOrder = 1
      object Label1: TLabel
        Left = 1
        Top = 1
        Width = 634
        Height = 15
        Align = alTop
        Caption = '   SQL 语句 ...'
        Color = clPurple
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object SyntaxMemo1: TSyntaxMemo
        Left = 1
        Top = 50
        Width = 634
        Height = 137
        Align = alClient
        ClipCopyFormats = [smTEXT]
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        GutterFont.Charset = DEFAULT_CHARSET
        GutterFont.Color = clWindowText
        GutterFont.Height = -11
        GutterFont.Name = 'MS Sans Serif'
        GutterFont.Style = []
        HyperCursor = crDefault
        IndentStep = 1
        Margin = 2
        Modified = False
        MonoPrint = True
        Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowWrapColumn, smoTitleAsFilename, smoProcessDroppedFiles, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack, smoUseTAB, smoSmartFill, smoOLEDragSource]
        ReadOnly = False
        RightMargin = 80
        SaveFormat = sfTEXT
        ScrollBars = ssBoth
        SelLineStyle = lsCRLF
        SelStart = 0
        SelLength = 0
        SelTextColor = clWhite
        SelTextBack = 6956042
        TabDefault = 4
        TabOrder = 0
        Version = '3.00.39'
        VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES]
        WrapAtColumn = 0
        OnChange = SyntaxMemo1Change