frmpopvenp.dfm

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

inherited FrmPoPVen: TFrmPoPVen
  Left = 296
  Top = 147
  Width = 336
  Height = 348
  Caption = #20379#24212#21830
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 273
    Width = 328
    inherited BtnSave: TBitBtn
      Caption = #30830#23450
      OnClick = BtnSaveClick
    end
  end
  inherited Panel2: TPanel
    Width = 328
    Height = 273
    BevelOuter = bvNone
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 328
      Height = 41
      Align = alTop
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 16
        Width = 33
        Height = 13
        Caption = #39033#30446':'
      end
      object Edit1: TEdit
        Left = 64
        Top = 12
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object btnFind: TButton
        Left = 200
        Top = 10
        Width = 75
        Height = 25
        Caption = #26597#25214
        TabOrder = 1
        OnClick = btnFindClick
      end
    end
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 41
      Width = 328
      Height = 232
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'cVencode'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      OnDblClick = dxDBGrid1DblClick
      DataSource = dsQryVen
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid1cVencode: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cVencode'
      end
      object dxDBGrid1cVenName: TdxDBGridMaskColumn
        Caption = #21517#31216
        HeaderAlignment = taCenter
        Width = 215
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cVenName'
      end
    end
  end
  object QryVen: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cVencode,cVenName from vendor'
      'order by cvencode')
    Left = 88
    Top = 104
  end
  object dsQryVen: TDataSource
    DataSet = QryVen
    Left = 128
    Top = 104
  end
end