mrp_qry_materialmo_po.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_MaterialMo_Po: TFrm_Mrp_Qry_MaterialMo_Po
  Left = 134
  Top = 127
  Caption = '采购订单对应表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
      inherited TlBtn_SetColumn: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '采购订单对应表'
  end
  inherited Pnl_Head: TPanel
    Height = 0
  end
  inherited Pnl_Body: TPanel
    Top = 57
    Height = 346
    inherited DBGridEh: TDBGridEh
      Height = 346
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'PONO'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLINENo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Width = 143
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 175
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 130
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POQTY'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLineDATE'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoFinishQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNoTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoTaxAmount'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxAmount'
          PickList.Strings = ()
          Width = 62
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'select Vendorflag=po.VendorCode+'#39' '#39'+Vendor.VendorName,  '
      
        '                    poline.*,Itemflag=poline.ItemCode+'#39' '#39'+Item.i' +
        'temName,  '
      
        '                    Employeeflag=po.EmployeeCode+'#39' '#39'+Employee.em' +
        'ployeeName'
      
        '                     from po,poline,Vendor,Item,Employee        ' +
        '     '
      '                where po.pono=poline.pono             '
      
        '              and po.VendorCode*=Vendor.VendorCode              ' +
        '     '
      '        and poline.ItemCode*=Item.ItemCode    '
      '              and poline.polinestatus=6 '
      '              and po.EmployeeCode*=Employee.EmployeeCode'
      '              and poline.ItemCode='#39'jhhj'#39
      '         --    and poline.polinedate<='#39#39#39'+requiredatemo+'#39#39#39#39';')
    object AdoQry_MaInvendorflag: TStringField
      DisplayLabel = '供应商标识'
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainPONO: TStringField
      DisplayLabel = '采购订单号'
      FieldName = 'PONO'
      Size = 16
    end
    object AdoQry_MainPOLINENo: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'POLINENo'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainPOLineDATE: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'POLineDATE'
    end
    object AdoQry_MainPOQTY: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'POQTY'
    end
    object AdoQry_MainPONoFinishQty: TFloatField
      DisplayLabel = '未结量'
      FieldName = 'PONoFinishQty'
    end
    object AdoQry_MainPOREFERENCEDPRICE: TIntegerField
      FieldName = 'POREFERENCEDPRICE'
    end
    object AdoQry_MainPOLINESTATUS: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'POLINESTATUS'
    end
    object AdoQry_MainPoNoTaxPrice: TFloatField
      DisplayLabel = '未税价'
      FieldName = 'PoNoTaxPrice'
    end
    object AdoQry_MainPONoTaxAmount: TBCDField
      DisplayLabel = '未税金额'
      FieldName = 'PONoTaxAmount'
      Precision = 18
      Size = 2
    end
    object AdoQry_MainPoTaxPrice: TFloatField
      DisplayLabel = '含税价'
      FieldName = 'PoTaxPrice'
    end
    object AdoQry_MainPoTaxAmount: TBCDField
      DisplayLabel = '含税金额'
      FieldName = 'PoTaxAmount'
      Precision = 18
      Size = 2
    end
    object AdoQry_MainPOStArtWorkDate: TDateTimeField
      FieldName = 'POStArtWorkDate'
    end
    object AdoQry_MainPoRealInQty: TFloatField
      FieldName = 'PoRealInQty'
    end
    object AdoQry_MainPoInQty: TFloatField
      FieldName = 'PoInQty'
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '采购员标识'
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 91
    end
  end
end