⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmbarautop.~dfm

📁 二次开发模块 一、条形码的批量生成
💻 ~DFM
字号:
inherited FrmBarAuto: TFrmBarAuto
  Left = 270
  Top = 130
  Width = 478
  Height = 410
  Caption = #26465#24418#33258#21160#29983#25104
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 335
    Width = 470
    object Gauge1: TGauge [0]
      Left = 16
      Top = 11
      Width = 100
      Height = 23
      Progress = 0
      Visible = False
    end
    inherited BtnSave: TBitBtn
      Left = 243
      Top = 10
      Caption = #30830#23450
      OnClick = BtnSaveClick
    end
    inherited BtnCancel: TBitBtn
      Left = 342
      Top = 10
      OnClick = BtnCancelClick
    end
    object btnHistory: TButton
      Left = 136
      Top = 10
      Width = 75
      Height = 25
      Caption = #21382#21490#35760#24405
      TabOrder = 2
      OnClick = btnHistoryClick
    end
  end
  inherited Panel2: TPanel
    Width = 470
    Height = 335
    object GroupBox1: TGroupBox
      Left = 59
      Top = 12
      Width = 337
      Height = 47
      Caption = ' '#22823#31867' '
      TabOrder = 1
      object RadioButton1: TRadioButton
        Left = 32
        Top = 17
        Width = 62
        Height = 17
        Caption = #25104#21697#39033
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 122
        Top = 17
        Width = 62
        Height = 17
        Caption = #36741#26009#39033
        TabOrder = 1
        OnClick = RadioButton2Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 60
      Top = 63
      Width = 336
      Height = 174
      Caption = ' '#23384#36135' '
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 22
        Width = 65
        Height = 13
        Caption = #23384#36135#20195#30721#65306
      end
      object Label2: TLabel
        Left = 24
        Top = 45
        Width = 65
        Height = 13
        Caption = #23384#36135#21517#31216#65306
      end
      object Label3: TLabel
        Left = 24
        Top = 69
        Width = 65
        Height = 13
        Caption = #23384#36135#35268#26684#65306
      end
      object Label4: TLabel
        Left = 50
        Top = 93
        Width = 39
        Height = 13
        Caption = #39068#33394#65306
      end
      object Label5: TLabel
        Left = 184
        Top = 93
        Width = 39
        Height = 13
        Caption = #23610#30721#65306
      end
      object Label6: TLabel
        Left = 11
        Top = 117
        Width = 78
        Height = 13
        Caption = #20379#24212#21830#20195#30721#65306
      end
      object Label7: TLabel
        Left = 11
        Top = 141
        Width = 78
        Height = 13
        Caption = #20379#24212#21830#21517#31216#65306
      end
      object dxButtonEdit1: TdxButtonEdit
        Left = 83
        Top = 18
        Width = 130
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        Buttons = <
          item
            Default = True
          end>
        ViewStyle = vsHideCursor
        OnButtonClick = dxButtonEdit1ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit2: TdxButtonEdit
        Left = 83
        Top = 89
        Width = 92
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
        Buttons = <
          item
            Default = True
          end>
        ViewStyle = vsHideCursor
        OnButtonClick = dxButtonEdit2ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit3: TdxButtonEdit
        Left = 220
        Top = 89
        Width = 92
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 2
        Buttons = <
          item
            Default = True
          end>
        ViewStyle = vsHideCursor
        OnButtonClick = dxButtonEdit3ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit4: TdxButtonEdit
        Left = 83
        Top = 113
        Width = 130
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxButtonEdit4ButtonClick
        ExistButtons = True
      end
      object Edit1: TEdit
        Left = 83
        Top = 41
        Width = 170
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 4
      end
      object Edit2: TEdit
        Left = 83
        Top = 65
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 5
      end
      object Edit3: TEdit
        Left = 84
        Top = 137
        Width = 225
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 6
      end
    end
    object GroupBox3: TGroupBox
      Left = 59
      Top = 239
      Width = 337
      Height = 76
      Caption = ' '#25968#37327' '
      TabOrder = 2
      object Label8: TLabel
        Left = 16
        Top = 24
        Width = 39
        Height = 13
        Caption = #36215#22987#65306
      end
      object Label9: TLabel
        Left = 168
        Top = 24
        Width = 39
        Height = 13
        Caption = #25968#37327#65306
      end
      object Label10: TLabel
        Left = 16
        Top = 51
        Width = 46
        Height = 13
        Caption = #26465#24418#30721':'
      end
      object EditStart: TdxButtonEdit
        Left = 52
        Top = 20
        Width = 102
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        MaxLength = 6
        Buttons = <
          item
            Default = True
            Kind = bkGlyph
          end>
        OnButtonClick = EditStartButtonClick
        StoredValues = 2
        ExistButtons = True
      end
      object SpinEdit1: TSpinEdit
        Left = 205
        Top = 19
        Width = 121
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 1
      end
      object EditBarCode: TEdit
        Left = 64
        Top = 47
        Width = 172
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -