mrp_qry_analyzermoin.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMoIn: TFrm_Mrp_Qry_AnalyzerMoIn
  Left = 190
  Top = 87
  Caption = '生产入库及时性分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
      inherited TlBtn_SetColumn: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '生产入库及时性分析'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = '受单部门代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 385
    Height = 44
    object Label2: TLabel
      Left = 24
      Top = 8
      Width = 84
      Height = 12
      Caption = '受单对象标识：'
    end
    object dbtxtmo: TDBText
      Left = 112
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'Deptflag'
      DataSource = DataSource
    end
    object Label3: TLabel
      Left = 48
      Top = 29
      Width = 60
      Height = 12
      Caption = '名次序号：'
    end
    object dbtxtOrderno: TDBText
      Left = 112
      Top = 28
      Width = 72
      Height = 12
      AutoSize = True
      DataField = 'Orderno'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 288
    inherited DBGridEh: TDBGridEh
      Height = 288
      FrozenCols = 1
      Columns = <
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'mono'
          PickList.Strings = ()
          Width = 89
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineno'
          PickList.Strings = ()
          Width = 50
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 250
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Countdilivertimes'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ontimedilivertimes'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diliverrate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderno'
          PickList.Strings = ()
          Width = 49
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 192
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    SQL.Strings = (
      'select MoLine.mono,MoLine.MoLineno,mo.DeptCode,Dept.DeptName,'
      
        '       Itemflag=ItemCode+'#39' '#39'+'#39'dsfasfdssfdasdfssfdafdasfdsafdafds' +
        'fddfsdsf'#39','
      '       Deptflag=mo.DeptCode+'#39' '#39'+Dept.DeptName,'
      'Countdilivertimes=0,ontimedilivertimes=0,'
      'diliverrate='#39'aaa'#39', Orderno=0'
      'from MoLine,mo,Dept'
      'where mo.mono=MoLine.mono'
      '  and mo.DeptCode=Dept.DeptCode')
    Left = 320
    Top = 201
    object AdoQry_MainCountdilivertimes: TIntegerField
      DisplayLabel = '总入库次数'
      FieldName = 'Countdilivertimes'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_Mainontimedilivertimes: TIntegerField
      DisplayLabel = '及时入库次数'
      FieldName = 'ontimedilivertimes'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_Maindiliverrate: TStringField
      DisplayLabel = '及时入库率'
      FieldName = 'diliverrate'
      Origin = '#tmpres'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_MaInOrderno: TIntegerField
      DisplayLabel = '名次序号'
      FieldName = 'Orderno'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '受单部门标识'
      FieldName = 'Deptflag'
      Origin = '#tmpres'
      ReadOnly = True
      Size = 49
    end
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 145
  end
end