sj_ywkccx.dfm

省级集邮品管理ERP

      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 = 19
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object dbgEh_KC: TDBGridEh
    Left = 0
    Top = 153
    Width = 694
    Height = 320
    LineColor = clBlack
    SelectedFontColor = clHighlightText
    Align = alBottom
    DataSource = DS_kc
    PopupMenu = data.pm_Export
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    FooterRowCount = 1
    FrozenCols = 4
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = '宋体'
    FooterFont.Style = []
    FooterColor = clWindow
    SumList.Active = True
    OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection]
    OnGetFooterParams = dbgEh_KCGetFooterParams
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = '￥'
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = '楷体_GB2312'
    CurrencyStyle.HeadFont.Style = []
    Columns = <
      item
        Color = clBtnFace
        FieldName = 'ZH'
        Title.Alignment = taCenter
        Title.Caption = '志号'
        Width = 73
        Footer.Color = clBtnFace
        Footer.ValueType = fvtStaticText
        Footer.Value = '合计'
        Footers = <>
      end
      item
        Color = clBtnFace
        FieldName = 'TMC'
        Title.Alignment = taCenter
        Title.Caption = '票品名称'
        Width = 119
        Footer.Color = clBtnFace
        Footer.ValueType = fvtCount
        Footers = <>
      end
      item
        Color = clBtnFace
        FieldName = 'KFMC'
        Title.Alignment = taCenter
        Title.Caption = '库房名称'
        Width = 125
        Footer.Color = clBtnFace
        Footers = <>
      end
      item
        Color = clBtnFace
        FieldName = 'JJ'
        Title.Alignment = taCenter
        Title.Caption = '进价'
        Width = 62
        Footer.Color = clBtnFace
        Footers = <>
      end
      item
        FieldName = 'TS'
        Title.Alignment = taCenter
        Title.Caption = '数量'
        Footer.Color = clWhite
        Footer.ValueType = fvtSum
        Footer.FieldName = 'TS'
        Footers = <>
      end
      item
        FieldName = 'MZ'
        Title.Alignment = taCenter
        Title.Caption = '面值'
        Footer.Color = clWhite
        Footers = <>
      end
      item
        FieldName = 'KCHSJ'
        Title.Alignment = taCenter
        Title.Caption = '库存核算价'
        Footer.Color = clWhite
        Footers = <>
      end
      item
        FieldName = 'XJ'
        Title.Alignment = taCenter
        Title.Caption = '销价'
        Footer.Color = clWhite
        Footers = <>
      end
      item
        FieldName = 'JJJE'
        Title.Alignment = taCenter
        Title.Caption = '进价金额'
        Footer.Color = clWhite
        Footer.ValueType = fvtSum
        Footer.FieldName = 'JJJE'
        Footers = <>
      end
      item
        FieldName = 'MZJE'
        Title.Alignment = taCenter
        Title.Caption = '面值金额'
        Footer.Color = clWhite
        Footer.ValueType = fvtSum
        Footer.FieldName = 'MZJE'
        Footers = <>
      end
      item
        FieldName = 'KCHSJJE'
        Title.Alignment = taCenter
        Title.Caption = '库存核算价金额'
        Width = 92
        Footer.Color = clWhite
        Footer.ValueType = fvtSum
        Footer.FieldName = 'KCHSJJE'
        Footers = <>
      end
      item
        FieldName = 'SJJE'
        Title.Alignment = taCenter
        Title.Caption = '销价金额'
        Footer.Color = clWhite
        Footer.ValueType = fvtSum
        Footer.FieldName = 'SJJE'
        Footers = <>
      end
      item
        FieldName = 'ZK'
        Title.Alignment = taCenter
        Title.Caption = '折扣'
        Footer.Color = clWhite
        Footers = <>
      end
      item
        FieldName = 'JSJ'
        Title.Alignment = taCenter
        Title.Caption = '结算价'
        Footer.Color = clWhite
        Footers = <>
      end
      item
        FieldName = 'KWH'
        Title.Alignment = taCenter
        Title.Caption = '库位'
        Width = 68
        Footer.Color = clWhite
        Footers = <>
      end>
  end
  object ActionList1: TActionList
    Left = 456
    Top = 175
    object Act_sel: TAction
      Caption = '查询'
      ImageIndex = 20
      OnExecute = Act_selExecute
    end
    object Act_rtn: TAction
      Caption = '返回'
      ImageIndex = 15
      OnExecute = Act_rtnExecute
    end
  end
  object DS_kc: TDataSource
    DataSet = RxQry_KC
    Left = 113
    Top = 218
  end
  object RxQry_KC: TRxQuery
    AfterOpen = RxQry_KCAfterOpen
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        ' select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC, c.TMC, c.ZH, a.JJ,' +
        ' a.XJ, a.ZK, a.JSJ,'
      
        ' c.TPMZ MZ, nvl(e.KCHSJ,0) KCHSJ ,a.JJ*a.TS JJJE, c.TPMZ*a.TS MZ' +
        'JE, nvl(e.KCHSJ,0)*a.TS KCHSJJE,a.XJ*a.TS SJJE '
      
        ' from TYS_JYPPKC a, TGS_KFB b, TB_YZPPXXB c, TGS_KFRYDZB d, TG_G' +
        'JPPJGB e '
      
        ' where a.PPDM=e.PPDM(+) and a.KFDM = b.KFDM and a.PPDM = c.TDM a' +
        'nd a.KFDM = d.KFDM '
      ' order by c.zh,a.kfdm')
    Macros = <>
    Left = 85
    Top = 218
    object RxQry_KCPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_TXPPKC.TUDM'
      Size = 13
    end
    object RxQry_KCKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TKS_TXPPKC.KWH'
      Size = 30
    end
    object RxQry_KCTS: TFloatField
      FieldName = 'TS'
      Origin = 'YZPP.TKS_TXPPKC.SL'
    end
    object RxQry_KCKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object RxQry_KCTMC: TStringField
      FieldName = 'TMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object RxQry_KCZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object RxQry_KCJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TKS_TXPPKC.MZ'
      OnGetText = RxQry_KCJJGetText
    end
    object RxQry_KCXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TKS_TXPPKC.SJ'
      OnGetText = RxQry_KCJJGetText
    end
    object RxQry_KCZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TKS_TXPPKC.ZK'
    end
    object RxQry_KCJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TKS_TXPPKC.JSJ'
      OnGetText = RxQry_KCJJGetText
    end
    object RxQry_KCMZ: TFloatField
      FieldName = 'MZ'
      OnGetText = RxQry_KCMZGetText
    end
    object RxQry_KCKCHSJ: TFloatField
      FieldName = 'KCHSJ'
      OnGetText = RxQry_KCKCHSJGetText
    end
    object RxQry_KCJJJE: TFloatField
      FieldName = 'JJJE'
      OnGetText = RxQry_KCJJJEGetText
    end
    object RxQry_KCMZJE: TFloatField
      FieldName = 'MZJE'
      OnGetText = RxQry_KCMZJEGetText
    end
    object RxQry_KCKCHSJJE: TFloatField
      FieldName = 'KCHSJJE'
      OnGetText = RxQry_KCKCHSJJEGetText
    end
    object RxQry_KCSJJE: TFloatField
      FieldName = 'SJJE'
      OnGetText = RxQry_KCSJJEGetText
    end
  end
  object RxQry_Tmp: TRxQuery
    DatabaseName = 'yzpp'
    Macros = <>
    Left = 324
    Top = 224
  end
end