ss_jypljzcsh.dfm

省级集邮品管理ERP

inherited frm_JYPLJZCSH: Tfrm_JYPLJZCSH
  Tag = 13100
  Left = 32
  Top = 23
  Caption = '集邮票明细帐累计值初始化'
  ClientHeight = 523
  ClientWidth = 742
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Top = 78
    Width = 742
    Height = 414
    Align = alClient
    DataSource = DataSource1
    PopupMenu = data.pm_Export
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'ZH'
        ReadOnly = True
        Title.Caption = '志号'
        Width = 61
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'TJC'
        ReadOnly = True
        Title.Caption = '名称'
        Width = 85
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'JJ'
        ReadOnly = True
        Title.Caption = '进价'
        Width = 51
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'XJ'
        ReadOnly = True
        Title.Caption = '销价'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZJSL'
        Title.Caption = '增加数量'
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSSL'
        Title.Caption = '减少数量'
        Width = 66
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'JJZJJE'
        ReadOnly = True
        Title.Caption = '进价增加金额'
        Width = 82
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'JJJSJE'
        ReadOnly = True
        Title.Caption = '进价减少金额'
        Width = 79
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'XJZJJE'
        ReadOnly = True
        Title.Caption = '销价增加金额'
        Width = 83
        Visible = True
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'XJJSJE'
        ReadOnly = True
        Title.Caption = '销价减少金额'
        Width = 83
        Visible = True
      end>
  end
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 492
    Width = 742
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DisButton = [bnEdit, bnSave, bnCancel, bnPrint, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 742
    Height = 33
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object Label3: TLabel
      Left = 11
      Top = 11
      Width = 24
      Height = 12
      Caption = '查找'
    end
    object Label1: TLabel
      Left = 591
      Top = 15
      Width = 144
      Height = 12
      Alignment = taRightJustify
      Caption = '数量单位:套  金额单位:元'
    end
    object Edit1: TEdit
      Left = 40
      Top = 6
      Width = 89
      Height = 20
      MaxLength = 10
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  object Panel11: TPanel
    Left = 0
    Top = 0
    Width = 742
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object RxLabel1: 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 = 28
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPMXFLZYEB'
      'set'
      '  ZJSL = :ZJSL,'
      '  JSSL = :JSSL,'
      '  JJJSJE = :JJJSJE,'
      '  XJJSJE = :XJJSJE,'
      '  JJZJJE = :JJZJJE,'
      '  XJZJJE = :XJZJJE'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    InsertSQL.Strings = (
      'insert into TYS_JYPMXFLZYEB'
      '  (ZJSL, JSSL, YJJSJE, JJJSJE, XJJSJE, YJZJJE, JJZJJE, XJZJJE)'
      'values'
      
        '  (:ZJSL, :JSSL, :YJJSJE, :JJJSJE, :XJJSJE, :YJZJJE, :JJZJJE, :X' +
        'JZJJE)')
    DeleteSQL.Strings = (
      'delete from TYS_JYPMXFLZYEB'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 375
    Top = 174
  end
  object DataSource1: TDataSource
    DataSet = qryYZPPTXXB
    Left = 407
    Top = 174
  end
  object qryYZPPTXXB: TRxQuery
    CachedUpdates = True
    AfterOpen = qryYZPPTXXBAfterOpen
    OnUpdateError = qryYZPPTXXBUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.PPDM, J.ND, J.YF, Z.ZH, Z.TJC, J.JJ, 0 XJ, ZJSL, JSSL, ' +
        'YJJSJE, JJJSJE, XJJSJE, YJZJJE, JJZJJE, XJZJJE'
      ' FROM TYS_JYPMXFLZYEB J, TB_YZPPTXXB Z'
      ' WHERE J.PPDM = Z.TDM'
      '   AND J.PPDM LIKE '#39'1%'#39' AND J.PPDM NOT LIKE '#39'101%'#39
      
        '   AND J.ND = GetInitData('#39'jyp_csh_n'#39') AND J.YF = GetInitData('#39'j' +
        'yp_csh_y'#39')'
      ' ORDER BY tdm'
      ''
      ' ')
    UpdateObject = UpdateSQL4
    Macros = <>
    Left = 341
    Top = 174
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPMXFLZYEB'
      'set'
      '  ZJSL = :ZJSL,'
      '  JSSL = :JSSL,'
      '  JJJSJE = :JJJSJE,'
      '  XJJSJE = :XJJSJE,'
      '  JJZJJE = :JJZJJE,'
      '  XJZJJE = :XJZJJE'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    InsertSQL.Strings = (
      'insert into TYS_TXPMXFLZYEB'
      '  (ZJSL, JSSL, JJJSJE, XJJSJE, JJZJJE, XJZJJE)'
      'values'
      '  (:ZJSL, :JSSL, :JJJSJE, :XJJSJE, :JJZJJE, :XJZJJE)')
    DeleteSQL.Strings = (
      'delete from TYS_TXPMXFLZYEB'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 375
    Top = 207
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_YPMXFLZYEB'
      'set'
      '  ZJSL = :ZJSL,'
      '  JSSL = :JSSL,'
      '  JJJSJE = :JJJSJE,'
      '  XJJSJE = :XJJSJE,'
      '  JJZJJE = :JJZJJE,'
      '  XJZJJE = :XJZJJE'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF and'
      '  JJ = :OLD_JJ')
    InsertSQL.Strings = (
      'insert into TYS_YPMXFLZYEB'
      '  (ZJSL, JSSL, JJJSJE, XJJSJE, JJZJJE, XJZJJE)'
      'values'
      '  (:ZJSL, :JSSL, :JJJSJE, :XJJSJE, :JJZJJE, :XJZJJE)')
    DeleteSQL.Strings = (
      'delete from TYS_YPMXFLZYEB'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF and'
      '  JJ = :OLD_JJ')
    Left = 375
    Top = 242
  end
  object UpdateSQL4: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_GRPMXFLZYEB'
      'set'
      '  ZJSL = :ZJSL,'
      '  JSSL = :JSSL,'
      '  JJJSJE = :JJJSJE,'
      '  XJJSJE = :XJJSJE,'
      '  JJZJJE = :JJZJJE,'
      '  XJZJJE = :XJZJJE'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF and'
      '  JJ = :OLD_JJ')
    InsertSQL.Strings = (
      'insert into TYS_GRPMXFLZYEB'
      '  (ZJSL, JSSL, JJJSJE, XJJSJE, JJZJJE, XJZJJE)'
      'values'
      '  (:ZJSL, :JSSL, :JJJSJE, :XJJSJE, :JJZJJE, :XJZJJE)')
    DeleteSQL.Strings = (
      'delete from TYS_GRPMXFLZYEB'
      'where'
      '  PPDM = :OLD_PPDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF and'
      '  JJ = :OLD_JJ')
    Left = 375
    Top = 276
  end
  object SqlStrings: TSqlStrings
    jyp_Sql.Strings = (
      
        'SELECT J.PPDM, J.ND, J.YF, Z.ZH, Z.TJC, J.JJ, K.XJ, ZJSL, JSSL, ' +
        'YJJSJE, JJJSJE, XJJSJE, YJZJJE, JJZJJE, XJZJJE'
      ' FROM TYS_JYPMXFLZYEB J, TB_YZPPTXXB Z, TYS_JYPPKC K'
      ' WHERE J.PPDM = Z.TDM'
      '   AND J.PPDM = K.PPDM AND J.JJ=K.JJ'
      '   AND J.PPDM LIKE '#39'1%'#39' AND J.PPDM NOT LIKE '#39'101%'#39
      
        '   AND J.ND = GetInitData('#39'jyp_csh_n'#39') AND J.YF = GetInitData('#39'j' +
        'yp_csh_y'#39')'
      
        ' GROUP BY J.PPDM, J.ND, J.YF, Z.ZH, Z.TJC, J.JJ, K.XJ, ZJSL, JSS' +
        'L, YJJSJE, JJJSJE, XJJSJE, YJZJJE, JJZJJE, XJZJJE')
    txp_Sql.Strings = (
      
        'SELECT J.PPDM, J.ND, J.YF, Z.ZH, Z.TMC TJC, J.JJ, K.XJ, ZJSL, JS' +
        'SL, JJJSJE, XJJSJE, JJZJJE, XJZJJE'
      ' FROM TYS_TXPMXFLZYEB J, TB_YZPPXXB Z, TYS_TXPPKC K'
      ' WHERE J.PPDM = Z.TDM'
      '   AND J.PPDM = K.PPDM AND J.JJ=K.JJ'
      
        '   AND J.ND = GetInitData('#39'txp_csh_n'#39') AND J.YF = GetInitData('#39't' +
        'xp_csh_y'#39')'
      
        ' GROUP by J.PPDM, J.ND, J.YF, Z.ZH, Z.TMC, J.JJ, K.XJ, ZJSL, JSS' +
        'L, JJJSJE, XJJSJE, JJZJJE, XJZJJE')
    yp_Sql.Strings = (
      
        'SELECT J.PPDM, J.ND, J.YF, Z.ZH, Z.MC TJC, J.JJ, K.XJ, ZJSL, JSS' +
        'L, JJJSJE, XJJSJE, JJZJJE, XJZJJE'
      ' FROM TYS_YPMXFLZYEB J, TB_JYPTXXB Z, TYS_YPPKC K'
      ' WHERE J.PPDM = Z.TDM'
      '   AND J.PPDM = K.PPDM AND J.JJ=K.JJ'
      
        '   AND J.ND = GetInitData('#39'yp_csh_n'#39') AND J.YF = GetInitData('#39'yp' +
        '_csh_y'#39')'
      
        ' GROUP BY J.PPDM, J.ND, J.YF, Z.ZH, Z.MC, J.JJ, K.XJ, ZJSL, JSSL' +
        ', JJJSJE, XJJSJE, JJZJJE, XJZJJE')
    grp_Sql.Strings = (
      
        'SELECT J.PPDM, J.ND, J.YF, Z.ZH, Z.TMC TJC, J.JJ, K.XJ, ZJSL, JS' +
        'SL, JJJSJE, XJJSJE, JJZJJE, XJZJJE'
      ' FROM TYS_GRPMXFLZYEB J, TB_YZPPXXB Z, TYS_GRPPKC K'
      ' WHERE J.PPDM = Z.TDM'
      '   AND J.PPDM = K.PPDM AND J.JJ=K.JJ'
      
        '   AND J.ND = GetInitData('#39'grp_csh_n'#39') AND J.YF = GetInitData('#39'g' +
        'rp_csh_y'#39')'
      
        ' GROUP BY J.PPDM, J.ND, J.YF, Z.ZH, Z.TMC, J.JJ, K.XJ, ZJSL, JSS' +
        'L, JJJSJE, XJJSJE, JJZJJE, XJZJJE')
    Left = 309
    Top = 174
  end
end