ufz.dfm

在打沙场用的最简单

      end
      item
        EditButtons = <>
        FieldName = 'colorno'
        Footers = <>
        Title.Caption = #33394#34399
        Width = 44
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Footers = <>
        Title.Caption = #38991#33394
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Footers = <>
        Title.Caption = #32568#34399
        Width = 46
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footer.Value = #21512'?'#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21934#20301
      end
      item
        DisplayFormat = '###,###.##'
        EditButtons = <>
        FieldName = 'fqty'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #37325#37327'('#30917')'
        Width = 55
      end
      item
        EditButtons = <>
        FieldName = 'total'
        Footers = <>
        ReadOnly = True
        Title.Caption = #21512#35336'('#20214')'
      end
      item
        EditButtons = <>
        FieldName = 'per1'
        Footers = <>
        Title.Caption = #27604#29575'%'
        Width = 38
      end
      item
        EditButtons = <>
        FieldName = 'sw1'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's1'
        Footers = <>
        Width = 32
      end
      item
        EditButtons = <>
        FieldName = 'sw2'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's2'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw3'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's3'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw4'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        DisplayFormat = '###,###.##'
        EditButtons = <>
        FieldName = 's4'
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        EditButtons = <>
        FieldName = 'sw5'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's5'
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        EditButtons = <>
        FieldName = 'sw6'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's6'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw7'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's7'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw8'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's8'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw9'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's9'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw10'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's10'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw11'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's11'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sw12'
        Footers = <>
        Title.Caption = #30908#37325'('#23433#22763')'
      end
      item
        EditButtons = <>
        FieldName = 's12'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Caption = #20633#35387
      end
      item
        DisplayFormat = '###,###.##'
        EditButtons = <>
        FieldName = 'famount'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #32317#20215
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'pm'
        Footers = <>
        Title.Caption = #30908#37325
        Visible = False
        Width = 49
      end
      item
        EditButtons = <>
        FieldName = 'unitqty'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end>
  end
  inherited ActionList: TActionList
    Left = 296
  end
  inherited ToolButtonImages: TImageList
    Left = 257
  end
  inherited CDSmaster: TClientDataSet
    Left = 296
    Top = 232
    object CDSmasterfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSmasterfpurno: TWideStringField
      FieldName = 'fpurno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfpurer: TWideStringField
      FieldName = 'fpurer'
    end
    object CDSmasterfpurstore: TWideStringField
      FieldName = 'fpurstore'
      Size = 30
    end
    object CDSmasterfdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSmasterfnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSmasterfcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
    object CDSmasterfcreauser: TWideStringField
      FieldName = 'fcreauser'
    end
    object CDSmasterpno: TStringField
      FieldName = 'pno'
    end
    object CDSmasterfprice: TFloatField
      FieldName = 'fprice'
    end
    object CDSmasters2: TWideStringField
      FieldName = 's2'
    end
    object CDSmasters3: TWideStringField
      FieldName = 's3'
    end
    object CDSmasters4: TWideStringField
      FieldName = 's4'
    end
    object CDSmasters5: TWideStringField
      FieldName = 's5'
    end
    object CDSmasters6: TWideStringField
      FieldName = 's6'
    end
    object CDSmasters7: TWideStringField
      FieldName = 's7'
    end
    object CDSmasters8: TWideStringField
      FieldName = 's8'
    end
    object CDSmasters9: TWideStringField
      FieldName = 's9'
    end
    object CDSmasters10: TWideStringField
      FieldName = 's10'
    end
    object CDSmasters12: TWideStringField
      FieldName = 's12'
    end
    object CDSmasters11: TWideStringField
      FieldName = 's11'
    end
    object CDSmasterss1: TWideStringField
      FieldName = 'ss1'
    end
    object CDSmasterfkh: TStringField
      FieldName = 'fkh'
      Size = 50
    end
    object CDSmasterfks: TStringField
      FieldName = 'fks'
      Size = 50
    end
    object CDSmasterfgx: TStringField
      FieldName = 'fgx'
      Size = 50
    end
    object CDSmasterfmz: TFloatField
      FieldName = 'fmz'
    end
  end
  inherited dsMaster: TDataSource
    Left = 496
    Top = 216
  end
  inherited CDSsub: TClientDataSet
    AfterInsert = CDSsubAfterInsert
    BeforePost = CDSsubBeforePost
    OnCalcFields = CDSsubCalcFields
    Left = 168
    Top = 224
    object CDSsubsz: TStringField
      FieldName = 'sz'
      Size = 2
    end
    object CDSsubpm: TFloatField
      FieldName = 'pm'
    end
    object CDSsubqtyunit: TFloatField
      FieldName = 'qtyunit'
    end
    object CDSsubfqty: TFloatField
      FieldName = 'fqty'
    end
    object CDSsubtotal: TFloatField
      FieldName = 'total'
    end
    object CDSsubper1: TFloatField
      FieldName = 'per1'
    end
    object CDSsubs1: TFloatField
      FieldName = 's1'
    end
    object CDSsubs2: TFloatField
      FieldName = 's2'
    end
    object CDSsubs3: TFloatField
      FieldName = 's3'
    end
    object CDSsubs4: TFloatField
      FieldName = 's4'
    end
    object CDSsubs5: TFloatField
      FieldName = 's5'
    end
    object CDSsubs6: TFloatField
      FieldName = 's6'
    end
    object CDSsubs7: TFloatField
      FieldName = 's7'
    end
    object CDSsubs8: TFloatField
      FieldName = 's8'
    end
    object CDSsubs9: TFloatField
      FieldName = 's9'
    end
    object CDSsubs10: TFloatField
      FieldName = 's10'
    end
    object CDSsubs11: TFloatField
      FieldName = 's11'
    end
    object CDSsubs12: TFloatField
      FieldName = 's12'
    end
    object CDSsubfprice: TBCDField
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSsubfamount: TFloatField
      FieldKind = fkCalculated
      FieldName = 'famount'
      Calculated = True
    end
    object CDSsubfid: TIntegerField
      FieldName = 'fid'
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSsubfitemid: TIntegerField
      FieldName = 'fitemid'
    end
    object CDSsubfnote: TStringField
      FieldName = 'fnote'
      Size = 30
    end
    object CDSsubfcode: TStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSsubfname: TStringField
      FieldName = 'fname'
      Size = 200
    end
    object CDSsubfunit: TStringField
      FieldName = 'funit'
      Size = 10
    end
    object CDSsubftype: TStringField
      FieldName = 'ftype'
      Size = 10
    end
    object CDSsubcolorno: TStringField
      FieldName = 'colorno'
      Size = 15
    end
    object CDSsubgno: TStringField
      FieldName = 'gno'
      Size = 15
    end
    object CDSsubzs: TStringField
      FieldName = 'zs'
      Size = 10
    end
    object CDSsubcolor: TStringField
      FieldName = 'color'
      Size = 15
    end
    object CDSsubsw1: TFloatField
      FieldName = 'sw1'
    end
    object CDSsubsw2: TFloatField
      FieldName = 'sw2'
    end
    object CDSsubsw3: TFloatField
      FieldName = 'sw3'
    end
    object CDSsubsw4: TFloatField
      FieldName = 'sw4'
    end
    object CDSsubsw5: TFloatField
      FieldName = 'sw5'
    end
    object CDSsubsw6: TFloatField
      FieldName = 'sw6'
    end
    object CDSsubsw7: TFloatField
      FieldName = 'sw7'
    end
    object CDSsubsw8: TFloatField
      FieldName = 'sw8'
    end
    object CDSsubsw9: TFloatField
      FieldName = 'sw9'
    end
    object CDSsubsw10: TFloatField
      FieldName = 'sw10'
    end
    object CDSsubsw11: TFloatField
      FieldName = 'sw11'
    end
    object CDSsubsw12: TFloatField
      FieldName = 'sw12'
    end
    object CDSsuboldfqty: TFloatField
      FieldName = 'oldfqty'
    end
  end
  inherited dsSub: TDataSource
    Left = 256
    Top = 232
  end
  object CDSstore: TClientDataSet [11]
    Aggregates = <>
    Params = <>
    Left = 208
    Top = 224
    object CDSstoreField: TStringField
      DisplayWidth = 20
      FieldName = #36984#38917
    end
  end
  inherited frDSMaster: TfrDBDataSet
    Left = 440
    Top = 224
  end
  inherited frDSsub: TfrDBDataSet
    Left = 480
    Top = 224
  end
  inherited frMD: TfrReport
    Left = 376
    Top = 224
    ReportForm = {19000000}
  end
  inherited popupprint: TPopupMenu
    Left = 336
    Top = 232
    object p071: TMenuItem
      Action = p07
      Caption = #30332#32340#38936#27611#21934
    end
  end
  inherited ActionListprint: TActionList
    Left = 568
    Top = 224
    object p07: TAction
      Caption = 'p07'
      OnExecute = p07Execute
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 392
    Top = 192
  end
  object con1: TADOConnection
    LoginPrompt = False
    Left = 536
    Top = 240
  end
  object ADOQuery1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 536
    Top = 200
  end
  object ADOQuery2: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 592
    Top = 192
  end
  object ADOQuery3: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 640
    Top = 200
  end
  object Query1: TQuery
    DatabaseName = 'leaders'
    Left = 504
    Top = 272
  end
  object Query2: TQuery
    DatabaseName = 'leaders'
    Left = 552
    Top = 280
  end
end