inv_mnlistaudit_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnListAudit_B: TFrm_Inv_MnListAudit_B
  Left = -5
  Top = 100
  Caption = '车间清单领料仓库核定'
  ClientHeight = 553
  ClientWidth = 800
  Position = poMainformCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 336
      inherited TlBtn_Modify: TToolButton
        Hint = '查询(Enter)'
        ImageIndex = 22
      end
      inherited ToolButton3: TToolButton
        Width = 6
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Left = 237
      end
      inherited TlBtn_Print: TToolButton
        Left = 260
      end
      inherited TlBtn_Excel: TToolButton
        Left = 283
      end
      inherited ToolButton10: TToolButton
        Left = 306
      end
      inherited ToolButton4: TToolButton
        Left = 313
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '车间清单领料仓库核定'
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 69
    inherited Image1: TImage
      Width = 800
      Height = 69
    end
    object Label3: TLabel
      Left = 20
      Top = 30
      Width = 60
      Height = 12
      Caption = '领料部门：'
    end
    object Label5: TLabel
      Left = 281
      Top = 29
      Width = 36
      Height = 12
      Caption = '班别：'
    end
    object Label9: TLabel
      Left = 8
      Top = 50
      Width = 72
      Height = 12
      Caption = '生产订单号：'
    end
    object Label10: TLabel
      Left = 181
      Top = 50
      Width = 60
      Height = 12
      Caption = '订单行号：'
    end
    object Label11: TLabel
      Left = 281
      Top = 50
      Width = 36
      Height = 12
      Caption = '物料：'
    end
    object lbl_Dept: TLabel
      Left = 83
      Top = 29
      Width = 6
      Height = 12
    end
    object lbl_Mono: TLabel
      Left = 83
      Top = 50
      Width = 6
      Height = 12
    end
    object lbl_MoLineno: TLabel
      Left = 243
      Top = 50
      Width = 6
      Height = 12
    end
    object lbl_Item: TLabel
      Left = 321
      Top = 50
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 672
      Top = 6
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label6: TLabel
      Left = 661
      Top = 30
      Width = 60
      Height = 12
      Caption = '领料日期：'
    end
    object Label7: TLabel
      Left = 44
      Top = 7
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label8: TLabel
      Left = 264
      Top = 6
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label12: TLabel
      Left = 455
      Top = 6
      Width = 48
      Height = 12
      Caption = '仓管员：'
    end
    object cmbbx_Shift: TComboBox
      Left = 317
      Top = 24
      Width = 103
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbbx_ShiftChange
    end
    object edt_No: TEdit
      Left = 720
      Top = 1
      Width = 71
      Height = 20
      Enabled = False
      TabOrder = 1
    end
    object medt_Date: TMaskEdit
      Left = 720
      Top = 24
      Width = 71
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 2
      Text = '    .  .  '
    end
    object cmbx_WhCode: TComboBox
      Left = 77
      Top = 2
      Width = 166
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = cmbx_WhCodeChange
    end
    object cmbx_WhPosition: TComboBox
      Left = 298
      Top = 1
      Width = 122
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      OnChange = cmbx_WhPositionChange
    end
    object Rbtn_ShowWhCode: TRadioButton
      Left = 449
      Top = 29
      Width = 118
      Height = 17
      Caption = '按缺省仓库显示'
      Checked = True
      TabOrder = 5
      TabStop = True
      OnClick = Rbtn_ShowWhCodeClick
      OnMouseDown = Rbtn_ShowWhCodeMouseDown
    end
    object Rbtn_Showall: TRadioButton
      Left = 573
      Top = 29
      Width = 73
      Height = 17
      Caption = '全部列示'
      TabOrder = 6
      OnClick = Rbtn_ShowallClick
      OnMouseDown = Rbtn_ShowallMouseDown
    end
    object cmbx_Employee: TComboBox
      Left = 502
      Top = 1
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 7
      OnChange = cmbx_EmployeeChange
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 533
    Width = 800
    Height = 20
    inherited Image4: TImage
      Width = 800
      Height = 20
    end
    object Label1: TLabel
      Left = 12
      Top = 6
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 107
      Top = 6
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemDESC'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 594
      Top = 6
      Width = 48
      Height = 12
      Caption = '参考码：'
    end
    object DBText2: TDBText
      Left = 646
      Top = 6
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCode2'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 126
    Width = 800
    Height = 407
    inherited Image3: TImage
      Width = 800
      Height = 407
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 407
      ReadOnly = False
      OnColExit = DBGridEhColExit
      OnEnter = DBGridEhEnter
      FrozenCols = 5
      Columns = <
        Item
          FieldName = 'ItemDESC'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 170
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'onhandInv'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '可用库存'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moCtrlqty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '限额数量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealqty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '累计实领数量'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tmpRealOutQty'
          PickList.Strings = ()
          Title.Caption = '本次领料|实领量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tmpBatchno'
          PickList.Strings = ()
          Title.Caption = '本次领料|批次号'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHCode1'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '第1次领料|领料仓库'