shipment.dfm

Barcode And LabelPrint

inherited FrmShipment: TFrmShipment
  Left = 54
  Top = 114
  Width = 793
  Height = 608
  Caption = #12304#20837#24211#31649#29702#12305'-'#35013#31665#20837#24211
  OldCreateOrder = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  inherited LabelCaption: TLabel
    Width = 80
    Height = 19
    Font.Color = clNavy
    Font.Height = -19
    Font.Style = [fsBold]
  end
  inherited ImageIcon: TImage
    Left = 8
    Top = 3
  end
  inherited CoolBar: TCoolBar
    Top = 256
    Width = 203
    Bands = <
      item
        ImageIndex = -1
        MinHeight = 17
        Width = 203
      end>
  end
  inherited PanelBkGnd: TPanel
    Width = 750
    Height = 509
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 750
      Height = 114
      Align = alTop
      Caption = #35831#36873#25321#26597#35810#26465#20214
      Color = clSilver
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 94
        Top = 41
        Width = 98
        Height = 14
        Caption = #36215#22987#26085#26399#65306'    '
      end
      object Label2: TLabel
        Left = 259
        Top = 42
        Width = 91
        Height = 14
        Caption = #25130#27490#26085#26399#65306'   '
      end
      object Label4: TLabel
        Left = 94
        Top = 21
        Width = 98
        Height = 14
        Caption = #36215#22987#21495#30721#65306'    '
      end
      object Label5: TLabel
        Left = 199
        Top = 21
        Width = 98
        Height = 14
        Caption = #25130#27490#21495#30721#65306'    '
        Visible = False
      end
      object Label12: TLabel
        Left = 431
        Top = 16
        Width = 105
        Height = 14
        Caption = #20170#22825#24050#35013#31665#20837#24211':'
      end
      object LabelThisOrderCount: TLabel
        Left = 539
        Top = 38
        Width = 8
        Height = 14
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelThisOrder: TLabel
        Left = 431
        Top = 38
        Width = 77
        Height = 14
        Caption = #20170#22825#24050#21253#35013':'
      end
      object LabelTodayCount: TLabel
        Left = 538
        Top = 15
        Width = 8
        Height = 14
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelThisDeviceType: TLabel
        Left = 432
        Top = 60
        Width = 77
        Height = 14
        Caption = #20170#22825#24050#21253#35013':'
      end
      object LabelThisDeviceTypeCount: TLabel
        Left = 540
        Top = 60
        Width = 8
        Height = 14
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EdtOrderIDEnd: TEdit
        Left = 159
        Top = 14
        Width = 105
        Height = 22
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 2
        Text = '1'
        Visible = False
      end
      object DateTimePickerPostDateSart: TDateTimePicker
        Left = 152
        Top = 37
        Width = 105
        Height = 21
        Date = 38555.472382256900000000
        Time = 38555.472382256900000000
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 0
      end
      object DateTimePickerPostDateEnd: TDateTimePicker
        Left = 319
        Top = 37
        Width = 105
        Height = 21
        Date = 38555.472525671300000000
        Time = 38555.472525671300000000
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 429
        Top = 83
        Width = 103
        Height = 29
        Caption = #32479#35745#26597#35810
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
          0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
          0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
          CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
          CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
          CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
          CCC77777777777777377330333333333CCC3337F33333333737F370333333333
          0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
          7777777777777777777733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object CheckBoxOrderID: TCheckBox
        Left = 14
        Top = 19
        Width = 75
        Height = 17
        Caption = #35746#21333#21495':'
        TabOrder = 4
        OnClick = CheckBoxOrderIDClick
      end
      object CheckBoxPostDate: TCheckBox
        Left = 14
        Top = 40
        Width = 73
        Height = 17
        Caption = #29983#20135#26085#26399#65306
        TabOrder = 5
        OnClick = CheckBoxOrderIDClick
      end
      object CheckBoxCustomer: TCheckBox
        Left = 14
        Top = 86
        Width = 69
        Height = 17
        Caption = #23458#25143#65306
        TabOrder = 6
        OnClick = CheckBoxOrderIDClick
      end
      object CheckBoxDevtype: TCheckBox
        Left = 14
        Top = 62
        Width = 75
        Height = 17
        Caption = #26426#22411#65306
        TabOrder = 7
        OnClick = CheckBoxOrderIDClick
      end
      object EdtCustomer: TEdit
        Left = 94
        Top = 84
        Width = 330
        Height = 22
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 8
      end
      object DBNavigator1: TDBNavigator
        Left = 647
        Top = 82
        Width = 100
        Height = 30
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        Ctl3D = True
        Hints.Strings = (
          #31532#19968#26465#35760#24405
          #19978#19968#26465#35760#24405
          #19979#19968#26465#35760#24405
          #26368#21518#19968#26465#35760#24405
          '')
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
      end
      object EdtOrderIDSart: TComboBox
        Left = 94
        Top = 15
        Width = 193
        Height = 22
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ItemHeight = 14
        TabOrder = 10
      end
      object EdtDevtype: TComboBox
        Left = 94
        Top = 61
        Width = 330
        Height = 22
        Color = clSilver
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ItemHeight = 14
        TabOrder = 11
      end
      object CheckBoxIsOut: TCheckBox
        Left = 322
        Top = 15
        Width = 91
        Height = 17
        AllowGrayed = True
        Caption = #26159#21542#24050#35013#31665
        State = cbGrayed
        TabOrder = 12
      end
      object ImportToExcel: TBitBtn
        Left = 535
        Top = 82
        Width = 105
        Height = 32
        Caption = #23548#20837'Excel'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 13
        OnClick = ImportToExcelClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
          777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
          79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
          777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
          79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
          CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
        NumGlyphs = 2
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 114
      Width = 750
      Height = 395
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 334
        Height = 395
        Align = alClient
        DataSource = StockDM.DSBarCodefind
        Flat = True
        FooterColor = clInfoBk
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -14
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        FrozenCols = 2
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ReadOnly = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Checkboxes = True
            Color = clNavy
            DropDownBox.ColumnDefValues.Title.Color = 16776176
            EditButtons = <>
            FieldName = 'IsInCome'
            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 = 55
          end
          item
            Color = clHighlight
            EditButtons = <>
            FieldName = 'IsPack'
            Footers = <>
            Title.Caption = #26159#21542#21253#35013
            Width = 57
          end
          item
            Alignment = taCenter
            Color = 15387059
            EditButtons = <>
            FieldName = 'BarCode'
            Footer.Alignment = taCenter
            Footer.ValueType = fvtCount
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26465#30721
            Title.SortIndex = 1
            Title.SortMarker = smUpEh
            Width = 125
          end
          item
            Color = 16776176
            EditButtons = <>
            FieldName = 'OrderID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
            Width = 78
          end
          item
            Color = 16776176
            EditButtons = <>
            FieldName = 'DevName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26426#22411
            Width = 71
          end
          item