mrp_qry_analyzermrpmo_h.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMrpMo_H: TFrm_Mrp_Qry_AnalyzerMrpMo_H
  Left = 5
  Top = 106
  Caption = '订单物料法'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '订单物料法'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未关闭'
    end
    inherited Lbl_Order: TLabel
      Width = 246
      Caption = '受单部门代码/生产订单号/订单行号/物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 400
    Height = 41
    inherited Image4: TImage
      Height = 41
    end
    object Label2: TLabel
      Left = 12
      Top = 8
      Width = 108
      Height = 12
      Caption = '当前受单对象标识：'
      TransParent = True
    end
    object dbtxtDeptName: TDBText
      Left = 120
      Top = 8
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Deptflag'
      DataSource = DataSource
      TransParent = True
    end
    object Label1: TLabel
      Left = 36
      Top = 24
      Width = 84
      Height = 12
      Caption = '当前物料标识：'
      TransParent = True
    end
    object dbtxtItemflag: TDBText
      Left = 120
      Top = 24
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Height = 303
    inherited Image3: TImage
      Height = 303
    end
    inherited DBGridEh: TDBGridEh
      Height = 303
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'checkflag'
          PickList.Strings = (
            '1'
            '0')
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 35
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          ReadOnly = True
          Width = 76
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNo'
          PickList.Strings = ()
          ReadOnly = True
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          ReadOnly = True
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineStatus'
          PickList.Strings = (
            '5 准备'
            '6 下达')
          ReadOnly = True
          Width = 47
          KeyList.Strings = (
            '5'
            '6')
        end
        Item
          FieldName = 'MoLineDate'
          PickList.Strings = ()
          ReadOnly = True
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '约定交货量'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          ReadOnly = True
          Width = 42
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    AfterPost = AdoQry_HeadAfterPost
    SQL.Strings = (
      'Select checkflag=0, '
      '      Mo.DeptCode,Dept.DeptName,'
      '      Deptflag=mo.DeptCode+'#39' '#39'+Dept.DeptName,'
      '      Mo.MoNo,MoLine.MoLineNo,'
      '      MoLine.ItemCode,MoLine.MOStArtWorkDate,'
      '      Item.ItemName,'
      '      Itemflag=MoLine.ItemCode+'#39' '#39'+Item.ItemName,'
      '      MoLine.MoLineStatus,MoLine.MoLineDate,'
      'MoLine.MoQty,MoLine.MoNoFinishQty'
      'From MoLine'
      ' Join Mo On MoLine.MoNo=Mo.MoNo'
      '   left outer  Join Item On MoLine.ItemCode=Item.ItemCode'
      '   left outer  Join Dept On Mo.DeptCode=Dept.DeptCode'
      'Where MoLineStatus<=6 And MoNoFinishQty>0 And MoLine.MoQty>0 '
      'Order By Mo.DeptCode,Mo.MoNo,MoLine.MoLineNo,'
      'MoLine.ItemCode,MoLine.MOStArtWorkDate')
    Left = 200
    Top = 233
    object AdoQry_HeadDeptCode: TStringField
      DisplayLabel = '受单部门代码'
      FieldName = 'DeptCode'
      Origin = '#tmPMoLinenoFinish'
      Size = 8
    end
    object AdoQry_HeadDeptName: TStringField
      DisplayLabel = '受单部门名称'
      FieldName = 'DeptName'
      Origin = '#tmPMoLinenoFinish'
      Size = 12
    end
    object AdoQry_HeadMoNo: TStringField
      DisplayLabel = '生产订单号'
      FieldName = 'MoNo'
      Origin = '#tmPMoLinenoFinish'
      Size = 16
    end
    object AdoQry_HeadMoLineNo: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'MoLineNo'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmPMoLinenoFinish'
      Size = 16
    end
    object AdoQry_HeadMOStArtWorkDate: TDateTimeField
      FieldName = 'MOStArtWorkDate'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadItemName: TStringField
      DisplayLabel = '物料描述 '
      FieldName = 'ItemName'
      Origin = '#tmPMoLinenoFinish'
      Size = 30
    end
    object AdoQry_HeadMoLineStatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'MoLineStatus'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadMoLineDate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'MoLineDate'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadMoQty: TFloatField
      DisplayLabel = '约定交交货量'
      FieldName = 'MoQty'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadMoNoFinishQty: TFloatField
      DisplayLabel = '未结量'
      FieldName = 'MoNoFinishQty'
      Origin = '#tmPMoLinenoFinish'
    end
    object AdoQry_HeadDeptflag: TStringField
      DisplayLabel = '受单部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_Headcheckflag: TIntegerField
      DisplayLabel = '标记'
      FieldName = 'checkflag'
      Origin = '#tmPMoLinenoFinish'
    end
  end
end