mrp_qry_informaluprightmrp_d.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_InformalUpRightMrp_D: TFrm_Mrp_Qry_InformalUpRightMrp_D
  Left = 70
  Top = 99
  Caption = '模拟Mps/Mrp竖式报表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    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
    Caption = '当前物料模拟Mps/Mrp竖式报表'
  end
  inherited Pnl_Head: TPanel
    Height = 54
    inherited Lbl_OrderTitle: TLabel
      Top = 54
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Left = 21
    end
    inherited Lbl_Order: TLabel
      Top = 54
      Width = 72
      Caption = '系统建议信息'
    end
    object Label1: TLabel
      Left = 25
      Top = 5
      Width = 60
      Height = 12
      Caption = '物料代码：'
    end
    object lbl_ItemCode: TLabel
      Left = 88
      Top = 5
      Width = 6
      Height = 12
    end
    object Label2: TLabel
      Left = 144
      Top = 5
      Width = 36
      Height = 12
      Caption = '单位：'
    end
    object lbl_UomName: TLabel
      Left = 179
      Top = 5
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 208
      Top = 5
      Width = 48
      Height = 12
      Caption = '提前期：'
    end
    object lbl_ldtime: TLabel
      Left = 255
      Top = 5
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 296
      Top = 5
      Width = 72
      Height = 12
      Caption = '准备提前期：'
    end
    object lbl_Preparetime: TLabel
      Left = 367
      Top = 5
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 408
      Top = 5
      Width = 72
      Height = 12
      Caption = '运行提前期：'
    end
    object lbl_runlt: TLabel
      Left = 479
      Top = 5
      Width = 6
      Height = 12
    end
    object Label6: TLabel
      Left = 537
      Top = 5
      Width = 72
      Height = 12
      Caption = '质检提前期：'
    end
    object lbl_Qclt: TLabel
      Left = 608
      Top = 5
      Width = 6
      Height = 12
    end
    object Label12: TLabel
      Left = 305
      Top = 37
      Width = 84
      Height = 12
      Caption = '当前待检库存：'
    end
    object lbl_oncehck: TLabel
      Left = 386
      Top = 37
      Width = 6
      Height = 12
    end
    object Label13: TLabel
      Left = 580
      Top = 37
      Width = 60
      Height = 12
      Caption = '安全库存：'
    end
    object lbl_minqty: TLabel
      Left = 643
      Top = 37
      Width = 6
      Height = 12
    end
    object Label11: TLabel
      Left = 161
      Top = 37
      Width = 84
      Height = 12
      Caption = '当前可用库存：'
    end
    object lbl_onhand: TLabel
      Left = 244
      Top = 37
      Width = 6
      Height = 12
    end
    object Label10: TLabel
      Left = 25
      Top = 37
      Width = 60
      Height = 12
      Caption = '批量策略：'
    end
    object lbl_Batchstrat: TLabel
      Left = 82
      Top = 37
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 540
      Top = 21
      Width = 36
      Height = 12
      Caption = '批量：'
    end
    object lbl_PmBatch: TLabel
      Left = 573
      Top = 21
      Width = 6
      Height = 12
    end
    object Label8: 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 Label7: 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 Label14: TLabel
      Left = 457
      Top = 37
      Width = 72
      Height = 12
      Caption = '订单已领量：'
    end
    object lbl_Assignedqty: TLabel
      Left = 528
      Top = 37
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Body: TPanel
    Top = 111
    Height = 292
    inherited DBGridEh: TDBGridEh
      Height = 292
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'SysInfo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Ordernoandlineno'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'netqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'releasedate'
          PickList.Strings = ()
          Title.Caption = '约定交货日'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'grossqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'requiredate'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'trace'
          PickList.Strings = ()
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Planqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 189
    Top = 171
  end
  inherited ActionList: TActionList
    Left = 344
    Top = 184
    inherited Act_Sum: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Look: TAction
      Enabled = True
      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,'
      '       '#39'建议下达'#39' as SysInfo,'
      '       releasedate,'
      'PmCode=0,'
      
        '       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 InformalMrpResult'
      'where ItemCode='#39'cp001'#39
      'Order by releasedate,ordinal')
    Left = 272
    Top = 217
    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'
      ReadOnly = True
    end
    object AdoQry_MaInOrderqty: TFloatField
      DisplayLabel = '约定入库量'
      FieldName = 'Orderqty'
      ReadOnly = True
    end
    object AdoQry_Mainonhand: TFloatField
      FieldName = 'onhand'
      ReadOnly = True
    end
    object AdoQry_Mainnetqty: TFloatField
      DisplayLabel = '系统建议'
      FieldName = 'netqty'
      ReadOnly = True
    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'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 169
  end
end