choose_fpd.dfm

省级集邮品管理ERP

inherited frmSJ_chooseJYFPD: TfrmSJ_chooseJYFPD
  Left = 173
  Top = 107
  Caption = '选择集邮分配单'
  ClientHeight = 373
  ClientWidth = 552
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 20
    Top = 108
    Width = 72
    Height = 12
    Caption = '出库计划单号'
  end
  object Label2: TLabel
    Left = 208
    Top = 60
    Width = 48
    Height = 12
    Caption = '分配票品'
  end
  object Label3: TLabel
    Left = 20
    Top = 60
    Width = 48
    Height = 12
    Caption = '出库性质'
  end
  object BitBtn1: TBitBtn
    Left = 371
    Top = 335
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    TabOrder = 4
    OnClick = BitBtn1Click
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 458
    Top = 335
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 5
    NumGlyphs = 2
  end
  object DBL_ckxz: TDBLookupComboBox
    Left = 20
    Top = 74
    Width = 177
    Height = 20
    KeyField = 'RCKXZDM'
    ListField = 'RCKXZMC'
    ListSource = DS_ckxz
    TabOrder = 1
  end
  object CLB_yjdh: TCheckListBox
    Left = 20
    Top = 122
    Width = 177
    Height = 203
    OnClickCheck = CLB_yjdhClickCheck
    ItemHeight = 12
    TabOrder = 2
  end
  object DBGrid1: TDBGrid
    Left = 208
    Top = 74
    Width = 325
    Height = 251
    DataSource = DS_pp
    PopupMenu = data.pm_Export
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'PPMC'
        Title.Caption = '单位/票品'
        Width = 215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FPSL'
        Title.Caption = '数量(套)'
        Width = 71
        Visible = True
      end>
  end
  object RG_yf: TRadioGroup
    Left = 20
    Top = 8
    Width = 177
    Height = 37
    Caption = '发货单月份'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      '本月'
      '下月')
    TabOrder = 0
  end
  object DS_pp: TDataSource
    DataSet = Qry_pp
    Left = 372
    Top = 232
  end
  object Qry_ckxz: TQuery
    AfterScroll = Qry_ckxzAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select RCKXZDM, RCKXZMC from TGS_JRCKXZDM'
      'where RCKXZDM like '#39'1%'#39)
    Left = 117
    Top = 61
  end
  object DS_ckxz: TDataSource
    DataSet = Qry_ckxz
    Left = 145
    Top = 61
  end
  object qry_tmp: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select RCKXZDM, RCKXZMC from TGS_JRCKXZDM'
      'where RCKXZDM like '#39'1%'#39)
    Left = 241
    Top = 13
  end
  object Qry_pp: TRxQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'SELECT 2 ORD, '#39' ('#39'||Y.ZH||'#39')'#39'||J.PPMC PPMC, DWDM,FPSL'
      '  FROM TYS_JYCKJHDPPB J, TB_YZPPTXXB Y '
      '  WHERE J.PPDM = Y.TDM AND J.CKJHDH in (%DH)'
      'UNION ALL'
      'SELECT 1 ORD, DWMC PPMC, DWDM,  0   '
      '  FROM TYS_JYCKJHDPPB J, TB_YZPPTXXB Y  '
      '  WHERE J.PPDM = Y.TDM AND J.CKJHDH in (%DH)'
      '  GROUP BY DWDM, DWMC '
      'ORDER BY DWDM, 1,2')
    Macros = <
      item
        DataType = ftString
        Name = 'DH'
        ParamType = ptInput
        Value = #39#39
      end>
    Left = 344
    Top = 232
    object Qry_ppORD: TFloatField
      FieldName = 'ORD'
    end
    object Qry_ppPPMC: TStringField
      FieldName = 'PPMC'
      Size = 74
    end
    object Qry_ppDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_ppFPSL: TFloatField
      FieldName = 'FPSL'
      DisplayFormat = '#,##'
    end
  end
  object SqlS_pp: TSqlStrings
    jyp_Sql.Strings = (
      'SELECT 2 ORD, '#39' ('#39'||Y.ZH||'#39')'#39'||J.PPMC PPMC, J.DWDM, FPSL, PXM'
      '  FROM TYS_JYCKJHDPPB J, TB_YZPPTXXB Y, TGS_GXDWSJB G'
      '  WHERE J.PPDM = Y.TDM AND J.DWDM=G.DWDM and J.CKJHDH in (%DH)'
      'UNION ALL'
      'SELECT 1 ORD, G.DWJC PPMC, G.DWDM, 0, PXM'
      '  FROM TYS_JYCKJHDPPB J, TB_YZPPTXXB Y, TGS_GXDWSJB G'
      '  WHERE J.PPDM = Y.TDM AND J.DWDM=G.DWDM and J.CKJHDH in (%DH)'
      '  GROUP BY G.DWDM, G.DWJC, PXM'
      'ORDER BY PXM,DWDM,1,2'
      '')
    txp_Sql.Strings = (
      'SELECT 2 ORD, '#39' ('#39'||Y.ZH||'#39')'#39'||J.PPMC PPMC, J.DWDM, FPSL, PXM'
      '  FROM TYS_TXCKJHDPPB J, TB_YZPPXXB Y, TGS_GXDWSJB G '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      'UNION ALL'
      'SELECT 1 ORD, DWJC PPMC, G.DWDM, 0, PXM   '
      '  FROM TYS_TXCKJHDPPB J, TB_YZPPXXB Y, TGS_GXDWSJB G  '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      '  GROUP BY G.DWDM, G.DWJC, PXM '
      'ORDER BY PXM,DWDM,1,2')
    yp_Sql.Strings = (
      'SELECT 2 ORD, '#39' ('#39'||Y.ZH||'#39')'#39'||J.PPMC PPMC, J.DWDM,FPSL, PXM'
      '  FROM TYS_YPCKJHDPPB J, TB_JYPTXXB Y, TGS_GXDWSJB G '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      'UNION ALL'
      'SELECT 1 ORD, G.DWJC PPMC, G.DWDM, 0, PXM   '
      '  FROM TYS_YPCKJHDPPB J, TB_JYPTXXB Y, TGS_GXDWSJB G  '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      '  GROUP BY G.DWDM, G.DWJC, PXM '
      'ORDER BY PXM,DWDM,1,2'
      '')
    grp_Sql.Strings = (
      'SELECT 2 ORD, '#39' ('#39'||Y.ZH||'#39')'#39'||J.PPMC PPMC, J.DWDM,FPSL, PXM'
      '  FROM TYS_GRPCKJHDPPB J, TB_YZPPXXB Y, TGS_GXDWSJB G '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      'UNION ALL'
      'SELECT 1 ORD, G.DWJC PPMC, G.DWDM, 0, PXM   '
      '  FROM TYS_GRPCKJHDPPB J, TB_YZPPXXB Y, TGS_GXDWSJB G  '
      '  WHERE J.PPDM = Y.TDM and J.DWDM=G.DWDM AND J.CKJHDH in (%DH)'
      '  GROUP BY G.DWDM, G.DWJC, PXM '
      'ORDER BY PXM,DWDM,1,2')
    Left = 316
    Top = 232
  end
end