sj_pplbwh.dfm

省级集邮品管理ERP

      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330080
      8800333333338888888833333333007077003333333388F83388333333330077
      77003333333388FFFF8833333333000000003FFFFFFF88888888000000000000
      000088888888888888880FFFFFFF0FFFFFF08F3333338F3333380FFFFFFF0FFF
      FFF08F3FF3FF8FFFFFF80F00F0070CCC9CC08F883883888888880FFFFFFFF039
      99338F3FFFF3F8F888F30F0000F0F09999938F8888383888888F0FFFFFFFF999
      99998F3FF3FFF88888880F00F000003999338F883888883888F30FFFF0FF0339
      99338F3FF8F3833888F30F07F0F0338999338F8838F83F8888330FFFF0039999
      93338FFFF8838888833300000033333333338888883333333333}
    NumGlyphs = 2
  end
  object bbtn_Cancel: TBitBtn
    Left = 403
    Top = 390
    Width = 75
    Height = 25
    Caption = '取消(&C)'
    TabOrder = 9
    OnClick = bbtn_CancelClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object bbtn_Exit: TBitBtn
    Left = 497
    Top = 390
    Width = 75
    Height = 25
    Cancel = True
    Caption = '返回(&X)'
    TabOrder = 10
    OnClick = bbtn_ExitClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object RXDBG_LB1: TRxDBGrid
    Left = 14
    Top = 71
    Width = 365
    Height = 140
    DataSource = ds_LB1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = data.pm_Export
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDrawColumnCell = RXDBG_LB1DrawColumnCell
    OnEnter = RXDBG_LB1Enter
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'JYPLDM'
        Title.Alignment = taCenter
        Title.Caption = '集邮品类代码'
        Width = 116
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MC'
        Title.Alignment = taCenter
        Title.Caption = '名称'
        Width = 209
        Visible = True
      end>
  end
  object RXDBG_LB2: TRxDBGrid
    Left = 14
    Top = 233
    Width = 365
    Height = 140
    DataSource = ds_LB2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = data.pm_Export
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDrawColumnCell = RXDBG_LB2DrawColumnCell
    OnEnter = RXDBG_LB2Enter
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'JYPLDM'
        Title.Alignment = taCenter
        Title.Caption = '集邮品类代码'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MC'
        Title.Alignment = taCenter
        Title.Caption = '名称'
        Width = 133
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BH'
        Title.Alignment = taCenter
        Title.Caption = '编号'
        Width = 100
        Visible = True
      end>
  end
  object Panel11: TPanel
    Left = 0
    Top = 0
    Width = 592
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    object RxLabel1: TRxLabel
      Left = 1
      Top = 1
      Width = 590
      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 = 28
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object qry_LB1: TQuery
    CachedUpdates = True
    BeforeInsert = qry_LB1BeforeInsert
    AfterScroll = qry_LB1AfterScroll
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      'Select JYPLDM,LB,MC,BH,ZT from TG_JYPLDMB where Length(JYPLDM)=1')
    UpdateObject = upSQL_1
    Left = 22
    Top = 89
  end
  object ds_LB1: TDataSource
    DataSet = qry_LB1
    Left = 52
    Top = 87
  end
  object qry_LB2: TQuery
    CachedUpdates = True
    BeforeInsert = qry_LB2BeforeInsert
    AfterScroll = qry_LB2AfterScroll
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      'Select JYPLDM,LB,MC,BH,ZT from TG_JYPLDMB where Length(JYPLDM)=3')
    UpdateObject = upSQL_2
    Left = 25
    Top = 193
  end
  object ds_LB2: TDataSource
    DataSet = qry_LB2
    Left = 59
    Top = 191
  end
  object qry_Tmp: TQuery
    DatabaseName = 'yzpp'
    Left = 10
    Top = 356
  end
  object upSQL_1: TUpdateSQL
    ModifySQL.Strings = (
      'update TG_JYPLDMB'
      'set'
      '  JYPLDM = :JYPLDM,'
      '  LB = :LB,'
      '  MC = :MC,'
      '  BH = :BH,'
      '  ZT = :ZT'
      'where'
      '  JYPLDM = :OLD_JYPLDM')
    InsertSQL.Strings = (
      'insert into TG_JYPLDMB'
      '  (JYPLDM, LB, MC, BH, ZT)'
      'values'
      '  (:JYPLDM, :LB, :MC, :BH, :ZT)')
    DeleteSQL.Strings = (
      'delete from TG_JYPLDMB'
      'where'
      '  JYPLDM = :OLD_JYPLDM')
    Left = 76
    Top = 93
  end
  object upSQL_2: TUpdateSQL
    ModifySQL.Strings = (
      'update TG_JYPLDMB'
      'set'
      '  JYPLDM = :JYPLDM,'
      '  LB = :LB,'
      '  MC = :MC,'
      '  BH = :BH,'
      '  ZT = :ZT'
      'where'
      '  JYPLDM = :OLD_JYPLDM')
    InsertSQL.Strings = (
      'insert into TG_JYPLDMB'
      '  (JYPLDM, LB, MC, BH, ZT)'
      'values'
      '  (:JYPLDM, :LB, :MC, :BH, :ZT)')
    DeleteSQL.Strings = (
      'delete from TG_JYPLDMB'
      'where'
      '  JYPLDM = :OLD_JYPLDM')
    Left = 86
    Top = 197
  end
end