inv_mninaudit.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnInAudit: TFrm_Inv_MnInAudit
  Left = -2
  Top = 100
  Caption = '车间生产入库仓库核定'
  ClientHeight = 492
  ClientWidth = 787
  Windowstate = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 787
    inherited ToolBar: TToolBar
      inherited TlBtn_CancelCheck: TToolButton
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 787
    Caption = '车间生产入库仓库核定'
    inherited Image2: TImage
      Width = 787
    end
  end
  inherited Pnl_Head: TPanel
    Width = 787
    Height = 75
    inherited Image1: TImage
      Width = 787
      Height = 75
    end
    inherited Lbl_Condition: TLabel
      Left = 187
      Top = 8
    end
    object Label3: TLabel
      Left = 44
      Top = 52
      Width = 48
      Height = 12
      Caption = '订单号：'
    end
    object Label1: TLabel
      Left = 592
      Top = 28
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label2: TLabel
      Left = 287
      Top = 28
      Width = 36
      Height = 12
      Caption = '班别：'
    end
    object Label5: TLabel
      Left = 288
      Top = 4
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label6: TLabel
      Left = 580
      Top = 4
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label7: TLabel
      Left = 288
      Top = 52
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Lbl_MoNo: TLabel
      Left = 96
      Top = 52
      Width = 6
      Height = 12
    end
    object LbL_MoFinishShift: TLabel
      Left = 333
      Top = 28
      Width = 6
      Height = 12
    end
    object Label8: TLabel
      Left = 32
      Top = 28
      Width = 60
      Height = 12
      Caption = '生产部门：'
    end
    object Lbl_Dept: TLabel
      Left = 96
      Top = 28
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 56
      Top = 4
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Lbl_WhCodeName: TLabel
      Left = 96
      Top = 4
      Width = 6
      Height = 12
    end
    object Lbl_Position: TLabel
      Left = 336
      Top = 4
      Width = 6
      Height = 12
    end
    object Edt_BillNo: TEdit
      Left = 632
      Top = 0
      Width = 121
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object Edt_Memo: TEdit
      Left = 336
      Top = 48
      Width = 417
      Height = 20
      TabOrder = 1
    end
    object Edt_Date: TMaskEdit
      Left = 632
      Top = 24
      Width = 82
      Height = 20
      EditMask = '9999.99.99;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '    .  .  '
      OnExit = Edt_DateExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 463
    Width = 787
    Height = 29
    inherited Image4: TImage
      Width = 787
      Height = 29
    end
    object Label4: TLabel
      Left = 8
      Top = 12
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 104
      Top = 11
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 132
    Width = 787
    Height = 331
    inherited Image3: TImage
      Width = 787
      Height = 331
    end
    inherited DBGridEh: TDBGridEh
      Width = 787
      Height = 331
      ReadOnly = False
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          FieldName = 'MONO'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 247
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 25
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MOQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealInQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '累计实入量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillSfcQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '拟入量'
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实入量'
          Width = 45
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Caption = '备注'
          Width = 79
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 301
    Top = 291
  end
  inherited ActionList: TActionList
    Top = 176
    inherited Act_CancelCheck: TAction
      Enabled = False
    end
    inherited Act_Check: TAction
      Caption = '核定'
      Hint = '核定'
      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
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    AfterInsert = AdoQry_BodyAfterInsert
    BeforePost = AdoQry_BodyBeforePost
    SQL.Strings = (
      'select IL.MONO,IL.MoLineNo,IL.ItemCode,IL.InvBillLineNo,'
      '       Item.ItemName,Uom.UomName,MoLine.BackFlush,'
      
        '       MoLine.MOQty,MoLine.MoRealInQty,IL.InvBillSfcQty,IL.InvBi' +
        'llQty,IL.BilllineremArk'
      '  From InvInBillLine IL'
      '  Join MoLine '
      '    On (MoLine.MoNo=IL.MoNo) and (MoLine.MoLineNo=IL.MoLineNo)'
      '  Join Item '
      '    On Item.ItemCode=IL.ItemCode'
      '  Join Uom'
      '    On Uom.UomCode=Item.UomCode'
      ''
      ''
      '')
    object AdoQry_BodyMONO: TStringField
      FieldName = 'MONO'
      Size = 16
    end
    object AdoQry_BodyMoLineNo: TIntegerField
      FieldName = 'MoLineNo'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyMOQty: TFloatField
      FieldName = 'MOQty'
    end
    object AdoQry_BodyMoRealInQty: TFloatField
      FieldName = 'MoRealInQty'
    end
    object AdoQry_BodyInvBillSfcQty: TFloatField
      FieldName = 'InvBillSfcQty'
    end
    object AdoQry_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_BodyInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Size = 10
    end
    object AdoQry_BodyBilllineremArk: TStringField
      FieldName = 'BilllineremArk'
      Size = 250
    end
    object AdoQry_BodyBackFlush: TIntegerField
      FieldName = 'BackFlush'
    end
  end
  inherited DataSource: TDataSource
    Left = 360
    Top = 225
  end
  object AdoQry_Tmp2: TAdoQuery
    Parameters = <>
    Left = 245
    Top = 243
  end
end