inv_invanditem.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_InvAndItem: TFrm_Inv_InvAndItem
  Left = -33
  Top = 71
  Caption = '库存记录与物料主文件库存数据'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited ToolButton5: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '库存记录与物料主文件库存数据'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    object CheckBox1: TCheckBox
      Left = 664
      Top = 16
      Width = 97
      Height = 17
      Caption = '缩至一页'
      TabOrder = 0
      Visible = False
      OnClick = CheckBox1Click
    end
  end
  inherited Pnl_Hint: TPanel
    object Label1: TLabel
      Left = 600
      Top = 9
      Width = 42
      Height = 12
      Caption = '记录共_'
    end
    object lbl_Page: TLabel
      Left = 648
      Top = 9
      Width = 6
      Height = 12
    end
    object Label2: TLabel
      Left = 664
      Top = 9
      Width = 12
      Height = 12
      Caption = '条'
    end
    object Label3: TLabel
      Left = 15
      Top = 9
      Width = 72
      Height = 12
      Caption = '当前行物料：'
    end
    object DBText1: TDBText
      Left = 89
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 213
    Top = 139
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 192
    inherited Act_Filter: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_next: TAction
      Caption = '开始'
      Hint = '开始'
      ShortCut = 16450
      OnExecute = Act_nextExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select       Item.ItemCode+'#39' '#39'+Item.ItemName as Itemflag ,      ' +
        'case when c.onhandInv is null then 0 else c.onhandInv end onhand' +
        'Inv,      CurrentonhandInv,       CurrentonhandInv-case when c.o' +
        'nhandInv is null then 0 else c.onhandInv end DiffrentonhandInv, ' +
        '     case when c.onCheckInv is null then 0 else c.onCheckInv end' +
        ' onCheckInv,      CurrentonCheckInv,      CurrentonCheckInv-case' +
        ' when c.onCheckInv is null then 0 else c.onCheckInv end Diffrent' +
        'onCheckInv,      case when c.freezeInv is null then 0 else c.fre' +
        'ezeInv end freezeInv,      CurrentfreezeInv,      Currentfreezei' +
        'nv-case when c.freezeInv is null then 0 else c.freezeInv end  di' +
        'ffrentfreezeInv,      case when c.wasterInv is null then 0 else ' +
        'c.wasterInv end wasterInv,      CurrentwasterInv,      Currentwa' +
        'sterInv-case when c.wasterInv is null then 0 else c.wasterInv en' +
        'd  DiffrentwasterInv,      case when c.onShipInv is null then 0 ' +
        'else c.onShipInv end onShipInv,      CurrentonShipInv,      curr' +
        'entonShipInv-case when c.onShipInv is null then 0 else c.onShipi' +
        'nv end  DiffrentonShipInv   from Item   left join        (select' +
        ' ItemCode,sum(onhandInv) onhandInv,sum(onCheckInv) onCheckInv,  ' +
        '             sum(freezeInv) freezeInv,sum(wasterInv) wasterInv,s' +
        'um(onShipInv) onShipInv           from CurrentInv          group' +
        ' by ItemCode) c        on Item.ItemCode=c.ItemCode    where (abs' +
        '(CurrentonhandInv-case when c.onhandInv is null then 0 else c.on' +
        'handInv end)>0.0001) or          (abs(CurrentonCheckInv-case whe' +
        'n c.onCheckInv is null then 0 else c.onCheckInv end)>0.0001) or ' +
        '         (abs(CurrentfreezeInv-case when c.freezeInv is null the' +
        'n 0 else c.freezeInv end)>0.0001) or          (abs(Currentwaster' +
        'Inv-case when c.wasterInv is null then 0 else c.wasterInv end)>0' +
        '.0001) or          (abs(CurrentonShipInv-case when c.onShipInv i' +
        's null then 0 else c.onShipInv end)>0.0001)')
    Top = 137
  end
  inherited DataSource: TDataSource
    DataSet = AdODataSet_Main
  end
  object AdODataSet_Main: TAdODataSet
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_zcw_test;Data Source=192' +
      '.168.0.151'
    CurSorType = ctStatic
    CommandText = 
      'select       Item.ItemCode+'#39' '#39'+Item.ItemName as Itemflag ,      ' +
      'case when c.onhandInv is null then 0 else c.onhandInv end onhand' +
      'Inv,      CurrentonhandInv,       CurrentonhandInv-case when c.o' +
      'nhandInv is null then 0 else c.onhandInv end DiffrentonhandInv, ' +
      '     case when c.onCheckInv is null then 0 else c.onCheckInv end' +
      ' onCheckInv,      CurrentonCheckInv,      CurrentonCheckInv-case' +
      ' when c.onCheckInv is null then 0 else c.onCheckInv end Diffrent' +
      'onCheckInv,      case when c.freezeInv is null then 0 else c.fre' +
      'ezeInv end freezeInv,      CurrentfreezeInv,      Currentfreezei' +
      'nv-case when c.freezeInv is null then 0 else c.freezeInv end  di' +
      'ffrentfreezeInv,      case when c.wasterInv is null then 0 else ' +
      'c.wasterInv end wasterInv,      CurrentwasterInv,      Currentwa' +
      'sterInv-case when c.wasterInv is null then 0 else c.wasterInv en' +
      'd  DiffrentwasterInv,      case when c.onShipInv is null then 0 ' +
      'else c.onShipInv end onShipInv,      CurrentonShipInv,      curr' +
      'entonShipInv-case when c.onShipInv is null then 0 else c.onShipi' +
      'nv end  DiffrentonShipInv   from Item   left join        (select' +
      ' ItemCode,sum(onhandInv) onhandInv,sum(onCheckInv) onCheckInv,  ' +
      '             sum(freezeInv) freezeInv,sum(wasterInv) wasterInv,s' +
      'um(onShipInv) onShipInv           from CurrentInv          group' +
      ' by ItemCode) c        on Item.ItemCode=c.ItemCode    where (abs' +
      '(CurrentonhandInv-case when c.onhandInv is null then 0 else c.on' +
      'handInv end)>0.0001) or          (abs(CurrentonCheckInv-case whe' +
      'n c.onCheckInv is null then 0 else c.onCheckInv end)>0.0001) or ' +
      '         (abs(CurrentfreezeInv-case when c.freezeInv is null the' +
      'n 0 else c.freezeInv end)>0.0001) or          (abs(Currentwaster' +
      'Inv-case when c.wasterInv is null then 0 else c.wasterInv end)>0' +
      '.0001) or          (abs(CurrentonShipInv-case when c.onShipInv i' +
      's null then 0 else c.onShipInv end)>0.0001)'
    Parameters = <>
    Left = 392
    Top = 185
    object AdODataSet_MainItemflag: TStringField
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdODataSet_MainonhandInv: TFloatField
      FieldName = 'onhandInv'
      ReadOnly = True
    end
    object AdODataSet_MainCurrentonhandInv: TFloatField
      FieldName = 'CurrentonhandInv'
    end
    object AdODataSet_MainDiffrentonhandInv: TFloatField
      FieldName = 'DiffrentonhandInv'
      ReadOnly = True
    end
    object AdODataSet_MainonCheckInv: TFloatField
      FieldName = 'onCheckInv'
      ReadOnly = True
    end
    object AdODataSet_MainCurrentonCheckInv: TFloatField
      FieldName = 'CurrentonCheckInv'
    end
    object AdODataSet_MainDiffrentonCheckInv: TFloatField
      FieldName = 'DiffrentonCheckInv'
      ReadOnly = True
    end
    object AdODataSet_MainfreezeInv: TFloatField
      FieldName = 'freezeInv'
      ReadOnly = True
    end
    object AdODataSet_MainCurrentfreezeInv: TFloatField
      FieldName = 'CurrentfreezeInv'
    end
    object AdODataSet_MainDiffrentfreezeInv: TFloatField
      FieldName = 'DiffrentfreezeInv'
      ReadOnly = True
    end
    object AdODataSet_MainwasterInv: TFloatField
      FieldName = 'wasterInv'
      ReadOnly = True
    end
    object AdODataSet_MainCurrentwasterInv: TFloatField
      FieldName = 'CurrentwasterInv'
    end
    object AdODataSet_MainDiffrentwasterInv: TFloatField
      FieldName = 'DiffrentwasterInv'
      ReadOnly = True
    end
    object AdODataSet_MainonShipInv: TFloatField
      FieldName = 'onShipInv'
      ReadOnly = True
    end
    object AdODataSet_MainCurrentonShipInv: TFloatField
      FieldName = 'CurrentonShipInv'
    end
    object AdODataSet_MainDiffrentonShipInv: TFloatField
      FieldName = 'DiffrentonShipInv'
      ReadOnly = True
    end
  end
end