webapp2module.dfm

来自「《delphi数据库设计与实例开发》随书光盘」· DFM 代码 · 共 45 行

DFM
45
字号
object WebModule2: TWebModule2
  OldCreateOrder = False
  Actions = <
    item
      Name = 'WebActionItem1'
      PathInfo = '/runquery'
      OnAction = WebModule2WebActionItem1Action
    end>
  Left = 192
  Top = 107
  Height = 150
  Width = 215
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    SessionName = 'Session1_3'
    TableName = 'employee.db'
    Left = 48
    Top = 24
  end
  object Session1: TSession
    AutoSessionName = True
    Left = 112
    Top = 32
  end
  object DataSetPageProducer1: TDataSetPageProducer
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '<TITLE>Employee</TITLE>'
      '</HEAD>'
      '<BODY>'
      '<h3>Employee:<#EmpNo></h3>'
      '<ul><li>'#32844#21592#32534#21495#65306'<#EmpNo>'
      '<li>'#22995#21517#65306'<#FirstName><#LastName>'
      '<li>'#30005#35805#65306'<#PhoneExt>'
      '<li>'#38599#20323#26102#38388#65306'<#HireDate>'
      '<li>'#26376#34218#65306'<#Salary></ul>'
      '</BODY>'
      '</HTML>')
    DataSet = Table1
    Left = 40
    Top = 80
  end
end

⌨️ 快捷键说明

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