sy_ndfpjhzd.dfm

省级集邮品管理ERP

      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = DBG_JHFPCSHBCellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'JHH'
          Title.Alignment = taCenter
          Title.Caption = '计划号'
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'YPMC'
          Title.Alignment = taCenter
          Title.Caption = '票品名称'
          Width = 144
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JHFXL'
          Title.Alignment = taCenter
          Title.Caption = '分配套数'
          Width = 86
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 1
      Top = 151
      Width = 690
      Height = 28
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      object Label2: TLabel
        Left = 264
        Top = 8
        Width = 72
        Height = 12
        Caption = '剩余总套数：'
      end
      object Label1: TLabel
        Left = 9
        Top = 8
        Width = 60
        Height = 12
        Caption = '票品名称：'
      end
      object E_SYZTS: TCurrencyEdit
        Left = 341
        Top = 5
        Width = 111
        Height = 20
        AutoSize = False
        Color = clSilver
        DecimalPlaces = 0
        DisplayFormat = '#,##'
        ReadOnly = True
        TabOrder = 0
        ZeroEmpty = False
      end
      object BBt_AddDW: TBitBtn
        Left = 499
        Top = 3
        Width = 93
        Height = 21
        Hint = '在年度计划请领表中添加一单位'
        Caption = '添加单位(&G)'
        TabOrder = 1
        OnClick = Act_AddDWExecute
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333
          300033F77FFF3333377739999993333333333777777F3333333F399999933333
          33003777777333333377333993333333330033377F3333333377333993333333
          3333333773333333333F333333333333330033333333F33333773333333C3333
          330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
          333333333337733333FF3333333C333330003333333733333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object BBt_DeleteDW: TBitBtn
        Left = 596
        Top = 3
        Width = 90
        Height = 21
        Hint = '在年度计划请领表中删除一单位'
        Caption = '删除单位(&K)'
        TabOrder = 2
        OnClick = Act_DeleteDWExecute
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object E_PPMC: TEdit
        Left = 66
        Top = 5
        Width = 173
        Height = 20
        Anchors = [akTop, akRight]
        AutoSize = False
        Color = clSilver
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
    end
    object DBG_JJNXQB: TDBGrid
      Left = 313
      Top = 1
      Width = 378
      Height = 150
      Align = alClient
      Color = clSilver
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'DWMC'
          Title.Alignment = taCenter
          Title.Caption = '单位名称'
          Width = 135
          Visible = True
        end
        item
          Color = 12639424
          Expanded = False
          FieldName = 'XQZTS'
          Title.Alignment = taCenter
          Title.Caption = '需求总套数'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LSTS'
          Title.Alignment = taCenter
          Title.Caption = '零售套数'
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'YDTS'
          Title.Alignment = taCenter
          Title.Caption = '预订套数'
          Visible = True
        end>
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_YPFPJH'
      'set'
      '  JHH = :JHH,'
      '  ND = :ND,'
      '  DWDM = :DWDM,'
      '  YPMC = :YPMC,'
      '  DW = :DW,'
      '  JHFPZS = :JHFPZS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ,'
      '  SDATE = :SDATE'
      'where'
      '  JHH = :OLD_JHH and'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM')
    InsertSQL.Strings = (
      'insert into TY_YPFPJH'
      
        '  (JHH, ND, DWDM, YPMC, DW, JHFPZS, ZT, ZBR, PZR, ZDRQ, BZ, SDAT' +
        'E)'
      'values'
      
        '  (:JHH, :ND, :DWDM, :YPMC, :DW, :JHFPZS, :ZT, :ZBR, :PZR, :ZDRQ' +
        ', :BZ, '
      '   :SDATE)')
    DeleteSQL.Strings = (
      'delete from TY_YPFPJH'
      'where'
      '  JHH = :OLD_JHH and'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM')
    Left = 288
    Top = 270
  end
  object Qry_JHFPCSHB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select JHH,TMC YPMC,JHFXL,ND from TF_YPFXJHTAO')
    Left = 208
    Top = 78
    object Qry_JHFPCSHBJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TF_YPFXJHTAO.JHH'
    end
    object Qry_JHFPCSHBJHFXL: TFloatField
      FieldName = 'JHFXL'
      Origin = 'YZPP.TF_YPFXJHTAO.JHFXL'
      DisplayFormat = '#,##'
    end
    object Qry_JHFPCSHBYPMC: TStringField
      FieldName = 'YPMC'
      Origin = 'YZPP.TF_YPFXJHTAO.TMC'
      Size = 60
    end
    object Qry_JHFPCSHBND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TF_YPFXJHTAO.ND'
      Size = 4
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_JHFPCSHB
    Left = 240
    Top = 78
  end
  object Qry_JJNXQB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from TY_YPZDB')
    Left = 544
    Top = 78
    object Qry_JJNXQBSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Origin = 'YZPP.TY_JJNXQB.SQDWDM'
      Size = 8
    end
    object Qry_JJNXQBXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB.XQZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'SQDWDM'
      Size = 40
      Lookup = True
    end
    object Qry_JJNXQBYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNXQB.YDTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNXQB.LSTS'
      DisplayFormat = '#,##'
    end
  end
  object DataSource2: TDataSource
    DataSet = Qry_JJNXQB
    Left = 576
    Top = 78
  end
  object DataSource3: TDataSource
    DataSet = Qry_JJNFPJH
    Left = 316
    Top = 270
  end
  object Qry_GXDWSJB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,DWJC DWMC'
      ' from TGS_GXDWSJB'
      ' where JYYW='#39'1'#39
      ' order by PXM')
    Left = 376
    Top = 86
  end
  object Qry_Static: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from tGS_gxdwsjb')
    Left = 552
    Top = 234
  end
  object Qry_JJNFPJH: TQuery
    CachedUpdates = True
    BeforeDelete = Qry_JJNFPJHBeforeDelete
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select * from TY_YPFPJH')
    UpdateObject = UpdateSQL1
    Left = 260
    Top = 270
    object Qry_JJNFPJHJHH: TStringField
      DisplayWidth = 20
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNFPJH.JHH'
    end
    object Qry_JJNFPJHND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNFPJH.ND'
      Size = 4
    end
    object Qry_JJNFPJHDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJNFPJH.DWDM'
      Size = 8
    end
    object Qry_JJNFPJHZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNFPJH.ZT'
      Size = 1
    end
    object Qry_JJNFPJHZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNFPJH.ZBR'
      Size = 12
    end
    object Qry_JJNFPJHPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNFPJH.PZR'
      Size = 12
    end
    object Qry_JJNFPJHZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNFPJH.ZDRQ'
    end
    object Qry_JJNFPJHBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNFPJH.BZ'
      Size = 200
    end
    object Qry_JJNFPJHDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
    object Qry_JJNFPJHJHFPZS: TFloatField
      FieldName = 'JHFPZS'
      Origin = 'YZPP.TY_YPFPJH.JHFPZS'
      OnSetText = Qry_JJNFPJHJHFPZSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNFPJHYPMC: TStringField
      FieldName = 'YPMC'
      Origin = 'YZPP.TY_YPFPJH.YPMC'
      Size = 60
    end
    object Qry_JJNFPJHDW: TStringField
      FieldName = 'DW'
      Origin = 'YZPP.TY_YPFPJH.DW'
      Size = 6
    end
    object Qry_JJNFPJHSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TY_YPFPJH.SDATE'
    end
  end
end