mrp_qry_halfrunmrp_d.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_HalfRunMrp_D: TFrm_Mrp_Qry_HalfRunMrp_D
  Left = 170
  Top = 106
  Caption = '产品制造件毛需求--库存分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '产品制造件毛需求--库存分析'
  end
  inherited Pnl_Head: TPanel
    Height = 50
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
    object Label1: TLabel
      Left = 16
      Top = 34
      Width = 360
      Height = 12
      Caption = '统计分析公式：差异量=毛需求量-MO已领量-在检库存量-当前库存量'
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Top = 107
    Height = 296
    inherited DBGridEh: TDBGridEh
      Height = 296
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 28
          KeyList.Strings = ()
        end
        Item
          FieldName = 'grossqty'
          PickList.Strings = ()
          Title.Caption = '毛需求量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assignedqty'
          PickList.Strings = ()
          Title.Caption = '订单已领量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Currentoncheckqty'
          PickList.Strings = ()
          Title.Caption = '在检库存量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'onhandqty'
          PickList.Strings = ()
          Title.Caption = '当前库存量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'lessqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 181
    Top = 171
  end
  inherited ActionList: TActionList
    Left = 80
    Top = 136
  end
  inherited AdoQry_Main: TAdoQuery
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      'select Itemflag=ItemCode+'#39' '#39'+ItemName,'
      '       Uom.UomName,'
      '       grossqty=convert(float,0),'
      '       Assignedqty=convert(float,0),'
      '       Currentoncheckqty=convert(float,0),'
      '       onhandqty=convert(float,0),'
      '       lessqty=convert(float,0) '
      'from Item,Uom'
      'where Item.UomCode*=Uom.UomCode')
    Left = 208
    Top = 241
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#grossResult'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#grossResult'
      Size = 10
    end
    object AdoQry_Maingrossqty: TFloatField
      DisplayLabel = '毛需求'
      FieldName = 'grossqty'
      Origin = '#grossResult'
      ReadOnly = True
    end
    object AdoQry_MainAssignedqty: TFloatField
      DisplayLabel = 'MO已领量'
      FieldName = 'Assignedqty'
      Origin = '#grossResult'
      ReadOnly = True
    end
    object AdoQry_MainCurrentoncheckqty: TFloatField
      DisplayLabel = '在检库存'
      FieldName = 'Currentoncheckqty'
      Origin = '#grossResult'
      ReadOnly = True
    end
    object AdoQry_Mainonhandqty: TFloatField
      DisplayLabel = '当前库存'
      FieldName = 'onhandqty'
      Origin = '#grossResult'
      ReadOnly = True
    end
    object AdoQry_Mainlessqty: TFloatField
      DisplayLabel = '差异量'
      FieldName = 'lessqty'
      Origin = '#grossResult'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 352
    Top = 161
  end
end