📄 unit4.dfm

📁 Delphi网络应用开发的源代码
💻 DFM
字号:
object MasterDetail: TMasterDetail
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  Left = 254
  Top = 107
  Height = 150
  Width = 215
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 48
    Top = 8
    object LayoutGroup1: TLayoutGroup
      DisplayColumns = 2
      object AdapterForm2: TAdapterForm
        object LayoutGroup2: TLayoutGroup
          DisplayColumns = -1
          Custom = 'border="1"'
          object AdapterFieldGroup1: TAdapterFieldGroup
            Custom = 'align="left"'
            Adapter = WebDataModule3.DataSetAdapterOrders
            AdapterMode = 'Edit'
            object FldOrderNo: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'OrderNo'
            end
            object FldCustNo: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'CustNo'
            end
            object FldSaleDate: TAdapterDisplayField
              DisplayWidth = 18
              FieldName = 'SaleDate'
            end
            object FldShipDate: TAdapterDisplayField
              DisplayWidth = 18
              FieldName = 'ShipDate'
            end
            object FldEmpNo: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'EmpNo'
            end
            object FldShipToContact: TAdapterDisplayField
              DisplayWidth = 20
              FieldName = 'ShipToContact'
            end
            object FldShipToAddr1: TAdapterDisplayField
              DisplayWidth = 30
              FieldName = 'ShipToAddr1'
            end
            object FldShipToAddr2: TAdapterDisplayField
              DisplayWidth = 30
              FieldName = 'ShipToAddr2'
            end
            object FldShipToCity: TAdapterDisplayField
              DisplayWidth = 15
              FieldName = 'ShipToCity'
            end
            object FldShipToState: TAdapterDisplayField
              DisplayWidth = 20
              FieldName = 'ShipToState'
            end
            object FldShipToZip: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'ShipToZip'
            end
            object FldShipToCountry: TAdapterDisplayField
              DisplayWidth = 20
              FieldName = 'ShipToCountry'
            end
            object FldShipToPhone: TAdapterDisplayField
              DisplayWidth = 15
              FieldName = 'ShipToPhone'
            end
            object FldShipVIA: TAdapterDisplayField
              DisplayWidth = 7
              FieldName = 'ShipVIA'
            end
            object FldPO: TAdapterDisplayField
              DisplayWidth = 15
              FieldName = 'PO'
            end
            object FldTerms: TAdapterDisplayField
              DisplayWidth = 6
              FieldName = 'Terms'
            end
            object FldPaymentMethod: TAdapterDisplayField
              DisplayWidth = 7
              FieldName = 'PaymentMethod'
            end
            object FldItemsTotal: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'ItemsTotal'
            end
            object FldTaxRate: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'TaxRate'
            end
            object FldFreight: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'Freight'
            end
            object FldAmountPaid: TAdapterDisplayField
              DisplayWidth = 10
              FieldName = 'AmountPaid'
            end
          end
          object AdapterCommandGroup1: TAdapterCommandGroup
            DisplayComponent = AdapterFieldGroup1
            object CmdDeleteRow: TAdapterActionButton
              ActionName = 'DeleteRow'
            end
            object CmdPrevRow: TAdapterActionButton
              ActionName = 'PrevRow'
            end
            object CmdNextRow: TAdapterActionButton
              ActionName = 'NextRow'
            end
            object CmdNewRow: TAdapterActionButton
              ActionName = 'NewRow'
            end
            object CmdRefreshRow: TAdapterActionButton
              ActionName = 'RefreshRow'
            end
            object CmdApply: TAdapterActionButton
              ActionName = 'Apply'
            end
          end
        end
      end
    end
    object AdapterForm1: TAdapterForm
      object AdapterGrid1: TAdapterGrid
        Adapter = WebDataModule3.DataSetAdapterItems
        AdapterMode = 'Edit'
        object AdapterCommandColumn1: TAdapterCommandColumn
          object CmdApply2: TAdapterActionButton
            ActionName = 'Apply'
          end
          object CmdDeleteRow2: TAdapterActionButton
            ActionName = 'DeleteRow'
          end
        end
        object AdapterEditColumn: TAdapterEditColumn
          DisplayWidth = 10
          FieldName = 'ItemNo'
        end
        object AdapterEditColumn2: TAdapterEditColumn
          DisplayWidth = 10
          FieldName = 'PartNo'
        end
        object AdapterEditColumn3: TAdapterEditColumn
          DisplayWidth = 10
          FieldName = 'Qty'
        end
        object AdapterEditColumn4: TAdapterEditColumn
          DisplayWidth = 10
          FieldName = 'Discount'
        end
      end
      object AdapterCommandGroup2: TAdapterCommandGroup
        DisplayComponent = AdapterGrid1
        object CmdNewRow2: TAdapterActionButton
          ActionName = 'NewRow'
        end
      end
    end
  end
end
⌨️ 快捷键说明

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