mrp_qry_analyzermo1.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo1: TFrm_Mrp_Qry_AnalyzerMo1
  Left = 49
  Top = 82
  Caption = '生产订单执行分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '按受单部门--生产订单号--行号--物料代码'
  end
  inherited Pnl_Head: TPanel
    Height = 49
    inherited Lbl_OrderTitle: TLabel
      Left = 15
      Top = 35
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Left = 83
      Top = 35
      Width = 258
      Caption = '受单部门代码 / 生产订单号 / 行号 / 物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 384
    Height = 45
    object dbtxtDeptName: TDBText
      Left = 96
      Top = 8
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Deptflag'
      DataSource = DataSource
    end
    object dbtxtItemflag: TDBText
      Left = 96
      Top = 24
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 36
      Top = 24
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object Label2: TLabel
      Left = 12
      Top = 8
      Width = 84
      Height = 12
      Caption = '受单部门标识：'
    end
    object Label3: TLabel
      Left = 560
      Top = 8
      Width = 48
      Height = 12
      Caption = '完成率：'
    end
    object dbtxtFinishrate: TDBText
      Left = 604
      Top = 7
      Width = 90
      Height = 12
      AutoSize = True
      DataField = 'FinishRate'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 106
    Height = 278
    inherited DBGridEh: TDBGridEh
      Height = 278
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 75
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineStatus'
          PickList.Strings = ()
          Width = 48
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLinedate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货日'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未结量'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 49
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 115
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 144
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.8'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Mo.MoNo,mo.DeptCode,Dept.DeptName,MoLine.MoLineNo,MoLine.' +
        'ItemCode,'
      '      Item.ItemName,MoLine.MoLinedate,'
      '      Deptflag=mo.DeptCode+'#39' '#39'+Dept.DeptName,'
      '      Itemflag=MoLine.ItemCode+'#39' '#39'+Item.ItemName,'
      
        '      MoLineStatus= case MoLineStatus when 0 then '#39'0 未批准'#39'  wh' +
        'en 1 then '#39'1 生效'#39'  when 2 then '#39'2 关闭'#39' when 3 then '#39'3 永久关闭' +
        #39' end,'
      
        '      MoLine.MoQty,MoLine.MoQty-MoLine.MoNoFinishQty As FinishQt' +
        'y,'
      
        '      MoLine.MoNoFinishQty,Convert(varchAr,Convert(decimal(12,2)' +
        ',(MoLine.MoQty-MoLine.MoNoFinishqty)*100/MoLine.MoQty))+'#39'%'#39' As F' +
        'inishRate'
      '      From MoLine'
      '      Join Mo On MoLine.MoNo=Mo.MoNo'
      '      Join Item On MoLine.ItemCode=Item.ItemCode'
      '      Join Dept On Mo.DeptCode=Dept.DeptCode and MoLine.MoQty>0')
    Left = 320
    Top = 225
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '受单对象'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 12
    end
    object AdoQry_MainMoNo: TStringField
      DisplayLabel = '生产订单号'
      FieldName = 'MoNo'
      Origin = 'MoLine'
      Size = 16
    end
    object AdoQry_MainMoLineNo: TIntegerField
      DisplayLabel = '行号'
      FieldName = 'MoLineNo'
      Origin = 'MoLine'
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'MoLine'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 30
    end
    object AdoQry_MainMoLineStatus: TStringField
      DisplayLabel = '行状态'
      FieldName = 'MoLineStatus'
      Origin = 'MoLine'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_MainMoLinedate: TDateTimeField
      DisplayLabel = '约定交货期'
      FieldName = 'MoLinedate'
      Origin = 'MoLine'
    end
    object AdoQry_MainMoQty: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'MoQty'
      Origin = 'MoLine'
    end
    object AdoQry_MainFinishQty: TFloatField
      DisplayLabel = '完成数量'
      FieldName = 'FinishQty'
      ReadOnly = True
    end
    object AdoQry_MainMoNoFinishQty: TFloatField
      DisplayLabel = '差异量'
      FieldName = 'MoNoFinishQty'
      Origin = 'MoLine'
    end
    object AdoQry_MainFinishRate: TStringField
      DisplayLabel = '完成率 '
      FieldName = 'FinishRate'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '受单部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Size = 8
    end
  end
  inherited DataSource: TDataSource
    Top = 161
  end
end