frminp.dfm

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

object FrmIN: TFrmIN
  Left = 217
  Top = 112
  Width = 696
  Height = 524
  Caption = #37319#36141#20837#24211#21333
  Color = clBtnFace
  Font.Charset = GB2312_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 = #37319#36141#20837#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 = 438
    Align = alRight
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 12
      Top = 11
      Width = 123
      Height = 87
      Caption = ' '#19978#28216#21333#25454' '
      TabOrder = 0
      object RadioButton1: TRadioButton
        Left = 15
        Top = 21
        Width = 92
        Height = 17
        Caption = #37319#36141#35746#21333
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 15
        Top = 42
        Width = 92
        Height = 17
        Caption = #37319#36141#21040#36135#21333
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 15
        Top = 63
        Width = 92
        Height = 17
        Caption = #26080#19978#28216#21333#25454
        TabOrder = 2
      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 = 178
      Width = 97
      Height = 17
      Caption = #20801#35768#32534#36753
      TabOrder = 3
    end
    object GroupBox2: TGroupBox
      Left = 12
      Top = 109
      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 = 438
    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 = dsQryIn
      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 = 117
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cOrderCode'
      end
      object dxDBGrid1cType: TdxDBGridColumn
        Caption = #27169#26495
        HeaderAlignment = taCenter
        Width = 62
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cType'
      end
      object dxDBGrid1cVenAbbName: TdxDBGridMaskColumn
        Caption = #20379#24212#21830
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 175
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cVenAbbName'
      end
      object dxDBGrid1cDeptName: TdxDBGridMaskColumn
        Caption = #37096#38376
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 136
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cDeptName'
      end
      object dxDBGrid1cPersonName: TdxDBGridColumn
        Caption = #32844#21592
        HeaderAlignment = taCenter
        Width = 82
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cPersonName'
      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 = 89
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      DataSource = dsQryInList
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      RowFooterColor = clWhite
      OnCustomDrawFooter = dxDBGrid2CustomDrawFooter
      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 = 108
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvCode'
      end
      object dxDBGrid2cInvName: TdxDBGridMaskColumn
        Caption = #23384#36135#21517#31216
        HeaderAlignment = taCenter
        Width = 143
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvName'
      end
      object dxDBGrid2cFree1: TdxDBGridColumn
        Alignment = taLeftJustify
        Caption = #39068#33394
        HeaderAlignment = taCenter
        Width = 50
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cFree1'
      end
      object dxDBGrid2cFree2: TdxDBGridColumn
        Caption = #23610#30721
        HeaderAlignment = taCenter
        Width = 50
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cFree2'
      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 = 76
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iUnitCost'
      end
      object dxDBGrid2iPrice: TdxDBGridCurrencyColumn
        Caption = #37329#39069
        HeaderAlignment = taCenter
        Visible = False
        Width = 140
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iPrice'
        SummaryFooterType = cstSum
        Nullable = False
      end
      object dxDBGrid2cError: 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 = 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