Internet/IE编程

开发平台：
Delphi

FormFind.dfm：源码内容
							object FrmFind: TFrmFind
  Left = 314
  Top = 75
  Width = 520
  Height = 322
  BorderIcons = [biSystemMenu]
  Caption = 'FrmFind'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 512
    Height = 33
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 12
      Caption = #24320#22987#26085#26399
    end
    object Label2: TLabel
      Left = 176
      Top = 16
      Width = 48
      Height = 12
      Caption = #32467#26463#26085#26399
    end
    object edtBegin: TDateTimePicker
      Left = 64
      Top = 8
      Width = 89
      Height = 20
      Date = 38672.000000000000000000
      Time = 38672.000000000000000000
      TabOrder = 0
    end
    object edtEnd: TDateTimePicker
      Left = 232
      Top = 8
      Width = 89
      Height = 20
      Date = 38672.000000000000000000
      Time = 38672.000000000000000000
      TabOrder = 1
    end
    object btnFind: TButton
      Left = 328
      Top = 5
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = btnFindClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 512
    Height = 243
    Align = alClient
    DataSource = dsFind
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'CompanyName'
        Title.Caption = #23458#25143#21333#20301
        Width = 151
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OrderDate'
        Title.Caption = #35746#21333#26085#26399
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RequiredDate'
        Title.Caption = #20132#36135#26085#26399
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ShippedDate'
        Title.Caption = #36865#36135#26085#26399
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ShipName'
        Title.Caption = #36865#36135#21830
        Width = 103
        Visible = True
      end>
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 276
    Width = 512
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object cltdsFind: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterScroll = cltdsFindAfterScroll
    Left = 72
    Top = 112
    object cltdsFindOrderID: TIntegerField
      FieldName = 'OrderID'
    end
    object cltdsFindCompanyName: TWideStringField
      FieldName = 'CompanyName'
      Size = 40
    end
    object cltdsFindOrderDate: TDateTimeField
      FieldName = 'OrderDate'
    end
    object cltdsFindRequiredDate: TDateTimeField
      FieldName = 'RequiredDate'
    end
    object cltdsFindShippedDate: TDateTimeField
      FieldName = 'ShippedDate'
    end
    object cltdsFindShipName: TWideStringField
      FieldName = 'ShipName'
      Size = 40
    end
  end
  object dsFind: TDataSource
    DataSet = cltdsFind
    Left = 104
    Top = 112
  end
end

						