📄 unit721.dfm

📁 Delphi6分布式开发例程12 )
💻 DFM
字号:
object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/InetXPageProducer1'
      Producer = InetXPageProducer1
    end>
  Left = 307
  Top = 146
  Height = 150
  Width = 453
  object XMLBroker1: TXMLBroker
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    WebDispatch.PathInfo = 'XMLBroker1'
    Left = 24
    Top = 32
  end
  object InetXPageProducer1: TInetXPageProducer
    IncludePathURL = 'http://localhost/DELPHIJAVA/'
    StylesFile = 'G:\xiangproject\style72.css'
    EnableXMLIslands = False
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '</HEAD>'
      '<BODY>'
      '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
      '</BODY>'
      '</HTML>')
    Left = 112
    Top = 32
    object DataForm1: TDataForm
      object FieldGroup1: TFieldGroup
        XMLBroker = XMLBroker1
        object EMP_NO: TFieldText
          DisplayWidth = 10
          CaptionAttributes.Style = 
            'font-family : Arial; font-weight : bold; font-size : 18px;  colo' +
            'r : rgb(0,0,255);'
          FieldName = 'EMP_NO'
        end
        object FIRST_NAME: TFieldText
          DisplayWidth = 15
          CaptionAttributes.StyleRule = 'Name1'
          FieldName = 'FIRST_NAME'
        end
        object LAST_NAME: TFieldText
          DisplayWidth = 20
          CaptionAttributes.Style = 
            'font-family : Arial; font-weight : bold; font-size : 18px;  colo' +
            'r : rgb(0,255,0);'
          FieldName = 'LAST_NAME'
        end
        object PHONE_EXT: TFieldText
          DisplayWidth = 4
          FieldName = 'PHONE_EXT'
        end
        object HIRE_DATE: TFieldText
          DisplayWidth = 18
          FieldName = 'HIRE_DATE'
        end
        object DEPT_NO: TFieldText
          DisplayWidth = 3
          Caption = #37096#38376#20195#21495
          CaptionAttributes.StyleRule = 'name1'
          FieldName = 'DEPT_NO'
        end
        object JOB_CODE: TFieldText
          DisplayWidth = 5
          CaptionAttributes.StyleRule = 'name2'
          FieldName = 'JOB_CODE'
        end
        object JOB_GRADE: TFieldText
          DisplayWidth = 10
          FieldName = 'JOB_GRADE'
        end
        object JOB_COUNTRY: TFieldText
          DisplayWidth = 15
          FieldName = 'JOB_COUNTRY'
        end
        object SALARY: TFieldText
          DisplayWidth = 10
          FieldName = 'SALARY'
        end
      end
      object DataNavigator1: TDataNavigator
        XMLComponent = FieldGroup1
      end
    end
  end
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{B2CE0A23-AC7B-11D5-B133-0051FC000F61}'
    ServerName = 'Project71.test711server'
    ComputerName = 'Xiang'
    Left = 216
    Top = 32
  end
end
⌨️ 快捷键说明

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