sy_sjndfpjh_lm.dfm

省级集邮品管理ERP

inherited frm_SJNDFPJH_LM: Tfrm_SJNDFPJH_LM
  Tag = 31400
  Left = 61
  Top = 29
  Caption = '邮资票品管理信息系统——零枚票业务'
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 225
    Top = 49
    Width = 3
    Height = 393
    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 = 49
    Width = 225
    Height = 393
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object DBG_FXJH: TDBGridEh
      Left = 0
      Top = 16
      Width = 225
      Height = 340
      LineColor = clBlack
      SelectedFontColor = clHighlightText
      Align = alClient
      Color = clBtnFace
      DataSource = DS_FXJH
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnEnter = DBG_FXJHEnter
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.CurrencyFont.Color = clWindowText
      CurrencyStyle.CurrencyFont.Height = -11
      CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
      CurrencyStyle.CurrencyFont.Style = []
      CurrencyStyle.CurrencySymbol = '￥'
      CurrencyStyle.CompartColor = clSilver
      CurrencyStyle.KilobitColor = clGreen
      CurrencyStyle.RadixColor = clRed
      CurrencyStyle.ShowMinus = True
      CurrencyStyle.ShowZero = False
      CurrencyStyle.MinusColor = clRed
      CurrencyStyle.Layout = tlCenter
      CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.HeadFont.Color = clWindowText
      CurrencyStyle.HeadFont.Height = -11
      CurrencyStyle.HeadFont.Name = '楷体_GB2312'
      CurrencyStyle.HeadFont.Style = []
      Columns = <
        item
          FieldName = 'XH'
          Title.Caption = '序号'
          Width = 30
          Footers = <>
        end
        item
          FieldName = 'PPMC'
          Title.Caption = '邮票名称 + 图序'
          Width = 150
          Footers = <>
        end>
    end
    object StaticText1: TStaticText
      Left = 0
      Top = 0
      Width = 225
      Height = 16
      Align = alTop
      BorderStyle = sbsSunken
      Caption = '发行计划'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object Panel2: TPanel
      Left = 0
      Top = 356
      Width = 225
      Height = 37
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 2
      object Label1: TLabel
        Left = 13
        Top = 12
        Width = 48
        Height = 12
        Caption = '邮票名称'
      end
      object Edt_ypmc: TEdit
        Left = 76
        Top = 8
        Width = 129
        Height = 20
        TabOrder = 0
        OnKeyDown = Edt_ypmcKeyDown
      end
    end
  end
  object Pnl_edit: TPanel
    Left = 228
    Top = 49
    Width = 464
    Height = 393
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object DBG_FPJH: TDBGridEh
      Left = 0
      Top = 16
      Width = 464
      Height = 377
      LineColor = clBlack
      SelectedFontColor = clHighlightText
      Align = alClient
      Color = clBtnFace
      DataSource = DS_FPJH
      PopupMenu = PM_Exp
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnEnter = DBG_FPJHEnter
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.CurrencyFont.Color = clWindowText
      CurrencyStyle.CurrencyFont.Height = -11
      CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
      CurrencyStyle.CurrencyFont.Style = []
      CurrencyStyle.CurrencySymbol = '￥'
      CurrencyStyle.CompartColor = clSilver
      CurrencyStyle.KilobitColor = clGreen
      CurrencyStyle.RadixColor = clRed
      CurrencyStyle.ShowMinus = True
      CurrencyStyle.ShowZero = False
      CurrencyStyle.MinusColor = clRed
      CurrencyStyle.Layout = tlCenter
      CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.HeadFont.Color = clWindowText
      CurrencyStyle.HeadFont.Height = -11
      CurrencyStyle.HeadFont.Name = '楷体_GB2312'
      CurrencyStyle.HeadFont.Style = []
      Columns = <
        item
          FieldName = 'TUMC'
          Title.Caption = '邮票名称 + 图序'
          Width = 160
          Footers = <>
        end
        item
          FieldName = 'JHFPZTS'
          Title.Caption = '分配数量'
          Width = 65
          Footers = <>
        end
        item
          FieldName = 'ZBR'
          Title.Caption = '制表人'
          Width = 60
          Footers = <>
        end
        item
          FieldName = 'ZDRQ'
          Title.Caption = '制表日期'
          Width = 80
          Footers = <>
        end
        item
          FieldName = 'BZ'
          Title.Caption = '备注'
          Width = 100
          Footers = <>
        end>
    end
    object StaticText2: TStaticText
      Left = 0
      Top = 0
      Width = 464
      Height = 16
      Align = alTop
      BorderStyle = sbsSunken
      Caption = '分配计划'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 49
    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 Qry_FXJH: TQuery
    AfterScroll = Qry_FXJHAfterScroll
    DatabaseName = 'YZPP'
    OnFilterRecord = Qry_FXJHFilterRecord
    SQL.Strings = (
      'select b.XH, a.JHH, a.TX, b.TMC||'#39'('#39'||a.TX ||'#39')'#39' PPMC, b.TMC'
      'from TF_PFXJHTU a, TF_PFXJHTAO b '
      'where a.JHH=b.JHH and b.ND=:ND and a.TZDM='#39'01'#39
      'order by to_number(b.XH), a.TX')
    Left = 40
    Top = 109
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '2000'
      end>
  end
  object PM_Exp: TPopupMenu
    OnPopup = PM_ExpPopup
    Left = 304
    Top = 200
    object N1: TMenuItem
      Caption = '应用于当前所有记录'
      object N3: TMenuItem
        Tag = 11
        Caption = '覆盖当前值'
        OnClick = N3Click
      end
      object N4: TMenuItem
        Tag = 22
        Caption = '只应用于空值'
        OnClick = N3Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object MI_Exc: TMenuItem
      Caption = '导出到Excel(&E)'
      OnClick = MI_ExcClick
    end
    object MI_txt: TMenuItem
      Caption = '导出到文本(&T)'
      OnClick = MI_txtClick
    end
  end
  object dbge_csh: TDBGridEhExport
    Show_Progress = True
    SpaceMark = csTab
    Title = '上级纪特零枚年度分配计划'
    SheetName = '上级纪特零枚年度分配计划'
    Left = 276
    Top = 200
  end
  object Qry_FPJH: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_FPJHBeforeInsert
    AfterScroll = Qry_FPJHAfterScroll
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select a.JHH, a.PPMC||'#39'('#39'||a.TX||'#39')'#39' TUMC, a.TX, a.DWDM, a.ND, a' +
        '.PPMC, a.JHFPZTS, a.ZT, a.ZBR, a.PZR, a.ZDRQ, a.BZ'
      ' 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')
    UpdateObject = USQL_FPJH
    Left = 280
    Top = 293
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DS_FPJH: TDataSource
    DataSet = Qry_FPJH
    Left = 308
    Top = 293
  end
  object USQL_FPJH: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JJNFPJH_LM'
      'set'
      '  JHH = :JHH,'
      '  TX = :TX,'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  PPMC = :PPMC,'
      '  JHFPZTS = :JHFPZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND')
    InsertSQL.Strings = (
      'insert into TYS_JJNFPJH_LM'
      '  (JHH, TX, DWDM, ND, PPMC, JHFPZTS, ZT, ZBR, PZR, ZDRQ, BZ)'
      'values'
      
        '  (:JHH, :TX, :DWDM, :ND, :PPMC, :JHFPZTS, :ZT, :ZBR, :PZR, :ZDR' +
        'Q, :BZ)')
    DeleteSQL.Strings = (
      'delete from TYS_JJNFPJH_LM'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND')
    Left = 336
    Top = 293
  end
end