sz_ndfpjh.dfm

省级集邮品管理ERP

          ParentFont = False
        end
        object CB_DW: TComboBoxDB
          Left = 484
          Top = 12
          Width = 149
          Height = 20
          Style = csDropDownList
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 0
          SQL.Strings = (
            'select DWMC,DWDM from TGS_GXDWSJB where ZJXJ='#39'1'#39
            'order by DWDM')
          DatabaseName = 'yzpp'
          Active = False
        end
        object CB_Ppmc: TComboBoxDB
          Left = 128
          Top = 12
          Width = 197
          Height = 20
          Style = csDropDownList
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 1
          SQL.Strings = (
            'select A.TMC||'#39'('#39'||B.MC||'#39')'#39' PPMC, A.JHH'
            'from TF_PFXJHTAO A, TG_YZPPTZDM B'
            'where A.TZDM=B.TZDM(+)'
            'order by A.ND,to_number(A.XH)')
          DatabaseName = 'yzpp'
          Active = False
        end
      end
      object Frmz_ndfpjh: TDBGrid
        Left = 0
        Top = 41
        Width = 790
        Height = 319
        Align = alClient
        Color = clSilver
        DataSource = DS_JJNFPJH
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PopupMenu = data.pm_Export
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'DWMC'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '单位名称'
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JHFPZTS'
            Title.Alignment = taCenter
            Title.Caption = '计划分配总套数'
            Width = 117
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'YDTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '预订套数'
            Width = 109
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'LSTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '零售套数'
            Width = 95
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'NCTS'
            Title.Alignment = taCenter
            Title.Caption = '年册套数'
            Width = 101
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'YPTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '开发邮品'
            Width = 146
            Visible = True
          end>
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 360
        Width = 790
        Height = 91
        Align = alBottom
        Color = clSilver
        DataSource = DS_JJNFPJHTJ
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PopupMenu = data.pm_Export
        TabOrder = 2
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'HJ'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '合           计'
            Width = 163
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JHFPZTS'
            Title.Alignment = taCenter
            Title.Caption = '计划分配总套数'
            Width = 142
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'YDTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '预订套数'
            Width = 125
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'LSTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '零售套数'
            Width = 118
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'NCTS'
            Title.Alignment = taCenter
            Title.Caption = '年册套数'
            Width = 101
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'YPTS'
            ReadOnly = True
            Title.Alignment = taCenter
            Title.Caption = '开发邮品'
            Width = 97
            Visible = True
          end>
      end
    end
  end
  object Qry_JJNFPJHTJ: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select DISTINCT JHH, ND, DWDM, PPMC, ZT, ZBR, PZR, ZDRQ from TY_' +
        'JJNFPJH'
      'WHERE JHH=:JHH')
    Left = 128
    Top = 462
    ParamData = <
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
        Value = '22'
      end>
  end
  object DS_JJNFPJHTJ: TDataSource
    DataSet = Qry_JJNFPJHTJ
    Left = 160
    Top = 462
  end
  object Qry_JJNFPJH: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT A.JHH, A.DWDM,B.DWMC,A.JHFPZTS,A.YDTS,A.LSTS,A.NCTS,A.YPT' +
        'S FROM TY_JJNFPJH A, TGS_GXDWSJB B'
      'WHERE A.DWDM=B.DWDM AND A.JHH=:JHH '
      'UNION'
      
        'Select JHH,'#39'999999'#39','#39'    合计 '#39', SUM(JHFPZTS), SUM(YDTS), SUM(LS' +
        'TS), SUM(NCTS), SUM(YPTS) from TY_JJNFPJH'
      'WHERE JHH=:JHH'
      'GROUP BY JHH'
      'ORDER BY DWDM')
    Left = 240
    Top = 174
    ParamData = <
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
        Value = '22'
      end
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
      end>
  end
  object DS_JJNFPJH: TDataSource
    DataSet = Qry_JJNFPJH
    Left = 272
    Top = 174
  end
end