sy_lmndqljh.dfm

省级集邮品管理ERP

        E03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03D
        E03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03DE03D
        E03DE03DE03DE03DE03D}
      NumGlyphs = 2
    end
    object BBt_rtn: TBitBtn
      Left = 592
      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 = 196
      Top = 12
      Width = 48
      Height = 12
      Caption = '单位名称'
    end
    object Label1: TLabel
      Left = 516
      Top = 12
      Width = 48
      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 = 248
      Top = 8
      Width = 213
      Height = 20
      KeyField = 'DWDM'
      ListField = 'DWMC'
      ListSource = DS_dw
      TabOrder = 1
    end
    object Edt_ypmc: TEdit
      Left = 568
      Top = 8
      Width = 105
      Height = 20
      TabOrder = 2
      OnKeyDown = Edt_ypmcKeyDown
    end
  end
  object DS_dw: TDataSource
    DataSet = Qry_dw
    Left = 116
    Top = 6
  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 = 88
    Top = 6
  end
  object Qry_qljh: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_qljhBeforeInsert
    OnUpdateError = Qry_qljhUpdateError
    DatabaseName = 'YZPP'
    OnFilterRecord = Qry_qljhFilterRecord
    RequestLive = True
    SQL.Strings = (
      
        'select a.JHH, a.TX, a.SQDWDM, a.ND, a.ZT, a.PPMC, a.XQZTS, a.ZBR' +
        ', a.PZR, a.ZDRQ, a.BZ '
      'from TY_JJNXQB_LM a, TF_PFXJHTAO b'
      'where a.JHH=b.JHH and a.ND= :ND and a.SQDWDM= :SQDWDM'
      'order by to_number(b.XH), a.TX')
    UpdateObject = USQL_qljh
    Left = 244
    Top = 133
    ParamData = <
      item
        DataType = ftString
        Name = 'ND'
        ParamType = ptUnknown
        Value = '2000'
      end
      item
        DataType = ftString
        Name = 'SQDWDM'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Qry_qljhJHH: TStringField
      FieldName = 'JHH'
      Size = 8
    end
    object Qry_qljhTX: TFloatField
      FieldName = 'TX'
    end
    object Qry_qljhSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Size = 8
    end
    object Qry_qljhND: TStringField
      FieldName = 'ND'
      Size = 4
    end
    object Qry_qljhZT: TStringField
      FieldName = 'ZT'
      Size = 1
    end
    object Qry_qljhPPMC: TStringField
      FieldName = 'PPMC'
      Size = 60
    end
    object Qry_qljhXQZTS: TFloatField
      FieldName = 'XQZTS'
      OnSetText = Qry_qljhXQZTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_qljhZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Qry_qljhPZR: TStringField
      FieldName = 'PZR'
      Size = 12
    end
    object Qry_qljhZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
    end
    object Qry_qljhBZ: TStringField
      FieldName = 'BZ'
      Size = 100
    end
  end
  object DS_qljh: TDataSource
    DataSet = Qry_qljh
    Left = 272
    Top = 133
  end
  object USQL_qljh: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJNXQB_LM'
      'set'
      '  ND = :ND,'
      '  ZT = :ZT,'
      '  PPMC = :PPMC,'
      '  XQZTS = :XQZTS,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  SQDWDM = :OLD_SQDWDM')
    InsertSQL.Strings = (
      'insert into TY_JJNXQB_LM'
      '  (JHH, TX, SQDWDM, ND, ZT, PPMC, XQZTS, ZBR, PZR, ZDRQ, BZ)'
      'values'
      
        '  (:JHH, :TX, :SQDWDM, :ND, :ZT, :PPMC, :XQZTS, :ZBR, :PZR, :ZDR' +
        'Q, :BZ)')
    DeleteSQL.Strings = (
      'delete from TY_JJNXQB_LM'
      'where'
      '  JHH = :OLD_JHH and'
      '  TX = :OLD_TX and'
      '  SQDWDM = :OLD_SQDWDM')
    Left = 300
    Top = 133
  end
end