inv_itemcurrentinv.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_ItemCurrentInv: TFrm_Inv_ItemCurrentInv
  Left = -4
  Top = -4
  ActiveControl = Edit1
  Caption = '物料--仓库当前结存表'
  ClientHeight = 553
  ClientWidth = 800
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '物料--仓库当前结存表'
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 41
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
    object Label1: TLabel
      Left = 544
      Top = 21
      Width = 60
      Height = 12
      Caption = '快速定位：'
    end
    object Edit1: TEdit
      Left = 608
      Top = 16
      Width = 105
      Height = 20
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 548
    Width = 800
    Height = 5
  end
  inherited Pnl_Body: TPanel
    Top = 98
    Width = 800
    Height = 450
    object Splitter1: TSplitter [0]
      Left = 0
      Top = 281
      Width = 800
      Height = 4
      Cursor = crVSplit
      Align = alBottom
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 281
      TabStop = False
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '确省仓库'
          Width = 121
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '确省仓管员'
          Width = 71
          KeyList.Strings = ()
        end>
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 285
      Width = 800
      Height = 165
      TabStop = False
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'WHCode'
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 61
          Visible = False
        end
        Item
          FieldName = 'WHCodeName'
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 206
        end
        Item
          FieldName = 'TotalQry'
          Title.Alignment = taCenter
          Title.Caption = '库存总量'
          Width = 78
        end
        Item
          FieldName = 'OnHandInv'
          Title.Alignment = taCenter
          Title.Caption = '可用库存'
          Width = 69
        end
        Item
          FieldName = 'OnCheckInv'
          Title.Alignment = taCenter
          Title.Caption = '待检库存'
          Width = 69
        end
        Item
          FieldName = 'FreezeInv'
          Title.Alignment = taCenter
          Title.Caption = '冻结库存'
          Width = 71
        end
        Item
          FieldName = 'WasterInv'
          Title.Alignment = taCenter
          Title.Caption = '废品库存'
          Width = 66
        end
        Item
          FieldName = 'OnShipInv'
          Title.Alignment = taCenter
          Title.Caption = '在运库存'
          Width = 67
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 365
    Top = 171
  end
  inherited ActionList: TActionList
    Top = 128
    inherited Act_Excel: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      'Select Item.ItemCode'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,Warehouse.WHName'
      '    ,Employee.EmployeeName'
      '     From Item'
      '     Left Join Uom On Item.UomCode=Uom.UomCode'
      '     Left Join Warehouse On Item.WHCode=Warehouse.WHCode'
      
        '     Left Join Employee On Item.WH_EmployeeCode=Employee.Employe' +
        'eCode')
    Left = 312
    Top = 145
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'Item'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainWHName: TStringField
      FieldName = 'WHName'
      Origin = 'Warehouse'
      Size = 40
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 384
    Top = 145
  end
  object AdoQuery: 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
    Parameters = <>
    SQL.Strings = (
      'Select CurrentInv.WHCode'
      '    ,CurrentInv.WHCode+'#39' '#39'+Warehouse.WHName As WHCodeName'
      
        '    ,Sum(CurrentInv.OnHandInv+CurrentInv.OnCheckInv+CurrentInv.F' +
        'reezeInv'
      '    +CurrentInv.WasterInv+CurrentInv.OnShipInv) As TotalQry'
      '    ,Sum(CurrentInv.OnHandInv) As OnHandInv'
      '    ,Sum(CurrentInv.OnCheckInv) As OnCheckInv'
      '    ,Sum(CurrentInv.FreezeInv) As FreezeInv'
      '    ,Sum(CurrentInv.WasterInv) As WasterInv'
      '    ,Sum(CurrentInv.OnShipInv) As OnShipInv'
      '     From CurrentInv'
      '     Join Warehouse On CurrentInv.WHCode=Warehouse.WHCode'
      '     Group By CurrentInv.WHCode,Warehouse.WHName')
    Left = 224
    Top = 313
  end
  object DataSource1: TDataSource
    DataSet = AdoQuery
    Left = 280
    Top = 313
  end
end