pincomingapplication.dfm

BarCodePrint条码打印机打印管理

object IncomingApplication: TIncomingApplication
  Left = 181
  Top = 107
  Width = 686
  Height = 442
  Caption = '来料报验'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF000F00000F00000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF000000F00000F00FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF000F00000F00000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF00000F00000F000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF00000F00F000000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF000F000000F0000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF0000F000F000000FF00000000000
    00FFFFFFFFFFFFFFFFFFF0000000000000FF0FF00F000F00000FF00000000000
    00FFF00FF0FFFFFFFFFFF0000000000000F00FFFF0F00000F00FF00000000000
    000FFFFF0FFFFFFFFFFFF000000000000FFFFF00F0000F00000FF0000000000F
    FFFFF0FFFFFFFFFFFFFFF0000000FFFFFFFF0FFFFFFFFFFFFFFFF0000000FFFF
    FFFFF00000000000000000000000FFFFFFFFFF0FFF000000000000000000FFFF
    FFFFFFFFF0000000000000000000FFFFFFFFFFFF000000000000000000000000
    FFFFFF0000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFF800003FF800003FF800003FF800
    003FF800003FF800003FF800003FF800003FF800003FF800003FF800003FF800
    003FF800003FF800003FF800003FF800003FF800003FF800003FF800003FF800
    003FF800003FE000003F0000003F0000003F0000003F0001FFFF0003FFFF0007
    FFFF000FFFFFF03FFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000000000000000000F
    FFFFFFFF0000000F00F0F00F0000000FFFFFFFFF0000000F00F00F0F0000000F
    FFFFFFFF0000000F0F00F00F0000000FFFFFFFFF0000000F000F0F0F0000000F
    F0FFFFFF000000000F00F00F0000000FF0FFFFFF0000FFFF000000000000FFFF
    FFF00000000000FFF000000000000000000000000000C0070000C0070000C007
    0000C0070000C0070000C0070000C0070000C0070000C0070000C0070000C007
    0000000700000007000000FF000001FF0000C7FF0000}
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TabControlMain: TTabControl
    Left = 0
    Top = 41
    Width = 678
    Height = 328
    Align = alClient
    Images = ImageListSmall
    TabOrder = 0
    Tabs.Strings = (
      '报验单录入'
      '待检报验单'
      '检验结果')
    TabIndex = 0
    OnChange = TabControlMainChange
    object ListViewFeedin: TListView
      Left = 4
      Top = 25
      Width = 670
      Height = 299
      Align = alClient
      Columns = <
        item
          Caption = '临时编号'
          Width = 138
        end
        item
          Caption = '物料编号'
          Width = 81
        end
        item
          Caption = '物料名称'
          Width = 98
        end
        item
          Caption = '厂商编号'
          Width = 81
        end
        item
          Caption = '厂商名称'
          Width = 81
        end
        item
          Alignment = taRightJustify
          Caption = '报验数量'
          Width = 81
        end
        item
          Caption = '单位'
          Width = 41
        end
        item
          Caption = '报验人'
          Width = 41
        end>
      MultiSelect = True
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageListSmall
      SortType = stData
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = ListViewFeedinColumnClick
      OnCompare = ListViewFeedinCompare
      OnMouseDown = ListViewFeedinMouseDown
    end
    object ListViewHandIn: TListView
      Left = 26
      Top = 46
      Width = 463
      Height = 229
      Columns = <
        item
          Caption = '报验单编号'
          Width = 65
        end
        item
          Caption = '报验时间'
          Width = 114
        end
        item
          Caption = '检验期限'
          Width = 41
        end
        item
          Caption = '物料编号'
          Width = 81
        end
        item
          Caption = '物料名称'
          Width = 98
        end
        item
          Caption = '厂商编号'
          Width = 81
        end
        item
          Caption = '厂商名称'
          Width = 81
        end
        item
          Caption = '报验数量'
          Width = 81
        end
        item
          Caption = '单位'
          Width = 41
        end
        item
          Caption = '检验人'
          Width = 41
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageListSmall
      SortType = stData
      TabOrder = 1
      ViewStyle = vsReport
      Visible = False
      OnColumnClick = ListViewFeedinColumnClick
      OnCompare = ListViewFeedinCompare
    end
    object ListViewResult: TListView
      Left = 270
      Top = 74
      Width = 544
      Height = 253
      Columns = <
        item
          Caption = '报验单编号'
          Width = 65
        end
        item
          Caption = '报验时间'
          Width = 114
        end
        item
          Caption = '物料编号'
          Width = 81
        end
        item
          Caption = '物料名称'
          Width = 98
        end
        item
          Caption = '厂商编号'
          Width = 81
        end
        item
          Caption = '厂商名称'
          Width = 81
        end
        item
          Caption = '检验结果'
          Width = 65
        end
        item
          Caption = '检验时间'
          Width = 81
        end
        item
          Caption = '检验人'
          Width = 65
        end
        item
          Caption = '报验数量'
          Width = 81
        end
        item
          Caption = '单位'
          Width = 41
        end>
      MultiSelect = True
      SortType = stText
      TabOrder = 2
      ViewStyle = vsReport
      Visible = False
      OnMouseDown = ListViewResultMouseDown
    end
  end
  object StatusBarMain: TStatusBar
    Left = 0
    Top = 369
    Width = 678
    Height = 27
    Panels = <>
    SimplePanel = True
  end
  object ToolBarMain: TToolBar
    Left = 0
    Top = 0
    Width = 678
    Height = 41