umain.dfm

AirtoFly.com中的长途有关信息抓取,并存写在数据库中

object frmMain: TfrmMain
  Left = 362
  Top = 301
  BorderStyle = bsToolWindow
  Caption = 'http://bus.airtofly.com/'
  ClientHeight = 461
  ClientWidth = 520
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object mmMain: TMemo
    Left = 88
    Top = 0
    Width = 425
    Height = 457
    TabStop = False
    Ctl3D = False
    ParentCtl3D = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object btnGet: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = #25235#21462
    TabOrder = 1
    OnClick = btnGetClick
  end
  object IdHTTPMain: TIdHTTP
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = []
    Left = 40
    Top = 80
  end
  object adoMain: TADOConnection
    Left = 32
    Top = 144
  end
  object qryMain: TADOQuery
    Connection = adoMain
    Parameters = <>
    Left = 32
    Top = 184
  end
end