frmpopinventoryp.~dfm

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

inherited FrmPoPInventory: TFrmPoPInventory
  Width = 463
  Height = 322
  Caption = #23384#36135#26723#26696
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 247
    Width = 455
    object Label2: TLabel [0]
      Left = 40
      Top = 16
      Width = 42
      Height = 13
      Caption = 'Label2'
      Visible = False
    end
    inherited BtnSave: TBitBtn
      Left = 192
      Caption = #30830#23450
      OnClick = BtnSaveClick
    end
    inherited BtnCancel: TBitBtn
      Left = 288
    end
  end
  inherited Panel2: TPanel
    Width = 455
    Height = 247
    object Label1: TLabel
      Left = 32
      Top = 16
      Width = 65
      Height = 13
      Caption = #23384#36135#39033#30446#65306
    end
    object Edit1: TEdit
      Left = 96
      Top = 12
      Width = 145
      Height = 21
      TabOrder = 0
    end
    object btnFind: TButton
      Left = 256
      Top = 10
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 1
      OnClick = btnFindClick
    end
    object dxDBGrid1: TdxDBGrid
      Left = 1
      Top = 50
      Width = 453
      Height = 196
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'cInvCode'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alBottom
      TabOrder = 2
      OnDblClick = dxDBGrid1DblClick
      DataSource = dsQryInv
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid1cInvCode: TdxDBGridMaskColumn
        Caption = #23384#36135
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 101
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cInvCode'
      end
      object dxDBGrid1cInvName: TdxDBGridMaskColumn
        Caption = #21517#31216
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 188
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cInvName'
      end
      object dxDBGrid1cInvStd: TdxDBGridMaskColumn
        Caption = #35268#26684
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 122
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cInvStd'
      end
    end
  end
  object QryInv: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT cInvCode, cInvName, cInvStd'
      'FROM dbo.Inventory')
    Left = 96
    Top = 120
  end
  object dsQryInv: TDataSource
    DataSet = QryInv
    Left = 144
    Top = 120
  end
end