inv_enter_mounitmnrequestauditing1.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Enter_MoUnitMnRequestAuditing1: TFrm_Inv_Enter_MoUnitMnRequestAuditing1
  Left = -9
  Top = 93
  Caption = 'Mo合并领料核定'
  ClientWidth = 799
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 799
  end
  inherited Pnl_Title: TPanel
    Width = 799
    Caption = 'Mo合并领料核定'
    inherited Image2: TImage
      Width = 799
      OnClick = AccountSubjectCheck
    end
  end
  inherited Pnl_Head: TPanel
    Width = 799
    Height = 79
    inherited Image1: TImage
      Width = 799
      Height = 79
    end
    object Label1: TLabel
      Left = 44
      Top = 12
      Width = 36
      Height = 12
      Caption = '仓库：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 271
      Top = 12
      Width = 36
      Height = 12
      Caption = '货位：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 487
      Top = 12
      Width = 48
      Height = 12
      Caption = '仓管员：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 660
      Top = 12
      Width = 48
      Height = 12
      Caption = '单据号：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 648
      Top = 36
      Width = 60
      Height = 12
      Caption = '单据日期：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 272
      Top = 36
      Width = 36
      Height = 12
      Caption = '班别：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 20
      Top = 36
      Width = 60
      Height = 12
      Caption = '领料部门：'
      TransParent = True
    end
    object Label12: TLabel
      Left = 44
      Top = 60
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 488
      Top = 36
      Width = 48
      Height = 12
      Caption = '审核人：'
      TransParent = True
    end
    object Extedt_Billno: TExtEdit
      Left = 706
      Top = 8
      Width = 81
      Height = 20
      TabStop = False
      Enabled = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = False
      TabOrder = 0
    end
    object medt_Date: TMaskEdit
      Left = 706
      Top = 32
      Width = 81
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Edt_Dept: TExtEdit
      Left = 80
      Top = 32
      Width = 165
      Height = 20
      Enabled = False
      TabOrder = 2
    end
    object Extedt_memo: TExtEdit
      Left = 80
      Top = 56
      Width = 377
      Height = 20
      TabOrder = 3
    end
    object cmbbx_WhCode: TEdit
      Left = 80
      Top = 8
      Width = 164
      Height = 20
      TabOrder = 4
    end
    object cmbbx_WhPositionCode: TEdit
      Left = 304
      Top = 8
      Width = 153
      Height = 20
      TabOrder = 5
    end
    object cmbbx_Shift: TEdit
      Left = 304
      Top = 32
      Width = 153
      Height = 20
      TabOrder = 6
    end
    object cmbbx_WhEmployee: TEdit
      Left = 535
      Top = 8
      Width = 96
      Height = 20
      TabOrder = 7
    end
    object Edt_WhEmployeeCode: TEdit
      Left = 535
      Top = 32
      Width = 97
      Height = 20
      TabOrder = 8
    end
    object Button2: TButton
      Left = 535
      Top = 54
      Width = 98
      Height = 25
      Caption = '预览明细单据'
      TabOrder = 9
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 706
      Top = 54
      Width = 83
      Height = 25
      Caption = '列印明细单据'
      TabOrder = 10
      OnClick = Button1Click
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 799
    inherited Image4: TImage
      Width = 799
    end
  end
  inherited Pnl_Body: TPanel
    Top = 136
    Width = 799
    Height = 306
    inherited Image3: TImage
      Width = 799
      Height = 306
    end
    inherited DBGridEh: TDBGridEh
      Width = 799
      Height = 306
      ReadOnly = False
      OnColExit = DBGridEhColExit
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 201
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 49
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'OnHandInv'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '当前库存'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'MoCtrlQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '限额数量'
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'MoRealQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '已领料量'
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'MoRequestQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '请领数量'
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'ThisRequestQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实领数量'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '批号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 31
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 693
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 576
    Top = 0
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
    inherited Act_auto: TAction
      OnExecute = Act_autoExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    Left = 624
    Top = 1
  end
  inherited DataSource: TDataSource
    Left = 656
    Top = 1
  end
  object AdoQuery1: TAdoQuery
    EnableBCD = False
    Parameters = <>
    Left = 506
    Top = 2
  end
  object ExtPrintReport: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = '宋体'
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = '宋体'
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = '宋体'
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = '宋体'
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide, ptUser]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 426
    Top = 2
  end
end