pm_vendoritemassign_d.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_VendorItemAssign_D: TFrm_Pm_VendorItemAssign_D
  Left = 23
  Top = 47
  BOrderIcons = [biSystemMenu, biMinimize]
  Caption = '供应商物料分配表'
  ClientHeight = 452
  ClientWidth = 545
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel [0]
    Left = 19
    Top = 33
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object lbl_ItemName: TLabel [1]
    Left = 78
    Top = 59
    Width = 6
    Height = 12
  end
  object Label3: TLabel [2]
    Left = 19
    Top = 60
    Width = 60
    Height = 12
    Caption = '物料描述：'
  end
  inherited btn_ok: TButton
    Left = 270
    Top = 410
    TabOrder = 2
  end
  inherited btn_Cancel: TButton
    Left = 355
    Top = 410
    TabOrder = 3
  end
  inherited Pnl_Add: TPanel
    Left = 438
    Top = 7
    TabOrder = 4
  end
  object ExtEdt_ItemCode: TExtEdit [6]
    Left = 78
    Top = 27
    Width = 98
    Height = 20
    MaxLength = 16
    TabOrder = 0
    OnExit = InOutItemCodeCheck
    OnKeyDown = InOutItemHint
    DispLabel = lbl_ItemName
  end
  object DBGridEh1: TDBGridEh [7]
    Left = 3
    Top = 88
    Width = 523
    Height = 305
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnColExit = DBGridEh1ColExit
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      Item
        FieldName = 'VendorCode'
        Title.Alignment = taCenter
        Title.Caption = '供应商代码'
        Width = 80
      end
      Item
        FieldName = 'VendorName'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '供应商名称'
        Width = 300
      end
      Item
        FieldName = 'Assignrate'
        Title.Alignment = taCenter
        Title.Caption = '分配比例（%）'
        Width = 80
      end>
  end
  object btn_Del: TButton [8]
    Left = 440
    Top = 408
    Width = 75
    Height = 25
    Caption = '删除(&D)'
    TabOrder = 5
    OnClick = btn_DelClick
  end
  object AdoQry_Vendor: TAdoQuery
    LockType = ltBatchOptimistic
    AfterEdit = AdoQry_VendorAfterEdit
    BeforePost = AdoQry_VendorBeforePost
    AfterDelete = AdoQry_VendorAfterDelete
    Parameters = <>
    Left = 232
    Top = 184
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Vendor
    Left = 144
    Top = 208
  end
end