mrp_qry_analyzermo3.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo3: TFrm_Mrp_Qry_AnalyzerMo3
  Left = 233
  Top = 88
  Caption = '生产订单执行分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '按受单部门--物料代码分析'
  end
  inherited Pnl_Head: TPanel
    Height = 43
    inherited Lbl_OrderTitle: TLabel
      Top = 30
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 2
    end
    inherited Lbl_Condition: TLabel
      Top = 2
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Top = 30
      Width = 138
      Caption = '受单部门代码 / 物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 384
    Height = 45
    object dbtxtDeptName: TDBText
      Left = 100
      Top = 8
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Deptflag'
      DataSource = DataSource
    end
    object dbtxtItemflag: TDBText
      Left = 100
      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 = 100
    Height = 284
    inherited DBGridEh: TDBGridEh
      Height = 284
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '受单对象'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          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 = '完成数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未结量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成率'
          Width = 49
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 168
  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'
    SQL.Strings = (
      'Select DeptCode='#39'dfssssssssssssssssss'#39','
      
        '       Deptflag='#39'32232332323232323232232332233232323232233232gff' +
        'ffffffffgf'#39','
      '       DeptName='#39'32232332323232323232232332233232323232233232'#39','
      '       ItemCode,ItemName,'
      '       Itemflag=ItemCode+'#39' '#39'+ItemName,'
      '       MoLineStatus='#39'5565'#39', MoQty=344343.34344334,'
      '             FinishQty=434343.344433,  '
      '             MoNoFinishQty=545454.5444343,'
      '           FinishRate='#39'00000'#39
      'from Item')
    Left = 296
    Top = 193
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      ReadOnly = True
      Size = 44
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainMoLineStatus: TStringField
      FieldName = 'MoLineStatus'
      ReadOnly = True
      Size = 4
    end
    object AdoQry_MainMoQty: TBCDField
      FieldName = 'MoQty'
      ReadOnly = True
      Precision = 14
      Size = 8
    end
    object AdoQry_MainFinishQty: TBCDField
      FieldName = 'FinishQty'
      ReadOnly = True
      Precision = 12
      Size = 6
    end
    object AdoQry_MainMoNoFinishQty: TBCDField
      FieldName = 'MoNoFinishQty'
      ReadOnly = True
      Precision = 13
      Size = 7
    end
    object AdoQry_MainFinishRate: TStringField
      FieldName = 'FinishRate'
      ReadOnly = True
      Size = 5
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '受单部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 57
    end
  end
  inherited DataSource: TDataSource
    Left = 352
    Top = 145
  end
end