item.dfm

这是一个三层的进销存系统

inherited frmitem: Tfrmitem
  Top = 194
  Height = 378
  Caption = #20135#21697#36164#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 317
  end
  inherited Grid: TDBGridEh
    Height = 317
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#21517#31216
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#22411
      end
      item
        EditButtons = <>
        FieldName = 'fsaleprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'fsalehortation'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#25552#25104
      end
      item
        EditButtons = <>
        FieldName = 'fiffew'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26159#21542#20248#24800
      end
      item
        EditButtons = <>
        FieldName = 'fminstore'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#23567#24211#23384
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 160
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSbaseinfofunit: TWideStringField
      FieldName = 'funit'
      Size = 8
    end
    object CDSbaseinfoftype: TWideStringField
      FieldName = 'ftype'
      Size = 8
    end
    object CDSbaseinfofsaleprice: TBCDField
      FieldName = 'fsaleprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofsalehortation: TBCDField
      FieldName = 'fsalehortation'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofiffew: TBooleanField
      FieldName = 'fiffew'
    end
    object CDSbaseinfofminstore: TBCDField
      FieldName = 'fminstore'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end