uparseren.~dfm

这是一个从指定网页格式分离单词的小程序

object FrmParseEnWord: TFrmParseEnWord
  Left = 164
  Top = 104
  Width = 608
  Height = 387
  Caption = #21333#35789#25235#21462#24037#20855' By Piao40993470'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 241
    Width = 600
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
    MinSize = 100
  end
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 600
    Height = 31
    Align = alTop
    TabOrder = 0
    OnResize = pnl1Resize
    DesignSize = (
      600
      31)
    object lbl1: TLabel
      Left = 15
      Top = 9
      Width = 24
      Height = 12
      Caption = 'URL:'
    end
    object edtURL: TEdit
      Left = 40
      Top = 5
      Width = 466
      Height = 20
      TabOrder = 0
      Text = 'http://www.fane.cn/article_list.asp?c_id=1&s_id=1'
    end
    object btn1: TButton
      Left = 513
      Top = 3
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #25235#21462
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btn1Click
    end
  end
  object StatusBarTask: TStatusBar
    Left = 0
    Top = 341
    Width = 600
    Height = 19
    Panels = <
      item
        Text = #21487#29992#38142#25509#65306
        Width = 150
      end
      item
        Text = #21333#35789#25968#65306
        Width = 150
      end
      item
        Text = #20219#21153#25968#65306
        Width = 150
      end
      item
        Text = #32447#31243#25968#65306
        Width = 150
      end>
  end
  object StrGridLog: TStringGrid
    Left = 0
    Top = 244
    Width = 600
    Height = 97
    Align = alBottom
    ColCount = 2
    DefaultColWidth = 32
    DefaultRowHeight = 16
    RowCount = 3
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
    PopupMenu = PopupMenuMsg
    TabOrder = 2
    ColWidths = (
      32
      405)
  end
  object Panel1: TPanel
    Left = 0
    Top = 200
    Width = 600
    Height = 41
    Align = alBottom
    TabOrder = 3
    object Label2: TLabel
      Left = 9
      Top = 16
      Width = 84
      Height = 12
      Caption = #26368#22823#32447#31243#25968#30446#65306
    end
    object Button2: TButton
      Left = 244
      Top = 8
      Width = 75
      Height = 25
      Caption = #28165#31354#25968#25454
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 404
      Top = 8
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 1
      OnClick = Button1Click
    end
    object SpinEditMaxT: TSpinEdit
      Left = 94
      Top = 11
      Width = 66
      Height = 21
      MaxValue = 50
      MinValue = 1
      TabOrder = 2
      Value = 5
    end
    object Button4: TButton
      Left = 164
      Top = 8
      Width = 75
      Height = 25
      Caption = #35774#32622
      TabOrder = 3
      OnClick = Button4Click
    end
    object PauseBtn: TButton
      Left = 324
      Top = 8
      Width = 75
      Height = 25
      Caption = #26242#20572
      TabOrder = 4
      OnClick = PauseBtnClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 31
    Width = 600
    Height = 35
    Align = alTop
    TabOrder = 4
    OnResize = Panel2Resize
    DesignSize = (
      600
      35)
    object Label1: TLabel
      Left = 10
      Top = 11
      Width = 60
      Height = 12
      Caption = #33521#25991#21333#35789#65306
    end
    object BtnScan: TButton
      Left = 514
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #25628#32034
      TabOrder = 0
      OnClick = BtnScanClick
    end
    object EnglishWordEdt: TEdit
      Left = 70
      Top = 7
      Width = 436
      Height = 20
      TabOrder = 1
      OnKeyPress = EnglishWordEdtKeyPress
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 66
    Width = 600
    Height = 134
    Align = alClient
    TabOrder = 5
    object Splitter2: TSplitter
      Left = 226
      Top = 1
      Height = 132
    end
    object DBGridEnglish: TDBGrid
      Left = 1
      Top = 1
      Width = 225
      Height = 132
      Align = alLeft
      DataSource = DSEnglish
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'FEnglish'
          Title.Caption = #21333#35789'/'#35789#32452
          Width = 158
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FName'
          Title.Caption = #31867#21035
          Width = 50
          Visible = True
        end>
    end
    object DBGridChinese: TDBGrid
      Left = 229
      Top = 1
      Width = 370
      Height = 132
      Align = alClient
      DataSource = DSChinese
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'FChinese'
          Title.Caption = #20013#35793
          Width = 270
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUpdateDateTime'
          Title.Caption = #26356#26032#26102#38388
          Visible = True
        end>
    end
  end
  object XPManifest1: TXPManifest
    Left = 320
    Top = 290
  end
  object ADOConn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#26032#20869#23481'\Bin\Data\EnW' +
      'ordData.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 255
    Top = 290
  end
  object ADOQtmp: TADOQuery
    Parameters = <>
    Left = 105
    Top = 285
  end
  object PopupMenuTask: TPopupMenu
    Left = 170
    Top = 285
    object OpenMenuClick: TMenuItem
      Caption = #25171#24320
      OnClick = OpenMenuClickClick
    end
    object MenuPause: TMenuItem
      Caption = #26242#20572
      OnClick = MenuPauseClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object CloseMenuClick: TMenuItem
      Caption = #36864#20986
      OnClick = CloseMenuClickClick
    end
  end
  object ADOQScan: TADOQuery
    Parameters = <>
    Left = 475
    Top = 295
  end
  object AutoAddTaskTimer: TTimer
    Enabled = False
    Interval = 400
    OnTimer = AutoAddTaskTimerTimer
    Left = 400
    Top = 291
  end
  object ADOQEnglish: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    AfterScroll = ADOQEnglishAfterScroll
    Parameters = <>
    Left = 90
    Top = 151
  end
  object ADOQChinese: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from TChinese')
    Left = 455
    Top = 151
  end
  object DSEnglish: TDataSource
    DataSet = ADOQEnglish
    Left = 25
    Top = 151
  end
  object DSChinese: TDataSource
    DataSet = ADOQChinese
    Left = 530
    Top = 151
  end
  object PopupMenuMsg: TPopupMenu
    Left = 530
    Top = 270
    object N2: TMenuItem
      Caption = #28165#31354
      OnClick = N2Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object MenuShowCheckLast: TMenuItem
      Caption = #24635#26159#26174#31034#26368#21518#19968#26465#28040#24687
      OnClick = MenuShowCheckLastClick
    end
  end
end