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

📄 webapp3module.dfm

📁 《delphi数据库设计与实例开发》随书光盘
💻 DFM
字号:
object WebModule2: TWebModule2
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/InetXPageProducer1'
      Producer = InetXPageProducer1
    end>
  Left = 249
  Top = 202
  Height = 150
  Width = 223
  object XMLBroker1: TXMLBroker
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = SocketConnection1
    WebDispatch.PathInfo = 'XMLBroker1'
    Left = 40
    Top = 24
  end
  object InetXPageProducer1: TInetXPageProducer
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '</HEAD>'
      '<BODY>'
      '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
      '</BODY>'
      '</HTML>')
    Left = 136
    Top = 24
    object DataForm1: TDataForm
      object DataGrid1: TDataGrid
        XMLBroker = XMLBroker1
        DisplayRows = 5
        object EmpNo: TTextColumn
          DisplayWidth = 10
          Caption = #32844#21592#32534#21495
          FieldName = 'EmpNo'
        end
        object LastName: TTextColumn
          DisplayWidth = 20
          Caption = #22995
          FieldName = 'LastName'
        end
        object FirstName: TTextColumn
          DisplayWidth = 15
          Caption = #21517
          FieldName = 'FirstName'
        end
        object PhoneExt: TTextColumn
          DisplayWidth = 4
          Caption = #30005#35805
          FieldName = 'PhoneExt'
        end
        object HireDate: TTextColumn
          DisplayWidth = 18
          Caption = #38599#20323#26085#26399
          FieldName = 'HireDate'
        end
        object Salary: TTextColumn
          DisplayWidth = 10
          Caption = #26376#34218
          FieldName = 'Salary'
        end
        object StatusColumn1: TStatusColumn
          Caption = '*'
        end
      end
      object DataNavigator1: TDataNavigator
        XMLComponent = DataGrid1
      end
    end
  end
  object SocketConnection1: TSocketConnection
    Connected = True
    ServerGUID = '{C9A39070-686B-40EB-950E-C4AEC8C8FBF3}'
    ServerName = 'TCPServerPro.TCPServer'
    Host = '127.0.0.1'
    Left = 80
    Top = 72
  end
end

⌨️ 快捷键说明

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