inv_whsumqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_WhSumQry: TFrm_Inv_WhSumQry
  Left = 50
  Top = 90
  Caption = '仓库收发存汇总表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '仓库收发存汇总表'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '仓库标识'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 426
    Height = 3
  end
  inherited Pnl_Body: TPanel
    Height = 329
    inherited DBGridEh: TDBGridEh
      Height = 329
      Columns = <
        Item
          FieldName = 'WHCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 75
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库名称'
          Width = 204
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 348
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AInvLMAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '上月结存金额'
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AInvInAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月收入金额'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AInvOutAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月发出金额'
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AInvBlncAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月结存金额'
          Width = 92
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'Select InvMonthSum.WHCode'
      '    ,Warehouse.WHName'
      '    ,InvMonthSum.WHCode+'#39' '#39'+Warehouse.WHName As WHCodeName'
      '    ,Sum(InvMonthSum.InvLMAmount) As AInvLMAmount'
      '    ,Sum(InvMonthSum.InvInAmount) As AInvInAmount'
      '    ,Sum(InvMonthSum.InvOutAmount) As AInvOutAmount'
      '    ,Sum(InvMonthSum.InvBlncAmount) As AInvBlncAmount'
      
        '     From InvMonthSum Join Warehouse On InvMonthSum.WHCode=WAreh' +
        'ouse.WHCode'
      '  Group By InvMonthSum.WHCode,Warehouse.WHName')
  end
end