sy_jyspnxstjb.dfm

省级集邮品管理ERP

      Height = 31
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemIndex = 1
      Items.Strings = (
        '本级'
        '下级')
      ParentFont = False
      TabOrder = 0
      OnClick = RG_JBClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 533
    Width = 790
    Height = 38
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object BBt_Quit: TBitBtn
      Left = 696
      Top = 6
      Width = 75
      Height = 25
      Cancel = True
      Caption = '返回(&X)'
      ModalResult = 3
      TabOrder = 4
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object BBt_Find: TBitBtn
      Left = 410
      Top = 6
      Width = 75
      Height = 25
      Caption = '查询(&F)'
      TabOrder = 2
      OnClick = BBt_FindClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000
        FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF00
        00FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF00FFFF
        00FFFF00FFFF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFF
        FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF00
        00FF0000FF0000FF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
        00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
        FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF0000FF0000FF00
        00FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF0000FF00FFFF
        0000FF0000FFFFFFFF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
        FFFFFFFF0000FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF00
        00FF0000FF0000FF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF
        0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FF
        FF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF00
        00FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF
        00FFFF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF0000FF00FFFF
        00FFFF00FFFF0000FFFFFFFF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BBt_Print: TBitBtn
      Left = 505
      Top = 6
      Width = 75
      Height = 25
      Caption = '打印(&P)'
      TabOrder = 3
      OnClick = BBt_PrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object btn_dj: TBitBtn
      Left = 296
      Top = 6
      Width = 95
      Height = 25
      Caption = '登记收入(E)'
      TabOrder = 1
      OnClick = btn_djClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object Bbt_Send: TBitBtn
      Left = 601
      Top = 6
      Width = 75
      Height = 25
      Hint = '修改'
      Caption = '发送(&T)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = False
      OnClick = Bbt_SendClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
    end
  end
  object Pnl_Condition: TPanel
    Left = 0
    Top = 53
    Width = 790
    Height = 44
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object lbl_ND: TLabel
      Left = 295
      Top = 20
      Width = 36
      Height = 12
      Caption = '年度：'
    end
    object lbl_YF: TLabel
      Left = 391
      Top = 20
      Width = 36
      Height = 12
      Caption = '月份：'
    end
    object Label1: TLabel
      Left = 703
      Top = 21
      Width = 60
      Height = 12
      Caption = '单位：万元'
    end
    object RGr_Method: TRadioGroup
      Left = 14
      Top = 6
      Width = 123
      Height = 31
      Caption = '统计方式'
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        '年'
        '月')
      TabOrder = 0
      OnClick = RGr_MethodClick
    end
    object SED_Year: TSpinEdit
      Left = 337
      Top = 16
      Width = 46
      Height = 21
      MaxValue = 2050
      MinValue = 1990
      TabOrder = 1
      Value = 1990
      OnChange = SED_YearChange
    end
    object SED_Month: TSpinEdit
      Left = 433
      Top = 16
      Width = 37
      Height = 21
      MaxValue = 12
      MinValue = 1
      TabOrder = 2
      Value = 1
      OnChange = SED_MonthChange
    end
  end
  object Qry_Search: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        ' Select B.DWDM ,B.DWMC ,NVL(A.JYPSR/10000,0) JYPSR,NVL(A.YPSR/10' +
        '000,0) YPSR,'
      
        ' NVL(A.QTSR/10000,0) QTSR,NVL(A.ML/10000,0)ML,NVL(A.HJ/10000,0) ' +
        'HJ ,B.JYPSR/10000 JYPSRHJ,'
      
        ' B.YPSR/10000 YPSRHJ,B.QTSR/10000 QTSRHJ,B.ML/10000 MLHJ,B.HJ/10' +
        '000 HJHJ'
      
        '  from  (Select B.DWDM,B.DWMC,sum(A.JYPSR) JYPSR ,sum(A.YPSR) YP' +
        'SR ,'
      '  sum(A.QTSR) QTSR,sum(A.ML) ML,sum(A.JYPSR+A.YPSR+A.QTSR) HJ'
      '  from TYS_JYYWSRTJB A,TO_GXDWSJB B WHERE A.DWDM=B.DWDM'
      '   GROUP BY B.DWDM,B.DWMC'
      
        '   UNION Select '#39'99999999'#39','#39'合计'#39',SUM(JYPSR),SUM(YPSR),SUM(QTSR)' +
        ',SUM(ML),SUM(HJ)'
      
        '   FROM (Select A.ND,A.YF,B.DWMC,A.JYPSR,A.YPSR,A.QTSR,A.ML,A.JY' +
        'PSR+A.YPSR+A.QTSR HJ'
      '   from TYS_JYYWSRTJB A,TO_GXDWSJB B'
      '   WHERE A.DWDM=B.DWDM )) A ,'
      '   (Select DWDM ,DWMC ,JYPSR ,YPSR ,QTSR ,ML ,HJ from'
      
        '   (Select B.DWDM,B.DWMC,sum(A.JYPSR) JYPSR ,sum(A.YPSR) YPSR ,s' +
        'um(A.QTSR) QTSR,'
      
        '   sum(A.ML) ML,sum(A.JYPSR+A.YPSR+A.QTSR) HJ from TYS_JYYWSRTJB' +
        ' A,TO_GXDWSJB B'
      '   WHERE A.DWDM=B.DWDM GROUP BY B.DWDM,B.DWMC'
      '   UNION Select '#39'99999999'#39','#39'合计'#39','
      '  SUM(JYPSR),SUM(YPSR),SUM(QTSR),'
      ' SUM(ML),SUM(HJ) FROM'
      ' (Select A.ND,A.YF,B.DWMC,A.JYPSR,A.YPSR,A.QTSR,'
      ' A.ML,A.JYPSR+A.YPSR+A.QTSR HJ'
      ' from TYS_JYYWSRTJB A,TO_GXDWSJB B WHERE A.DWDM=B.DWDM'
      ' ))) B  WHERE A.DWDM(+)=B.DWDM'
      ' ')
    UpdateObject = UpdateSQL1
    Left = 392
    Top = 200
    object Qry_SearchDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_SearchDWMC: TStringField
      FieldName = 'DWMC'
      Size = 40
    end
    object Qry_SearchJYPSR: TFloatField
      FieldName = 'JYPSR'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchYPSR: TFloatField
      FieldName = 'YPSR'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchQTSR: TFloatField
      FieldName = 'QTSR'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchML: TFloatField
      FieldName = 'ML'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchHJ: TFloatField
      FieldName = 'HJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchJYPSRHJ: TFloatField
      FieldName = 'JYPSRHJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchYPSRHJ: TFloatField
      FieldName = 'YPSRHJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchQTSRHJ: TFloatField
      FieldName = 'QTSRHJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchMLHJ: TFloatField
      FieldName = 'MLHJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
    object Qry_SearchHJHJ: TFloatField
      FieldName = 'HJHJ'
      OnGetText = Qry_SearchJYPSRGetText
    end
  end
  object Dso_Search: TDataSource
    DataSet = Qry_Search
    Left = 424
    Top = 200
  end
  object Qry_Any: TQuery
    DatabaseName = 'yzpp'
    Left = 496
    Top = 200
  end
  object UpdateSQL1: TUpdateSQL
    Left = 360
    Top = 200
  end
end