sy_ck_jyp_add.dfm

省级集邮品管理ERP

          Top = 14
          Width = 45
          Height = 17
          Caption = '预订'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = chk_YDClick
        end
        object chk_LS: TCheckBox
          Left = 71
          Top = 15
          Width = 46
          Height = 15
          Caption = '零售'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = chk_YDClick
        end
        object chk_NC: TCheckBox
          Left = 135
          Top = 14
          Width = 44
          Height = 17
          Caption = '年册'
          TabOrder = 2
          OnClick = chk_YDClick
        end
        object chk_YP: TCheckBox
          Left = 198
          Top = 14
          Width = 47
          Height = 17
          Caption = '邮品'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = chk_YDClick
        end
        object ce_BL: TCurrencyEdit
          Left = 295
          Top = 12
          Width = 49
          Height = 21
          MaxIntLength = 3
          AutoSize = False
          DecimalPlaces = 0
          DisplayFormat = '#0%'
          MaxLength = 3
          MaxValue = 100
          MinValue = 1
          TabOrder = 4
          Value = 100
          OnExit = ce_BLExit
          OnKeyPress = ce_BLKeyPress
        end
      end
    end
  end
  object bbtn_Prior: TBitBtn
    Left = 156
    Top = 351
    Width = 85
    Height = 25
    Caption = '上一步(&P)'
    Enabled = False
    TabOrder = 3
    OnClick = bbtn_PriorClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF3333333333333744333333333333F773333333333337
      44473333333333F777F3333333333744444333333333F7733733333333374444
      4433333333F77333733333333744444447333333F7733337F333333744444444
      433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
      9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
      C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
      CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
      CCC333333333333777FF33333333333333CC3333333333333773}
    NumGlyphs = 2
  end
  object bbtn_Next: TBitBtn
    Left = 287
    Top = 351
    Width = 85
    Height = 25
    Caption = '下一步(&N)'
    TabOrder = 4
    OnClick = bbtn_NextClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FF3333333333333447333333333333377FFF33333333333744473333333
      333337773FF3333333333444447333333333373F773FF3333333334444447333
      33333373F3773FF3333333744444447333333337F333773FF333333444444444
      733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
      999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
      33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
      333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
      33333777333333333333CC333333333333337733333333333333}
    NumGlyphs = 2
  end
  object bbtn_Search: TBitBtn
    Left = 25
    Top = 351
    Width = 81
    Height = 25
    Hint = '选择票品'
    Anchors = [akRight, akBottom]
    Caption = '选择票品'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = bbtn_SearchClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000
      FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF00
      00FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF00FFFF
      00FFFF00FFFF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFF
      FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF00
      00FF0000FF0000FF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
      00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
      FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF0000FF0000FF00
      00FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF0000FF00FFFF
      0000FF0000FFFFFFFF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
      FFFFFFFF0000FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF00
      00FF0000FF0000FF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF
      0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FF
      FF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF00
      00FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF
      00FFFF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF0000FF00FFFF
      00FFFF00FFFF0000FFFFFFFF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
  end
  object qry_PP: TQuery
    AfterScroll = qry_PPAfterScroll
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select b.TYPE, a.KFDM, d.KFMC, a.PPDM, b.TMC PPMC, b.ZH, b.TPMZ ' +
        'MZ, b.TPSJ SJ, a.KWH, b.PPLB, a.JJ, a.XJ, a.JSJ, a.ZK, a.TS SL '
      ' from TYS_TXPPKC a, TB_YZPPXXB b, TGS_KFB d'
      ' where a.PPDM = b.TDM  and d.KFDM = a.KFDM ')
    Left = 45
    Top = 261
    object qry_PPKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TKS_TXPPKC.KFDM'
      Size = 3
    end
    object qry_PPKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object qry_PPPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object qry_PPZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
    end
    object qry_PPMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TKS_TXPPKC.MZ'
      OnGetText = qry_PPMZGetText
    end
    object qry_PPSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TKS_TXPPKC.SJ'
      OnGetText = qry_PPSJGetText
    end
    object qry_PPKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TKS_TXPPKC.KWH'
      Size = 30
    end
    object qry_PPPPLB: TStringField
      FieldName = 'PPLB'
      Origin = 'YZPP.TKS_TXPPKC.PPLB'
      Size = 4
    end
    object qry_PPJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TKS_TXPPKC.JSJ'
      OnGetText = qry_PPSJGetText
    end
    object qry_PPZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TKS_TXPPKC.ZK'
    end
    object qry_PPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TKS_TXPPKC.SL'
      OnGetText = qry_PPSLGetText
      DisplayFormat = '#,##'
    end
    object qry_PPTYPE: TStringField
      FieldName = 'TYPE'
      Origin = 'YZPP.TB_YZPPXXB.TYPE'
      Size = 4
    end
    object qry_PPJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_TXPPKC.JJ'
      OnGetText = qry_PPSJGetText
    end
    object qry_PPXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_TXPPKC.XJ'
      OnGetText = qry_PPSJGetText
    end
    object qry_PPPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_TXPPKC.PPDM'
      Size = 13
    end
  end
  object ds_PP: TDataSource
    DataSet = qry_PP
    Left = 75
    Top = 261
  end
  object qry_CKXZ: TQuery
    AfterScroll = qry_CKXZAfterScroll
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select a.KFDM, d.KFMC, a.TUDM, c.TMC PPMC, c.ZH, a.MZ, a.SJ, a.K' +
        'WH, a.PPLB, a.JSJ, a.ZK, a.SL '
      ' from TKS_TXPPKC a, TB_YZPPXXB b, TB_YZPPTUXXB c, TGS_KFB d'
      ' where a.TUDM = c.TUDM and c.TDM = b.TDM and d.KFDM = a.KFDM ')
    Left = 65
    Top = 146
  end
  object ds_CKXZ: TDataSource
    DataSet = qry_CKXZ
    Left = 95
    Top = 146
  end
  object qry_DWFP: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      
        'select a.DWDM, a.JHFPZTS SL_OLD, a.JHFPZTS SL, d.DWJC DWMC,a.YDT' +
        'S, a.LSTS, a.NCTS, a.YPTS'
      ' from TY_JJNFPJH a,TB_YZPPTXXB b,TGS_GXDWSJB d '
      ' where a.JHH=b.JHH and a.DWDM = d.DWDM and 1=2')
    UpdateObject = usql_DWFP
    Left = 395
    Top = 131
    object qry_DWFPDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH_LM.DWDM'
      Size = 8
    end
    object qry_DWFPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TY_JJNFPJH_LM.JHFPZTS'
      DisplayFormat = '#,##0'
    end
    object qry_DWFPSL_OLD: TFloatField
      FieldName = 'SL_OLD'
      Origin = 'YZPP.TY_JJNFPJH_LM.JHFPZTS'
    end
    object qry_DWFPDWMC: TStringField
      FieldName = 'DWMC'
      Origin = 'YZPP.TGS_GXDWSJB.DWMC'
      Size = 40
    end
    object qry_DWFPYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNFPJH.YDTS'
    end
    object qry_DWFPLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNFPJH.LSTS'
    end
    object qry_DWFPNCTS: TFloatField
      FieldName = 'NCTS'
      Origin = 'YZPP.TY_JJNFPJH.NCTS'
    end
    object qry_DWFPYPTS: TFloatField
      FieldName = 'YPTS'
      Origin = 'YZPP.TY_JJNFPJH.YPTS'
    end
  end
  object ds_DWFP: TDataSource
    DataSet = qry_DWFP
    Left = 425
    Top = 131
  end
  object qry_Tmp: TQuery
    DatabaseName = 'yzpp'
    Left = 535
    Top = 306
  end
  object usql_DWFP: TUpdateSQL
    ModifySQL.Strings = (
      'update TGS_GXDWSJB'
      'set'
      '  DWDM = :DWDM,'
      '  DWMC = :DWMC'
      'where'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TGS_GXDWSJB'
      '  (DWDM, DWMC)'
      'values'
      '  (:DWDM, :DWMC)')
    DeleteSQL.Strings = (
      'delete from TGS_GXDWSJB'
      'where'
      '  DWDM = :OLD_DWDM')
    Left = 460
    Top = 131
  end
end