inv_opbillqry.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 170 行

inherited Frm_Inv_OpBillQry: TFrm_Inv_OpBillQry
  Left = -12
  Top = 77
  Caption = '委外材料费单据'
  ClientWidth = 788
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 788
  end
  inherited Pnl_Title: TPanel
    Width = 788
    Caption = '委外材料费单据'
  end
  inherited Pnl_Head: TPanel
    Width = 788
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 66
      Height = 12
      Caption = ' 父项物料：'
    end
    object Label2: TLabel
      Left = 440
      Top = 32
      Width = 60
      Height = 12
      Caption = '计量单位：'
    end
    object Label3: TLabel
      Left = 584
      Top = 32
      Width = 60
      Height = 12
      Caption = '入库数量：'
    end
    object Lbl_Item: TLabel
      Left = 88
      Top = 32
      Width = 48
      Height = 12
      Caption = 'Lbl_Item'
    end
    object Lbl_UomName: TLabel
      Left = 504
      Top = 32
      Width = 66
      Height = 12
      Caption = 'Lbl_UomName'
    end
    object Lbl_BillQty: TLabel
      Left = 648
      Top = 32
      Width = 66
      Height = 12
      Caption = 'Lbl_BillQty'
    end
    object Label4: TLabel
      Left = 34
      Top = 8
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label5: TLabel
      Left = 440
      Top = 8
      Width = 72
      Height = 12
      Caption = '原始单据号：'
    end
    object Lbl_InvBillNo: TLabel
      Left = 88
      Top = 8
      Width = 78
      Height = 12
      Caption = 'Lbl_InvBillNo'
    end
    object Lbl_SourceBillNo: TLabel
      Left = 512
      Top = 8
      Width = 96
      Height = 12
      Caption = 'Lbl_SourceBillNo'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 788
  end
  inherited Pnl_Body: TPanel
    Width = 788
    inherited DBGridEh: TDBGridEh
      Width = 788
      Columns = <
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项物料描述'
          Width = 287
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOpQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Bom定额'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOPScrAp_Percent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Bom损耗'
          Width = 49
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOpQtyNew'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际定额'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RealOPScrAp_PercentNew'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际损耗'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OPBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项数量'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OPBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '价格'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OPBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Width = 65
          KeyList.Strings = ()
        end>
    end
  end
end