upaymentdetail.dfm

在打沙场用的最简单

inherited frmpaymentdetail: Tfrmpaymentdetail
  Left = 159
  Top = 100
  Width = 702
  Caption = #37319#36141#20184#27454#26126#32454
  PixelsPerInch = 96
  TextHeight = 13
  inherited paneltop: TPanel
    Width = 694
    BevelInner = bvRaised
  end
  inherited Grid: TDBGridEh
    Width = 694
    ReadOnly = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'frefno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21442#32771#32534#21495
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = 'fno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#21333#21495
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = 'fprovider'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20379#24212#21830
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'fpaymenttype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#31867#22411
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'freceipttype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25910#27454#26041#24335
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fdeposituser'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #23384#27454#24080#25143
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fbillno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31080#21495
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fcountpay'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26412#21333#20184#27454#24635#39069
      end
      item
        EditButtons = <>
        FieldName = 'fpurno'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36827#36135#21333#21495
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'fincludetax'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21547#31246#37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'ftax'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31246#29575
      end
      item
        EditButtons = <>
        FieldName = 'falreadypay'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24050#20184#27454#39069
      end
      item
        EditButtons = <>
        FieldName = 'fpay'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26412#27425#20184#27454
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#35828#26126
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fcreauser'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32463#25163#20154
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fcreadate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#26085#26399
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fnotesub'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 150
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSbaseinfofpurno: TWideStringField
      FieldName = 'fpurno'
      Size = 18
    end
    object CDSbaseinfofitemid: TBCDField
      FieldName = 'fitemid'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofincludetax: TBCDField
      FieldName = 'fincludetax'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfoftax: TBCDField
      FieldName = 'ftax'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofalreadypay: TBCDField
      FieldName = 'falreadypay'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofpay: TBCDField
      FieldName = 'fpay'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 30
    end
    object CDSbaseinfofrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSbaseinfofno: TWideStringField
      FieldName = 'fno'
      Size = 18
    end
    object CDSbaseinfofprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSbaseinfofpaymenttype: TWideStringField
      FieldName = 'fpaymenttype'
      Size = 30
    end
    object CDSbaseinfofreceipttype: TWideStringField
      FieldName = 'freceipttype'
      Size = 30
    end
    object CDSbaseinfofdeposituser: TWideStringField
      FieldName = 'fdeposituser'
      Size = 30
    end
    object CDSbaseinfofbillno: TWideStringField
      FieldName = 'fbillno'
    end
    object CDSbaseinfofnotesub: TWideStringField
      FieldName = 'fnotesub'
      Size = 50
    end
    object CDSbaseinfofcountpay: TBCDField
      FieldName = 'fcountpay'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofcreauser: TWideStringField
      FieldName = 'fcreauser'
      Size = 18
    end
    object CDSbaseinfofcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end