sj_jshzd.dfm

省级集邮品管理ERP

object frm_JSHZD: Tfrm_JSHZD
  Left = 25
  Top = 25
  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
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RxDBG_mx: TRxDBGrid
    Left = 0
    Top = 296
    Width = 742
    Height = 185
    DataSource = DS_mx
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = data.pm_Export
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DWMC'
        Title.Caption = '单位名称'
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DH1'
        Title.Caption = '出/入库单号'
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPDM'
        Title.Caption = '入出库性质/票品名称'
        Width = 184
        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 = 'ZK'
        Title.Caption = '折扣(%)'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJ'
        Title.Caption = '结算价(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SL'
        Title.Caption = '数量'
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJE'
        Title.Caption = '结算金额(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KDRQ'
        Title.Caption = '已复核/开单日期'
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RCKRQ'
        Title.Caption = '入出库日期'
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zt'
        Title.Caption = '状态'
        Visible = True
      end>
  end
  object RxDBG_hz: TRxDBGrid
    Left = 0
    Top = 90
    Width = 742
    Height = 203
    DataSource = DS_hz
    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 = 'DWJC'
        Title.Caption = '单位名称'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DH'
        Title.Caption = '入/出库单号'
        Width = 143
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RCKXZMC'
        Title.Caption = '入/出库性质'
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJE'
        Title.Caption = '结算金额(元)'
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FH'
        Title.Caption = '已复核'
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KDRQ'
        Title.Caption = '开单日期'
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RCKRQ'
        Title.Caption = '入/出库日期'
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zt'
        Title.Caption = '状态'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 483
    Width = 742
    Height = 40
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 639
      Top = 7
      Width = 77
      Height = 25
      Caption = '关闭(&X)'
      TabOrder = 0
      Kind = bkClose
    end
    object BitBtn3: TBitBtn
      Left = 540
      Top = 7
      Width = 77
      Height = 25
      Caption = '打印(&P)'
      TabOrder = 1
      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 = 27
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object l2: TLabel
      Left = 660
      Top = 20
      Width = 12
      Height = 12
      Caption = '到'
    end
    object Panel3: TPanel
      Left = 457
      Top = 8
      Width = 273
      Height = 31
      BevelOuter = bvNone
      TabOrder = 0
      object l1: TLabel
        Left = 117
        Top = 11
        Width = 102
        Height = 12
        Alignment = taRightJustify
        Caption = '月份从         到'
      end
      object Label2: TLabel
        Left = 20
        Top = 12
        Width = 24
        Height = 12
        Alignment = taRightJustify
        Caption = '年度'
      end
      object SE_nd: TSpinEdit
        Left = 48
        Top = 7
        Width = 57
        Height = 21
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = select
      end
      object SE_frm: TSpinEdit
        Left = 153
        Top = 6
        Width = 45
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 1
        Value = 1
        OnChange = select
      end
      object SE_to: TSpinEdit
        Left = 220
        Top = 6
        Width = 45
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 2
        Value = 1
        OnChange = select
      end
    end
  end
  object Pnl_Condition: TPanel
    Left = 0
    Top = 45
    Width = 742
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 3
    object Label5: TLabel
      Left = 16
      Top = 20
      Width = 48
      Height = 12
      Caption = '往来户：'
    end
    object RGr_Base: TRadioGroup
      Left = 408
      Top = 4
      Width = 185
      Height = 35
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '本单位发出'
        '本单位收到')
      TabOrder = 0
      OnClick = select
    end
    object RG_view: TRadioGroup
      Left = 608
      Top = 4
      Width = 113
      Height = 35
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '单据'
        '明细')
      TabOrder = 1
      OnClick = RG_viewClick
    end
    object DBLCB_dw: TDBLookupComboBox
      Left = 64
      Top = 14
      Width = 229
      Height = 20
      KeyField = 'DWDM'
      ListField = 'DWMC'
      ListSource = DS_dw
      TabOrder = 2
      OnClick = select
    end
    object CB_chked: TCheckBox
      Left = 312
      Top = 16
      Width = 85
      Height = 17
      Caption = '已复核单据'
      TabOrder = 3
      OnClick = select
    end
  end
  object DS_hz: TDataSource
    DataSet = qry_hz
    Left = 90
    Top = 153
  end
  object qry_hz: TRxQuery
    AfterOpen = qry_hzAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 1 ORD, C.RKDH DH, D.DWMC, E.RCKXZMC, sum(A.SL) JSJE, DECO' +
        'DE(C.JZY, NULL, '#39'否'#39', '#39'是'#39') FH, C.KDRQ, C.RKRQ RCKRQ'
      '  FROM TKS_YPRKPP A, TKS_YPRKD C, TGS_GXDWSJB D, TGS_JRCKXZDM E'
      
        '  WHERE A.RKDH = C.RKDH AND C.LYDW = D.DWDM AND C.RKXZ = E.RCKXZ' +
        'DM(+)'
      
        '  Group by 1, C.RKDH, D.DWMC, E.RCKXZMC, DECODE(C.JZY, NULL, '#39'否' +
        #39', '#39'是'#39'), C.KDRQ, C.RKRQ'
      '  ORDER BY 3,2,1'
      '')
    Macros = <>
    Left = 62
    Top = 153
  end
  object SqlS_hzR: TSqlStrings
    jyp_Sql.Strings = (
      'SELECT 1 ORD, F.RKDH DH, G.DWJC, G.PXM, R.RCKXZMC, '
      '  sum(J.SL*(nvl(J.JSJ,0)+J.XJ*nvl(J.ZK,0)/100)/100) JSJE, '
      '  DECODE(F.JZY, NULL, '#39'否'#39', '#39'是'#39') FH, F.KDRQ, F.RKRQ RCKRQ'
      '  FROM TKS_JYRKPP J, TKS_JYRKD F, TGS_GXDWSJB G, TGS_JRCKXZDM R'
      
        '  WHERE J.RKDH = F.RKDH AND F.LYDW = G.DWDM AND F.RKXZ = R.RCKXZ' +
        'DM(+)'
      '    %TJ'
      
        '  Group by 1, F.RKDH, G.DWJC, G.PXM, R.RCKXZMC, DECODE(F.JZY, NU' +
        'LL, '#39'否'#39', '#39'是'#39'), F.KDRQ, F.RKRQ'
      '  ORDER BY 4,2,1')