unit_rubb_outcard.~dfm

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

object Form_Rubb_OutCard: TForm_Rubb_OutCard
  Left = 213
  Top = 93
  Width = 528
  Height = 403
  Caption = 'Form_jiao_chu'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 32
    Top = 6
    Width = 437
    Height = 28
    Caption = '宁波市巨龙橡塑有限公司'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '隶书'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
  end
  object Panel5: TPanel
    Left = 32
    Top = 34
    Width = 437
    Height = 49
    Caption = 'Panel5'
    TabOrder = 11
    object Panel9: TPanel
      Left = 2
      Top = 2
      Width = 433
      Height = 45
      BevelInner = bvLowered
      Caption = '剪胶（混炼胶）出库单'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = '华文彩云'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object DBGrid1: TDBGrid
    Left = 43
    Top = 228
    Width = 430
    Height = 137
    DataSource = DS_Show
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -16
    TitleFont.Name = '隶书'
    TitleFont.Style = []
  end
  object BitBtn2: TBitBtn
    Left = 392
    Top = 184
    Width = 75
    Height = 25
    Caption = '返回'
    TabOrder = 13
    Kind = bkClose
  end
  object BitBtn1: TBitBtn
    Left = 304
    Top = 184
    Width = 75
    Height = 25
    Caption = '进帐'
    TabOrder = 14
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
      55555575555555775F55509999999901055557F55555557F75F5001111111101
      105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
      01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008
      8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000
      0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF
      0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000
      05555555575FF777755555555500055555555555557775555555}
    NumGlyphs = 2
  end
  object Panel2: TPanel
    Left = 32
    Top = 84
    Width = 89
    Height = 22
    Caption = '领胶日期'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
  end
  object Panel3: TPanel
    Left = 209
    Top = 84
    Width = 87
    Height = 22
    Caption = '货源号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
  end
  object Panel4: TPanel
    Left = 296
    Top = 84
    Width = 79
    Height = 22
    Caption = '生产批号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 17
  end
  object Panel6: TPanel
    Left = 297
    Top = 129
    Width = 79
    Height = 22
    Caption = '领料人'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 18
  end
  object Panel7: TPanel
    Left = 121
    Top = 84
    Width = 88
    Height = 22
    Caption = '炼胶日期'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 19
  end
  object Panel8: TPanel
    Left = 122
    Top = 129
    Width = 88
    Height = 22
    Caption = '乙班领料(kg)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
  end
  object Panel10: TPanel
    Left = 210
    Top = 129
    Width = 87
    Height = 22
    Caption = '丙班领料(kg)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
  end
  object Panel11: TPanel
    Left = 375
    Top = 84
    Width = 94
    Height = 22
    Caption = '胶料名称'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 22
  end
  object DBEdit1: TDBEdit
    Left = 33
    Top = 106
    Width = 89
    Height = 22
    DataField = '日期'
    DataSource = DS_OutCard
    TabOrder = 0
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit2: TDBEdit
    Left = 121
    Top = 106
    Width = 88
    Height = 22
    DataField = '炼胶日期'
    DataSource = DS_OutCard
    TabOrder = 1
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit3: TDBEdit
    Left = 209
    Top = 106
    Width = 87
    Height = 22
    DataField = '货源号'
    DataSource = DS_OutCard
    TabOrder = 2
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit4: TDBEdit
    Left = 296
    Top = 106
    Width = 79
    Height = 22
    DataField = '生产批号'
    DataSource = DS_OutCard
    TabOrder = 3
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit_Wt2: TDBEdit
    Left = 122
    Top = 151
    Width = 89
    Height = 22
    DataField = '乙班领料'
    DataSource = DS_OutCard
    TabOrder = 6
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit_Rubb: TDBEdit
    Left = 375
    Top = 106
    Width = 94
    Height = 22
    DataField = '胶料名称'
    DataSource = DS_OutCard
    TabOrder = 4
    OnChange = DBEdit_RubbChange
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit_Wt3: TDBEdit
    Left = 210
    Top = 151
    Width = 87
    Height = 22
    DataField = '丙班领料'
    DataSource = DS_OutCard
    TabOrder = 7
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit8: TDBEdit
    Left = 297
    Top = 151
    Width = 79
    Height = 22
    DataField = '领料人'
    DataSource = DS_OutCard
    TabOrder = 8
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object Panel12: TPanel
    Left = 31
    Top = 129
    Width = 91
    Height = 22
    Caption = '甲班领料(kg)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 23
  end
  object DBEdit_Wt1: TDBEdit
    Left = 31
    Top = 151
    Width = 91
    Height = 22
    DataField = '甲班领料'
    DataSource = DS_OutCard
    TabOrder = 5
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object Panel13: TPanel
    Left = 376
    Top = 129
    Width = 93
    Height = 22
    Caption = '盘亏量(kg)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
  end
  object DBEdit10: TDBEdit
    Left = 376
    Top = 151
    Width = 94
    Height = 22
    DataField = '亏'
    DataSource = DS_OutCard
    TabOrder = 9
    OnEnter = DBEdit1Enter
    OnExit = DBEdit1Exit
  end
  object DBEdit_Sum: TDBEdit
    Left = 56
    Top = 183
    Width = 89
    Height = 22
    DataField = '合计'
    DataSource = DS_OutCard
    TabOrder = 25
    Visible = False
  end
  object DBEdit_Stock: TDBEdit
    Left = 152
    Top = 184
    Width = 121
    Height = 22
    DataField = '结存'
    DataSource = DS_OutCard
    TabOrder = 26
    Visible = False
  end
  object BitBtn3: TBitBtn
    Left = 33
    Top = 182
    Width = 75
    Height = 25
    Caption = '调出'
    TabOrder = 27
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
      0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
      00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
      00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
      F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
      F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
      FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
      0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
      00337777FFFF77FF7733EEEE0000000003337777777777777333}
    NumGlyphs = 2
  end
  object DBEdit_LastFlag: TDBEdit
    Left = 168
    Top = 184
    Width = 121
    Height = 22
    DataField = '最后领料标识'
    DataSource = DS_OutCard
    TabOrder = 28
  end
  object DS_Show: TDataSource
    DataSet = Qry_OutCard
    Left = 201
    Top = 306
  end
  object Qry_OutCard: TQuery
    DatabaseName = 'JL2000'
    Left = 216
    Top = 320
  end
  object DS_OutCard: TDataSource
    DataSet = Tab_OutCard
    Left = 117
    Top = 293
  end
  object Tab_OutCard: TTable
    Active = True
    AutoCalcFields = False
    DatabaseName = 'JL2000'
    TableName = '炼胶台帐.db'
    Left = 129
    Top = 304
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 336
    Top = 304
  end
end