unitprodoutcard.dfm

此代码为企业原料管理代码

object frmProdOutCard: TfrmProdOutCard
  Left = 170
  Top = 104
  Width = 497
  Height = 198
  ActiveControl = dbeProdName
  Caption = '宁波巨龙橡塑有限公司 成品仓库管理系统'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 192
    Top = 12
    Width = 73
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '出库日期'
    Color = clYellow
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 266
    Top = 12
    Width = 75
    Height = 15
    Alignment = taCenter
    AutoSize = False
    Caption = '出库单号'
    Color = clYellow
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object dbeDate: TDBEdit
    Left = 193
    Top = 28
    Width = 73
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Color = clBlue
    DataField = 'OutDate'
    DataSource = DM.dsProdOutCard
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnEnter = dbeDateEnter
  end
  object Panel1: TPanel
    Left = 16
    Top = 53
    Width = 355
    Height = 104
    BevelInner = bvLowered
    BevelWidth = 2
    BorderStyle = bsSingle
    TabOrder = 0
    TabStop = True
    object Panel7: TPanel
      Left = 115
      Top = 4
      Width = 70
      Height = 22
      Caption = '数量(只)'
      TabOrder = 4
    end
    object Panel9: TPanel
      Left = 1
      Top = 4
      Width = 114
      Height = 22
      Caption = '产品名称'
      TabOrder = 5
    end
    object Panel10: TPanel
      Left = 114
      Top = 49
      Width = 61
      Height = 23
      Caption = '经手人'
      TabOrder = 6
      object DBEdit2: TDBEdit
        Left = 0
        Top = 24
        Width = 121
        Height = 20
        TabOrder = 0
      end
    end
    object Panel17: TPanel
      Left = 268
      Top = 47
      Width = 80
      Height = 25
      Caption = '备注'
      TabOrder = 7
    end
    object dbeNote: TDBEdit
      Left = 268
      Top = 72
      Width = 80
      Height = 20
      DataField = 'Note'
      DataSource = DM.dsProdOutCard
      TabOrder = 3
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object dbeNum: TDBEdit
      Tag = 4
      Left = 115
      Top = 26
      Width = 69
      Height = 20
      DataField = 'Number'
      DataSource = DM.dsProdOutCard
      TabOrder = 1
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object dbeProdID: TDBEdit
      Left = 4
      Top = 26
      Width = 78
      Height = 20
      TabStop = False
      DataField = 'ProdID'
      DataSource = DM.dsProdOutCard
      TabOrder = 8
    end
    object dbeProdName: TDBEdit
      Tag = 1
      Left = 2
      Top = 26
      Width = 112
      Height = 20
      DataField = 'ProdName'
      DataSource = DM.dsProdOutCard
      TabOrder = 0
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object Panel3: TPanel
      Left = 1
      Top = 49
      Width = 113
      Height = 25
      Caption = '图号'
      TabOrder = 9
    end
    object dbeFigID: TDBEdit
      Left = 2
      Top = 71
      Width = 111
      Height = 20
      TabStop = False
      DataField = 'FigID'
      DataSource = DM.dsProdOutCard
      TabOrder = 10
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object Panel4: TPanel
      Left = 185
      Top = 4
      Width = 84
      Height = 22
      Caption = '生产批号'
      TabOrder = 11
    end
    object dbeProcID: TDBEdit
      Left = 185
      Top = 26
      Width = 85
      Height = 20
      DataField = 'ProcBatID'
      DataSource = DM.dsProdOutCard
      TabOrder = 2
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object Panel5: TPanel
      Left = 175
      Top = 49
      Width = 93
      Height = 23
      Caption = '客户单位'
      TabOrder = 12
    end
    object Panel6: TPanel
      Left = 269
      Top = 4
      Width = 78
      Height = 22
      Caption = '箱数'
      TabOrder = 13
    end
    object dbeBox: TDBEdit
      Tag = 5
      Left = 268
      Top = 26
      Width = 80
      Height = 20
      TabStop = False
      DataField = 'Box'
      DataSource = DM.dsProdOutCard
      TabOrder = 14
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object DBEdit1: TDBEdit
      Left = 175
      Top = 72
      Width = 92
      Height = 20
      DataField = 'ManufacturerID'
      DataSource = DM.dsProdOutCard
      TabOrder = 15
    end
    object dbeManufacturer: TDBEdit
      Tag = 3
      Left = 175
      Top = 72
      Width = 93
      Height = 20
      DataField = 'Manufacturer'
      DataSource = DM.dsProdOutCard
      TabOrder = 16
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
    object DBEdit3: TDBEdit
      Left = 118
      Top = 73
      Width = 55
      Height = 16
      AutoSize = False
      DataField = 'OuterID'
      DataSource = DM.dsProdOutCard
      TabOrder = 17
    end
    object dbeOuter: TDBEdit
      Tag = 2
      Left = 113
      Top = 72
      Width = 62
      Height = 20
      DataField = 'Outer'
      DataSource = DM.dsProdOutCard
      TabOrder = 18
      OnEnter = dbeProdNameEnter
      OnExit = dbeProdNameExit
    end
  end
  object bbPrior: TBitBtn
    Left = 384
    Top = 46
    Width = 75
    Height = 24
    Caption = '上一张'
    TabOrder = 1
    TabStop = False
    OnClick = bbPriorClick
  end
  object bbNext: TBitBtn
    Left = 384
    Top = 76
    Width = 75
    Height = 24
    Caption = '下一张'
    TabOrder = 2
    TabStop = False
    OnClick = bbNextClick
  end
  object bbPost: TBitBtn
    Left = 384
    Top = 103
    Width = 75
    Height = 25
    Caption = '提交'
    TabOrder = 3
    OnClick = bbPostClick
    Glyph.Data = {
      1E060000424D1E06000000000000360000002800000017000000150000000100
      180000000000E8050000C40E0000C40E00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F00007F0000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F0000007F00007F00
      7F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F000000
      7F00007F00007F00007F007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BF7F0000007F00007F00007F00007F00007F00007F007F0000BFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBF7F0000007F00007F00007F0000FF00007F00007F00007F00007F
      007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBFBFBFBFBFBFBF007F00007F00007F0000FF00BFBFBF00FF00
      007F00007F00007F007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00FF00007F0000FF00BF
      BFBFBFBFBFBFBFBF00FF00007F00007F00007F007F0000BFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BF00FF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FF00007F00007F00007F007F
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FF
      00007F00007F00007F007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00FF00007F00007F00007F007F0000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FF00007F00007F00007F00
      7F0000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      FF00007F00007F00007F007F0000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBF00FF00007F00007F007F0000BFBFBFBFBFBFBFBFBF00
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FF00007F00007F00BFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      00FF00BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      0000}
  end
  object bbClose: TBitBtn
    Left = 384
    Top = 130
    Width = 75
    Height = 24
    Caption = '放弃'
    TabOrder = 4
    TabStop = False
    Kind = bkCancel
  end
  object dbeCardID: TDBEdit
    Left = 267
    Top = 28
    Width = 73
    Height = 17
    TabStop = False
    BorderStyle = bsNone
    Color = clBlue
    DataField = 'CardID'
    DataSource = DM.dsProdOutCard
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    OnEnter = dbeCardIDEnter
  end
  object bbLocal: TBitBtn
    Left = 367
    Top = 10
    Width = 33
    Height = 17
    Caption = 'bbLocal'
    TabOrder = 6
    OnClick = bbLocalClick
  end
  object Panel2: TPanel
    Left = 39
    Top = 10
    Width = 123
    Height = 35
    Caption = '成品出库单'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
end