userverproj.dfm

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

inherited frmserverproj: Tfrmserverproj
  Top = 194
  Height = 378
  Caption = #26381#21153#39033#30446
  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 = #39033#30446#32534#21495
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39033#30446#21517#31216
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31181#31867
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
      end
      item
        EditButtons = <>
        FieldName = 'fhowtime'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38047#38271
      end
      item
        EditButtons = <>
        FieldName = 'fprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
      end
      item
        EditButtons = <>
        FieldName = 'fmaterialprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26448#26009#36153
      end
      item
        EditButtons = <>
        FieldName = 'fifhortation'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25552#25104#25353#19994#32489
      end
      item
        EditButtons = <>
        FieldName = 'fm1'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22823#24037
      end
      item
        EditButtons = <>
        FieldName = 'fcall1'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #28857#21517
      end
      item
        EditButtons = <>
        FieldName = 'fm2'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20013#24037
      end
      item
        EditButtons = <>
        FieldName = 'fcall2'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #28857#21517
      end
      item
        EditButtons = <>
        FieldName = 'fm3'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #23567#24037
      end
      item
        EditButtons = <>
        FieldName = 'fcall3'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #28857#21517
      end
      item
        EditButtons = <>
        FieldName = 'fcourtesy'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26159#21542#20248#24800
      end
      item
        EditButtons = <>
        FieldName = 'fscourtesy'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20805#35768#29305#27530#20248#24800
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 180
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 18
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSbaseinfofunit: TWideStringField
      FieldName = 'funit'
      Size = 8
    end
    object CDSbaseinfofhowtime: TIntegerField
      FieldName = 'fhowtime'
    end
    object CDSbaseinfofprice: TBCDField
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofmaterialprice: TBCDField
      FieldName = 'fmaterialprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofifhortation: TBooleanField
      FieldName = 'fifhortation'
    end
    object CDSbaseinfofm1: TBCDField
      FieldName = 'fm1'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofcall1: TBCDField
      FieldName = 'fcall1'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofm2: TBCDField
      FieldName = 'fm2'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofcall2: TBCDField
      FieldName = 'fcall2'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofm3: TBCDField
      FieldName = 'fm3'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofcall3: TBCDField
      FieldName = 'fcall3'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofcourtesy: TBooleanField
      FieldName = 'fcourtesy'
    end
    object CDSbaseinfofscourtesy: TBooleanField
      FieldName = 'fscourtesy'
    end
    object CDSbaseinfoftype: TWideStringField
      FieldName = 'ftype'
      Size = 30
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end