main.dfm

一个最新的解析SQL语句的代码

object Form1: TForm1
  Left = 192
  Top = 110
  BorderStyle = bsDialog
  Caption = 'Rewrite Oracle Propriety Joins to SQL99 Compliant Joins'
  ClientHeight = 327
  ClientWidth = 692
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 71
    Height = 16
    Caption = 'Input SQL:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 344
    Top = 8
    Width = 82
    Height = 16
    Caption = 'Output SQL:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object mmsqlinput: TMemo
    Left = 8
    Top = 32
    Width = 321
    Height = 193
    Lines.Strings = (
      'select e.employee_id,e.last_name, e.department_id'
      'from employees e,departments d'
      'where e.department_id = d.department_id')
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object mmsqloutput: TMemo
    Left = 344
    Top = 32
    Width = 337
    Height = 193
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object btnconvert: TButton
    Left = 568
    Top = 240
    Width = 75
    Height = 25
    Caption = '&Convert'
    TabOrder = 2
    OnClick = btnconvertClick
  end
  object btnexit: TButton
    Left = 568
    Top = 280
    Width = 75
    Height = 25
    Caption = '&Exit'
    TabOrder = 3
    OnClick = btnexitClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 240
    Width = 473
    Height = 65
    Lines.Strings = (
      
        '1. Input SQL you want to convert into "input sql editor", then j' +
        'ust click convert button,'
      
        '   this utility will rewrite Oracle Propriety Joins to SQL99 Com' +
        'pliant Joins in the "output sql editor"'
      
        '2. This utility is based on the general sql parser on http://www' +
        '.sqlparser.com'
      
        '3. If you have any comments about this utility, please contact u' +
        's: [e-mail]')
    ReadOnly = True
    TabOrder = 4
  end
end