mrp_qry_analyzermo4.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo4: TFrm_Mrp_Qry_AnalyzerMo4
  Left = 224
  Top = 65
  Caption = '生产订单执行分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '按计划员--物料代码'
  end
  inherited Pnl_Head: TPanel
    Height = 51
    inherited Lbl_OrderTitle: TLabel
      Top = 36
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Top = 36
      Width = 126
      Caption = '计划员代码 / 物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 376
    Height = 53
    object dbtxtDeptName: TDBText
      Left = 99
      Top = 24
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Deptflag'
      DataSource = DataSource
    end
    object dbtxtItemflag: TDBText
      Left = 99
      Top = 40
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 36
      Top = 40
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object Label2: TLabel
      Left = 12
      Top = 24
      Width = 84
      Height = 12
      Caption = '受单部门标识：'
    end
    object Label4: TLabel
      Left = 24
      Top = 8
      Width = 72
      Height = 12
      Caption = '计划员标识：'
    end
    object dbtxTEmployeeflag: TDBText
      Left = 99
      Top = 8
      Width = 102
      Height = 12
      AutoSize = True
      DataField = 'Employeeflag'
      DataSource = DataSource
    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 = 108
    Height = 268
    inherited DBGridEh: TDBGridEh
      Height = 268
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Pla_EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员代码'
          Width = 68
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员名称'
          Width = 69
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 130
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '受单对象'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成数量'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未结量'
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Finishrate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成率'
          Width = 44
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 237
    Top = 219
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 160
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    SQL.Strings = (
      'Select Pla_EmployeeCode='#39'1234567890123456'#39','
      '       EmployeeName='#39'1234567890123456'#39'+'#39'123456789012'#39','
      '       Employeeflag='#39'1234567890123456'#39'+'#39' '#39'+'#39'1234567890123456'#39', '
      '       Deptflag='#39'1234567890123456'#39'+'#39' '#39'+'#39'1234567890123456'#39', '
      '       DeptName='#39'4334545445443543'#39','
      '       ItemCode,ItemName,'
      '       Itemflag=ItemCode+'#39' '#39'+ItemName,'
      '       MoLineStatus='#39'gggfgfdfdg'#39','
      '                  MoQty=6565665.6546564,'
      '                FinishQty=6656565.5545454,'
      '                MoNoFinishQty=545454.656565,'
      '                Finishrate='#39'ddsdfddsf'#39
      '       From Item'
      '  ')
    Left = 304
    Top = 177
    object AdoQry_MainPla_EmployeeCode: TStringField
      FieldName = 'Pla_EmployeeCode'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      ReadOnly = True
      Size = 28
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '计划员标识'
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainMoLineStatus: TStringField
      FieldName = 'MoLineStatus'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_MainMoQty: TBCDField
      FieldName = 'MoQty'
      ReadOnly = True
      Precision = 14
      Size = 7
    end
    object AdoQry_MainFinishQty: TBCDField
      FieldName = 'FinishQty'
      ReadOnly = True
      Precision = 14
      Size = 7
    end
    object AdoQry_MainMoNoFinishQty: TBCDField
      FieldName = 'MoNoFinishQty'
      ReadOnly = True
      Precision = 12
      Size = 6
    end
    object AdoQry_MainFinishrate: TStringField
      FieldName = 'Finishrate'
      ReadOnly = True
      Size = 9
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '受单部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 33
    end
  end
  inherited DataSource: TDataSource
    Top = 153
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 169
  end
end