pm_qry_supplypoitem.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_SupplyPoItem: TFrm_Pm_Qry_SupplyPoItem
  Left = 206
  Top = 95
  Caption = '供应商采购物料清单'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '供应商采购物料清单'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 84
      Caption = '供应商物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object DBText1: TDBText
      Left = 72
      Top = 8
      Width = 313
      Height = 17
      DataField = 'Itemflag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'VendorItemCode'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 233
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoLineDate'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 232
    Top = 168
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'Select VendorItem.VendorItemCode,'
      '      TmpPOLine.ItemCode,'
      '       TmpPOLine.PoQty,'
      '       TmpPOLine.PoLineDate,'
      '       UomName='#39'dfdsf'#39','
      
        '       ItemName='#39'fdssssssssssssssssssssssssssssssssssssssssdfsdf' +
        'ffffffffffffffffffffffffdssddsfdfs'#39','
      
        '       Itemflag=tmppoline.ItemCode+'#39' '#39'+'#39'fdssssssssssssssssssssss' +
        'ssssssssssssssssssdfsdfffffffffffffffffffffffffdssddsfdfs'#39
      
        '       From (Select Po.VendorCode,PoLine.ItemCode,Sum(PoQty) As ' +
        'PoQty,PoLine.PoLineDate'
      '                     From PoLine '
      '                         Join Po On PoLine.PoNo=Po.PoNo'
      'Group by Po.VendorCode,PoLine.ItemCode,'
      'PoLine.PoLineDate ) TmpPOLine'
      
        '          Join VendorItem ON TmpPoLine.VendorCode=VendorItem.Ven' +
        'dorCode And'
      
        '                             TmpPoLine.ItemCode=VendorItem.ItemC' +
        'ode'
      'Order By VendorItem.VendorItemCode')
    Left = 208
    Top = 225
    object AdoQry_MaInvendorItemCode: TStringField
      DisplayLabel = '供应商物料代码'
      FieldName = 'VendorItemCode'
      Origin = '#tmppoItemResult'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = '#tmppoItemResult'
      Size = 16
    end
    object AdoQry_MainPoQty: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'PoQty'
      Origin = '#tmppoItemResult'
    end
    object AdoQry_MainPoLineDate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'PoLineDate'
      Origin = '#tmppoItemResult'
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'UomName'
      Origin = '#tmppoItemResult'
      ReadOnly = True
      Size = 5
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = '#tmppoItemResult'
      ReadOnly = True
      Size = 81
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tmppoItemResult'
      ReadOnly = True
      Size = 98
    end
  end
  inherited DataSource: TDataSource
    Left = 376
    Top = 161
  end
end