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

📄 webmain.dfm

📁 《Delphi开发人员指南》配书原码
💻 DFM
字号:
🔍 
object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/Customers'
      Producer = Customers
    end>
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{803ABB84-8590-11D3-8DE3-006097319291}'
    ServerName = 'InetXServer.DDGInetX'
    Left = 36
    Top = 36
  end
  object CustomerXML: TXMLBroker
    Params = <>
    ProviderName = 'CustomerProvider'
    RemoteServer = DCOMConnection1
    WebDispatch.PathInfo = 'CustomerXML'
    ReconcileProducer = ReconcilePageProducer1
    Left = 128
    Top = 36
  end
  object EmployeeCDS: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'EmployeeProvider'
    RemoteServer = DCOMConnection1
    Left = 132
    Top = 108
  end
  object Customers: TMidasPageProducer
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '</HEAD>'
      '<BODY>'
      '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
      '</BODY>'
      '</HTML>')
    IncludePathURL = '/webmidas/'
    Left = 232
    Top = 36
    object DataForm1: TDataForm
      object FieldGroup1: TFieldGroup
        XMLBroker = CustomerXML
        object FieldText: TFieldText
          DisplayWidth = 10
          Caption = 'CustNo'
          FieldName = 'CUSTNO'
        end
        object FieldText2: TFieldText
          DisplayWidth = 30
          Caption = 'Company'
          FieldName = 'COMPANY'
        end
        object FieldText3: TFieldText
          DisplayWidth = 30
          Caption = 'Address'
          FieldName = 'ADDR1'
        end
        object FieldText4: TFieldText
          DisplayWidth = 15
          Caption = 'City'
          FieldName = 'CITY'
        end
        object FieldText5: TFieldText
          DisplayWidth = 20
          Caption = 'State'
          FieldName = 'STATE'
        end
        object FieldText6: TFieldText
          DisplayWidth = 10
          Caption = 'Zip'
          FieldName = 'ZIP'
        end
      end
      object DataNavigator1: TDataNavigator
        XMLComponent = FieldGroup1
      end
      object DataGrid2: TDataGrid
        XMLBroker = CustomerXML
        XMLDataSetField = 'OrderQuery'
        object TextColumn: TTextColumn
          DisplayWidth = 10
          Caption = 'OrderNo'
          FieldName = 'ORDERNO'
        end
        object TextColumn4: TTextColumn
          DisplayWidth = 18
          Caption = 'Sale Date'
          FieldName = 'SALEDATE'
        end
        object TextColumn2: TTextColumn
          DisplayWidth = 10
          Caption = 'Items Total'
          FieldName = 'ITEMSTOTAL'
        end
        object TextColumn3: TTextColumn
          DisplayWidth = 10
          Caption = 'Amt. Paid'
          FieldName = 'AMOUNTPAID'
        end
        object SelectOptionsColumn: TSelectOptionsColumn
          DisplayRows = -1
          Caption = 'Employee'
          FieldName = 'EMPNO'
          DataSet = EmployeeCDS
          ValuesField = 'EMPNO'
          ItemsField = 'LASTNAME'
        end
        object StatusColumn1: TStatusColumn
          Caption = '*'
        end
      end
    end
  end
  object ReconcilePageProducer1: TReconcilePageProducer
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '</HEAD>'
      '<BODY>'
      '<#INCLUDES><#STYLES><#WARNINGS>'
      '<P>'
      '<FORM name="FORM1">'
      '<TABLE>'
      '<TR>'
      '<TD valign=top><H3>Error message:</H3></TD>'
      
        '<TD valign=top><textarea name="ErrMessage" rows=2 cols=58 readon' +
        'ly onfocus='#39'blur();'#39'></textarea></TD>'
      '<TD valign=top><H3>on</H3></TD>'
      
        '<TD valign=top><input type=text name="ErrAction" size=12 readonl' +
        'y onfocus='#39'blur();'#39'/></TD>'
      '</TR>'
      '</TABLE>'
      '<P>'
      '<#RECONCILEGRID>'
      '</FORM>'
      '<P>'
      '<FORM>'
      '<H3> Reconcile Action </H3>'
      
        '<input type=radio name="action" value="Cancel" onclick='#39'if(self.' +
        'grid1!=null)grid1.cancel();'#39'/> Cancel'
      
        '<input type=radio name="action" value="Correct" onclick='#39'if(self' +
        '.grid1!=null)grid1.correct();'#39'/> Correct'
      
        '<input type=radio name="action" value="Merge" onclick='#39'if(self.g' +
        'rid1!=null)grid1.merge();'#39'/> Merge'
      '<P>'
      
        '<input type=button value="<" onclick='#39'if(self.grid1!=null)grid1.' +
        'up();'#39' />'
      
        '<input type=button value=">" onclick='#39'if(self.grid1!=null)grid1.' +
        'down();'#39' />'
      
        '<input type=button value="Post/Next" onclick='#39'if(self.grid1!=nul' +
        'l)grid1.post();'#39'/>'
      '<P>'
      
        '<input type=button value="Reapply Updates" onclick='#39'if(self.grid' +
        '1!=null)grid1.Reapply(Submitfrm1, Submitfrm1.postdelta);'#39'/>'
      '</FORM>'
      '<#FORMS><#SCRIPT>'
      '</BODY>'
      '</HTML>')
    IncludePathURL = '/webmidas/'
    ReconcileGrid.ConflictingColumn.Caption = 'Conflicting Value'
    ReconcileGrid.ConflictingColumn.DisplayWidth = 24
    ReconcileGrid.FieldNameColumn.Caption = 'Field Name'
    ReconcileGrid.FieldNameColumn.DisplayWidth = 18
    ReconcileGrid.ModifiedColumn.Caption = 'Submitted Value'
    ReconcileGrid.ModifiedColumn.DisplayWidth = 24
    ReconcileGrid.OriginalColumn.Caption = 'Original Value'
    ReconcileGrid.OriginalColumn.DisplayWidth = 24
    Left = 240
    Top = 104
    object DataForm2: TDataForm
    end
  end
end

⌨️ 快捷键说明

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