main.dfm

一个sql语法分析程序

object frmMain: TfrmMain
  Left = 495
  Top = 145
  Width = 510
  Height = 512
  Caption = 'ga Advanced SQL parser demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlButtons: TPanel
    Left = 0
    Top = 425
    Width = 502
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btnReset: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Reset'
      TabOrder = 0
      OnClick = btnResetClick
    end
    object btnNextToken: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Next Token'
      TabOrder = 1
      OnClick = btnNextTokenClick
    end
    object btnReplace: TButton
      Left = 288
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Replace'
      TabOrder = 2
      OnClick = btnReplaceClick
    end
    object btnAll: TButton
      Left = 168
      Top = 8
      Width = 75
      Height = 25
      Caption = 'All'
      TabOrder = 3
      OnClick = btnAllClick
    end
  end
  object pgcSQL: TPageControl
    Left = 0
    Top = 0
    Width = 502
    Height = 425
    ActivePage = tshSQLText
    Align = alClient
    TabOrder = 1
    object tshSQLText: TTabSheet
      Caption = 'SQL Text'
      object memSQLText: TMemo
        Left = 0
        Top = 0
        Width = 494
        Height = 397
        Align = alClient
        Lines.Strings = (
          'insert into testtable'
          'select * from test1Table')
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object tshNewSQLText: TTabSheet
      Caption = 'Rebuilded SQL'
      ImageIndex = 1
      object memRebuildedSQL: TMemo
        Left = 0
        Top = 0
        Width = 494
        Height = 397
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object tshTokenInfo: TTabSheet
      Caption = 'Token info'
      ImageIndex = 2
      object lblTokenText: TLabel
        Left = 8
        Top = 6
        Width = 51
        Height = 13
        Caption = 'Token text'
      end
      object lblTokenType: TLabel
        Left = 8
        Top = 46
        Width = 58
        Height = 13
        Caption = 'Token Type'
      end
      object lblStringDelimiter: TLabel
        Left = 8
        Top = 86
        Width = 70
        Height = 13
        Caption = 'String Delimiter'
      end
      object lblStatementParserClass: TLabel
        Left = 8
        Top = 128
        Width = 109
        Height = 13
        Caption = 'Statement Parser Class'
      end
      object lblStatementType: TLabel
        Left = 8
        Top = 168
        Width = 75
        Height = 13
        Caption = 'Statement Type'
      end
      object lblParsedSQL: TLabel
        Left = 16
        Top = 216
        Width = 57
        Height = 13
        Caption = 'Parsed SQL'
      end
      object edToken: TEdit
        Left = 8
        Top = 22
        Width = 400
        Height = 21
        TabOrder = 0
      end
      object edTokenType: TEdit
        Left = 8
        Top = 62
        Width = 400
        Height = 21
        TabOrder = 1
      end
      object edStringDelimiter: TEdit
        Left = 8
        Top = 102
        Width = 400
        Height = 21
        TabOrder = 2
      end
      object edStatementParserClass: TEdit
        Left = 8
        Top = 144
        Width = 400
        Height = 21
        TabOrder = 3
      end
      object edStatementType: TEdit
        Left = 8
        Top = 184
        Width = 400
        Height = 21
        TabOrder = 4
      end
      object memParsedSQL: TMemo
        Left = 0
        Top = 215
        Width = 494
        Height = 182
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        ScrollBars = ssBoth
        TabOrder = 5
      end
    end
  end
  object ActionList1: TActionList
    Left = 404
    Top = 72
    object actLoadSQL: TAction
      Category = 'File'
      Caption = 'Load SQL'
      OnExecute = actLoadSQLExecute
    end
    object actSaveSQL: TAction
      Category = 'File'
      Caption = 'Save SQL'
      OnExecute = actSaveSQLExecute
      OnUpdate = actSaveSQLUpdate
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'sql'
    Filter = 'SQL files|*.sql|All files |*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 300
    Top = 80
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'sql'
    Filter = 'SQL files|*.sql|All files|*.*'
    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 228
    Top = 80
  end
  object MainMenu1: TMainMenu
    Left = 260
    Top = 288
    object LoadSQL1: TMenuItem
      Caption = 'File'
      object LoadSQL2: TMenuItem
        Action = actLoadSQL
      end
      object SaveSQL1: TMenuItem
        Action = actSaveSQL
      end
    end
  end
end