unit_mater_outmod.~dfm

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

object Form_Mater_OutMod: TForm_Mater_OutMod
  Left = 217
  Top = 148
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  ClientHeight = 277
  ClientWidth = 494
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object BitBtn_Exit: TBitBtn
    Left = 278
    Top = 226
    Width = 86
    Height = 26
    Caption = '返回'
    TabOrder = 1
    TabStop = False
    OnClick = BitBtn_ExitClick
  end
  object BitBtn_Post: TBitBtn
    Left = 166
    Top = 226
    Width = 86
    Height = 26
    Caption = '记入帐本'
    TabOrder = 0
    OnClick = BitBtn_PostClick
  end
  object Panel1: TPanel
    Left = 11
    Top = 61
    Width = 474
    Height = 150
    BevelInner = bvLowered
    TabOrder = 2
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 470
      Height = 48
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 0
      object DBEdit_Date: TDBEdit
        Left = 386
        Top = 24
        Width = 80
        Height = 22
        DataField = '日期'
        DataSource = DS_OutCard
        TabOrder = 0
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel8: TPanel
        Left = 386
        Top = 2
        Width = 81
        Height = 22
        Caption = '领料日期'
        TabOrder = 2
      end
      object Panel13: TPanel
        Left = 85
        Top = 2
        Width = 301
        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 = 82
        Height = 22
        Caption = '货源号'
        TabOrder = 4
      end
      object DBEdit_SourceNum: TDBEdit
        Left = 2
        Top = 22
        Width = 83
        Height = 22
        TabStop = False
        DataField = '出库货源号'
        DataSource = DS_OutCard
        TabOrder = 1
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
    end
    object Panel2: TPanel
      Left = 3
      Top = 52
      Width = 469
      Height = 48
      BevelInner = bvLowered
      TabOrder = 1
      object DBEdit_Mater: TDBEdit
        Left = 83
        Top = 24
        Width = 158
        Height = 22
        DataField = '材料名称'
        DataSource = DS_OutCard
        Enabled = False
        ReadOnly = True
        TabOrder = 1
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel5: TPanel
        Left = 2
        Top = 2
        Width = 81
        Height = 22
        Caption = '简称输入'
        TabOrder = 4
      end
      object Panel6: TPanel
        Left = 385
        Top = 2
        Width = 81
        Height = 22
        Caption = '领料人密码'
        TabOrder = 5
      end
      object Panel7: TPanel
        Left = 241
        Top = 2
        Width = 73
        Height = 22
        Caption = '出库数量'
        TabOrder = 6
      end
      object Panel9: TPanel
        Left = 83
        Top = 2
        Width = 158
        Height = 22
        Caption = '材 料 名 称'
        TabOrder = 7
      end
      object DBEdit_OutWt: TDBEdit
        Left = 241
        Top = 24
        Width = 73
        Height = 22
        DataField = '出库数量'
        DataSource = DS_OutCard
        TabOrder = 2
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object DBEdit_Man: TDBEdit
        Left = 385
        Top = 24
        Width = 81
        Height = 22
        DataField = '领料人'
        DataSource = DS_OutCard
        TabOrder = 3
        OnEnter = DBEdit_ManEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Edit_Index: TEdit
        Left = 2
        Top = 24
        Width = 81
        Height = 22
        Enabled = False
        ReadOnly = True
        TabOrder = 0
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object DBEdit_Per: TDBEdit
        Left = 314
        Top = 24
        Width = 71
        Height = 22
        TabStop = False
        DataField = '单价'
        DataSource = DS_OutCard
        Enabled = False
        ReadOnly = True
        TabOrder = 8
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel11: TPanel
        Left = 314
        Top = 2
        Width = 71
        Height = 22
        Caption = '单 价'
        TabOrder = 9
      end
    end
    object Panel4: TPanel
      Left = 3
      Top = 100
      Width = 469
      Height = 48
      BevelInner = bvLowered
      TabOrder = 2
      object Panel14: TPanel
        Left = 85
        Top = 2
        Width = 157
        Height = 22
        Caption = '使 用 部 门'
        TabOrder = 2
      end
      object DBEdit_Dep: TDBEdit
        Left = 85
        Top = 24
        Width = 157
        Height = 22
        DataField = '使用部门'
        DataSource = DS_OutCard
        TabOrder = 0
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object Panel12: TPanel
        Left = 3
        Top = 2
        Width = 82
        Height = 22
        Caption = '领料单号'
        TabOrder = 3
      end
      object DBEdit_OutCardNum: TDBEdit
        Left = 2
        Top = 24
        Width = 83
        Height = 22
        TabStop = False
        DataField = '领料单号'
        DataSource = DS_OutCard
        Enabled = False
        ReadOnly = True
        TabOrder = 1
        OnEnter = DBEdit_SourceNumEnter
        OnExit = DBEdit_SourceNumExit
      end
      object DBEdit1: TDBEdit
        Left = 242
        Top = 23
        Width = 224
        Height = 22
        DataField = '备注'
        DataSource = DS_OutCard
        TabOrder = 4
      end
      object Panel17: TPanel
        Left = 242
        Top = 2
        Width = 224
        Height = 21
        Caption = '盘 亏（备注）'
        TabOrder = 5
      end
    end
  end
  object Panel15: TPanel
    Left = 11
    Top = 20
    Width = 473
    Height = 41
    Caption = '宁 波 市 巨 龙 橡 塑 有 限 公 司'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Qry_Exe: TQuery
    DatabaseName = 'JL2000'
    Left = 112
    Top = 73
  end
  object Tab_OutCard: TTable
    DatabaseName = 'JL2000'
    TableName = '原材料台帐.DB'
    Left = 208
    Top = 73
  end
  object DS_OutCard: TDataSource
    DataSet = Tab_OutCard
    Left = 224
    Top = 81
  end
end