sy_sjndfpjhbl.dfm

省级集邮品管理ERP

inherited frm_SJNDFPJHBL: Tfrm_SJNDFPJHBL
  Tag = 21600
  Left = 41
  Top = 73
  Caption = '邮资票品管理信息系统——集邮票业务'
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 225
    Top = 45
    Width = 3
    Height = 397
    Cursor = crHSplit
  end
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 442
    Width = 692
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DisButton = [bnAdd, bnDelete, bnEdit, bnSave, bnCancel, bnClose]
    BtnWidth = 70
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 225
    Height = 397
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object DBG_FXJH: TDBGrid
      Left = 0
      Top = 0
      Width = 225
      Height = 397
      Align = alClient
      DataSource = DS_FXJH
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ImeName = '中文 (简体) - 全拼'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      PopupMenu = data.pm_Export
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clOlive
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnEnter = DBG_FXJHEnter
      Columns = <
        item
          Expanded = False
          FieldName = 'XH'
          Title.Caption = '序号'
          Width = 32
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TMC'
          Title.Caption = '发行计划票品'
          Width = 151
          Visible = True
        end>
    end
  end
  object Pnl_edit: TPanel
    Left = 228
    Top = 45
    Width = 464
    Height = 397
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 2
    object Label4: TLabel
      Left = 20
      Top = 19
      Width = 48
      Height = 12
      Caption = '分配数量'
    end
    object Label1: TLabel
      Left = 271
      Top = 48
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = '制表日期'
    end
    object Label2: TLabel
      Left = 45
      Top = 74
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label6: TLabel
      Left = 32
      Top = 46
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object DBEdt_zbr: TDBEdit
      Left = 71
      Top = 43
      Width = 121
      Height = 20
      DataField = 'ZBR'
      DataSource = DS_FPJH
      TabOrder = 1
    end
    object DBG_FPJH: TDBGrid
      Left = 1
      Top = 124
      Width = 462
      Height = 272
      Align = alBottom
      DataSource = DS_FPJH
      FixedColor = clMenu
      ImeName = '中文 (简体) - 全拼'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnEnter = DBG_FXJHEnter
      Columns = <
        item
          Expanded = False
          FieldName = 'PPMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 166
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JHFPZTS'
          ReadOnly = True
          Title.Caption = '分配数量'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZBR'
          ReadOnly = True
          Title.Caption = '制表人'
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZDRQ'
          ReadOnly = True
          Title.Caption = '制表日期'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZ'
          ReadOnly = True
          Title.Caption = '备注'
          Width = 69
          Visible = True
        end>
    end
    object DBM_bz: TDBMemo
      Left = 71
      Top = 70
      Width = 373
      Height = 41
      DataField = 'BZ'
      DataSource = DS_FPJH
      TabOrder = 3
    end
    object DBDE_zdrq: TDBDateEdit
      Left = 323
      Top = 43
      Width = 122
      Height = 21
      DataField = 'ZDRQ'
      DataSource = DS_FPJH
      NumGlyphs = 2
      TabOrder = 2
      YearDigits = dyFour
    end
    object DBEdt_sl: TDBEdit
      Left = 71
      Top = 16
      Width = 121
      Height = 20
      CharCase = ecUpperCase
      DataField = 'JHFPZTS'
      DataSource = DS_FPJH
      TabOrder = 0
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 45
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 690
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '上级年度分配计划补录'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 27
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 588
      Top = 25
      Width = 36
      Height = 12
      Caption = '年度：'
    end
    object ND: TSpinEdit
      Left = 624
      Top = 21
      Width = 54
      Height = 21
      Hint = '更改年度'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 4
      MaxValue = 9999
      MinValue = 0
      ParentFont = False
      TabOrder = 0
      Value = 9999
      OnChange = NDChange
    end
  end
  object DS_FXJH: TDataSource
    DataSet = Qry_FXJH
    Left = 70
    Top = 109
  end
  object DS_FPJH: TDataSource
    DataSet = Qry_FPJH
    Left = 310
    Top = 332
  end
  object Qry_FPJH: TQuery
    CachedUpdates = True
    AfterScroll = Qry_FPJHAfterScroll
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select JHH, ND, DWDM, PPMC, JHFPZTS, ZT, ZBR, ZDRQ, BZ'
      ' from TYS_JJNFPJH'
      ' where ND=:ND')
    UpdateObject = USQL_FPJH
    Left = 282
    Top = 332
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '2000'
      end>
    object Qry_FPJHJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TYS_JJNFPJH.JHH'
      Size = 8
    end
    object Qry_FPJHND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TYS_JJNFPJH.ND'
      Size = 4
    end
    object Qry_FPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_JJNFPJH.DWDM'
      Size = 8
    end
    object Qry_FPJHPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TYS_JJNFPJH.PPMC'
      Size = 60
    end
    object Qry_FPJHJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      Origin = 'YZPP.TYS_JJNFPJH.JHFPZTS'
      DisplayFormat = '##,#'
    end
    object Qry_FPJHZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TYS_JJNFPJH.ZT'
      Size = 1
    end
    object Qry_FPJHZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TYS_JJNFPJH.ZBR'
      Size = 12
    end
    object Qry_FPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TYS_JJNFPJH.ZDRQ'
    end
    object Qry_FPJHBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TYS_JJNFPJH.BZ'
      Size = 200
    end
  end
  object Qry_FXJH: TQuery
    AfterScroll = Qry_FXJHAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select JHH, XH, TMC ||'#39'('#39'||b.MC||'#39')'#39' TMC, TJC, QTMZ, TPSJ, FXRQ,' +
        ' FXL, BZ '
      ' from TF_PFXJHTAO a, TG_YZPPTZDM b'
      ' where ND=:ND and a.TZDM=b.TZDM'
      ' order by to_number(XH)')
    Left = 40
    Top = 109
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '2000'
      end>
  end
  object USQL_FPJH: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JJNFPJH'
      'set'
      '  JHFPZTS = :JHFPZTS,'
      '  ZBR = :ZBR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  JHH = :OLD_JHH')
    InsertSQL.Strings = (
      'insert into TYS_JJNFPJH'
      '  (JHH, ND, DWDM, PPMC, JHFPZTS, ZT, ZBR, ZDRQ, BZ)'
      'values'
      '  (:JHH, :ND, :DWDM, :PPMC, :JHFPZTS, :ZT, :ZBR, :ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TYS_JJNFPJH'
      'where'
      '  JHH = :OLD_JHH')
    Left = 338
    Top = 332
  end
end