frmpopinvdefinep.~dfm

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

inherited FrmPoPInvDefine: TFrmPoPInvDefine
  Left = 402
  Top = 193
  Height = 334
  Caption = #33258#30001#39033#23450#20041
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 259
    inherited BtnSave: TBitBtn
      Caption = #30830#23450
      OnClick = BtnSaveClick
    end
  end
  inherited Panel2: TPanel
    Height = 259
    BevelOuter = bvNone
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 310
      Height = 259
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'cAlias'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid1DblClick
      DataSource = dsQryDefine
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid1cValue: TdxDBGridMaskColumn
        Caption = #20540
        HeaderAlignment = taCenter
        Width = 104
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cValue'
      end
      object dxDBGrid1cAlias: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cAlias'
      end
    end
  end
  object QryDefine: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = '21'
      end>
    SQL.Strings = (
      'select cValue,cAlias from UserDefine '
      'where cID=:ID'
      'Order by cAlias')
    Left = 16
    Top = 88
  end
  object dsQryDefine: TDataSource
    DataSet = QryDefine
    Left = 48
    Top = 88
  end
end