sy_sjndfpjh_fp.dfm

省级集邮品管理ERP

inherited frm_SJNDFPJH_FP: Tfrm_SJNDFPJH_FP
  Tag = 31500
  Left = 90
  Top = 30
  Caption = '邮资票品管理信息系统——零枚票业务'
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 225
    Top = 57
    Width = 3
    Height = 385
    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 = 57
    Width = 225
    Height = 385
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object DBG_FXJH: TDBGridEh
      Left = 0
      Top = 16
      Width = 225
      Height = 369
      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 = 'MC'
          Title.Caption = '小类名称'
          Width = 191
          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
  end
  object Pnl_edit: TPanel
    Left = 228
    Top = 57
    Width = 464
    Height = 385
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object DBG_FPJH: TDBGridEh
      Left = 0
      Top = 16
      Width = 464
      Height = 369
      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 = 'MC'
          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 = 57
    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 = 376
      Top = 33
      Width = 36
      Height = 12
      Caption = '年度：'
    end
    object Label3: TLabel
      Left = 492
      Top = 32
      Width = 24
      Height = 12
      Caption = '大类'
    end
    object ND: TSpinEdit
      Left = 412
      Top = 29
      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
    object CB_dl: TComboBox
      Left = 524
      Top = 28
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = CB_dlChange
    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
    BeforeInsert = Qry_FPJHBeforeInsert
    AfterScroll = Qry_FPJHAfterScroll
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select a.ND, a.YZLDM, a.DWDM, a.JHFPZTS, a.ZT, a.ZBR, a.PZR, a.Z' +
        'DRQ, 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')
    UpdateObject = USQL_FPJH
    Left = 282
    Top = 332
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '2000'
      end
      item
        DataType = ftString
        Name = 'DLDM'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_FPJHND: TStringField
      FieldName = 'ND'
      Size = 4
    end
    object Qry_FPJHYZLDM: TStringField
      FieldName = 'YZLDM'
      Size = 4
    end
    object Qry_FPJHDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_FPJHJHFPZTS: TFloatField
      FieldName = 'JHFPZTS'
      OnSetText = Qry_FPJHJHFPZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_FPJHZT: TStringField
      FieldName = 'ZT'
      Size = 1
    end
    object Qry_FPJHZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Qry_FPJHPZR: TStringField
      FieldName = 'PZR'
      Size = 12
    end
    object Qry_FPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
    end
    object Qry_FPJHBZ: TStringField
      FieldName = 'BZ'
      Size = 200
    end
    object Qry_FPJHMC: TStringField
      FieldName = 'MC'
    end
  end
  object Qry_FXJH: TQuery
    AfterScroll = Qry_FXJHAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select YZLDM, MC '
      'from TG_YZPPLDMB '
      'where DL=:DL'
      'order by YZLDM')
    Left = 40
    Top = 109
    ParamData = <
      item
        DataType = ftString
        Name = 'DL'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object USQL_FPJH: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JJNFPJH_FP'
      'set'
      '  JHFPZTS = :JHFPZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TYS_JJNFPJH_FP'
      '  (ND, YZLDM, DWDM, JHFPZTS, ZT, ZBR, PZR, ZDRQ, BZ)'
      'values'
      '  (:ND, :YZLDM, :DWDM, :JHFPZTS, :ZT, :ZBR, :PZR, :ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TYS_JJNFPJH_FP'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  DWDM = :OLD_DWDM')
    Left = 338
    Top = 332
  end
  object dbge_csh: TDBGridEhExport
    Show_Progress = True
    SpaceMark = csTab
    Title = '上级封片年度分配计划'
    SheetName = '上级封片年度分配计划'
    Left = 276
    Top = 200
  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
end