inv_currentinvqry_s.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_CurrentInvQry_S: TFrm_Inv_CurrentInvQry_S
  Left = -4
  Top = 96
  ActiveControl = Edit1
  Caption = '物料当前结存表'
  ClientHeight = 486
  ClientWidth = 788
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 788
  end
  inherited Pnl_Title: TPanel
    Width = 788
    Caption = '物料当前结存表'
  end
  inherited Pnl_Head: TPanel
    Width = 788
    Height = 45
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
    object Label2: TLabel
      Left = 525
      Top = 21
      Width = 48
      Height = 12
      Caption = '快速定位'
    end
    object Edit1: TEdit
      Left = 578
      Top = 16
      Width = 121
      Height = 20
      TabOrder = 0
      OnChange = Edit1Change
    end
    object Button1: TButton
      Left = 705
      Top = 15
      Width = 76
      Height = 22
      Caption = '物料明细帐'
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 460
    Width = 788
    object DBText1: TDBText
      Left = 101
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 5
      Top = 9
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 102
    Width = 788
    Height = 358
    inherited DBGridEh: TDBGridEh
      Width = 788
      Height = 358
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Caption = '物料标识'
          Width = 281
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Caption = '计量单位'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxPrice'
          PickList.Strings = ()
          Title.Caption = '未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInv'
          PickList.Strings = ()
          Title.Caption = '库存总量'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalACount'
          PickList.Strings = ()
          Title.Caption = '库存未税总额'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandInv'
          PickList.Strings = ()
          Title.Caption = '可用库存量'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckInv'
          PickList.Strings = ()
          Title.Caption = '待检库存量'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FreezeInv'
          PickList.Strings = ()
          Title.Caption = '冻结库存量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnShipInv'
          PickList.Strings = ()
          Title.Caption = '发运库存量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WasterInv'
          PickList.Strings = ()
          Title.Caption = '废品库存量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OPInv'
          PickList.Strings = ()
          Title.Caption = '委外材料库存'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandACount'
          PickList.Strings = ()
          Title.Caption = '可用库存未税额'
          Width = 103
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckACount'
          PickList.Strings = ()
          Title.Caption = '待检库存未税额'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FreezeACount'
          PickList.Strings = ()
          Title.Caption = '冻结库存未税额'
          Width = 104
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnShipACount'
          PickList.Strings = ()
          Title.Caption = '在运库存未税额'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WasterACount'
          PickList.Strings = ()
          Title.Caption = '废品库存未税额'
          Width = 98
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 437
    Top = 171
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 176
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  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;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select CurrentInv.ItemCode'
      '    ,Item.ItemName'
      '    ,CurrentInv.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Uom.UomName'
      '    ,(case Sum(CurrentInv.OnHandInv) When 0 then 0 else'
      
        '     (Sum(case Warehouse.PriceType When 1 then StandardPrice.SPP' +
        'rice*CurrentInv.OnHandInv'
      '     else AveragePrice.AveragePrice*CurrentInv.OnHandInv end)/'
      '     Sum(CurrentInv.OnHandInv)) end)As NoTaxPrice'
      ''
      '    ,Sum(CurrentInv.OnHandInv) As OnHandInv'
      '    ,Sum(CurrentInv.OnCheckInv) As OnCheckInv'
      '    ,Sum(CurrentInv.FreezeInv) As FreezeInv'
      '    ,Sum(CurrentInv.OnShipInv) As OnShipInv'
      '    ,Sum(CurrentInv.WasterInv) As WasterInv'
      
        '    ,Sum(CurrentInv.OnHandInv+CurrentInv.OnCheckInv+CurrentInv.F' +
        'reezeInv+CurrentInv.OnShipInv) As TotalInv'
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnHandInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnHandInv end) As' +
        ' OnHandACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnCheckInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnCheckInv end) A' +
        's OnCheckACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.FreezeInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.FreezeInv end) As' +
        ' FreezeACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnShipInv end) As' +
        ' OnShipACount'
      ''
      
        '     ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPP' +
        'rice*CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.WasterInv end) As' +
        ' WasterACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*(CurrentInv.OnHandInv+'
      
        '     CurrentInv.OnCheckInv+CurrentInv.FreezeInv+CurrentInv.Onshi' +
        'pInv)'
      
        '     else AveragePrice.AveragePrice*(CurrentInv.OnHandInv+Curren' +
        'tInv.OnCheckInv+'
      
        '     CurrentInv.FreezeInv+CurrentInv.OnShipInv) end) As TotalAco' +
        'unt'
      ''
      '     From CurrentInv'
      '     Join Warehouse On CurrentInv.WHCode=Warehouse.WHCode'
      '     Join Item On CurrentInv.ItemCode=Item.ItemCode'
      
        '     Left Join AveragePrice On (CurrentInv.WHCode=AveragePrice.W' +
        'HCode)'
      '     And (CurrentInv.ItemCode=AveragePrice.ItemCode)'
      
        '     Left Join StandardPrice On (StandardPrice.SPStArtMonth='#39'200' +
        '1.01'#39')'
      '     And (CurrentInv.ItemCode=StandardPrice.ItemCode)'
      '     join Uom on Item.UomCode=Uom.UomCode'
      'group by CurrentInv.ItemCode,ItemName,UomName'
      ' ')
    Left = 312
    Top = 217
  end
  inherited DataSource: TDataSource
    Left = 376
    Top = 177
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 193
  end
  object PopuPmenu1: TPopuPmenu
    Left = 272
    Top = 256
  end
end