frmmaterialoutp.~dfm

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

object FrmMaterialOut: TFrmMaterialOut
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = #26448#26009#20986#24211#21333
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 688
    Height = 2
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 688
    Height = 57
    Align = alTop
    Caption = #26448#26009#20986#24211#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 543
    Top = 59
    Width = 145
    Height = 394
    Align = alRight
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 12
      Top = 11
      Width = 123
      Height = 69
      Caption = ' '#19978#28216#21333#25454' '
      TabOrder = 0
      object RadioButton1: TRadioButton
        Left = 15
        Top = 21
        Width = 92
        Height = 17
        Caption = #26080#19978#28216#21333#25454
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 15
        Top = 44
        Width = 92
        Height = 17
        Caption = #29983#20135#35746#21333
        TabOrder = 1
      end
    end
    object btnText: TButton
      Left = 21
      Top = 216
      Width = 109
      Height = 25
      Caption = #35835#21462#26465#24418#30721#25991#20214
      TabOrder = 1
      OnClick = btnTextClick
    end
    object CheckBox1: TCheckBox
      Left = 32
      Top = 376
      Width = 97
      Height = 17
      Caption = 'CheckBox1'
      Checked = True
      State = cbChecked
      TabOrder = 2
      Visible = False
    end
    object CheckBox2: TCheckBox
      Left = 24
      Top = 158
      Width = 97
      Height = 17
      Caption = #20801#35768#32534#36753
      TabOrder = 3
    end
    object GroupBox2: TGroupBox
      Left = 12
      Top = 88
      Width = 123
      Height = 59
      Caption = ' '#21333#25454#26085#26399' '
      TabOrder = 4
      object Date1: TDateTimePicker
        Left = 10
        Top = 24
        Width = 103
        Height = 21
        CalAlignment = dtaLeft
        Date = 38261.7567015625
        Time = 38261.7567015625
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
    end
    object btnCheck: TButton
      Left = 21
      Top = 246
      Width = 109
      Height = 25
      Caption = #26816#26597#25968#25454#21512#27861#24615
      Enabled = False
      TabOrder = 5
      OnClick = btnCheckClick
    end
    object btnXML: TButton
      Left = 21
      Top = 277
      Width = 109
      Height = 25
      Caption = #29983#25104#29992#21451'XML'
      Enabled = False
      TabOrder = 6
      OnClick = btnXMLClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 59
    Width = 543
    Height = 394
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object dfsSplitter1: TdfsSplitter
      Left = 0
      Top = 298
      Width = 543
      Height = 10
      Cursor = crVSplit
      Align = alTop
      Maximized = False
      Minimized = False
      ButtonCursor = crDefault
    end
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 41
      Width = 543
      Height = 257
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'id'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alTop
      TabOrder = 0
      DataSource = dsQrymo
      Filter.Active = True
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1cc: TdxDBGridColumn
        Alignment = taCenter
        Caption = '-'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 41
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cc'
      end
      object dxDBGrid1cOrderCode: TdxDBGridMaskColumn
        Caption = #19978#28216#21333#25454#21495
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cOrderCode'
      end
      object dxDBGrid1cType: TdxDBGridColumn
        Caption = #26041#26696#21495
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cType'
      end
      object dxDBGrid1cDeptName: TdxDBGridMaskColumn
        Caption = #37096#38376
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 136
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cDeptName'
      end
      object dxDBGrid1cWhName: TdxDBGridMaskColumn
        Caption = #20179#24211
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 121
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cWhName'
      end
      object dxDBGrid1cError: TdxDBGridColumn
        Caption = #38169#35823#25552#31034
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 200
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cError'
      end
      object dxDBGrid1cMaker: TdxDBGridMaskColumn
        Caption = #21046#21333#20154
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 85
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cMaker'
        DisableFilter = True
      end
    end
    object dxDBGrid2: TdxDBGrid
      Left = 0
      Top = 308
      Width = 543
      Height = 45
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      DataSource = dsQrymoList
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      RowFooterColor = clWhite
      object dxDBGrid2cc: TdxDBGridColumn
        Alignment = taCenter
        Caption = '-'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 23
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cc'
      end
      object dxDBGrid2cBarCode: TdxDBGridMaskColumn
        Caption = #26465#24418#30721
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cBarCode'
        SummaryFooterType = cstCount
      end
      object dxDBGrid2cInvCode: TdxDBGridMaskColumn
        Caption = #23384#36135#20195#30721
        HeaderAlignment = taCenter
        Width = 119
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvCode'
      end
      object dxDBGrid2cInvName: TdxDBGridMaskColumn
        Caption = #23384#36135#21517#31216
        HeaderAlignment = taCenter
        Width = 156
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvName'
      end
      object dxDBGrid2cInvStd: TdxDBGridMaskColumn
        Caption = #35268#26684
        HeaderAlignment = taCenter
        Width = 150
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvStd'
      end
      object dxDBGrid2iQuantity: TdxDBGridMaskColumn
        Caption = #25968#37327
        HeaderAlignment = taCenter
        Width = 74
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iQuantity'
        SummaryFooterType = cstSum
      end
      object dxDBGrid2iUnitCost: TdxDBGridMaskColumn
        Caption = #21333#20215
        HeaderAlignment = taCenter
        Visible = False
        Width = 78
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iUnitCost'
      end
      object dxDBGrid2iPrice: TdxDBGridCurrencyColumn
        Caption = #37329#39069
        HeaderAlignment = taCenter
        Visible = False
        Width = 144
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iPrice'
        SummaryFooterType = cstSum
        Nullable = False
      end
      object dxDBGrid2cError: TdxDBGridColumn
        Caption = #25552#20379#25552#31034
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 250
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cError'
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 543
      Height = 41
      Align = alTop
      TabOrder = 2
      object Label1: TLabel
        Left = 9
        Top = 16
        Width = 33
        Height = 13
        Caption = #35760#24405':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object btnOutHead: TSpeedButton
        Left = 398
        Top = 10
        Width = 76
        Height = 25
        Hint = 'Add New'
        Caption = #36755#20986
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          B6030000424DB603000000000000360000002800000012000000100000000100
          18000000000080030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF0084008484840084008484
          8400840084848400840084848400840084848400840084848400840084848400
          8400848484FFFFFF0000FFFFFF84848400840084848400840084848400840084
          8484008400848484008400848484008400848484008400848484008400FFFFFF
          0000FFFFFF008400848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF008400848484FFFFFF0000FFFFFF848484
          008400FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8484840084008484
          84008400848484848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
          00848484008400848484008400848484008400FFFFFF00840084848400840000
          8400848484FFFFFF0000FFFFFF848484008400FFFFFF84848400840084848400
          8400848484008400FFFFFF008400848484008400FFFFFF848484008400FFFFFF
          0000FFFFFF008400848484FFFFFF008400848484008400848484008400FFFFFF
          008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
          008400FFFFFFFFFFFF008400848484008400FFFFFF0084008484840084008484
          84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFFFFFF
          FFFFFFFF008400FFFFFF008400848484008400848484FFFFFFFFFFFFFFFFFF00
          8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFF008400FFFFFF00
          8400848484008400848484008400848484FFFFFFFFFFFF848484008400FFFFFF
          0000FFFFFF008400848484FFFFFF008400FFFFFF008400848484008400848484
          008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
          008400FFFFFF848484008400848484008400848484FFFFFF8484840084008484
          84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
          00848484008400848484FFFFFFFFFFFFFFFFFF848484008400848484FFFFFF00
          8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484008400FFFFFF
          0000FFFFFF008400848484008400848484008400848484008400848484008400
          848484008400848484008400848484008400848484FFFFFF0000}
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnOutHeadClick