⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.dfm

📁 Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例
💻 DFM
字号:
object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/InetXPageProducer1'
      Producer = InetXPageProducer1
    end
    item
      Name = 'WebActionItem2'
      PathInfo = '/SQLResult'
      Producer = InetXPageProducer1
    end
    item
      Name = 'WebActionItem3'
      PathInfo = '/GetAllTableName'
      Producer = InetXPageProducer1
    end>
  Left = 330
  Top = 272
  Height = 185
  Width = 294
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{08A06C79-7059-4CBD-828E-2F33BF7581D1}'
    ServerName = 'MyDataServer2.MyDataModule2'
    ComputerName = 'ICE'
    Left = 40
    Top = 24
  end
  object XMLBroker1: TXMLBroker
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    WebDispatch.PathInfo = 'XMLBroker1'
    Left = 120
    Top = 24
  end
  object InetXPageProducer1: TInetXPageProducer
    OnHTMLTag = InetXPageProducer1HTMLTag
    IncludePathURL = 'WebMidas/'
    HTMLFile = 'E:\delphi\example2\WebApp\MyPage1.htm'
    Left = 208
    Top = 24
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    Left = 48
    Top = 88
  end
  object DataSetTableProducer1: TDataSetTableProducer
    Columns = <
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'Capital'
      end
      item
        FieldName = 'Continent'
      end
      item
        FieldName = 'Area'
      end
      item
        FieldName = 'Population'
      end>
    DataSet = ClientDataSet1
    TableAttributes.BgColor = 'Silver'
    TableAttributes.Border = 1
    TableAttributes.CellSpacing = 1
    TableAttributes.CellPadding = 1
    Left = 160
    Top = 88
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -