upurreturn.dfm

在打沙场用的最简单

      Visible = False
    end
  end
  inherited panelbutton: TPanel
    Top = 506
    Width = 804
    inherited spbtnadd: TSpeedButton
      Visible = False
    end
    inherited spbtnmodify: TSpeedButton
      Visible = False
    end
    inherited spbtnsave: TSpeedButton
      Visible = False
    end
    inherited spbtncancel: TSpeedButton
      Visible = False
    end
    inherited SpeedButton2: TSpeedButton
      Visible = False
    end
    inherited SpeedButton3: TSpeedButton
      Visible = False
    end
    inherited SpeedButton4: TSpeedButton
      Visible = False
    end
  end
  inherited Grid: TDBGridEh
    Top = 118
    Width = 804
    Height = 388
    ColumnDefValues.Title.TitleButton = True
    FooterColor = clInfoBk
    OnTitleBtnClick = GridTitleBtnClick
    Columns = <
      item
        AlwaysShowEditButton = True
        ButtonStyle = cbsDropDown
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36135#21697#32534#21495
        Width = 130
        OnEditButtonDown = GridColumns3EditButtonDown
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36135#21697#21517#31216
        Width = 149
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#21035
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Footer.FieldName = 'fqty'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21407#26377#24211#23384#37327
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'fjqty'
        Footer.FieldName = 'fjqty'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Caption = #36827#36135#37327
      end
      item
        EditButtons = <>
        FieldName = 'fcqty'
        Footer.FieldName = 'fcqty'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Caption = #20986#36135#37327
      end
      item
        EditButtons = <>
        FieldName = 'syqty'
        Footer.FieldName = 'syqty'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Title.Caption = #21097#20313#37327
      end
      item
        EditButtons = <>
        FieldName = 'pdqty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30424#28857#25968#37327
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'kcqty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24046#24322#25968
      end
      item
        EditButtons = <>
        FieldName = 'ck'
        Footers = <>
        Title.Caption = #27801#22330#21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'years'
        Footers = <>
        Title.Caption = #24180
      end
      item
        EditButtons = <>
        FieldName = 'months'
        Footers = <>
        Title.Caption = #26376
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25903#25976
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32568#34399
        Visible = False
      end>
  end
  inherited ActionList: TActionList
    Left = 408
    Top = 177
  end
  inherited ToolButtonImages: TImageList
    Left = 329
    Top = 178
  end
  inherited CDSmaster: TClientDataSet
    Left = 96
    Top = 216
    object CDSmasterfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSmasterfreturnno: TWideStringField
      FieldName = 'freturnno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfpurer: TWideStringField
      FieldName = 'fpurer'
    end
    object CDSmasterfreturnstore: TWideStringField
      FieldName = 'freturnstore'
      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
  end
  inherited dsMaster: TDataSource
    Left = 56
    Top = 216
  end
  inherited CDSsub: TClientDataSet
    OnCalcFields = CDSsubCalcFields
    Left = 176
    Top = 224
    object CDSsubfcode: TStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSsubfname: TStringField
      FieldName = 'fname'
      Size = 200
    end
    object CDSsubzs: TStringField
      FieldName = 'zs'
      Size = 10
    end
    object CDSsubcolorno: TStringField
      FieldName = 'colorno'
      Size = 15
    end
    object CDSsubcolor: TStringField
      FieldName = 'color'
      Size = 15
    end
    object CDSsubgno: TStringField
      FieldName = 'gno'
      Size = 15
    end
    object CDSsubfunit: TStringField
      FieldName = 'funit'
      Size = 10
    end
    object CDSsubfqty: TFloatField
      FieldName = 'fqty'
    end
    object CDSsubfjqty: TFloatField
      FieldName = 'fjqty'
    end
    object CDSsubfcqty: TFloatField
      FieldName = 'fcqty'
    end
    object CDSsuboldfqty: TFloatField
      FieldName = 'syqty'
    end
    object CDSsubyears: TStringField
      FieldName = 'years'
      Size = 4
    end
    object CDSsubmonths: TStringField
      FieldName = 'months'
      Size = 2
    end
    object CDSsubpno: TWideStringField
      FieldName = 'pno'
      Size = 50
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
      Visible = False
    end
    object CDSsubfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSsubck: TStringField
      FieldName = 'ck'
      Size = 10
    end
    object CDSsubftype: TStringField
      FieldName = 'ftype'
      Visible = False
      Size = 10
    end
  end
  inherited dsSub: TDataSource
    DataSet = ADOQuery1
    Left = 136
    Top = 224
  end
  inherited CDSselectsub: TClientDataSet
    Left = 264
    Top = 232
  end
  inherited frDSMaster: TfrDBDataSet
    Left = 392
    Top = 232
  end
  inherited frDSsub: TfrDBDataSet
    Left = 432
    Top = 232
  end
  inherited frMD: TfrReport
    Dataset = nil
    Left = 352
    Top = 232
    ReportForm = {19000000}
  end
  inherited popupprint: TPopupMenu
    Left = 312
    Top = 232
    object N10: TMenuItem [9]
      Caption = '-'
    end
  end
  inherited ActionListprint: TActionList
    Left = 376
    Top = 176
  end
  object CDSstore: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 216
    Top = 224
    object CDSstoreField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
  object ADOQuery1: TADOQuery
    Connection = Con1
    Parameters = <>
    Left = 440
    Top = 192
  end
  object ADOQuery2: TADOQuery
    Connection = Con1
    Parameters = <>
    Left = 472
    Top = 192
  end
  object ADOQuery3: TADOQuery
    Connection = Con1
    Parameters = <>
    Left = 504
    Top = 192
  end
  object Con1: TADOConnection
    LoginPrompt = False
    Left = 536
    Top = 192
  end
end