gl_enter_credence_p.dfm

一个MRPII系统源代码版本

          1389.0625
          129.645833333333
          280.458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'QLbl_CredenceNo'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRShApe2: TQRShApe
        Left = 306
        Top = 28
        Width = 165
        Height = 7
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          18.5208333333333
          809.625
          74.0833333333333
          436.5625)
        ShApe = qrsHorLine
      end
      object QRShApe1: TQRShApe
        Left = 306
        Top = 32
        Width = 165
        Height = 7
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          18.5208333333333
          809.625
          84.6666666666667
          436.5625)
        ShApe = qrsHorLine
      end
      object QRLabel1: TQRLabel
        Left = 328
        Top = 10
        Width = 123
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          867.833333333333
          26.4583333333333
          325.4375)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '记  帐  凭  证'
        Color = clWhite
        Font.ChArset = DEFAULT_CHArSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TransParent = True
        WordWrAp = True
        FontSize = 12
      end
      object QRShApe3: TQRShApe
        Left = 1
        Top = 61
        Width = 747
        Height = 7
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          18.5208333333333
          2.64583333333333
          161.395833333333
          1976.4375)
        ShApe = qrsHorLine
      end
      object QRLabel12: TQRLabel
        Left = 62
        Top = 67
        Width = 34
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          164.041666666667
          177.270833333333
          89.9583333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '摘 要'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRLabel13: TQRLabel
        Left = 319
        Top = 67
        Width = 53
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          844.020833333333
          177.270833333333
          140.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '会计科目'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRLabel14: TQRLabel
        Left = 585
        Top = 67
        Width = 53
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1547.8125
          177.270833333333
          140.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '借方金额'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRLabel15: TQRLabel
        Left = 671
        Top = 67
        Width = 53
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1775.35416666667
          177.270833333333
          140.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '贷方金额'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRShApe4: TQRShApe
        Left = 183
        Top = 65
        Width = 1
        Height = 20
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          52.9166666666667
          484.1875
          171.979166666667
          2.64583333333333)
        ShApe = qrsVertLine
      end
      object QRShApe5: TQRShApe
        Left = 563
        Top = 65
        Width = 1
        Height = 20
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          52.9166666666667
          1489.60416666667
          171.979166666667
          2.64583333333333)
        ShApe = qrsVertLine
      end
      object QRShApe6: TQRShApe
        Left = 654
        Top = 65
        Width = 1
        Height = 20
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          52.9166666666667
          1730.375
          171.979166666667
          2.64583333333333)
        ShApe = qrsVertLine
      end
      object QRLabel2: TQRLabel
        Left = 3
        Top = 49
        Width = 66
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          7.9375
          129.645833333333
          174.625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '核算单位：'
        Color = clWhite
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
    end
    object DetailBand: TQRBand
      Left = 38
      Top = 124
      Width = 750
      Height = 21
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AfterPrint = DetailBandAfterPrint
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        55.5625
        1984.375)
      BandType = rbDetail
      object QRShApe8: TQRShApe
        Left = 183
        Top = -1
        Width = 1
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          55.5625
          484.1875
          -2.64583333333333
          2.64583333333333)
        ShApe = qrsVertLine
      end
      object QRShApe10: TQRShApe
        Left = 654
        Top = -1
        Width = 1
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          55.5625
          1730.375
          -2.64583333333333
          2.64583333333333)
        ShApe = qrsVertLine
      end
      object QRDBText1: TQRDBText
        Left = 5
        Top = 4
        Width = 177
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          13.2291666666667
          10.5833333333333
          468.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = True
        Color = clWhite
        DataSet = AdoQry_Tmp
        DataField = 'DocketName'
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRDBText2: TQRDBText
        Left = 186
        Top = 4
        Width = 374
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          492.125
          10.5833333333333
          989.541666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = True
        Color = clWhite
        DataSet = AdoQry_Tmp
        DataField = 'KMFlag'
        TransParent = False
        WordWrAp = True
        FontSize = 10
      end
      object QRDBText3: TQRDBText
        Left = 570
        Top = 4
        Width = 78
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1508.125
          10.5833333333333
          206.375)
        Alignment = tArightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = True
        Color = clWhite
        DataSet = AdoQry_Tmp
        DataField = 'DebitAmount'
        OnPrint = QRDBText3Print
        TransParent = True
        WordWrAp = True
        FontSize = 10
      end
      object QRDBText4: TQRDBText
        Left = 657
        Top = 4
        Width = 85
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1738.3125
          10.5833333333333
          224.895833333333)
        Alignment = tArightJustify