u_search.dfm

Delphi 应用举例

object formMainSearch: TformMainSearch
  Left = 0
  Top = 0
  Width = 739
  Height = 515
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  OnCreate = IWAppFormCreate
  DesignLeft = 109
  DesignTop = 102
  object IWRectangle1: TIWRectangle
    Left = 168
    Top = 96
    Width = 529
    Height = 36
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Color = clMenu
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object IWEditY: TIWEdit
    Left = 239
    Top = 107
    Width = 49
    Height = 17
    ZIndex = 1
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWEditY'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 0
    PasswordPrompt = False
    Text = '2003'
  end
  object IWChkBxY: TIWCheckBox
    Left = 191
    Top = 107
    Width = 41
    Height = 21
    ZIndex = 1
    Caption = #24180
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 1
    Checked = False
  end
  object IWChkBxM: TIWCheckBox
    Left = 319
    Top = 107
    Width = 33
    Height = 21
    ZIndex = 1
    Caption = #26376
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 2
    Checked = False
  end
  object IWEditM: TIWEdit
    Left = 359
    Top = 106
    Width = 49
    Height = 18
    ZIndex = 1
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWEditM'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    PasswordPrompt = False
    Text = '2'
  end
  object IWChkBxD: TIWCheckBox
    Left = 431
    Top = 107
    Width = 41
    Height = 21
    ZIndex = 1
    Caption = #26085
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 4
    Checked = False
  end
  object IWEditD: TIWEdit
    Left = 479
    Top = 106
    Width = 41
    Height = 19
    ZIndex = 1
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWEditD'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 5
    PasswordPrompt = False
    Text = '1'
  end
  object IWButton1: TIWButton
    Left = 527
    Top = 104
    Width = 44
    Height = 21
    ZIndex = 1
    ButtonType = btButton
    Caption = #26597#35810
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 6
    OnClick = IWButton1Click
  end
  object IWDBGrid1: TIWDBGrid
    Left = 168
    Top = 136
    Width = 529
    Height = 185
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseWidth = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'FYear'
        LinkField = 'rowID'
        OnClick = IWDBGrid1Columns0Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #24180
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'FMonth'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26376
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'FDay'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26085
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'Caption'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26631#39064
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = DataModule1.DataSourceSearch
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = True
    RollOverColor = clNone
    RowHeaderColor = clGrayText
    RowAlternateColor = clNone
    RowCurrentColor = clBackground
  end
  object IWDBMemo1: TIWDBMemo
    Left = 168
    Top = 328
    Width = 529
    Height = 169
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 7
    WantReturns = False
    AutoEditable = False
    DataField = 'FMessage'
    DataSource = DataModule1.DataSourceSearch
  end
  object IWButton2: TIWButton
    Left = 584
    Top = 103
    Width = 47
    Height = 22
    ZIndex = 1
    ButtonType = btButton
    Caption = 'Excel'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 8
    OnClick = IWButton2Click
  end
  object IWCheckBoxExcel: TIWCheckBox
    Left = 640
    Top = 104
    Width = 121
    Height = 21
    ZIndex = 1
    Caption = #28385#39029
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 12
    Checked = True
  end
  inline Frame21: TFrame2
    Left = 8
    Top = 104
    Width = 104
    Height = 372
    TabOrder = 0
  end
  inline Frame31: TFrame3
    Left = 24
    Top = 8
    Width = 577
    Height = 79
    TabOrder = 1
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 624
    Top = 8
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 624
    Top = 40
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 624
    Top = 72
  end
end