unit_mater_inmod.dfm

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

object Form_Mater_InMod: TForm_Mater_InMod
  Left = 206
  Top = 167
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  ClientHeight = 245
  ClientWidth = 520
  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 Label2: TLabel
    Left = 356
    Top = 241
    Width = 56
    Height = 14
    Caption = '领料单号'
    Visible = False
  end
  object Panel1: TPanel
    Left = 14
    Top = 43
    Width = 493
    Height = 150
    AutoSize = True
    BevelInner = bvLowered
    TabOrder = 0
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 489
      Height = 49
      Align = alTop
      AutoSize = True
      BevelInner = bvLowered
      TabOrder = 0
      object DBEdit_InCardNum: TDBEdit
        Left = 2
        Top = 24
        Width = 90
        Height = 22
        DataField = '入库单号'
        DataSource = DS_InCard
        TabOrder = 0
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object DBEdit_Date: TDBEdit
        Left = 397
        Top = 24
        Width = 88
        Height = 22
        DataField = '日期'
        DataSource = DS_InCard
        TabOrder = 1
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object Panel8: TPanel
        Left = 397
        Top = 2
        Width = 89
        Height = 22
        Caption = '入库日期'
        TabOrder = 2
      end
      object Panel12: TPanel
        Left = 2
        Top = 2
        Width = 90
        Height = 22
        Caption = '入库单号'
        TabOrder = 3
      end
      object Panel13: TPanel
        Left = 93
        Top = 2
        Width = 304
        Height = 45
        Caption = '修 改 入 库 单'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -32
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
      end
    end
    object Panel15: TPanel
      Left = 366
      Top = 52
      Width = 125
      Height = 93
      BevelInner = bvLowered
      TabOrder = 3
      object Panel11: TPanel
        Left = 4
        Top = 2
        Width = 118
        Height = 22
        Caption = '盘  盈（备注）'
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 3
        Top = 24
        Width = 121
        Height = 71
        AutoSize = False
        DataField = '备注'
        DataSource = DS_InCard
        TabOrder = 1
      end
    end
    object Panel2: TPanel
      Left = 2
      Top = 52
      Width = 364
      Height = 48
      BevelInner = bvLowered
      TabOrder = 1
      object DBEdit_Mater: TDBEdit
        Left = 62
        Top = 24
        Width = 120
        Height = 22
        DataField = '材料名称'
        DataSource = DS_InCard
        Enabled = False
        ReadOnly = True
        TabOrder = 1
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object Panel5: TPanel
        Left = 2
        Top = 2
        Width = 60
        Height = 22
        Caption = '简称输入'
        TabOrder = 5
      end
      object Panel6: TPanel
        Left = 301
        Top = 2
        Width = 60
        Height = 22
        Caption = '检验员'
        TabOrder = 6
      end
      object Panel7: TPanel
        Left = 182
        Top = 2
        Width = 60
        Height = 22
        Caption = '入库数量'
        TabOrder = 7
      end
      object Panel9: TPanel
        Left = 62
        Top = 2
        Width = 120
        Height = 22
        Caption = '材 料 名 称'
        TabOrder = 8
      end
      object Panel16: TPanel
        Left = 242
        Top = 2
        Width = 59
        Height = 22
        Caption = '单 价'
        TabOrder = 9
      end
      object DBEdit_InWt: TDBEdit
        Left = 182
        Top = 24
        Width = 60
        Height = 22
        DataField = '入库数量'
        DataSource = DS_InCard
        TabOrder = 2
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object DBEdit_Chk: TDBEdit
        Left = 301
        Top = 24
        Width = 60
        Height = 22
        DataField = '检验员'
        DataSource = DS_InCard
        TabOrder = 4
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object DBEdit_Per: TDBEdit
        Left = 242
        Top = 24
        Width = 59
        Height = 22
        DataField = '单价'
        DataSource = DS_InCard
        TabOrder = 3
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object Edit_Index: TEdit
        Left = 2
        Top = 24
        Width = 60
        Height = 22
        Enabled = False
        ReadOnly = True
        TabOrder = 0
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 100
      Width = 364
      Height = 48
      BevelInner = bvLowered
      TabOrder = 2
      object Panel14: TPanel
        Left = 89
        Top = 2
        Width = 113
        Height = 22
        Caption = '进 货 地 点'
        TabOrder = 3
      end
      object DBEdit_Add: TDBEdit
        Left = 88
        Top = 24
        Width = 115
        Height = 22
        DataField = '进货地点'
        DataSource = DS_InCard
        TabOrder = 1
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object Panel18: TPanel
        Left = 202
        Top = 2
        Width = 160
        Height = 22
        Caption = '生 产 厂 家'
        TabOrder = 4
      end
      object DBEdit_Fac: TDBEdit
        Left = 202
        Top = 24
        Width = 159
        Height = 22
        DataField = '生产厂家'
        DataSource = DS_InCard
        TabOrder = 2
        OnEnter = DBEdit_InCardNumEnter
        OnExit = DBEdit_InCardNumExit
      end
      object DBEdit_Taker: TDBEdit
        Left = 3
        Top = 24
        Width = 86
        Height = 22
        DataField = '采购员'
        DataSource = DS_InCard
        TabOrder = 0
        OnEnter = DBEdit_TakerEnter
        OnExit = DBEdit_InCardNumExit
      end
      object Panel10: TPanel
        Left = 3
        Top = 2
        Width = 86
        Height = 22
        Caption = '采购员密码'
        TabOrder = 5
      end
    end
  end
  object BitBtn_Post: TBitBtn
    Left = 220
    Top = 207
    Width = 75
    Height = 25
    Caption = '记入帐本'
    TabOrder = 1
    OnClick = BitBtn_PostClick
  end
  object BitBtn_Exit: TBitBtn
    Left = 348
    Top = 207
    Width = 75
    Height = 25
    Caption = '返回'
    TabOrder = 2
    TabStop = False
    OnClick = BitBtn_ExitClick
  end
  object DBEdit_OutCardNum: TDBEdit
    Left = 336
    Top = 248
    Width = 65
    Height = 22
    DataField = '领料单号'
    DataSource = DS_InCard
    TabOrder = 3
    Visible = False
  end
  object Panel17: TPanel
    Left = 14
    Top = 9
    Width = 492
    Height = 34
    Caption = '宁 波 市 巨 龙 橡 塑 有 限 公 司'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Tab_InCard: TTable
    DatabaseName = 'JL2000'
    TableName = '原材料台帐.DB'
    Left = 244
    Top = 39
  end
  object DS_InCard: TDataSource
    DataSet = Tab_InCard
    Left = 260
    Top = 55
  end
  object Qry_Exe: TQuery
    DatabaseName = 'JL2000'
    Left = 164
    Top = 47
  end
end