mrp_qry_analyzermo7.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo7: TFrm_Mrp_Qry_AnalyzerMo7
  Left = 0
  Top = 59
  Caption = '订单材料耗用分析'
  ClientHeight = 447
  ClientWidth = 777
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 777
  end
  inherited Pnl_Title: TPanel
    Width = 777
    Caption = '订单材料耗用分析'
  end
  inherited Pnl_Head: TPanel
    Width = 777
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '订单号/订单行号/子项物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 421
    Width = 777
  end
  inherited Pnl_Body: TPanel
    Width = 777
    Height = 324
    inherited DBGridEh: TDBGridEh
      Width = 777
      Height = 324
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'Orderno'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderlineno'
          PickList.Strings = ()
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_Itemflag'
          PickList.Strings = ()
          Width = 148
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_Moqty'
          PickList.Strings = ()
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_Finishqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_NoFinishqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sonItemflag'
          PickList.Strings = ()
          Width = 168
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sonItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sonItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sonmoCtrlqty'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Caption = '子项实际领料量'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'son_NoFinishqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 144
  end
  inherited AdoQry_Main: TAdoQuery
    CacheSize = 50
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    SQL.Strings = (
      'select MoLine.mono as Orderno,'
      '       MoLine.MoLineno as Orderlineno,'
      '       MoLine.ItemCode+t1.ItemName as ite_Itemflag,'
      '       ite_ItemCode='#39'fdsfdsfdsdsfdfdfdfddfdsfdf'#39','
      '       t1.ItemName as ite_ItemName,'
      '       ite_Moqty=convert(float,0),'
      '       ite_Finishqty=convert(float,0),'
      '       MoLine.ItemCode+t2.ItemName as sonItemflag,'
      '       sonItemCode='#39'fdssssssssssssssssssssssss'#39','
      '       t2.ItemName as sonItemName,'
      '       sonmoCtrlqty=convert(float,0),'
      '       InvBillqty=convert(float,0),'
      '       ite_NoFinishqty=convert(float,0),'
      '       son_NoFinishqty=convert(float,0)'
      ' from MoLine'
      'join Item t1 on MoLine.ItemCode=t1.ItemCode'
      'join Item t2 on MoLine.ItemCode=t2.ItemCode')
    Left = 312
    Top = 273
    object AdoQry_MaInOrderno: TStringField
      DisplayLabel = '订单号'
      FieldName = 'Orderno'
      Origin = '#resu'
      Size = 16
    end
    object AdoQry_MaInOrderlineno: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'Orderlineno'
      Origin = '#resu'
    end
    object AdoQry_Mainite_Itemflag: TStringField
      DisplayLabel = '父项物料标识'
      FieldName = 'ite_Itemflag'
      Origin = '#resu'
      ReadOnly = True
      Size = 96
    end
    object AdoQry_Mainite_ItemCode: TStringField
      DisplayLabel = '父项物料代码'
      FieldName = 'ite_ItemCode'
      Origin = '#resu'
      ReadOnly = True
      Size = 26
    end
    object AdoQry_Mainite_ItemName: TStringField
      DisplayLabel = '父项物料描述'
      FieldName = 'ite_ItemName'
      Origin = '#resu'
      Size = 80
    end
    object AdoQry_Mainite_Moqty: TFloatField
      DisplayLabel = '父项约定交货量'
      FieldName = 'ite_Moqty'
      Origin = '#resu'
      ReadOnly = True
    end
    object AdoQry_Mainite_Finishqty: TFloatField
      DisplayLabel = '父项完成量'
      FieldName = 'ite_Finishqty'
      Origin = '#resu'
      ReadOnly = True
    end
    object AdoQry_MainsonItemflag: TStringField
      DisplayLabel = '子项物料标识'
      FieldName = 'sonItemflag'
      Origin = '#resu'
      ReadOnly = True
      Size = 96
    end
    object AdoQry_MainsonItemCode: TStringField
      DisplayLabel = '子项物料代码'
      FieldName = 'sonItemCode'
      Origin = '#resu'
      ReadOnly = True
      Size = 26
    end
    object AdoQry_MainsonItemName: TStringField
      DisplayLabel = '子项物料描述'
      FieldName = 'sonItemName'
      Origin = '#resu'
      Size = 80
    end
    object AdoQry_MainsonmoCtrlqty: TFloatField
      DisplayLabel = '子项领料定额'
      FieldName = 'sonmoCtrlqty'
      Origin = '#resu'
      ReadOnly = True
    end
    object AdoQry_MainInvBillqty: TFloatField
      DisplayLabel = '子项实际领料额'
      FieldName = 'InvBillqty'
      Origin = '#resu'
      ReadOnly = True
    end
    object AdoQry_Mainite_NoFinishqty: TFloatField
      DisplayLabel = '父项差异量'
      FieldName = 'ite_NoFinishqty'
      Origin = '#resu'
      ReadOnly = True
    end
    object AdoQry_Mainson_NoFinishqty: TFloatField
      DisplayLabel = '子项差异量'
      FieldName = 'son_NoFinishqty'
      Origin = '#resu'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Top = 145
  end
  object AdOCommand: TAdOCommand
    CommandTimeout = 0
    Parameters = <>
    Left = 416
    Top = 233
  end
end