ufz.dfm

在打沙场用的最简单

    end
    object wwDBEdit21: TwwDBEdit
      Left = 459
      Top = 78
      Width = 121
      Height = 20
      DataField = 'fqty'
      DataSource = dsMaster
      TabOrder = 24
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited Grid: TDBGridEh
    Top = 164
    Height = 194
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sz'
        Footers = <>
        Title.Caption = #33394#32068
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Caption = #25104#20998
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Footers = <>
        Title.Caption = #38991#33394
      end
      item
        EditButtons = <>
        FieldName = 'colorno'
        Footers = <>
        Title.Caption = #25903#25976
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Footers = <>
        Title.Caption = #33394#34399
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Footers = <>
        Title.Caption = #32568#34399
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Footers = <>
        Title.Caption = #37325#37327
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'total'
        Footers = <>
        Title.Caption = #21512#35336
      end
      item
        EditButtons = <>
        FieldName = 'per1'
        Footers = <>
        Title.Caption = #27604#20363'%'
      end
      item
        EditButtons = <>
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 's1'
        Footers = <>
        Width = 34
      end
      item
        EditButtons = <>
        FieldName = 's2'
        Footers = <>
        Width = 46
      end
      item
        EditButtons = <>
        FieldName = 's3'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's4'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's5'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's6'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's7'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's8'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's9'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's10'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's11'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 's12'
        Footers = <>
      end>
  end
  inherited ActionList: TActionList
    Top = 177
  end
  inherited ToolButtonImages: TImageList
    Left = 185
    Top = 210
  end
  inherited CDSmaster: TClientDataSet
    Left = 280
    Top = 176
    object CDSmasterfid: TIntegerField
      FieldName = 'fid'
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
    end
    object CDSmasterfpurno: TWideStringField
      FieldName = 'fpurno'
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
    end
    object CDSmasterfpurer: TWideStringField
      FieldName = 'fpurer'
    end
    object CDSmasterfpurstore: TWideStringField
      FieldName = 'fpurstore'
    end
    object CDSmasterfdelivdate: TDateField
      FieldName = 'fdelivdate'
    end
    object CDSmasterfnote: TWideStringField
      FieldName = 'fnote'
    end
    object CDSmasterfcreadate: TDateField
      FieldName = 'fcreadate'
    end
    object CDSmasterfcreauser: TWideStringField
      FieldName = 'fcreauser'
    end
    object CDSmasterpno: TStringField
      FieldName = 'pno'
    end
    object CDSmasters1: TWideStringField
      FieldName = 's1'
      Size = 5
    end
    object CDSmasters2: TWideStringField
      FieldName = 's2'
      Size = 0
    end
    object CDSmasters3: TWideStringField
      FieldName = 's3'
      Size = 0
    end
    object CDSmasters4: TWideStringField
      FieldName = 's4'
      Size = 0
    end
    object CDSmasters5: TWideStringField
      FieldName = 's5'
      Size = 0
    end
    object CDSmasters6: TWideStringField
      FieldName = 's6'
      Size = 0
    end
    object CDSmasters7: TWideStringField
      FieldName = 's7'
      Size = 0
    end
    object CDSmasters8: TWideStringField
      FieldName = 's8'
      Size = 0
    end
    object CDSmasters9: TWideStringField
      FieldName = 's9'
      Size = 0
    end
    object CDSmasters10: TWideStringField
      FieldName = 's10'
      Size = 0
    end
    object CDSmasters11: TWideStringField
      FieldName = 's11'
      Size = 0
    end
    object CDSmasters12: TWideStringField
      FieldName = 's12'
      Size = 0
    end
    object CDSmasterfqty: TFloatField
      FieldName = 'fqty'
    end
    object CDSmasterfavgh: TFloatField
      FieldName = 'favgh'
    end
    object CDSmasterfkh: TStringField
      FieldName = 'fkh'
    end
    object CDSmasterfks: TStringField
      FieldName = 'fks'
    end
    object CDSmasterfgx: TStringField
      FieldName = 'fgx'
    end
  end
  inherited dsMaster: TDataSource
    Top = 176
  end
  inherited CDSsub: TClientDataSet
    Left = 128
    Top = 176
    object CDSsubfcode: TWideStringField
      FieldName = 'fcode'
    end
    object CDSsubfname: TWideStringField
      FieldName = 'fname'
    end
    object CDSsubfunit: TWideStringField
      FieldName = 'funit'
    end
    object CDSsubzs: TStringField
      FieldName = 'zs'
    end
    object CDSsubcolorno: TStringField
      FieldName = 'colorno'
      Visible = False
    end
    object CDSsubcolor: TStringField
      FieldName = 'color'
    end
    object CDSsubgno: TStringField
      FieldName = 'gno'
    end
    object CDSsubsz: TStringField
      FieldName = 'sz'
    end
    object CDSsubtotal: TFloatField
      FieldName = 'total'
    end
    object CDSsubper1: TFloatField
      FieldName = 'per1'
    end
    object CDSsubs1: TWideStringField
      FieldName = 's1'
      Size = 0
    end
    object CDSsubs2: TWideStringField
      FieldName = 's2'
      Size = 0
    end
    object CDSsubs3: TWideStringField
      FieldName = 's3'
    end
    object CDSsubs4: TWideStringField
      FieldName = 's4'
    end
    object CDSsubs5: TWideStringField
      FieldName = 's5'
    end
    object CDSsubs6: TWideStringField
      FieldName = 's6'
    end
    object CDSsubs7: TWideStringField
      FieldName = 's7'
    end
    object CDSsubs8: TWideStringField
      FieldName = 's8'
    end
    object CDSsubs9: TWideStringField
      FieldName = 's9'
    end
    object CDSsubs10: TWideStringField
      FieldName = 's10'
    end
    object CDSsubs11: TWideStringField
      FieldName = 's11'
    end
    object CDSsubs12: TWideStringField
      FieldName = 's12'
    end
    object CDSsubfqty: TFloatField
      FieldName = 'fqty'
    end
    object CDSsubfid: TIntegerField
      FieldName = 'fid'
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSsubfitemid: TIntegerField
      FieldName = 'fitemid'
    end
  end
  inherited dsSub: TDataSource
    Top = 176
  end
  inherited CDSselectsub: TClientDataSet
    Left = 480
    Top = 184
  end
  inherited frDSMaster: TfrDBDataSet
    Left = 384
    Top = 176
  end
  inherited frDSsub: TfrDBDataSet
    Left = 416
    Top = 176
  end
  inherited frMD: TfrReport
    Left = 352
    Top = 176
    ReportForm = {19000000}
  end
  inherited popupprint: TPopupMenu
    Left = 320
    Top = 176
  end
  inherited ActionListprint: TActionList
    Left = 448
    Top = 176
  end
end