upurchasedetail.dfm

在打沙场用的最简单

inherited frmpurchasedetail: Tfrmpurchasedetail
  Left = 23
  Top = 92
  Width = 812
  Caption = #37319#36092#26597#35426
  Font.Charset = ANSI_CHARSET
  Font.Name = #32048#26126#39636
  PixelsPerInch = 96
  TextHeight = 11
  inherited paneltop: TPanel
    Width = 804
    Height = 169
    BevelInner = bvRaised
    Font.Charset = ANSI_CHARSET
    Font.Name = #32048#26126#39636
    ParentFont = False
  end
  inherited Grid: TDBGridEh
    Top = 169
    Width = 804
    Height = 219
    Font.Charset = ANSI_CHARSET
    Font.Height = -12
    Font.Name = #32048#26126#39636
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Name = #32048#26126#39636
    ParentFont = False
    ReadOnly = True
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fprovider'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20379#25033#21830
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = 'frefno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37319#36092#32232#34399
      end
      item
        EditButtons = <>
        FieldName = 'fpurno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25209#34399
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29986#21697#20195#30908
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #32048#26126#39636
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29986#21697#21517#31281
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Footers = <>
        Title.Caption = #25903#25976
      end
      item
        EditButtons = <>
        FieldName = 'colorno'
        Footers = <>
        Title.Caption = #33394#34399
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Footers = <>
        Title.Caption = #38991#33394
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Footers = <>
        Title.Caption = #32568#34399
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29986#21697#21934#20301
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #32048#26126#39636
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29986#21697#39006#22411
      end
      item
        EditButtons = <>
        FieldName = 'fpurer'
        Footer.Value = #21512'?'#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36000#36012#20154
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37319#36092#37327
      end
      item
        EditButtons = <>
        FieldName = 'fprice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21934#20215
      end
      item
        EditButtons = <>
        FieldName = 'fpurstore'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20489#24235
      end
      item
        EditButtons = <>
        FieldName = 'fdelivdate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20132#36008#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'fcreadate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37319#36092#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'fcreauser'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21109#24314#20154
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Caption = #20633#27880
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207'?'
        Visible = False
      end>
  end
  inherited ActionList1: TActionList
    Left = 440
    Top = 112
  end
  inherited ToolButtonImages: TImageList
    Left = 577
  end
  inherited CDSbaseinfo: TClientDataSet
    Left = 96
    Top = 128
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSbaseinfofitemid: TIntegerField
      FieldName = 'fitemid'
    end
    object CDSbaseinfofqty: TBCDField
      FieldName = 'fqty'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofprice: TBCDField
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSbaseinfofstoreno: TWideStringField
      FieldName = 'fstoreno'
      Size = 18
    end
    object CDSbaseinfofprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSbaseinfofpurer: TWideStringField
      FieldName = 'fpurer'
    end
    object CDSbaseinfofpurstore: TWideStringField
      FieldName = 'fpurstore'
      Size = 30
    end
    object CDSbaseinfofdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSbaseinfofcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
    object CDSbaseinfofcreauser: TWideStringField
      FieldName = 'fcreauser'
    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
  end
  inherited dsBaseinfo: TDataSource
    Left = 136
    Top = 128
  end
  inherited frBaseinfo: TfrReport
    OnUserFunction = frBaseinfoUserFunction
    ReportForm = {19000000}
  end
  inherited ActionListprint: TActionList
    Left = 168
    Top = 128
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 519
    Top = 107
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'E:\newkcsystem\Client\kc.udl'
    Left = 487
    Top = 107
  end
end