untpophisbarcode.~dfm

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

inherited FrmPoPHisBarCode: TFrmPoPHisBarCode
  Left = 360
  Top = 194
  Width = 460
  Height = 401
  Caption = #21382#21490#35760#24405
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 326
    Width = 452
    inherited BtnCancel: TBitBtn [0]
      Left = 192
      Visible = False
    end
    inherited BtnSave: TBitBtn [1]
      Left = 208
      Caption = #30830#23450
    end
    object btnOut: TButton
      Left = 80
      Top = 11
      Width = 75
      Height = 25
      Caption = #25968#25454#36755#20986
      TabOrder = 2
    end
  end
  inherited Panel2: TPanel
    Width = 452
    Height = 326
    BevelOuter = bvNone
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 111
      Width = 452
      Height = 215
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      DataSource = dsQryBarCode
      Filter.Criteria = {00000000}
      object dxDBGrid1ID: TdxDBGridColumn
        Width = 51
        BandIndex = 0
        RowIndex = 0
      end
      object dxDBGrid1cBarCode: TdxDBGridMaskColumn
        Caption = #26465#24418#30721
        Color = 14483408
        HeaderAlignment = taCenter
        Width = 145
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cBarCode'
      end
      object dxDBGrid1dDate: TdxDBGridMaskColumn
        Caption = #26102#38388
        HeaderAlignment = taCenter
        Width = 151
        BandIndex = 0
        RowIndex = 0
        FieldName = 'dDate'
      end
      object dxDBGrid1cMarker: TdxDBGridMaskColumn
        Caption = #29992#25143
        HeaderAlignment = taCenter
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cMarker'
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 452
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object RadioButton1: TRadioButton
        Left = 32
        Top = 13
        Width = 113
        Height = 17
        Caption = #19978#19968#27425#35760#24405
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 152
        Top = 12
        Width = 87
        Height = 17
        Caption = #21382#21490#35760#24405
        TabOrder = 1
        OnClick = RadioButton1Click
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 41
      Width = 452
      Height = 70
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      Visible = False
      object GroupBox1: TGroupBox
        Left = 20
        Top = -5
        Width = 363
        Height = 70
        TabOrder = 0
        object Label1: TLabel
          Left = 14
          Top = 18
          Width = 46
          Height = 13
          Caption = #26465#24418#30721':'
        end
        object Label2: TLabel
          Left = 226
          Top = 18
          Width = 33
          Height = 13
          Caption = #29992#25143':'
        end
        object Label4: TLabel
          Left = 174
          Top = 45
          Width = 7
          Height = 13
          Caption = '-'
        end
        object EditCode: TEdit
          Left = 64
          Top = 15
          Width = 154
          Height = 21
          ImeName = #26216#26342#20116#31508'5.0'
          TabOrder = 0
        end
        object EditUser: TEdit
          Left = 262
          Top = 14
          Width = 80
          Height = 21
          ImeName = #26216#26342#20116#31508'5.0'
          TabOrder = 1
        end
        object Date1: TDateTimePicker
          Left = 65
          Top = 41
          Width = 102
          Height = 21
          CalAlignment = dtaLeft
          Date = 38322.8521422801
          Time = 38322.8521422801
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          ImeName = #26216#26342#20116#31508'5.0'
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        end
        object Date2: TDateTimePicker
          Left = 186
          Top = 41
          Width = 102
          Height = 21
          CalAlignment = dtaLeft
          Date = 38322.8521422801
          Time = 38322.8521422801
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          ImeName = #26216#26342#20116#31508'5.0'
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
        object CheckBox1: TCheckBox
          Left = 9
          Top = 43
          Width = 54
          Height = 17
          Caption = #26085#26399':'
          TabOrder = 4
          OnClick = CheckBox1Click
        end
        object btnFind: TButton
          Left = 293
          Top = 40
          Width = 59
          Height = 25
          Caption = #26597#25214
          TabOrder = 5
          OnClick = btnFindClick
        end
      end
    end
  end
  object QryBarCode: TADOQuery
    Connection = DataDm.ConDataSys
    CursorType = ctStatic
    BeforeEdit = QryBarCodeBeforeEdit
    Parameters = <
      item
        Name = 'PCID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = '1'
      end>
    SQL.Strings = (
      'select * from BarData'
      'Where (PCID =:PCID)')
    Left = 72
    Top = 192
  end
  object dsQryBarCode: TDataSource
    DataSet = QryBarCode
    Left = 104
    Top = 192
  end
end