sy_ndfpjhzd.dfm

省级集邮品管理ERP

      ImageIndex = 0
      ShortCut = 16449
      OnExecute = Act_AddDWExecute
    end
    object Act_DeleteDW: TAction
      Caption = '删除单位(&K)'
      Hint = '在年度计划请领表中删除一单位'
      ImageIndex = 1
      ShortCut = 16452
      OnExecute = Act_DeleteDWExecute
    end
    object Act_AddFPJH: TAction
      Caption = '做分配计划(&A)'
      Hint = '新增一个年度计划请领表'
      OnExecute = Act_AddFPJHExecute
    end
    object Act_DeleteFPJH: TAction
      Caption = '删除(&D)'
      Hint = '删除年度计划请领表'
      OnExecute = Act_DeleteFPJHExecute
    end
    object Act_ModifyFPJH: TAction
      Caption = '修改(&M)'
      Hint = '修改年度计划请领表'
      ImageIndex = 2
      ShortCut = 16461
      OnExecute = Act_ModifyFPJHExecute
    end
    object Act_Find: TAction
      Caption = '查询(&F)'
      ImageIndex = 17
    end
    object Act_Print: TAction
      Caption = '打印(&P)'
      Hint = '打印年度计划请领表'
      ImageIndex = 9
      ShortCut = 16464
      OnExecute = Act_PrintExecute
    end
    object Act_Save: TAction
      Caption = '存盘(&S)'
      Hint = '保存年度计划请领表的修改'
      ImageIndex = 3
      ShortCut = 16467
      OnExecute = Act_SaveExecute
    end
    object Act_Cancel: TAction
      Caption = '取消(&C)'
      Hint = '取消年度计划请领表的修改'
      ImageIndex = 4
      ShortCut = 16474
      OnExecute = Act_CancelExecute
    end
  end
  object Qry_JHFPCSHB: TQuery
    AfterScroll = Qry_JHFPCSHBAfterScroll
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from TYS_JJNFPJH')
    Left = 232
    Top = 86
    object Qry_JHFPCSHBJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TYS_JJNFPJH.JHH'
      Size = 8
    end
    object Qry_JHFPCSHBPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TYS_JJNFPJH.PPMC'
      Size = 60
    end
    object Qry_JHFPCSHBJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      Origin = 'YZPP.TYS_JJNFPJH.JHFPZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JHFPCSHBZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TYS_JJNFPJH.ZT'
      Size = 1
    end
    object Qry_JHFPCSHBND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TYS_JJNFPJH.ND'
      Size = 4
    end
    object Qry_JHFPCSHBZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TYS_JJNFPJH.ZBR'
      Size = 12
    end
    object Qry_JHFPCSHBPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TYS_JJNFPJH.PZR'
      Size = 12
    end
    object Qry_JHFPCSHBZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TYS_JJNFPJH.ZDRQ'
    end
    object Qry_JHFPCSHBBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TYS_JJNFPJH.BZ'
      Size = 200
    end
    object Qry_JHFPCSHBSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TYS_JJNFPJH.SDATE'
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_JHFPCSHB
    Left = 264
    Top = 86
  end
  object Qry_JJNXQB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select SQDWDM DWDM,ND,JHH,XQZTS,YDTS,LSTS,NCTS,KFYPTS from TY_JJ' +
        'NXQB ')
    Left = 544
    Top = 78
    object Qry_JJNXQBXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB.XQZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBKFYPTS: TFloatField
      FieldName = 'KFYPTS'
      Origin = 'YZPP.TY_JJNXQB.KFYPTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNXQB.YDTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNXQB.LSTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNXQB.SQDWDM'
      Size = 8
    end
    object Qry_JJNXQBND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNXQB.ND'
      Size = 4
    end
    object Qry_JJNXQBJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNXQB.JHH'
      Size = 8
    end
    object Qry_JJNXQBNCTS: TFloatField
      FieldName = 'NCTS'
      Origin = 'YZPP.TY_JJNXQB.NCTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
  end
  object DataSource2: TDataSource
    DataSet = Qry_JJNXQB
    Left = 576
    Top = 78
  end
  object Qry_GXDWSJB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWJC DWMC'
      ' from TGS_GXDWSJB'
      ' where JYYW='#39'1'#39
      ' order by PXM')
    Left = 404
    Top = 82
  end
  object Qry_Static: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from tGS_gxdwsjb')
    Left = 552
    Top = 234
  end
  object Qry_JJNFPJH: TQuery
    CachedUpdates = True
    BeforeDelete = Qry_JJNFPJHBeforeDelete
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select JHH, ND, a.DWDM, PPMC, JHFPZTS, YDTS,'
      '  LSTS, NCTS, YPTS, ZT, ZBR, PZR, ZDRQ,a.BZ,sdate '
      ' from TY_JJNFPJH a, TGS_GXDWSJB b'
      ' where a.DWDM=b.DWDM'
      '  and JHH=:JHH'
      ' order by PXM')
    UpdateObject = UpdateSQL1
    Left = 280
    Top = 254
    ParamData = <
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
        Value = #39#39
      end>
    object Qry_JJNFPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH.DWDM'
      Size = 8
    end
    object Qry_JJNFPJHDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
    object Qry_JJNFPJHJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      Origin = 'YZPP.TY_JJNFPJH.JHFPZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNFPJH.YDTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNFPJH.LSTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHNCTS: TFloatField
      FieldName = 'NCTS'
      Origin = 'YZPP.TY_JJNFPJH.NCTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHYPTS: TFloatField
      FieldName = 'YPTS'
      Origin = 'YZPP.TY_JJNFPJH.YPTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNFPJH.JHH'
      Size = 8
    end
    object Qry_JJNFPJHND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNFPJH.ND'
      Size = 4
    end
    object Qry_JJNFPJHZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNFPJH.ZT'
      Size = 1
    end
    object Qry_JJNFPJHZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNFPJH.ZBR'
      Size = 12
    end
    object Qry_JJNFPJHPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNFPJH.PZR'
      Size = 12
    end
    object Qry_JJNFPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNFPJH.ZDRQ'
    end
    object Qry_JJNFPJHPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJNFPJH.PPMC'
      Size = 60
    end
    object Qry_JJNFPJHBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNFPJH.BZ'
      Size = 200
    end
  end
  object DataSource3: TDataSource
    DataSet = Qry_JJNFPJH
    Left = 312
    Top = 254
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJNFPJH'
      'set'
      '  JHH = :JHH,'
      '  ND = :ND,'
      '  DWDM = :DWDM,'
      '  PPMC = :PPMC,'
      '  JHFPZTS = :JHFPZTS,'
      '  YDTS = :YDTS,'
      '  LSTS = :LSTS,'
      '  NCTS = :NCTS,'
      '  YPTS = :YPTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  JHH = :OLD_JHH and'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TY_JJNFPJH'
      
        '  (JHH, ND, DWDM, PPMC, JHFPZTS, YDTS, LSTS, NCTS, YPTS, ZT, ZBR' +
        ', PZR, '
      '   ZDRQ, BZ)'
      'values'
      
        '  (:JHH, :ND, :DWDM, :PPMC, :JHFPZTS, :YDTS, :LSTS, :NCTS, :YPTS' +
        ', :ZT, '
      '   :ZBR, :PZR, :ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TY_JJNFPJH'
      'where'
      '  JHH = :OLD_JHH and'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM')
    Left = 248
    Top = 254
  end
end