📄 main.~dfm

📁 Delphi7数据库开发教程,包含该书21套实例
💻 ~DFM
字号:
object WebSnapDemo: TWebSnapDemo
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  AppServices = WebAppComponents
  Left = 293
  Top = 151
  Height = 296
  Width = 215
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 48
    Top = 8
    object AdapterForm1: TAdapterForm
      object AdapterGrid1: TAdapterGrid
        Adapter = DataSetAdapter1
      end
    end
  end
  object WebAppComponents: TWebAppComponents
    PageDispatcher = PageDispatcher
    AdapterDispatcher = AdapterDispatcher
    ApplicationAdapter = ApplicationAdapter
    Left = 48
    Top = 56
  end
  object ApplicationAdapter: TApplicationAdapter
    Left = 48
    Top = 104
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object PageDispatcher: TPageDispatcher
    Left = 48
    Top = 152
  end
  object AdapterDispatcher: TAdapterDispatcher
    Left = 48
    Top = 200
  end
  object DataSetAdapter1: TDataSetAdapter
    DataSet = WDModule.Table1
    Left = 144
    Top = 8
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptOrderNo: TDataSetAdapterField
        DataSetField = 'OrderNo'
      end
      object AdaptCustNo: TDataSetAdapterField
        DataSetField = 'CustNo'
      end
      object AdaptSaleDate: TDataSetAdapterField
        DataSetField = 'SaleDate'
      end
      object AdaptShipDate: TDataSetAdapterField
        DataSetField = 'ShipDate'
      end
      object AdaptEmpNo: TDataSetAdapterField
        DataSetField = 'EmpNo'
      end
      object AdaptShipToContact: TDataSetAdapterField
        DataSetField = 'ShipToContact'
      end
      object AdaptShipToAddr1: TDataSetAdapterField
        DataSetField = 'ShipToAddr1'
      end
      object AdaptShipToAddr2: TDataSetAdapterField
        DataSetField = 'ShipToAddr2'
      end
      object AdaptShipToCity: TDataSetAdapterField
        DataSetField = 'ShipToCity'
      end
      object AdaptShipToState: TDataSetAdapterField
        DataSetField = 'ShipToState'
      end
      object AdaptShipToZip: TDataSetAdapterField
        DataSetField = 'ShipToZip'
      end
      object AdaptShipToCountry: TDataSetAdapterField
        DataSetField = 'ShipToCountry'
      end
      object AdaptShipToPhone: TDataSetAdapterField
        DataSetField = 'ShipToPhone'
      end
      object AdaptShipVIA: TDataSetAdapterField
        DataSetField = 'ShipVIA'
      end
      object AdaptPO: TDataSetAdapterField
        DataSetField = 'PO'
      end
      object AdaptTerms: TDataSetAdapterField
        DataSetField = 'Terms'
      end
      object AdaptPaymentMethod: TDataSetAdapterField
        DataSetField = 'PaymentMethod'
      end
      object AdaptItemsTotal: TDataSetAdapterField
        DataSetField = 'ItemsTotal'
      end
      object AdaptTaxRate: TDataSetAdapterField
        DataSetField = 'TaxRate'
      end
      object AdaptFreight: TDataSetAdapterField
        DataSetField = 'Freight'
      end
      object AdaptAmountPaid: TDataSetAdapterField
        DataSetField = 'AmountPaid'
      end
    end
  end
end
⌨️ 快捷键说明

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