sy_ndfpjhzd_fp.dfm

省级集邮品管理ERP

        Align = alTop
        Caption = '封片发行计划'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBG_JHFPCSHB: TDBGrid
        Left = 1
        Top = 13
        Width = 283
        Height = 330
        Align = alClient
        Color = clBtnFace
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MC'
            Title.Caption = '小类名称'
            Width = 140
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JHFPZTS'
            Title.Caption = '分配数量'
            Width = 100
            Visible = True
          end>
      end
    end
    object Panel7: TPanel
      Left = 288
      Top = 0
      Width = 201
      Height = 344
      Align = alLeft
      BevelOuter = bvLowered
      Caption = 'Panel7'
      TabOrder = 2
      object Label8: TLabel
        Left = 1
        Top = 1
        Width = 199
        Height = 12
        Align = alTop
        Caption = '下级单位请领计划'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBG_JJNXQB: TDBGrid
        Left = 1
        Top = 13
        Width = 199
        Height = 330
        Align = alClient
        Color = clBtnFace
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'DWJC'
            Title.Caption = '单位名称'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'XQZTS'
            Title.Caption = '需求数量'
            Width = 80
            Visible = True
          end>
      end
    end
    object Panel8: TPanel
      Left = 492
      Top = 0
      Width = 201
      Height = 344
      Align = alClient
      BevelOuter = bvLowered
      Caption = 'Panel8'
      TabOrder = 3
      object Label9: TLabel
        Left = 1
        Top = 1
        Width = 199
        Height = 12
        Align = alTop
        Caption = '分配计划'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBG_JJNFPJH: TRxDBGrid
        Left = 1
        Top = 13
        Width = 199
        Height = 330
        Align = alClient
        Color = clBtnFace
        DataSource = DataSource3
        PopupMenu = data.pm_Export
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnKeyDown = DBG_JJNFPJHKeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'DWJC'
            Title.Caption = '单位名称'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JHFPZTS'
            Title.Caption = '分配数量'
            Width = 80
            Visible = True
          end>
      end
    end
  end
  object ALi_Edit: TActionList
    Left = 360
    Top = 266
    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_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 a.YZLDM, a.DWDM, a.JHFPZTS, a.ZT, a.ZBR, a.PZR, a.ZDRQ, a' +
        '.BZ, b.MC'
      'from TYS_JJNFPJH_FP a, TG_YZPPLDMB b'
      'where a.YZLDM=b.YZLDM and a.ND=:ND and substr(a.YZLDM,1,1)=:DLDM'
      'order by a.YZLDM')
    Left = 48
    Top = 98
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'DLDM'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_JHFPCSHBYZLDM: TStringField
      FieldName = 'YZLDM'
      Size = 4
    end
    object Qry_JHFPCSHBDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_JHFPCSHBJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JHFPCSHBZT: TStringField
      FieldName = 'ZT'
      Size = 1
    end
    object Qry_JHFPCSHBZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Qry_JHFPCSHBPZR: TStringField
      FieldName = 'PZR'
      Size = 12
    end
    object Qry_JHFPCSHBZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
    end
    object Qry_JHFPCSHBBZ: TStringField
      FieldName = 'BZ'
      Size = 200
    end
    object Qry_JHFPCSHBMC: TStringField
      FieldName = 'MC'
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_JHFPCSHB
    Left = 76
    Top = 98
  end
  object Qry_JJNXQB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select a.SQDWDM, a.XQZTS, b.DWJC '
      'from TY_JJNXQB_FP a, TGS_GXDWSJB b'
      'where a.SQDWDM=b.DWDM and a.SQDWDM<>:DWDM and '
      '  ND=:ND and YZLDM=:YZLDM'
      'order by b.PXM')
    Left = 360
    Top = 94
    ParamData = <
      item
        DataType = ftString
        Name = 'DWDM'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'YZLDM'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_JJNXQBSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Origin = 'YZPP.TY_JJNXQB_LM.SQDWDM'
      Size = 8
    end
    object Qry_JJNXQBXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB_LM.XQZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBDWJC: TStringField
      FieldName = 'DWJC'
      Origin = 'YZPP.TGS_GXDWSJB.DWJC'
      Size = 16
    end
  end
  object DataSource2: TDataSource
    DataSet = Qry_JJNXQB
    Left = 388
    Top = 94
  end
  object Qry_Static: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from tGS_gxdwsjb')
    Left = 528
    Top = 14
  end
  object Qry_JJNFPJH: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_JJNFPJHBeforeInsert
    BeforeDelete = Qry_JJNFPJHBeforeDelete
    AfterScroll = Qry_JJNFPJHAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select a.ND, a.YZLDM, a.DWDM, a.JHFPZTS, a.ZT, a.ZBR, a.PZR, a.Z' +
        'DRQ, a.BZ, a.SDATE, b.DWJC'
      'from TY_JJNFPJH_FP a, TGS_GXDWSJB b'
      'where a.DWDM=b.DWDM and a.ND=:ND and a.YZLDM=:YZLDM'
      'order by b.PXM')
    UpdateObject = UpdateSQL1
    Left = 552
    Top = 94
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'YZLDM'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_JJNFPJHND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNFPJH_FP.ND'
      Size = 4
    end
    object Qry_JJNFPJHYZLDM: TStringField
      FieldName = 'YZLDM'
      Origin = 'YZPP.TY_JJNFPJH_FP.YZLDM'
      Size = 4
    end
    object Qry_JJNFPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH_FP.DWDM'
      Size = 8
    end
    object Qry_JJNFPJHJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      Origin = 'YZPP.TY_JJNFPJH_FP.JHFPZTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNFPJH_FP.ZT'
      Size = 1
    end
    object Qry_JJNFPJHZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNFPJH_FP.ZBR'
      Size = 12
    end
    object Qry_JJNFPJHPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNFPJH_FP.PZR'
      Size = 12
    end
    object Qry_JJNFPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNFPJH_FP.ZDRQ'
    end
    object Qry_JJNFPJHBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNFPJH_FP.BZ'
      Size = 200
    end
    object Qry_JJNFPJHSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TY_JJNFPJH_FP.SDATE'
    end
    object Qry_JJNFPJHDWJC: TStringField
      FieldName = 'DWJC'
      Origin = 'YZPP.TGS_GXDWSJB.DWJC'
      Size = 16
    end
  end
  object DataSource3: TDataSource
    DataSet = Qry_JJNFPJH
    Left = 580
    Top = 94
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJNFPJH_FP'
      'set'
      '  JHFPZTS = :JHFPZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = sysdate,'
      '  BZ = :BZ,'
      '  SDATE = :SDATE'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TY_JJNFPJH_FP'
      '  (ND, YZLDM, DWDM, JHFPZTS, ZT, ZBR, PZR, ZDRQ, BZ, SDATE)'
      'values'
      
        '  (:ND, :YZLDM, :DWDM, :JHFPZTS, :ZT, :ZBR, :PZR, sysdate, :BZ, ' +
        ':SDATE)')
    DeleteSQL.Strings = (
      'delete from TY_JJNFPJH_FP'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  DWDM = :OLD_DWDM')
    Left = 608
    Top = 94
  end
end