mrp_qry_uprightmrp_d.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_UpRightMrp_D: TFrm_Mrp_Qry_UpRightMrp_D
  Left = 42
  Top = 104
  Caption = 'Mps/Mrp竖式报表'
  ClientWidth = 712
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 712
    inherited ToolBar: TToolBar
      inherited TlBtn_Look: TToolButton
        Hint = '供需反查'
        Caption = '供需反查'
      end
      inherited TlBtn_Sum: TToolButton
        Hint = '查看供应商情况'
        Action = nil
        Caption = '查看供应商情况'
        Enabled = True
        ImageIndex = 41
        Visible = True
        OnClick = Act_ShowGridExecute
      end
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
      inherited TlBtn_SetColumn: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 712
    Caption = '当前物料Mps/Mrp竖式报表'
    inherited Image2: TImage
      Width = 712
    end
  end
  inherited Pnl_Head: TPanel
    Width = 712
    Height = 54
    inherited Image1: TImage
      Width = 712
      Height = 54
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 16
      Top = 74
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 25
      Caption = '物料代码：'
    end
    inherited Lbl_Condition: TLabel
      Left = 18
    end
    inherited Lbl_Order: TLabel
      Left = 84
      Top = 74
      Width = 72
      Caption = '系统建议信息'
      Visible = False
    end
    object lbl_ItemCode: TLabel
      Left = 88
      Top = 5
      Width = 6
      Height = 12
    end
    object Label1: TLabel
      Left = 160
      Top = 5
      Width = 36
      Height = 12
      Caption = '单位：'
    end
    object lbl_UomName: TLabel
      Left = 195
      Top = 5
      Width = 6
      Height = 12
    end
    object Label2: TLabel
      Left = 224
      Top = 5
      Width = 48
      Height = 12
      Caption = '提前期：'
    end
    object lbl_ldtime: TLabel
      Left = 271
      Top = 5
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 312
      Top = 5
      Width = 72
      Height = 12
      Caption = '准备提前期：'
    end
    object lbl_Preparetime: TLabel
      Left = 383
      Top = 5
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 424
      Top = 5
      Width = 72
      Height = 12
      Caption = '运行提前期：'
    end
    object lbl_runlt: TLabel
      Left = 495
      Top = 5
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 553
      Top = 5
      Width = 72
      Height = 12
      Caption = '质检提前期：'
    end
    object lbl_Qclt: TLabel
      Left = 624
      Top = 5
      Width = 6
      Height = 12
    end
    object Label6: TLabel
      Left = 25
      Top = 21
      Width = 60
      Height = 12
      Caption = '物料描述：'
    end
    object lbl_ItemName: TLabel
      Left = 88
      Top = 21
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 420
      Top = 21
      Width = 60
      Height = 12
      Caption = '制 购 码：'
    end
    object lbl_PmCode: TLabel
      Left = 483
      Top = 21
      Width = 6
      Height = 12
    end
    object Label8: TLabel
      Left = 573
      Top = 21
      Width = 36
      Height = 12
      Caption = '批量：'
    end
    object lbl_PmBatch: TLabel
      Left = 606
      Top = 21
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 24
      Top = 37
      Width = 60
      Height = 12
      Caption = '批量策略：'
    end
    object lbl_Batchstrat: TLabel
      Left = 81
      Top = 37
      Width = 6
      Height = 12
    end
    object Label10: TLabel
      Left = 152
      Top = 37
      Width = 84
      Height = 12
      Caption = '当前可用库存：'
    end
    object lbl_onhand: TLabel
      Left = 241
      Top = 37
      Width = 6
      Height = 12
    end
    object Label11: TLabel
      Left = 304
      Top = 37
      Width = 84
      Height = 12
      Caption = '当前待检库存：'
    end
    object lbl_oncehck: TLabel
      Left = 385
      Top = 37
      Width = 6
      Height = 12
    end
    object Label12: TLabel
      Left = 587
      Top = 37
      Width = 60
      Height = 12
      Caption = '安全库存：'
    end
    object lbl_minqty: TLabel
      Left = 650
      Top = 37
      Width = 6
      Height = 12
    end
    object Label13: TLabel
      Left = 450
      Top = 37
      Width = 72
      Height = 12
      Caption = '订单已领量：'
    end
    object lbl_Assignedqty: TLabel
      Left = 523
      Top = 37
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 712
    inherited Image4: TImage
      Width = 712
    end
  end
  inherited Pnl_Body: TPanel
    Top = 111
    Width = 712
    Height = 306
    inherited Image3: TImage
      Width = 712
      Height = 306
    end
    inherited DBGridEh: TDBGridEh
      Width = 712
      Height = 306
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'SysInfo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Ordernoandlineno'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'netqty'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'releasedate'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'grossqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'requiredate'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'trace'
          PickList.Strings = ()
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Planqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 179
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 136
    inherited Act_Sum: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Look: TAction
      Enabled = True
      ShortCut = 16460
      Visible = True
      OnExecute = Act_LookExecute
    end
    inherited Act_ShowGrid: TAction
      Caption = '查看供应商情况'
      Hint = '查看供应商情况'
      ShortCut = 16455
      OnExecute = Act_ShowGridExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    SQL.Strings = (
      'select ItemCode,'
      '       PmCode,'
      '       VendorCode='#39'fdfddsdsfdsfdsffdd'#39','
      '       '#39'建议下达'#39' as SysInfo,'
      '       releasedate,'
      
        '       Ordernoandlineno=Orderno+'#39'-'#39'+convert(varchAr,Orderlineno)' +
        ','
      '       grossqty=convert(float,0),'
      '       Orderqty=convert(float,0),'
      '       onhand=convert(float,0),'
      '       netqty=convert(float,0),'
      '       getdate() as requiredate,'
      '       ordinal,'
      '       '#39'                '#39' as trace,'
      '       convert(float(8),0) as Planqty'
      'from MrpResult'
      'where ItemCode='#39'cp001'#39
      'Order by releasedate,ordinal')
    Left = 264
    Top = 209
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainSysInfo: TStringField
      DisplayLabel = '建议信息'
      FieldName = 'SysInfo'
      ReadOnly = True
      Size = 8
    end
    object AdoQry_Mainreleasedate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'releasedate'
    end
    object AdoQry_MaInOrdernoandlineno: TStringField
      DisplayLabel = '订单号+行号'
      FieldName = 'Ordernoandlineno'
      ReadOnly = True
      Size = 47
    end
    object AdoQry_Maingrossqty: TFloatField
      DisplayLabel = '毛需求'
      FieldName = 'grossqty'
    end
    object AdoQry_MaInOrderqty: TFloatField
      DisplayLabel = '约定入库量'
      FieldName = 'Orderqty'
    end
    object AdoQry_Mainonhand: TFloatField
      FieldName = 'onhand'
    end
    object AdoQry_Mainnetqty: TFloatField
      DisplayLabel = '系统建议'
      FieldName = 'netqty'
    end
    object AdoQry_Mainrequiredate: TDateTimeField
      DisplayLabel = '需求日期'
      FieldName = 'requiredate'
      ReadOnly = True
    end
    object AdoQry_Mainordinal: TIntegerField
      FieldName = 'ordinal'
    end
    object AdoQry_Maintrace: TStringField
      DisplayLabel = '需求追溯'
      FieldName = 'trace'
      ReadOnly = True
    end
    object AdoQry_MaInPlanqty: TFloatField
      DisplayLabel = '预计库存量'
      FieldName = 'Planqty'
      ReadOnly = True
    end
    object AdoQry_MainPmCode: TIntegerField
      FieldName = 'PmCode'
    end
  end
  inherited DataSource: TDataSource
    Top = 169
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 232
  end
end