iwunit1.dfm

本程序利用了IntraWeb技术在网页中显示数据。 可以动态的显示数据

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 349
  Height = 296
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 260
  DesignTop = 131
  object IWButton1: TIWButton
    Left = 272
    Top = 72
    Width = 57
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26597#35810
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWButton2: TIWButton
    Left = 88
    Top = 264
    Width = 121
    Height = 33
    ZIndex = 0
    ButtonType = btButton
    Caption = #26174#31034#25152#26377#35760#24405
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
    OnClick = IWButton2Click
  end
  object IWEdit1: TIWEdit
    Left = 144
    Top = 72
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    PasswordPrompt = False
  end
  object IWComboBox1: TIWComboBox
    Left = 8
    Top = 72
    Width = 121
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 3
    ItemIndex = -1
    Items.Strings = (
      #22995#21517
      #32844#19994
      #34218#27700)
    Sorted = False
  end
  object IWDBGrid1: TIWDBGrid
    Left = 8
    Top = 96
    Width = 321
    Height = 161
    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 = <>
    DataSource = DataSource1
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object Query1: TQuery
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 56
    Top = 8
  end
end