sfc_mnlistrequest_b.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MnListRequest_B: TFrm_Sfc_MnListRequest_B
  Left = 66
  Top = 98
  Caption = '车间生产清单领料请领制单'
  ClientHeight = 518
  ClientWidth = 800
  Position = poMainformCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 336
      inherited ToolButton2: TToolButton
        Action = Act_SetColumn
      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 = 79
    inherited Image1: TImage
      Width = 800
      Height = 79
    end
    object Label3: TLabel
      Left = 20
      Top = 13
      Width = 60
      Height = 12
      Caption = '领料部门：'
    end
    object Label5: TLabel
      Left = 233
      Top = 13
      Width = 36
      Height = 12
      Caption = '班别：'
    end
    object Label9: TLabel
      Left = 8
      Top = 35
      Width = 72
      Height = 12
      Caption = '生产订单号：'
    end
    object Label11: TLabel
      Left = 188
      Top = 35
      Width = 36
      Height = 12
      Caption = '物料：'
    end
    object lbl_Dept: TLabel
      Left = 83
      Top = 13
      Width = 6
      Height = 12
    end
    object lbl_Mono: TLabel
      Left = 83
      Top = 40
      Width = 6
      Height = 12
      Visible = False
    end
    object lbl_Item: TLabel
      Left = 233
      Top = 35
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 360
      Top = 13
      Width = 60
      Height = 12
      Caption = '缺省仓库：'
    end
    object Label6: TLabel
      Left = 8
      Top = 56
      Width = 72
      Height = 12
      Caption = '约定交货量：'
    end
    object lbl_qty: TLabel
      Left = 80
      Top = 56
      Width = 6
      Height = 12
    end
    object Label8: TLabel
      Left = 153
      Top = 56
      Width = 72
      Height = 12
      Caption = '约定交货日：'
    end
    object lbl_Overdate: TLabel
      Left = 225
      Top = 56
      Width = 6
      Height = 12
    end
    object lbl_MoLineno: TLabel
      Left = 137
      Top = 35
      Width = 6
      Height = 12
      Visible = False
    end
    object lbl_Mono1: TLabel
      Left = 81
      Top = 35
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 584
      Top = 13
      Width = 72
      Height = 12
      Caption = '缺省仓管员：'
    end
    object cmbbx_Shift: TComboBox
      Left = 269
      Top = 9
      Width = 80
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbbx_ShiftChange
    end
    object ComboBox1: TComboBox
      Left = 419
      Top = 9
      Width = 155
      Height = 20
      ItemHeight = 12
      TabOrder = 1
      OnChange = ComboBox1Change
    end
    object CheckBox1: TCheckBox
      Left = 586
      Top = 35
      Width = 120
      Height = 17
      Caption = '不受缺省仓库限制'
      TabOrder = 2
      OnClick = ComboBox1Change
    end
    object CheckBox2: TCheckBox
      Left = 710
      Top = 35
      Width = 97
      Height = 17
      Caption = '显示全部列'
      TabOrder = 3
      OnClick = CheckBox2Click
    end
    object cmbx_Employee: TComboBox
      Left = 658
      Top = 9
      Width = 128
      Height = 20
      ItemHeight = 12
      TabOrder = 4
      OnChange = cmbx_EmployeeChange
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 498
    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 = 136
    Width = 800
    Height = 362
    inherited Image3: TImage
      Width = 800
      Height = 362
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 362
      Columns = <
        Item
          FieldName = 'ItemDESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 284
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 28
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moCtrlqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '限额数量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实领数量'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第1次领料|领料仓库'
          Width = 150
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第1次领料|领料货位'
          Width = 170
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realoutqty1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第1次领料|实领量'
          Width = 47
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第1次领料|批次号'
          Width = 85
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第2次领料|领料仓库'
          Width = 150
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第2次领料|领料货位'
          Width = 170
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realoutqty2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第2次领料|实领量'
          Width = 49
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第2次领料|批次号'
          Width = 82
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第3次领料|领料仓库'
          Width = 150
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第3次领料|领料货位'
          Width = 170
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realoutqty3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第3次领料|实领量'
          Width = 49
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第3次领料|批次号'
          Width = 99
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第4次领料|领料仓库'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第4次领料|领料货位'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOutQty4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第4次领料|实领量'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第4次领料|批次号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第5次领料|领料仓库'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第5次领料|领料货位'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOutQty5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第5次领料|实领量'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '第5次领料|批次号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'onhandInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可用库存'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tmp01'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '一'
          Width = 48
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tmp02'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '二'
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'tmp03'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '三'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Bom备注'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 228
    Top = 327
  end
  inherited ActionList: TActionList
    Left = 107
    Top = 327
    inherited Act_New: TAction
      Visible = False
    end
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
    inherited Act_auto: TAction
      Caption = '获取最佳领用数量'
      Hint = '获取最佳领用数量'
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
      '.0.100'
    SQL.Strings = (
      'select  *  from mnListRequest')
    Left = 147
    Top = 327
  end
  inherited DataSource: TDataSource
    Left = 188
    Top = 327
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
    Left = 66
    Top = 327
  end
end