ss_txpkccsh.dfm

省级集邮品管理ERP

          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
      end
      object bbtn_Find: TBitBtn
        Left = 24
        Top = 9
        Width = 75
        Height = 25
        Caption = '查询(&F)'
        TabOrder = 0
        OnClick = bbtn_FindClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
          DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
          CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
          CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
          DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
      end
      object bbtn_Exit: TBitBtn
        Left = 659
        Top = 8
        Width = 75
        Height = 25
        Caption = '退出(&X)'
        TabOrder = 6
        Kind = bkClose
      end
      object bbtn_Replace: TBitBtn
        Left = 285
        Top = 8
        Width = 92
        Height = 25
        Caption = '批量设置(&R)'
        TabOrder = 3
        OnClick = bbtn_ReplaceClick
        Glyph.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          08000000000000010000C40E0000C40E00000001000000000000000000004000
          000080000000FF000000002000004020000080200000FF200000004000004040
          000080400000FF400000006000004060000080600000FF600000008000004080
          000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
          000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
          200080002000FF002000002020004020200080202000FF202000004020004040
          200080402000FF402000006020004060200080602000FF602000008020004080
          200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
          200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
          400080004000FF004000002040004020400080204000FF204000004040004040
          400080404000FF404000006040004060400080604000FF604000008040004080
          400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
          400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
          600080006000FF006000002060004020600080206000FF206000004060004040
          600080406000FF406000006060004060600080606000FF606000008060004080
          600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
          600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
          800080008000FF008000002080004020800080208000FF208000004080004040
          800080408000FF408000006080004060800080608000FF608000008080004080
          800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
          800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
          A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
          A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
          A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
          A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
          C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
          C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
          C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
          C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
          FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
          FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
          FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
          FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00FFFFFFFFFFFF
          FFFFFF000000FFFFFFFFFFFFFFFFFFFF0000FF009000FF0000FFFFFFFFFFFF00
          FC900000FC0000909000FFFFFFFFFFFF00FC9090FF0090FC00FFFFFFFFFFFF00
          9000FCFFFCFFFC009000FFFFFFFFFF0090FCFF000000FFFC9000FF0000FF0000
          00900000FF0000FF000000FF9200009200FC9092FF00FC9000FFFF00DB9292FF
          00900000FF0000FC00FF009200FF92FFFF00FFDB92FFFF00FFFF00DBFFFF0000
          00FFFFFF00FFFFFFFFFF9200920000FF0000920000FFFFFFFFFFFF00FFFF00FF
          00FFDB00FFFFFFFFFFFFFF92DB00FF920000FF00FFFFFFFFFFFFFFFF92FF00FF
          00FF00FFFFFFFFFFFFFFFFFFFFFFFF92FFFFFFFFFFFFFFFFFFFF}
      end
      object bbtn_Print: TBitBtn
        Left = 198
        Top = 8
        Width = 75
        Height = 25
        Caption = '打印(&P)'
        TabOrder = 2
        OnClick = bbtn_PrintClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          0003388888888888888307777777777777708F33333333333338077777777777
          77708FFFFFFFFFFFFFF8000000000000000088888888888888880F7F7F7F7F7F
          7F708F333333333333F807F7F7F7F7F7F9F08F333333333338380F7F7F7F7F7F
          7F708FFFFFFFFFFFFFF8000000000000000088888888888888883330FFFFFFFF
          03333338F3FFFF3F8F333330F0000F0F03333338F88883838F333330FFFFFFFF
          03333338F3FF3FFF8F333330F00F000003333338F883888883333330FFFF0FF0
          33333338F3F38F3833333330F07F0F0333333338F8338F8333333330FFFF0033
          33333338FFFF8833333333300000033333333338888883333333}
        NumGlyphs = 2
      end
      object bbtn_Add: TBitBtn
        Left = 377
        Top = 8
        Width = 75
        Height = 25
        Caption = '增加(&A)'
        TabOrder = 7
        OnClick = bbtn_AddClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333
          300033F77FFF3333377739999993333333333777777F3333333F399999933333
          33003777777333333377333993333333330033377F3333333377333993333333
          3333333773333333333F333333333333330033333333F33333773333333C3333
          330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
          333333333337733333FF3333333C333330003333333733333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
    end
    object pnl_Hint: TPanel
      Left = 10
      Top = 517
      Width = 758
      Height = 25
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 3
      object lbl_Search: TLabel
        Left = 7
        Top = 7
        Width = 6
        Height = 12
      end
      object lbl_State: TLabel
        Left = 5
        Top = 6
        Width = 48
        Height = 12
        Caption = '正在保存'
        Visible = False
      end
      object pgb_State: TProgressBar
        Left = 65
        Top = 6
        Width = 687
        Height = 13
        Min = 0
        Max = 100
        Smooth = True
        TabOrder = 0
        Visible = False
      end
    end
  end
  object ds_init: TDataSource
    DataSet = qry_init
    Left = 97
    Top = 186
  end
  object qry_init: TQuery
    CachedUpdates = True
    BeforeInsert = qry_initBeforeInsert
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      
        'select b.ZH, b.TMC, b.TPMZ, b.TPSJ, a.JJ, a.XJ, a.TS, a.ZK, a.JS' +
        'J, a.KWH, b.TDM, 0 Temp, a.PPDM, b.FXRQ, a.JJ*a.TS JJJE,a.XJ*a.T' +
        'S XJJE'
      
        'from (Select KFDM,PPDM,JJ,XJ,TS,ZK,JSJ,KWH from TYS_TXPPKC where' +
        ' KFDM='#39'01'#39') a,'
      'TB_YZPPXXB b '
      'where a.PPDM(+)=b.TDM and b.TYPE='#39'jtlm'#39)
    UpdateObject = upSQL_Init
    Left = 69
    Top = 186
    object qry_initZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object qry_initTMC: TStringField
      FieldName = 'TMC'
      Size = 120
    end
    object qry_initSL: TFloatField
      FieldName = 'TS'
      OnChange = qry_initSLChange
    end
    object qry_initZK: TFloatField
      FieldName = 'ZK'
      OnChange = qry_initZKChange
    end
    object qry_initJSJ: TFloatField
      FieldName = 'JSJ'
      OnChange = qry_initJSJChange
      OnGetText = qry_initGetText
      OnSetText = qry_initSetText
    end
    object qry_initKWH: TStringField
      FieldName = 'KWH'
      OnChange = qry_initKWHChange
      Size = 30
    end
    object qry_initTDM: TStringField
      FieldName = 'TDM'
      Size = 15
    end
    object qry_initTEMP: TFloatField
      FieldName = 'TEMP'
    end
    object qry_initFXRQ: TDateTimeField
      FieldName = 'FXRQ'
    end
    object qry_initMZJE: TFloatField
      FieldName = 'JJJE'
      OnGetText = qry_initGetText
    end
    object qry_initSJJE: TFloatField
      FieldName = 'XJJE'
      OnGetText = qry_initGetText
    end
    object qry_initJJ: TFloatField
      FieldName = 'JJ'
      OnChange = qry_initJJChange
      OnGetText = qry_initGetText
      OnSetText = qry_initSetText
    end
    object qry_initXJ: TFloatField
      FieldName = 'XJ'
      OnChange = qry_initXJChange
      OnGetText = qry_initGetText
      OnSetText = qry_initSetText
    end
    object qry_initPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object qry_initTPMZ: TFloatField
      FieldName = 'TPMZ'
      OnGetText = qry_initGetText
    end
    object qry_initTPSJ: TFloatField
      FieldName = 'TPSJ'
      OnGetText = qry_initGetText
    end
  end
  object upSQL_Init: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPPKC'
      'set'
      '  KFDM = :KFDM,'
      '  PPDM = :PPDM,'
      '  JJ = :JJ,'
      '  KWH = :KWH,'
      '  XJ = :XJ,'
      '  JSJ = :JSJ,'
      '  ZK = :ZK,'
      '  TS = :TS,'
      '  BZ = :BZ'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ')
    InsertSQL.Strings = (
      'insert into TYS_TXPPKC'
      '  (KFDM, PPDM, JJ, KWH, XJ, JSJ, ZK, TS, BZ)'
      'values'
      '  (:KFDM, :PPDM, :JJ, :KWH, :XJ, :JSJ, :ZK, :TS, :BZ)'
      '   ')
    DeleteSQL.Strings = (
      'delete from TYS_TXPPKC'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ')
    Left = 41
    Top = 187
  end
  object qry_Tmp: TQuery
    DatabaseName = 'yzpp'
    Left = 169
    Top = 287
  end
  object sp_Init: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'TXP_CSH_WC'
    Left = 215
    Top = 289
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_DWDM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PC_USERID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PN_FLG'
        ParamType = ptInput
      end>
  end
end