frmuserp.~dfm

二次开发模块 一、条形码的批量生成

object FrmUser: TFrmUser
  Left = 192
  Top = 107
  Width = 422
  Height = 369
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 45
    Align = alTop
    Caption = #29992#25143#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object SBAdd: TSpeedButton
      Left = 8
      Top = 6
      Width = 22
      Height = 22
      Hint = #26032#22686
      Flat = True
      Glyph.Data = {
        36030000424D360300000000000036000000280000000F000000100000000100
        18000000000000030000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C080808080808080808080808080808080
        8080808080808080808080808080808080808080C0C0C0000000C0C0C0C0C0C0
        0000000000000000000000000000000000000000000000000000000000000000
        00808080C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000808080C0C0C0000000C0C0C0C0C0C0
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00808080C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFF80
        0000C0C0C0FFFFFFFFFFFFFFFFFF000000808080C0C0C0000000C0C0C0C0C0C0
        000000FFFFFFFFFFFFFFFFFFFFFFFF800000C0C0C0C0C0C0FFFFFFFFFFFF0000
        00808080C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFF80000080000080
        0000800000800000FFFFFFFFFFFF000000808080C0C0C0000000C0C0C0C0C0C0
        000000FFFFFFFFFFFFFFFFFFFFFFFF800000C0C0C0FFFFFFFFFFFFFFFFFF0000
        00808080C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFF80
        0000C0C0C0FFFFFFFFFFFFFFFFFF000000808080C0C0C0000000C0C0C0C0C0C0
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00808080C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000000000000000000000C0C0C0C0C0C0000000C0C0C0C0C0C0
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0
        000000000000000000000000000000000000000000000000C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBAddClick
    end
    object SBDelete: TSpeedButton
      Left = 30
      Top = 6
      Width = 22
      Height = 22
      Hint = #21024#38500
      Flat = True
      Glyph.Data = {
        0E030000424D0E030000000000003600000028000000110000000E0000000100
        180000000000D8020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
        BFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF000000BFBFBFBFBFBF00BFBFBFBFBFBF000000000000000000BFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBF00
        0000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF
        BFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF00000000
        0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000
        00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000
        000000000000BFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBF000000000000000000000000BFBFBFBFBFBFBFBFBF
        BFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF00000000
        0000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF00BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBDeleteClick
    end
    object SBKey: TSpeedButton
      Left = 52
      Top = 6
      Width = 22
      Height = 22
      Hint = #37325#35774#23494#30721
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080808080000000C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        808080FFF8FFDFE0DF808080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C000787F000000C0C0C0C0C0C0C0C0C0808080AFB0AF808080000000C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000787F00F8FF000000C0C0C0C0C0C0
        808080FFF8FFDFE0DF808080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00078
        7F00F8FF00787F000000C0C0C0C0C0C0C0C0C0808080BFB8BF707070000000C0
        C0C0C0C0C0C0C0C0C0C0C000787F00F8FF00787F00C8CF000000C0C0C0C0C0C0
        808080FFF8FFDFD8DF808080000000C0C0C0C0C0C0C0C0C000787F00F8FF0078
        7F00C8CF000000C0C0C0C0C0C0C0C0C0C0C0C0808080BFB8BF80808000000000
        787F00787F00787F00F8FF00787F00C8CF000000C0C0C0C0C0C0C0C0C0C0C0C0
        808080DFE0DFBFB8BF000000FFF8FFFFF8FFFFF8FFFFF8FF00787F00C8CF0000
        00C0C0C0C0C0C0C0C0C0C0C0C0808080DFE0DFBFB8BF00787FFFF8FF00F8FF00
        C8CF00C8CFBFB8BF00C8CF000000C0C0C0C0C0C0C0C0C0C0C0C0808080FFF8FF
        BFB8BF70707000787FFFF8FFBFB8BFBFB8BF00F8FF00C8CF00787F000000C0C0
        C0C0C0C0C0C0C0C0C0C0808080FFF8FFDFE0DF80808080808000000080808000
        0000BFB8BFBFB8BF00787F000000C0C0C0C0C0C0C0C0C0C0C0C0808080FFF8FF
        DFE0DFBFB8BF00000000787FFFF8FF00787F00C8CF00C8CF00787F000000C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFF8FFFFF8FF000000FFF8FF80808000
        787F00787F00787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        808080808080000000808080808080808080000000000000C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000
        0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBKeyClick
    end
    object SBQuit: TSpeedButton
      Left = 119
      Top = 6
      Width = 22
      Height = 22
      Hint = #36864#20986
      Flat = True
      Glyph.Data = {
        B6030000424DB603000000000000360000002800000012000000100000000100
        18000000000080030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF000000808000000000BF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBF000000808000808000000000BFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBF000000
        0000008080008080008080000000000000000000000000000000000000000000
        00000000BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF0000008080008080
        00808000000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBF000000808000808000000000000000FF
        FFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBF800000BFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBF000000808000808000808000000000FFFFFFFFFFFF000000
        BFBFBFBFBFBFBFBFBF800000800000BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        000000808000808000808000000000FFFFFFFFFFFF000000BFBFBFBFBFBF8000
        00800000800000800000800000BFBFBF0000BFBFBFBFBFBF0000008080008080
        00808000000000FFFFFFFFFFFF000000BFBFBF80000080000080000080000080
        0000800000BFBFBF0000BFBFBFBFBFBF000000808000808000808000000000FF
        FFFFFFFFFF000000BFBFBFBFBFBF800000800000800000800000800000BFBFBF
        0000BFBFBFBFBFBF000000808000808000000000FFFFFFFFFFFFFFFFFF000000
        BFBFBFBFBFBFBFBFBF800000800000BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        000000808000000000FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBF
        BFBFBFBF800000BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF000000000000FFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBF00000000000000000000000000000000
        0000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBQuitClick
    end
    object SBSave: TSpeedButton
      Left = 74
      Top = 6
      Width = 22
      Height = 22
      Hint = 'Save'
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000
        0000000000000000000000000000000000000000000000BFBFBFBFBFBF000000
        008780008780000000000000000000000000000000000000C0C7C0C0C7C00000
        00008780000000BFBFBFBFBFBF00000000878000878000000000000000000000
        0000000000000000C0C7C0C0C7C0000000008780000000BFBFBFBFBFBF000000
        008780008780000000000000000000000000000000000000C0C7C0C0C7C00000
        00008780000000BFBFBFBFBFBF00000000878000878000000000000000000000
        0000000000000000000000000000000000008780000000BFBFBFBFBFBF000000
        0087800087800087800087800087800087800087800087800087800087800087
        80008780000000BFBFBFBFBFBF00000000878000878000000000000000000000
        0000000000000000000000000000008780008780000000BFBFBFBFBFBF000000
        008780000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        00008780000000BFBFBFBFBFBF000000008780000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000008780000000BFBFBFBFBFBF000000
        008780000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        00008780000000BFBFBFBFBFBF000000008780000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000008780000000BFBFBFBFBFBF000000
        008780000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        00000000000000BFBFBFBFBFBF000000008780000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000C0C7C0000000BFBFBFBFBFBF000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBSaveClick
    end
    object SBCancel: TSpeedButton
      Left = 96
      Top = 6
      Width = 22
      Height = 22
      Hint = 'Cancel'
      Flat = True
      Glyph.Data = {
        0E030000424D0E030000000000003600000028000000110000000E0000000100
        180000000000D8020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBF0000007F0000BFBFBFBFBFBFBFBFBFBFBFBF00BFBF
        BFBFBFBF7F00007F00007F00007F00007F0000BFBFBFBFBFBFBFBFBF7F7F7F7F
        7F7F7F0000000000BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF7F00007F00007F00
        007F00007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F7F0000BFBFBFBF
        BFBFBFBFBF00BFBFBFBFBFBF7F00007F00007F00007F7F7FBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF7F7F7F7F0000BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
        7F00007F00007F7F7F7F00007F7F7FBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F
        7F7F0000BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF7F00007F7F7FBFBFBFBFBFBF
        7F00007F00007F7F7F7F7F7F7F7F7F7F7F7F7F0000000000BFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F00007F0000
        7F00007F0000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = SBCancelClick
    end
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 45
    Width = 414
    Height = 297
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'ID'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 1
    DataSource = dsQryUser
    Filter.Criteria = {00000000}
    object dxDBGrid1cName: TdxDBGridMaskColumn
      Caption = #29992#25143#21517
      HeaderAlignment = taCenter
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cName'
    end
    object dxDBGrid1bVouch01: TdxDBGridCheckColumn
      Alignment = taCenter
      Caption = #37319#36141#20837#24211
      HeaderAlignment = taCenter
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bVouch01'
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object dxDBGrid1bVouch32: TdxDBGridCheckColumn
      Alignment = taCenter
      Caption = #38144#21806#20986#24211
      HeaderAlignment = taCenter
      MinWidth = 20
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bVouch32'
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
  end
  object dsQryUser: TDataSource
    DataSet = DataDm.QryUser
    Left = 104
    Top = 160
  end
end