upurchasetotal.dfm

在打沙场用的最简单

inherited frmpurchasetotal: Tfrmpurchasetotal
  Left = 50
  Top = 138
  Caption = #37319'?????'
  PixelsPerInch = 96
  TextHeight = 13
  inherited paneltop: TPanel
    BevelInner = bvRaised
  end
  inherited Grid: TDBGridEh
    ReadOnly = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fdesc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25551#36848
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#21697'??'
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#21697#21517'?'
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'frefno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#32771'??'
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'fbillno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#25454'??'
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'fdelivdate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#25454#26085#26399
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'finby'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '???'#35937
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'foutby'
        Footer.Value = #21512'?'#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#21806'?'#35937
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'finqty'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '???'#37327
      end
      item
        EditButtons = <>
        FieldName = 'foutqty'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#21806'?'#37327
      end
      item
        EditButtons = <>
        FieldName = 'finventory'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#23384'?'
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '?'#27880
        Width = 180
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofdesc: TWideStringField
      FieldName = 'fdesc'
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
      Size = 50
    end
    object CDSbaseinfofrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSbaseinfofbillno: TWideStringField
      FieldName = 'fbillno'
      Size = 18
    end
    object CDSbaseinfofdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSbaseinfofinby: TWideStringField
      FieldName = 'finby'
      Size = 30
    end
    object CDSbaseinfofinqty: TBCDField
      FieldName = 'finqty'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofoutby: TWideStringField
      FieldName = 'foutby'
      Size = 30
    end
    object CDSbaseinfofoutqty: TBCDField
      FieldName = 'foutqty'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofinventory: TBCDField
      FieldName = 'finventory'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end