mrp_enter_newrunmrp.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_NewRunMrp: TFrm_Mrp_Enter_NewRunMrp
  Left = 236
  Top = 185
  Caption = 'Mrp计划展开运算'
  ClientHeight = 183
  ClientWidth = 418
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 174
    Top = 37
    Width = 84
    Height = 12
    Caption = '主计划展望天数'
  end
  inherited btn_ok: TButton
    Left = 176
    Top = 136
    Height = 22
    TabOrder = 2
  end
  inherited btn_Cancel: TButton
    Left = 269
    Top = 135
    TabOrder = 3
    OnClick = btn_CancelClick
  end
  object EdtRunMrpStatus: TEdit [3]
    Left = 13
    Top = 97
    Width = 286
    Height = 20
    Enabled = False
    TabOrder = 4
    Text = '当前状态'
  end
  object RdGrpSelectRunMrpType: TRadioGroup [4]
    Left = 12
    Top = 2
    Width = 158
    Height = 76
    Caption = '选定'
    TabOrder = 0
  end
  object RdBtnInformalMrp: TRadioButton [5]
    Tag = 1
    Left = 28
    Top = 19
    Width = 113
    Height = 17
    Caption = '&1.模拟运算Mrp'
    Checked = True
    TabOrder = 5
    TabStop = True
    OnClick = RdBtnInformalMrpClick
  end
  object RdBtnMrp: TRadioButton [6]
    Left = 28
    Top = 44
    Width = 113
    Height = 17
    Caption = '&2.常规运算Mrp'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = RdBtnMrpClick
  end
  object MaskEdit1: TMaskEdit [7]
    Left = 211
    Top = 57
    Width = 43
    Height = 20
    EditMask = '9999;1;_'
    MaxLength = 4
    TabOrder = 1
    Text = '3   '
  end
  inherited AdoQry_Tmp: TAdoQuery
    CacheSize = 1000
    Left = 342
    Top = 72
  end
  object AdoQry_Main: TAdoQuery
    CacheSize = 1000
    CurSorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    Left = 315
    Top = 72
    object AdoQry_MainSSId: TAutoIncField
      FieldName = 'SSId'
      Origin = 'ss'
      ReadOnly = True
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'ss'
      Size = 16
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'ss'
      Size = 8
    end
    object AdoQry_MainSSSysInfoFlag: TIntegerField
      FieldName = 'SSSysInfoFlag'
      Origin = 'ss'
    end
    object AdoQry_MaInOrderNo: TStringField
      FieldName = 'OrderNo'
      Origin = 'ss'
      Size = 16
    end
    object AdoQry_MaInOrderLineNo: TIntegerField
      FieldName = 'OrderLineNo'
      Origin = 'ss'
    end
    object AdoQry_MainSSDate: TDateTimeField
      FieldName = 'SSDate'
      Origin = 'ss'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object AdoQry_MainSSQty: TFloatField
      FieldName = 'SSQty'
      Origin = 'ss'
      DisplayFormat = '#,###'
    end
    object AdoQry_MainPmType: TIntegerField
      FieldName = 'PmType'
      Origin = 'ss'
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainMoLinestatus: TIntegerField
      FieldName = 'MoLinestatus'
      ReadOnly = True
    end
    object AdoQry_MainSScheck: TIntegerField
      FieldName = 'SScheck'
      Origin = 'ss'
    end
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{D40F9AF8-E61D-4782-B2CE-A7EB292A0306}'
    ServerName = 'MdMrp.Frm_Sys_MrpRTMd'
    AfterConnect = DCOMConnection1AfterConnect
    ComputerName = 'nt2'
    Left = 366
    Top = 32
  end
end