frmpopinip.dfm

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

inherited FrmPopIni: TFrmPopIni
  Width = 309
  Height = 421
  Caption = 'FrmPopIni'
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel5: TPanel [0]
    Left = 0
    Top = 0
    Width = 301
    Height = 346
    Align = alClient
    TabOrder = 4
    object dxDBGrid4: TdxDBGrid
      Left = 1
      Top = 1
      Width = 299
      Height = 344
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid4DblClick
      DataSource = dsQryRdOut
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGridMaskColumn1: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cRdCode'
      end
      object dxDBGridMaskColumn2: TdxDBGridMaskColumn
        Caption = #20837#24211#31867#21035
        HeaderAlignment = taCenter
        Width = 155
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cRdName'
      end
    end
  end
  inherited Panel1: TPanel
    Top = 346
    Width = 301
    inherited BtnSave: TBitBtn
      Caption = #30830#23450
    end
  end
  inherited Panel2: TPanel
    Width = 301
    Height = 346
    object dxDBGrid1: TdxDBGrid
      Left = 1
      Top = 1
      Width = 299
      Height = 344
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid1DblClick
      DataSource = dsQryPur
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid1cPTCode: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 87
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cPTCode'
      end
      object dxDBGrid1cPTName: TdxDBGridMaskColumn
        Caption = #37319#36141#31867#22411
        HeaderAlignment = taCenter
        Width = 153
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cPTName'
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 301
    Height = 346
    Align = alClient
    TabOrder = 2
    object dxDBGrid2: TdxDBGrid
      Left = 1
      Top = 1
      Width = 299
      Height = 344
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid2DblClick
      DataSource = dsQryRD
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid2cRdCode: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cRdCode'
      end
      object dxDBGrid2cRdName: TdxDBGridMaskColumn
        Caption = #20837#24211#31867#21035
        HeaderAlignment = taCenter
        Width = 155
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cRdName'
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 301
    Height = 346
    Align = alClient
    Caption = '4'
    TabOrder = 3
    object dxDBGrid3: TdxDBGrid
      Left = 1
      Top = 1
      Width = 299
      Height = 344
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid3DblClick
      DataSource = dsQryWH
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid3cWhcode: TdxDBGridMaskColumn
        Caption = #32534#30721
        HeaderAlignment = taCenter
        Width = 82
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cWhcode'
      end
      object dxDBGrid3cWhName: TdxDBGridMaskColumn
        Caption = #20179#24211
        HeaderAlignment = taCenter
        Width = 161
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cWhName'
      end
    end
  end
  object QryRD: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cRdCode,cRdName from rd_style'
      'where (brdend=1) '
      'and  (bRdFlag=1)'
      'order by cRdCode')
    Left = 32
    Top = 248
  end
  object dsQryRD: TDataSource
    DataSet = QryRD
    Left = 72
    Top = 248
  end
  object QryPur: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cPTCode,cPTName from PurchaseType'
      'Order by cPTCode')
    Left = 32
    Top = 216
  end
  object dsQryPur: TDataSource
    DataSet = QryPur
    Left = 72
    Top = 216
  end
  object QryWH: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cWhcode,cWhName from warehouse'
      'order by cWhcode')
    Left = 32
    Top = 288
  end
  object dsQryWH: TDataSource
    DataSet = QryWH
    Left = 72
    Top = 288
  end
  object QryRdOut: TADOQuery
    Connection = DataDm.AdoConUfsoft
    Parameters = <>
    SQL.Strings = (
      'select cRdCode,cRdName from rd_style'
      'where (brdend=1) '
      'and  (bRdFlag=0)'
      'order by cRdCode')
    Left = 152
    Top = 256
  end
  object dsQryRdOut: TDataSource
    DataSet = QryRdOut
    Left = 184
    Top = 256
  end
end