bas_enter_itemamountscrap.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Enter_ItemAmountScrAp: TFrm_Bas_Enter_ItemAmountScrAp
  Left = 234
  Top = 124
  Caption = '物料数量段损耗率'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '物料代码/开始数量'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'Id'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Caption = '物料代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '物料名称'
          Width = 207
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Amount_StAr'
          PickList.Strings = ()
          Title.Caption = '开始数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Amount_End'
          PickList.Strings = ()
          Title.Caption = '终止数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ScrAp'
          PickList.Strings = ()
          Title.Caption = '损耗率 '
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Caption = '备注'
          Width = 250
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    object AdoQry_MainId: TAutoIncField
      FieldName = 'Id'
      Origin = 'Item_AmountScrAp'
      ReadOnly = True
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'Item_AmountScrAp'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainAmount_StAr: TFloatField
      FieldName = 'Amount_StAr'
      Origin = 'Item_AmountScrAp'
    end
    object AdoQry_MainAmount_End: TFloatField
      FieldName = 'Amount_End'
      Origin = 'Item_AmountScrAp'
    end
    object AdoQry_MainScrAp: TFloatField
      FieldName = 'ScrAp'
      Origin = 'Item_AmountScrAp'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Size = 60
    end
  end
end