unit_mater_outcard.~dfm

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

object Form_Mater_OutCard: TForm_Mater_OutCard
  Left = 222
  Top = 137
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  ClientHeight = 229
  ClientWidth = 516
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label3: TLabel
    Left = 450
    Top = 220
    Width = 28
    Height = 14
    Caption = '库存'
    Visible = False
  end
  object Label4: TLabel
    Left = 274
    Top = 220
    Width = 70
    Height = 14
    Caption = '出入标识  '
    Visible = False
  end
  object Label6: TLabel
    Left = 26
    Top = 220
    Width = 42
    Height = 14
    Caption = '标识号'
    Visible = False
  end
  object Label1: TLabel
    Left = 101
    Top = 220
    Width = 84
    Height = 14
    Caption = '最后领料标识'
    Visible = False
  end
  object Label7: TLabel
    Left = 194
    Top = 220
    Width = 56
    Height = 14
    Caption = '领料标识'
    Visible = False
  end
  object Panel1: TPanel
    Left = 13
    Top = 32
    Width = 487
    Height = 149
    BevelInner = bvLowered
    TabOrder = 0
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 483
      Height = 48
      Align = alTop
      AutoSize = True
      BevelInner = bvLowered
      TabOrder = 0
      object DBEdit_Date: TDBEdit
        Left = 392
        Top = 24
        Width = 88
        Height = 22
        DataField = '日期'
        DataSource = DS_OutCard
        TabOrder = 0
        OnEnter = DBEdit_DateEnter
        OnExit = DBEdit_DateExit
      end
      object Panel8: TPanel
        Left = 392
        Top = 2
        Width = 89
        Height = 22
        Caption = '领料日期'
        TabOrder = 2
      end
      object Panel13: TPanel
        Left = 79
        Top = 2
        Width = 313
        Height = 44
        Caption = '出  库  单'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -35
        Font.Name = '宋体'
        Font.Style = [fsItalic]
        ParentFont = False
        TabOrder = 3
      end
      object Panel10: TPanel
        Left = 3
        Top = 2
        Width = 76
        Height = 22
        Caption = '货源号'
        TabOrder = 4
      end
      object DBEdit_SourceNum: TDBEdit
        Left = 3
        Top = 22
        Width = 76
        Height = 22
        TabStop = False
        DataField = '出库货源号'
        DataSource = DS_OutCard
        TabOrder = 1
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
    end
    object Panel15: TPanel
      Left = 366
      Top = 52
      Width = 119
      Height = 96
      AutoSize = True
      BevelInner = bvLowered
      TabOrder = 3
      object Panel17: TPanel
        Left = 4
        Top = 2
        Width = 113
        Height = 22
        Caption = '盘 亏（备注）'
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 2
        Top = 24
        Width = 115
        Height = 70
        AutoSize = False
        DataField = '备注'
        DataSource = DS_OutCard
        TabOrder = 1
      end
    end
    object Panel2: TPanel
      Left = 2
      Top = 50
      Width = 364
      Height = 48
      BevelInner = bvLowered
      TabOrder = 1
      object DBEdit_Mater: TDBEdit
        Left = 79
        Top = 24
        Width = 137
        Height = 22
        DataField = '材料名称'
        DataSource = DS_OutCard
        TabOrder = 1
        OnEnter = DBEdit_MaterEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel5: TPanel
        Left = 2
        Top = 2
        Width = 77
        Height = 22
        Caption = '简称输入'
        TabOrder = 4
      end
      object Panel7: TPanel
        Left = 216
        Top = 2
        Width = 76
        Height = 22
        Caption = '出库数量'
        TabOrder = 5
      end
      object Panel9: TPanel
        Left = 79
        Top = 2
        Width = 137
        Height = 22
        Caption = '材 料 名 称'
        TabOrder = 6
      end
      object DBEdit_OutWt: TDBEdit
        Left = 216
        Top = 24
        Width = 76
        Height = 22
        DataField = '出库数量'
        DataSource = DS_OutCard
        TabOrder = 2
        OnEnter = DBEdit_OutWtEnter
        OnExit = DBEdit_OutWtExit
      end
      object Edit_Index: TEdit
        Left = 2
        Top = 24
        Width = 77
        Height = 22
        TabOrder = 0
        OnChange = Edit_IndexChange
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object DBEdit_Per: TDBEdit
        Left = 292
        Top = 24
        Width = 69
        Height = 22
        TabStop = False
        DataField = '单价'
        DataSource = DS_OutCard
        Enabled = False
        ReadOnly = True
        TabOrder = 3
      end
      object Panel11: TPanel
        Left = 292
        Top = 2
        Width = 69
        Height = 22
        Caption = '单 价'
        TabOrder = 7
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 98
      Width = 364
      Height = 49
      BevelInner = bvLowered
      TabOrder = 2
      object Panel14: TPanel
        Left = 156
        Top = 2
        Width = 116
        Height = 22
        Caption = '使 用 部 门'
        TabOrder = 0
      end
      object DBEdit_Dep: TDBEdit
        Left = 156
        Top = 24
        Width = 117
        Height = 22
        DataField = '使用部门'
        DataSource = DS_OutCard
        TabOrder = 4
        OnEnter = DBEdit_DepEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel12: TPanel
        Left = 272
        Top = 2
        Width = 90
        Height = 22
        Caption = '领料单号'
        TabOrder = 1
      end
      object DBEdit_OutCardNum: TDBEdit
        Left = 272
        Top = 24
        Width = 90
        Height = 22
        TabStop = False
        DataField = '领料单号'
        DataSource = DS_OutCard
        Enabled = False
        ReadOnly = True
        TabOrder = 5
      end
      object Panel6: TPanel
        Left = 63
        Top = 2
        Width = 93
        Height = 22
        Caption = '领料人密码'
        TabOrder = 6
      end
      object DBEdit_Man: TDBEdit
        Left = 63
        Top = 24
        Width = 93
        Height = 22
        DataField = '领料人'
        DataSource = DS_OutCard
        PasswordChar = '*'
        TabOrder = 3
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object DBEdit2: TDBEdit
        Left = 2
        Top = 24
        Width = 61
        Height = 22
        DataField = 'Kuhao'
        DataSource = DS_OutCard
        TabOrder = 2
      end
      object Panel18: TPanel
        Left = 2
        Top = 2
        Width = 61
        Height = 22
        Caption = '库号'
        TabOrder = 7
      end
    end
  end
  object BitBtn_Exit: TBitBtn
    Left = 361
    Top = 191
    Width = 75
    Height = 25
    Cancel = True
    Caption = '返回'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TabStop = False
    OnClick = BitBtn_ExitClick
  end
  object BitBtn_Post: TBitBtn
    Left = 242
    Top = 191
    Width = 75
    Height = 25
    Caption = '记入帐本'
    TabOrder = 1
    OnClick = BitBtn_PostClick
  end
  object DBEdit_Stock: TDBEdit
    Left = 434
    Top = 236
    Width = 57
    Height = 22
    TabStop = False
    DataField = '库存'
    DataSource = DS_OutCard
    TabOrder = 3
    Visible = False
  end
  object DBEdit_IfOut: TDBEdit
    Left = 266
    Top = 236
    Width = 81
    Height = 22
    TabStop = False
    DataField = '出入标识'
    DataSource = DS_OutCard
    TabOrder = 4
    Visible = False
  end
  object DBEdit_ID: TDBEdit
    Left = 19
    Top = 236
    Width = 73
    Height = 22
    DataField = '标识号'
    DataSource = DS_OutCard
    TabOrder = 5
    Visible = False
  end
  object DBEdit_LastOutCardFlag: TDBEdit
    Left = 101
    Top = 237
    Width = 81
    Height = 22
    DataField = '最后领料标识'
    DataSource = DS_OutCard
    TabOrder = 6
    Visible = False
  end
  object DBEdit_IFFirsrtOut: TDBEdit
    Left = 186
    Top = 234
    Width = 73
    Height = 22
    DataField = '领料标识'
    DataSource = DS_OutCard
    TabOrder = 7
    Visible = False
  end
  object Panel16: TPanel
    Left = 13
    Top = 3
    Width = 487
    Height = 29
    Caption = '宁 波 市 巨 龙 橡 塑 有 限 公 司'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object Qry_Exe: TQuery
    DatabaseName = 'JL2000'
    Left = 122
    Top = 44
  end
  object Tab_OutCard: TTable
    DatabaseName = 'JL2000'
    TableName = '原材料台帐.DB'
    Left = 210
    Top = 36
  end
  object DS_OutCard: TDataSource
    DataSet = Tab_OutCard
    Left = 226
    Top = 44
  end
end