mrp_qry_analyzermo5_mopo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo5_MoPo: TFrm_Mrp_Qry_AnalyzerMo5_MoPo
  Left = 88
  Top = 116
  Caption = '订单表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '订单表'
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'MoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下达日期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoStArtWorkDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开工日期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealInqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计实入量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoInqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计待检量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未结量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLinestatus'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 485
    Top = 43
  end
  inherited ActionList: TActionList
    inherited Act_Filter: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    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;Use Proc' +
      'edure for Prepare=1;Auto Translate=True;Packet Size=4096;Worksta' +
      'tion ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Mo.MoNo,Mo.MoDate,MoLine.MoLineNo,MoLine.MoQty,MoLine.MoS' +
        'tArtWorkDate,MoLine.MoRealInqty,MoLine.MoInqty,'
      
        'MoLine.MoLineDate,MoLine.MoNoFinishQty,MoLine.MoLinestatus,falg=' +
        '0 From Mo join MoLine on Mo.MoNo=MoLine.MoNo '
      'where MoLine.ItemCode ='#39'a'#39
      '--      and Mo.Modate Between edit3 and Edit4'
      '  And MoLine.MoLineStatus =7'
      'union'
      
        'Select Po.PoNo,Po.PoDate,Poline.PoLineNo,Poline.PoQty,Poline.PoS' +
        'tArtWorkDate,Poline.PorealInqty,Poline.PoInqty,'
      
        'Poline.PolineDate,Poline.PoNoFinishQty,Poline.Polinestatus,falg=' +
        '1 From Po join Poline on Po.PoNo=Poline.PoNo '
      'where PoLine.ItemCode= '#39'a'#39
      '--      and Po.Podate Between edit3 and Edit4'
      '     -- And PoType=3 '
      '  And PoLine.PoLineStatus =7')
    Left = 360
    Top = 105
    object AdoQry_MainMoNo: TStringField
      FieldName = 'MoNo'
      Origin = 'MO'
      Size = 16
    end
    object AdoQry_MainMoDate: TDateTimeField
      FieldName = 'MoDate'
      Origin = 'MO'
    end
    object AdoQry_MainMoLineNo: TIntegerField
      FieldName = 'MoLineNo'
      Origin = 'MO'
    end
    object AdoQry_MainMoQty: TFloatField
      FieldName = 'MoQty'
      Origin = 'MO'
    end
    object AdoQry_MainMoStArtWorkDate: TDateTimeField
      FieldName = 'MoStArtWorkDate'
      Origin = 'MO'
    end
    object AdoQry_MainMoRealInqty: TFloatField
      FieldName = 'MoRealInqty'
      Origin = 'MO'
    end
    object AdoQry_MainMoInqty: TFloatField
      FieldName = 'MoInqty'
      Origin = 'MO'
    end
    object AdoQry_MainMoLineDate: TDateTimeField
      FieldName = 'MoLineDate'
      Origin = 'MO'
    end
    object AdoQry_MainMoNoFinishQty: TFloatField
      FieldName = 'MoNoFinishQty'
      Origin = 'MO'
    end
    object AdoQry_MainMoLinestatus: TIntegerField
      FieldName = 'MoLinestatus'
      Origin = 'MO'
    end
    object AdoQry_Mainfalg: TIntegerField
      FieldName = 'falg'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 129
  end
end