sy_ndfpjhzd_lm.dfm

省级集邮品管理ERP

        Width = 288
        Height = 308
        Align = alTop
        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 = 'XH'
            Title.Caption = '序号'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PPMC'
            Title.Caption = '邮票名称'
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TX'
            Title.Caption = '图序'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JHFPZTS'
            Title.Caption = '分配数量'
            Width = 70
            Visible = True
          end>
      end
      object Edt_ypmc: TEdit
        Left = 93
        Top = 332
        Width = 144
        Height = 20
        TabOrder = 1
        OnKeyDown = Edt_ypmcKeyDown
      end
    end
    object Panel7: TPanel
      Left = 293
      Top = 0
      Width = 199
      Height = 363
      Align = alLeft
      BevelOuter = bvLowered
      Caption = 'Panel7'
      TabOrder = 2
      object Label8: TLabel
        Left = 1
        Top = 1
        Width = 197
        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 = 197
        Height = 349
        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 = 495
      Top = 0
      Width = 198
      Height = 363
      Align = alClient
      BevelOuter = bvLowered
      Caption = 'Panel8'
      TabOrder = 3
      object Label9: TLabel
        Left = 1
        Top = 1
        Width = 196
        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 = 196
        Height = 349
        Align = alClient
        Color = clBtnFace
        DataSource = DataSource3
        PopupMenu = data.pm_Export
        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'
            ReadOnly = True
            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'
    OnFilterRecord = Qry_JHFPCSHBFilterRecord
    SQL.Strings = (
      'select a.JHH, a.PPMC, a.TX, a.JHFPZTS, b.XH'
      'from TYS_JJNFPJH_LM a, TF_PFXJHTAO b'
      'where a.JHH=b.JHH and a.ND=:ND'
      'order by to_number(b.XH), a.TX ')
    Left = 48
    Top = 98
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_JHFPCSHBJHH: TStringField
      FieldName = 'JHH'
      Size = 8
    end
    object Qry_JHFPCSHBPPMC: TStringField
      FieldName = 'PPMC'
      Size = 60
    end
    object Qry_JHFPCSHBTX: TFloatField
      FieldName = 'TX'
    end
    object Qry_JHFPCSHBJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JHFPCSHBXH: TStringField
      FieldName = 'XH'
      Size = 2
    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_LM a, TGS_GXDWSJB b'
      'where a.SQDWDM=b.DWDM and a.SQDWDM<>:DWDM and '
      '  JHH=:JHH and TX=:TX'
      'order by b.PXM')
    Left = 360
    Top = 94
    ParamData = <
      item
        DataType = ftString
        Name = 'DWDM'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftFloat
        Name = 'TX'
        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.JHH, a.TX, a.DWDM, a.ND, a.PPMC, a.JHFPZTS, a.ZT, a.ZBR' +
        ', a.PZR, a.ZDRQ, a.BZ, a.SDATE, b.DWJC'
      'from TY_JJNFPJH_LM a, TGS_GXDWSJB b'
      'where a.DWDM=b.DWDM and JHH=:JHH and TX=:TX'
      'order by b.PXM')
    UpdateObject = UpdateSQL1
    Left = 552
    Top = 94
    ParamData = <
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
        Value = #39#39
      end
      item
        DataType = ftFloat
        Name = 'TX'
        ParamType = ptUnknown
      end>
    object Qry_JJNFPJHJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNFPJH_LM.JHH'
      Size = 8
    end
    object Qry_JJNFPJHTX: TFloatField
      FieldName = 'TX'
      Origin = 'YZPP.TY_JJNFPJH_LM.TX'
    end
    object Qry_JJNFPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH_LM.DWDM'
      Size = 8
    end
    object Qry_JJNFPJHND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNFPJH_LM.ND'
      Size = 4
    end
    object Qry_JJNFPJHPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJNFPJH_LM.PPMC'
      Size = 60
    end
    object Qry_JJNFPJHJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      Origin = 'YZPP.TY_JJNFPJH_LM.JHFPZTS'
      OnSetText = Qry_JJNFPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNFPJH_LM.ZT'
      Size = 1
    end
    object Qry_JJNFPJHZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNFPJH_LM.ZBR'
      Size = 12
    end
    object Qry_JJNFPJHPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNFPJH_LM.PZR'
      Size = 12
    end
    object Qry_JJNFPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNFPJH_LM.ZDRQ'
    end
    object Qry_JJNFPJHBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNFPJH_LM.BZ'
      Size = 200
    end
    object Qry_JJNFPJHSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TY_JJNFPJH_LM.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_LM'
      'set'
      '  PPMC = :PPMC,'
      '  JHFPZTS = :JHFPZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = sysdate,'
      '  BZ = :BZ,'
      '  SDATE = :SDATE'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TY_JJNFPJH_LM'
      
        '  (JHH, TX, DWDM, ND, PPMC, JHFPZTS, ZT, ZBR, PZR, ZDRQ, BZ, SDA' +
        'TE)'
      'values'
      
        '  (:JHH, :TX, :DWDM, :ND, :PPMC, :JHFPZTS, :ZT, :ZBR, :PZR, sysd' +
        'ate, :BZ, '
      '   :SDATE)')
    DeleteSQL.Strings = (
      'delete from TY_JJNFPJH_LM'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  DWDM = :OLD_DWDM')
    Left = 608
    Top = 94
  end
end