mrp_enter_assignalternative_mo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_AssignAlterNative_Mo: TFrm_Mrp_Enter_AssignAlterNative_Mo
  Left = 171
  Top = 106
  BOrderIcons = [biSystemMenu, biMinimize]
  Caption = '父项生产订单'
  ClientHeight = 415
  ClientWidth = 600
  PixelsPerInch = 96
  TextHeight = 12
  inherited btn_ok: TButton
    Left = 325
    Top = 373
    ModalResult = 1
    TabOrder = 1
  end
  inherited btn_Cancel: TButton
    Left = 410
    Top = 373
    TabOrder = 2
    OnClick = btn_CancelClick
  end
  inherited Pnl_Add: TPanel
    Left = 422
    Top = 103
    TabOrder = 3
  end
  object DBGridEh1: TDBGridEh [3]
    Left = 9
    Top = 48
    Width = 574
    Height = 305
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      Item
        FieldName = 'MONO'
        Title.Alignment = taCenter
        Width = 77
      end
      Item
        FieldName = 'MoLineNO'
        Title.Alignment = taCenter
        Width = 55
      end
      Item
        FieldName = 'DeptCode'
        Title.Alignment = taCenter
        Width = 77
      end
      Item
        FieldName = 'DeptName'
        Title.Alignment = taCenter
        Width = 88
      end
      Item
        FieldName = 'modate'
        Title.Alignment = taCenter
        Width = 76
      end
      Item
        FieldName = 'ItemCode'
        Title.Alignment = taCenter
        Width = 84
      end
      Item
        FieldName = 'ItemName'
        Title.Alignment = taCenter
        Width = 121
      end
      Item
        FieldName = 'UomName'
        Title.Alignment = taCenter
        Width = 30
      end
      Item
        FieldName = 'MoLineSTATUS'
        PickList.Strings = (
          '5 准备'
          '6 下达')
        Title.Alignment = taCenter
        KeyList.Strings = (
          '5'
          '6')
      end
      Item
        FieldName = 'MoLineDATE'
        Title.Alignment = taCenter
        Width = 81
      end
      Item
        FieldName = 'MOStArtWorkDate'
        Title.Alignment = taCenter
        Width = 89
      end
      Item
        FieldName = 'MOQty'
        Title.Alignment = taCenter
        Width = 74
      end
      Item
        FieldName = 'MoNoFinishQty'
        Title.Alignment = taCenter
        Width = 48
      end
      Item
        FieldName = 'RemArk'
        Title.Alignment = taCenter
        Width = 110
      end>
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 280
    Top = 152
  end
  object AdoQry_Mo: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ZHENG' +
      'JIArONG'
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select mo.DeptCode,Dept.DeptName,mo.modate,MoLine.*,Item.Itemnam' +
        'e,Uom.UomName'
      'from  MoLine '
      'join  mo on MoLine.mono=mo.mono'
      'left join  Dept on mo.DeptCode=Dept.DeptCode'
      'join  Item on MoLine.ItemCode=Item.ItemCode'
      'left join Uom on Item.UomCode=Uom.UomCode')
    Left = 232
    Top = 232
    object AdoQry_MoDeptCode: TStringField
      DisplayLabel = '生产部门代码'
      FieldName = 'DeptCode'
      Size = 8
    end
    object AdoQry_Momodate: TDateTimeField
      DisplayLabel = '下单日期'
      FieldName = 'modate'
    end
    object AdoQry_MoMONO: TStringField
      DisplayLabel = '生产订单号'
      FieldName = 'MONO'
      Size = 16
    end
    object AdoQry_MoMoLineNO: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'MoLineNO'
    end
    object AdoQry_MoItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MoMoLineDATE: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'MoLineDATE'
    end
    object AdoQry_MoMoLineSTATUS: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'MoLineSTATUS'
    end
    object AdoQry_MoMOStArtWorkDate: TDateTimeField
      DisplayLabel = '约定开工日'
      FieldName = 'MOStArtWorkDate'
    end
    object AdoQry_MoCloseRemArk: TStringField
      FieldName = 'CloseRemArk'
      Size = 60
    end
    object AdoQry_MoMoLinecheck: TIntegerField
      FieldName = 'MoLinecheck'
    end
    object AdoQry_MoBilllineremArk: TStringField
      FieldName = 'BilllineremArk'
      Size = 250
    end
    object AdoQry_MoByProduct: TIntegerField
      FieldName = 'ByProduct'
    end
    object AdoQry_MoParentMoLineNo: TIntegerField
      FieldName = 'ParentMoLineNo'
    end
    object AdoQry_MoBackFlush: TIntegerField
      FieldName = 'BackFlush'
    end
    object AdoQry_MoMOQty: TBCDField
      DisplayLabel = '约定交货量'
      FieldName = 'MOQty'
      Precision = 20
      Size = 8
    end
    object AdoQry_MoMoNoFinishQty: TBCDField
      DisplayLabel = '未结量'
      FieldName = 'MoNoFinishQty'
      Precision = 20
      Size = 8
    end
    object AdoQry_MoMoRealInQty: TBCDField
      FieldName = 'MoRealInQty'
      Precision = 20
      Size = 8
    end
    object AdoQry_MoMoInQty: TBCDField
      FieldName = 'MoInQty'
      Precision = 20
      Size = 8
    end
    object AdoQry_MoSSQty: TBCDField
      FieldName = 'SSQty'
      Precision = 20
      Size = 8
    end
    object AdoQry_Moconfirmtime: TDateTimeField
      FieldName = 'confirmtime'
    end
    object AdoQry_MomArk: TIntegerField
      FieldName = 'mArk'
    end
    object AdoQry_MoPassEmployeeCode: TStringField
      FieldName = 'PassEmployeeCode'
      Size = 30
    end
    object AdoQry_MoRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Size = 30
    end
    object AdoQry_MoItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MoUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MoDeptName: TStringField
      DisplayLabel = '生产部门名称'
      FieldName = 'DeptName'
      Size = 40
    end
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Mo
    Left = 144
    Top = 208
  end
end