sy_fpndqljh.dfm

省级集邮品管理ERP

      Top = 8
      Width = 75
      Height = 25
      Hint = '返回主界面'
      Caption = '返回(&X)'
      TabOrder = 3
      OnClick = BBt_rtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object BBt_re: TBitBtn
      Tag = 201
      Left = 112
      Top = 8
      Width = 75
      Height = 25
      Caption = '增加'
      TabOrder = 4
      OnClick = BBt_reClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF00000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000000000FFFFFF000000000000FFFFFF000000000000FF
        FFFF000000000000FFFFFF000000000000000000FFFFFF000000000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000000000FFFFFF000000000000FFFFFF000000000000FF
        FFFF000000000000FFFFFF000000000000000000FFFFFF000000000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000000000FFFFFF000000000000FFFFFF000000000000FF
        FFFF000000000000FFFFFF000000000000000000FFFFFF000000000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000000000FFFFFF000000000000FFFFFF000000000000FF
        FFFF000000000000FFFFFF000000000000000000FFFFFF000000000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000000000FF0000FF0000FF0000FF0000FF0000FF0000FF
        0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000000000000000BFBFBF
        BFBFBFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
        00BFBFBFBFBFBF00000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BBt_snd: TBitBtn
      Left = 496
      Top = 8
      Width = 75
      Height = 25
      Caption = '发送(&T)'
      TabOrder = 5
      OnClick = BBt_sndClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FF0000FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000FF0000FF0000
        00FF00FFFF00FFFF00FF0000000000000000000000000000000000000000FF00
        00FF0000FF0000FF0000FF0000FF0000FF000000FF00FFFF00FF000000FFFFFF
        FFFFFFFFFFFFFFFFFF0000000000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF000000FF00FF000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000FF00
        00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000000000000FFFFFF
        000000000000FFFFFF0000000000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF000000FF00FF000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000FF00
        00FF0000FF0000FF0000FF0000FF0000FF000000FF00FFFF00FF000000FFFFFF
        000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000FF0000FF0000
        00FF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF0000000000FF000000FF00FFFF00FFFF00FFFF00FF000000FFFFFF
        000000000000FFFFFF000000000000000000000000000000000000FF00FFFF00
        FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFF
        FFFF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FFFFFF
        000000BFBFBFFFFFFF000000FFFFFF000000FF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
        000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 44
    Width = 692
    Height = 37
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object Label3: TLabel
      Left = 184
      Top = 12
      Width = 48
      Height = 12
      Caption = '单位名称'
    end
    object Label1: TLabel
      Left = 496
      Top = 12
      Width = 24
      Height = 12
      Caption = '大类'
    end
    object RG_JB: TRadioGroup
      Left = 15
      Top = -2
      Width = 125
      Height = 31
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemIndex = 1
      Items.Strings = (
        '本级'
        '下级')
      ParentFont = False
      TabOrder = 0
      OnClick = RG_JBClick
    end
    object DBLCBo_dw: TDBLookupComboBox
      Left = 240
      Top = 8
      Width = 213
      Height = 20
      KeyField = 'DWDM'
      ListField = 'DWMC'
      ListSource = DS_dw
      TabOrder = 1
    end
    object CB_dl: TComboBox
      Left = 528
      Top = 8
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = CB_dlChange
    end
  end
  object DS_dw: TDataSource
    DataSet = Qry_dw
    Left = 276
    Top = 34
  end
  object Qry_dw: TQuery
    AfterScroll = Qry_dwAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select DWDM,DWJC DWMC '
      ' from TGS_GXDWSJB'
      ' where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and TXYW='#39'1'#39
      ' order by PXM')
    Left = 248
    Top = 34
  end
  object Qry_qljh: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_qljhBeforeInsert
    OnUpdateError = Qry_qljhUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select a.ND, a.YZLDM, a.SQDWDM, a.XQZTS, a.ZT, a.ZBR, a.ZDRQ, a.' +
        'BZ, b.MC '
      'from TY_JJNXQB_FP a, TG_YZPPLDMB b'
      
        'where a.YZLDM=b.YZLDM and a.ND=:ND and a.SQDWDM=:SQDWDM and b.DL' +
        '=:DL'
      'order by YZLDM')
    UpdateObject = USQL_qljh
    Left = 244
    Top = 133
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'SQDWDM'
        ParamType = ptUnknown
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'DL'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_qljhND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNXQB_FP.ND'
      Size = 4
    end
    object Qry_qljhYZLDM: TStringField
      FieldName = 'YZLDM'
      Origin = 'YZPP.TY_JJNXQB_FP.YZLDM'
      Size = 4
    end
    object Qry_qljhSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Origin = 'YZPP.TY_JJNXQB_FP.SQDWDM'
      Size = 8
    end
    object Qry_qljhXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB_FP.XQZTS'
      OnSetText = Qry_qljhXQZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_qljhZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNXQB_FP.ZT'
      Size = 1
    end
    object Qry_qljhZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNXQB_FP.ZBR'
      Size = 12
    end
    object Qry_qljhZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNXQB_FP.ZDRQ'
    end
    object Qry_qljhBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNXQB_FP.BZ'
      Size = 100
    end
    object Qry_qljhMC: TStringField
      FieldName = 'MC'
      Origin = 'YZPP.TG_YZPPLDMB.MC'
    end
  end
  object DS_qljh: TDataSource
    DataSet = Qry_qljh
    Left = 272
    Top = 133
  end
  object USQL_qljh: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJNXQB_FP'
      'set'
      '  XQZTS = :XQZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  SQDWDM = :OLD_SQDWDM')
    InsertSQL.Strings = (
      'insert into TY_JJNXQB_FP'
      '  (ND, YZLDM, SQDWDM, XQZTS, ZT, ZBR, ZDRQ, BZ)'
      'values'
      '  (:ND, :YZLDM, :SQDWDM, :XQZTS, :ZT, :ZBR, :ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TY_JJNXQB_FP'
      'where'
      '  ND = :OLD_ND and'
      '  YZLDM = :OLD_YZLDM and'
      '  SQDWDM = :OLD_SQDWDM')
    Left = 300
    Top = 133
  end
end