rkd_cx.dfm

省级集邮品管理ERP

object Frm_RKD_CX: TFrm_RKD_CX
  Left = -47
  Top = 28
  BorderStyle = bsDialog
  Caption = '邮资票品管理信息系统'
  ClientHeight = 523
  ClientWidth = 742
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object RxDBG_rkd: TRxDBGrid
    Left = 0
    Top = 45
    Width = 742
    Height = 438
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = data.pm_Export
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'RKDH'
        Title.Caption = '来源单位/入库单号'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPDM'
        Title.Caption = '票品名称'
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RCKXZMC'
        Title.Caption = '入库性质'
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MZ'
        Title.Caption = '面值(元)'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JJ'
        Title.Caption = '进价(元)'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ'
        Title.Caption = '销价(元)'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SL'
        Title.Caption = '总数/数量'
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZK'
        Title.Caption = '折扣(%)'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJ'
        Title.Caption = '结算价(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJE'
        Title.Caption = '结算金额(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZBR'
        Title.Caption = '制表人'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KDRQ'
        Title.Caption = '制表日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FH'
        Title.Caption = '已复核'
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FHR'
        Title.Caption = '复核人'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DJRQ'
        Title.Caption = '入库日期'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BZ'
        Title.Caption = '备注'
        Width = 82
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 483
    Width = 742
    Height = 40
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object BitBtn2: TBitBtn
      Left = 433
      Top = 7
      Width = 77
      Height = 25
      Caption = '查询(&F)'
      TabOrder = 0
      OnClick = BitBtn2Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
        CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
        CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
        DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
    end
    object BitBtn1: TBitBtn
      Left = 639
      Top = 7
      Width = 77
      Height = 25
      Caption = '返回(&X)'
      TabOrder = 1
      Kind = bkClose
    end
    object BitBtn3: TBitBtn
      Left = 536
      Top = 7
      Width = 77
      Height = 25
      Caption = '打印(&P)'
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 742
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 740
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '集邮入库单查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 26
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 580
      Top = 10
      Width = 153
      Height = 31
      BevelOuter = bvNone
      TabOrder = 0
      object Label2: TLabel
        Left = 0
        Top = 15
        Width = 12
        Height = 12
        Caption = '年'
      end
      object Label3: TLabel
        Left = 80
        Top = 15
        Width = 12
        Height = 12
        Caption = '月'
      end
      object SpinEdit1: TSpinEdit
        Left = 16
        Top = 10
        Width = 57
        Height = 21
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = SpinEdit1Change
      end
      object SpinEdit2: TSpinEdit
        Left = 95
        Top = 10
        Width = 50
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 1
        Value = 12
        OnChange = SpinEdit1Change
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = qry_JYP
    Left = 97
    Top = 69
  end
  object qry_JYP: TRxQuery
    AfterOpen = qry_JYPAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 2 ORD, '#39'  '#39'||J.RKDH RKDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
        ')'#39'||Y.TMC PPDM,'
      '  DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
      '  DECODE(JZY, NULL, '#39'否'#39', '#39'是'#39') FH,'
      '  TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
      '  TO_CHAR(RKRQ,'#39'YYYY-MM-DD'#39') DJRQ,'
      
        '  J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, JSJ/100 JSJ' +
        ', J.BZ,'
      
        '  0 MZ, J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, G.PX' +
        'M, F.ZBR, F.JZY FHR'
      
        '  FROM TKS_JYRKPP J, TB_YZPPTXXB Y, TKS_JYRKD F, TGS_GXDWSJB G, ' +
        'TGS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC RKDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
        'ON6, %CON7,'
      
        '  0 , 0 , 0, SUM(J.SL) SL, 0, 0 JSJ, '#39#39' BZ, 0 MZ, 0 JSJE, G.PXM,' +
        ' '#39#39' ZBR, '#39#39' FHR'
      
        '  FROM TKS_JYRKPP J, TB_YZPPTXXB Y, TKS_JYRKD F, TGS_GXDWSJB G, ' +
        'TGS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      '  GROUP BY PXM,%CON_GRP'
      'ORDER BY PXM, %CON_ORD, 1,2 DESC')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'CON1'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON2'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON3'
        ParamType = ptInput
        Value = #39#39