iwunit1.dfm

Delphi下IntraWeb应用开发详解 中的Delphi编写的简单的聊天程序

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 868
  Height = 625
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 225
  DesignTop = 137
  object IWDynamicChart1: TIWDynamicChart
    Left = 48
    Top = 8
    Width = 297
    Height = 185
    ZIndex = 0
    Colors.Strings = (
      'red'
      'blue'
      'green'
      'yellow'
      'brown')
    Data = IWClientSideDatasetDBLink1
    HorzData = 'name'
    Legend = IWDynamicChartLegend1
    ValuesInBars = True
    VertData = 'weight'
  end
  object IWDynamicChartLegend1: TIWDynamicChartLegend
    Left = 360
    Top = 32
    Width = 200
    Height = 161
    ZIndex = 0
  end
  object IWDynamicChart2: TIWDynamicChart
    Left = 48
    Top = 296
    Width = 297
    Height = 201
    ZIndex = 0
    Colors.Strings = (
      'red'
      'blue'
      'green'
      'yellow'
      'brown')
    Data = IWClientSideDatasetDBLink2
    HorzData = #21517#31216
    Legend = IWDynamicChartLegend2
    ValuesInBars = True
    VertData = #37325#37327
  end
  object IWDynamicChartLegend2: TIWDynamicChartLegend
    Left = 360
    Top = 336
    Width = 200
    Height = 161
    ZIndex = 0
  end
  object IWMemo1: TIWMemo
    Left = 576
    Top = 128
    Width = 265
    Height = 201
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 0
    WantReturns = False
    FriendlyName = 'IWMemo1'
    Lines.Strings = (
      #23545#20110#36825#20004#25511#20214#30340#20351#29992#38750#24120#31616#21333#12290
      #23545#20110'IWDynamicChart'#26469#35828#65292#26368#37325#35201#26159'vertdata'#21644'horzdata'#36825#20004#20010#23646#24615#65292#20998#21035
      #25351#23450#19968#20010#23383#27573#21517#12290'legend'#23646#24615#29992#26469#19982'IWDynamicChartLegend'#25511#20214#36830#25509#12290
      ''
      #35774#32622'vertdata'#21644'horzdata'#36825#20004#20010#23646#24615#26102#65292#24517#39035#20445#35777#23383#27573#30340'displaylabel'#19982
      #21517#31216#30456#21516#65292#22914#26524#24076#26395#26174#31034#20013#25991#65292#37027#20040#20351#29992'sql'#65292#22312'sql'#37324#20026#23383#27573#23450#20041#21035#21517#22909#20102#12290
      #26412#20363#23601#26159#22914#27492#12290)
  end
  object IWLabel1: TIWLabel
    Left = 24
    Top = 40
    Width = 35
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #37325#37327
  end
  object IWLabel2: TIWLabel
    Left = 16
    Top = 304
    Width = 35
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #37325#37327
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 40
    Top = 8
  end
  object IWClientSideDatasetDBLink1: TIWClientSideDatasetDBLink
    DataSource = DataSource1
    Left = 72
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 8
    Top = 8
    object Table1NAME: TStringField
      DisplayLabel = 'name'
      FieldName = 'NAME'
      Size = 10
    end
    object Table1WEIGHT: TSmallintField
      DisplayLabel = 'weight'
      FieldName = 'WEIGHT'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select name '#21517#31216',weight '#37325#37327
      'from animals.dbf')
    Left = 8
    Top = 256
    object Query1BDEDesigner: TStringField
      FieldName = #21517#31216
      Size = 10
    end
    object Query1BDEDesigner2: TSmallintField
      FieldName = #37325#37327
    end
  end
  object IWClientSideDatasetDBLink2: TIWClientSideDatasetDBLink
    DataSource = DataSource2
    Left = 72
    Top = 256
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 40
    Top = 256
  end
end