inv_monthclasssumqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MonthClassSumQry: TFrm_Inv_MonthClassSumQry
  Left = 30
  Top = 76
  Caption = '收发存分类汇总表'
  ClientHeight = 424
  ClientWidth = 691
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 691
  end
  inherited Pnl_Title: TPanel
    Width = 691
    Caption = '收发存分类汇总表'
  end
  inherited Pnl_Head: TPanel
    Width = 691
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '仓库/物料类别标识'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 383
    Width = 691
    Height = 41
    object Label1: TLabel
      Left = 26
      Top = 15
      Width = 60
      Height = 12
      Caption = '上期结存：'
    end
    object Label2: TLabel
      Left = 218
      Top = 16
      Width = 60
      Height = 12
      Caption = '本期入库：'
    end
    object Label3: TLabel
      Left = 409
      Top = 16
      Width = 60
      Height = 12
      Caption = '本期出库：'
    end
    object Label4: TLabel
      Left = 598
      Top = 15
      Width = 60
      Height = 12
      Caption = '本期结存：'
    end
    object Edit1: TEdit
      Left = 86
      Top = 11
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 278
      Top = 11
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 467
      Top = 11
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 656
      Top = 11
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 3
    end
  end
  inherited Pnl_Body: TPanel
    Width = 691
    Height = 286
    inherited DBGridEh: TDBGridEh
      Width = 691
      Height = 286
      Columns = <
        Item
          FieldName = 'WHName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 124
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemClass'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '存货分类标识'
          Width = 161
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvLMQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '上月结存数量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvInQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月收入数量'
          Width = 98
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvOutQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月发出数量'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvBlncQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月结存数量'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvLMAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '上月结存金额'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvInAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月收入金额'
          Width = 98
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvOutAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月发出金额'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SInvBlncAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月结存金额'
          Width = 102
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 413
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 232
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'Select InvOutBillLine.ItemCode'
      '    ,Item.ItemName'
      '    ,InvOutBillLine.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Uom.UomName'
      '    ,InvOutBillLine.InvBillQty'
      '    ,RealSalePrice.InvBillSalePrice'
      '    ,RealSalePrice.InvBillSaleAmount'
      '     From InvOutBillLine'
      
        '     Join InvOutBill on InvOutBillLine.InvBillId=InvOutBillLine.' +
        'InvBillId'
      '     Join Item on InvOutBillLine.ItemCode=Item.ItemCode'
      '     Join Uom on Item.UomCode=Uom.UomCode'
      
        '     Join RealSalePrice on InvOutBillLine.InvBillId=RealSalePric' +
        'e.InvBillId'
      
        '     And InvOutBillLine.InvBillLineNo=RealSalePrice.InvBillLineN' +
        'o')
    Left = 328
    Top = 201
  end
  inherited DataSource: TDataSource
    Left = 392
    Top = 257
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 257
  end
end