inv_otherout_p.dfm

一个MRPII系统源代码版本

        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #21046#21333#20154#65306
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QRShApe4: TQRShApe
        Left = -1
        Top = -22
        Width = 3
        Height = 60
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          158.750000000000000000
          -2.645833333333330000
          -58.208333333333300000
          7.937500000000000000)
        ShApe = qrsVertLine
      end
      object QRShApe5: TQRShApe
        Left = 716
        Top = -22
        Width = 3
        Height = 60
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          158.750000000000000000
          1894.416666666670000000
          -58.208333333333300000
          7.937500000000000000)
        ShApe = qrsVertLine
      end
      object QLtot: TQRLabel
        Left = 622
        Top = 3
        Width = 88
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666700000
          1645.708333333330000000
          7.937500000000000000
          232.833333333333000000)
        Alignment = tArightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QLtot'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QRLabel12: TQRLabel
        Left = 2
        Top = 3
        Width = 31
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666670000
          5.291666666666667000
          7.937500000000000000
          82.020833333333340000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #21512#35745':'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QLBillColorDESC: TQRLabel
        Left = 3
        Top = 66
        Width = 713
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.333333333333300000
          7.937500000000000000
          174.625000000000000000
          1886.479166666670000000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QLBillColorDESC'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QLWH_EmployeeCode: TQRLabel
        Left = 48
        Top = 42
        Width = 103
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666670000
          127.000000000000000000
          111.125000000000000000
          272.520833333333400000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'QLWH_EmployeeCode'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QLEmployeeCode: TQRLabel
        Left = 585
        Top = 42
        Width = 85
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666670000
          1547.812500000000000000
          111.125000000000000000
          224.895833333333300000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'QLEmployeeCode'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QLInvBillRemArk: TQRLabel
        Left = 31
        Top = 23
        Width = 666
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666700000
          82.020833333333300000
          60.854166666666700000
          1762.125000000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QLInvBillRemArk'
        Color = clWhite
        Font.ChArset = ANSI_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
      object QRLabel8: TQRLabel
        Left = 353
        Top = 42
        Width = 49
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.041666666666670000
          933.979166666666600000
          111.125000000000000000
          129.645833333333300000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23457#26680#20154#65306
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
    end
    object TitleBand1: TQRBand
      Left = 38
      Top = 0
      Width = 718
      Height = 31
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      Font.ChArset = GB2312_CHArSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ForceNewColumn = False
      ForceNewPage = False
      ParentFont = False
      Size.Values = (
        82.020833333333340000
        1899.708333333333000000)
      BandType = rbTitle
      object QLSysParamValueC: TQRLabel
        Left = 160
        Top = 9
        Width = 177
        Height = 20
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          52.916666666666660000
          423.333333333333300000
          23.812500000000000000
          468.312500000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'QLSysParamValueC'
        Color = clWhite
        Font.ChArset = GB2312_CHArSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 14
      end
      object QLBillCtrlCode: TQRLabel
        Left = 4
        Top = 9
        Width = 83
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.333333333333340000
          10.583333333333330000
          23.812500000000000000
          219.604166666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'QLBillCtrlCode'
        Color = clWhite
        Font.ChArset = DEFAULT_CHArSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TransParent = False
        WordWrAp = True
        FontSize = 9
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 145
    Top = 240
  end
  object AdoQry_Head: TAdoQuery
    CurSorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ' select B.WHCode,W.WHName,B.WhPositionCode,P.WhPositionName,'
      
        '            B.InvBillTaxRate,B.InvBillNo,B.VendorCode,V.VendorNa' +
        'me,'
      '            B.InvBillDate,B.InvBillId,'
      '            E.EmployeeName,F.EmployeeName as EmployeeName1,'
      '            B.Pono'
      '        from InvInBill B'
      
        '          left join Employee E on B.WH_EmployeeCode=E.EmployeeCo' +
        'de'
      '          left join Employee F on B.EmployeeCode=f.EmployeeCode,'
      '          Warehouse W,WhPosition P,Vendor V'
      '        where  B.WHCode=W.WHCode and'
      '              B.WhPositionCode=P.WhPositionCode and'
      '              B.VendorCode=V.VendorCode '
      ' ')
    Left = 102
    Top = 237
  end
  object AdoQry_Line: TAdoQuery
    CurSorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        '   select top 10   L.InvBillLineno,L.ItemCode,I.ItemName,L.POLin' +
        'eNo,U.UomName,'
      
        '             L.InvBillQty,L.InvBillNoTaxPrice,L.InvBillNoTaxAmou' +
        'nt,'
      
        '             L.InvBillAmount,L.InvBillAmount-InvBillNoTaxAmount ' +
        'as InvBillTot'
      '             from InvOutBillLine L,Item I,Uom U'
      '             where L.ItemCode=I.ItemCode and'
      '             I.UomCode=U.UomCode'
      ''
      ' '
      ' '
      ' ')
    Left = 46
    Top = 235
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Head
    Left = 14
    Top = 86
  end
  object DataSource2: TDataSource
    DataSet = AdoQry_Line
    Left = 302
    Top = 329
  end
end