unit1.dfm

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      OnAction = WebModule1WebActionItem1Action
    end
    item
      Name = 'WebActionItem2'
      PathInfo = '/SQLResult'
      OnAction = WebModule1WebActionItem2Action
    end>
  Left = 283
  Top = 175
  Height = 150
  Width = 275
  object Session1: TSession
    Left = 24
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'DB1'
    Left = 144
    Top = 16
  end
  object Query2: TQuery
    DatabaseName = 'DB1'
    SQL.Strings = (
      'select * from country')
    Left = 200
    Top = 16
  end
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'DB1'
    SessionName = 'Default'
    Left = 88
    Top = 16
  end
  object QueryTableProducer1: TQueryTableProducer
    Columns = <
      item
        FieldName = 'Name'
        Title.Caption = #22269#23478#21517
      end
      item
        FieldName = 'Capital'
        Title.Caption = #39318#37117
      end
      item
        FieldName = 'Continent'
        Title.Caption = #25152#22312#22823#27954
      end
      item
        FieldName = 'Area'
        Title.Caption = #38754#31215
      end
      item
        Align = haRight
        FieldName = 'Population'
        Title.Caption = #20154#21475
      end>
    Query = Query2
    TableAttributes.BgColor = 'Silver'
    TableAttributes.Border = 1
    TableAttributes.CellSpacing = 1
    TableAttributes.CellPadding = 1
    OnFormatCell = QueryTableProducer1FormatCell
    Left = 112
    Top = 72
  end
end