shipment.~dfm

Barcode And LabelPrint

            EditButtons = <>
            FieldName = 'Isout'
            Footer.Alignment = taCenter
            Footer.FieldName = 'BarCode'
            Footer.Value = #35760#24405#25968
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26159#21542#35013#31665
            Title.ImageIndex = 1
            Width = 61
          end
          item
            Alignment = taCenter
            Color = clBackground
            EditButtons = <>
            FieldName = 'BarCode'
            Footer.Alignment = taCenter
            Footer.ValueType = fvtCount
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26465#30721
            Title.SortIndex = 1
            Title.SortMarker = smUpEh
            Width = 132
          end
          item
            Alignment = taCenter
            Color = 16776176
            EditButtons = <>
            FieldName = 'OrderID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
            Width = 63
          end
          item
            Alignment = taCenter
            Color = 16776176
            EditButtons = <>
            FieldName = 'DevName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26426#22411
            Width = 155
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'postdate'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #31227#20132#26085#26399
            Width = 157
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'CustomerName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #23458#25143
          end>
      end
      object Panel2: TPanel
        Left = 461
        Top = 0
        Width = 273
        Height = 353
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object LabelMessage: TLabel
          Left = 4
          Top = 229
          Width = 38
          Height = 14
          Caption = #25552#31034':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label3: TLabel
          Left = 14
          Top = 269
          Width = 120
          Height = 12
          Caption = #33258#21160#25171#21360#26426#22120#25968#37327#35774#32622
        end
        object GroupBox2: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 218
          Align = alTop
          Caption = #24050#25195#25551#26465#30721
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 2
            Top = 14
            Width = 269
            Height = 162
            Align = alTop
            Color = 16776176
            DataSource = StockDM.DSBarCode
            ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'BarCode'
                ReadOnly = True
                Title.Alignment = taCenter
                Title.Caption = #26465#30721
                Width = 253
                Visible = True
              end>
          end
          object EdtBarCodeEnter: TEdit
            Left = 3
            Top = 184
            Width = 262
            Height = 24
            Color = clYellow
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -16
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
            ParentFont = False
            TabOrder = 1
            OnKeyPress = EdtBarCodeEnterKeyPress
          end
        end
        object BtnPrint: TBitBtn
          Left = 99
          Top = 313
          Width = 73
          Height = 25
          Caption = #25171#21360
          Enabled = False
          TabOrder = 1
          OnClick = BtnPrintClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0003377777777777777308888888888888807F33333333333337088888888888
            88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
            8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
            8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
        end
        object BitBtn7: TBitBtn
          Left = 7
          Top = 311
          Width = 72
          Height = 25
          Caption = #21024#38500
          TabOrder = 2
          OnClick = BitBtn7Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333000033338833333333333333333F333333333333
            0000333911833333983333333388F333333F3333000033391118333911833333
            38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
            911118111118333338F3338F833338F3000033333911111111833333338F3338
            3333F8330000333333911111183333333338F333333F83330000333333311111
            8333333333338F3333383333000033333339111183333333333338F333833333
            00003333339111118333333333333833338F3333000033333911181118333333
            33338333338F333300003333911183911183333333383338F338F33300003333
            9118333911183333338F33838F338F33000033333913333391113333338FF833
            38F338F300003333333333333919333333388333338FFF830000333333333333
            3333333333333333333888330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object BitBtn8: TBitBtn
          Left = 192
          Top = 313
          Width = 74
          Height = 25
          Caption = '&C'#36820#22238
          TabOrder = 3
          Kind = bkClose
        end
        object EdtAutoPrintNum: TEdit
          Left = 155
          Top = 265
          Width = 36
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
          TabOrder = 4
          Text = '5'
          OnKeyPress = EdtAutoPrintNumKeyPress
        end
      end
    end
  end
  object RvProjectShipLabel: TRvProject
    Engine = RvSystemShipLabel
    Left = 607
    Top = 267
  end
  object RvSystemShipLabel: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = #26465#30721#39044#35272#19982#25171#21360
    SystemSetups = []
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.RulerType = rtBothCm
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    OnAfterPrint = RvSystemShipLabelAfterPrint
    Left = 656
    Top = 255
  end
  object RvDataSetConnectionShipLabel: TRvDataSetConnection
    FieldAliasList.Strings = (
      '')
    RuntimeVisibility = rtDeveloper
    DataSet = StockDM.QBarCode
    Left = 528
    Top = 269
  end
end