pm_fakepc_b.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_FakePc_B: TFrm_Pm_FakePc_B
  Left = 25
  Top = 132
  Caption = '付款合同维护'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Locate: TToolButton
        Action = Act_Property
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '付款合同维护'
  end
  inherited Pnl_Head: TPanel
    Height = 74
    inherited Image1: TImage
      Height = 74
    end
    object Label1: TLabel
      Left = 10
      Top = 8
      Width = 60
      Height = 12
      Caption = '供 应 商：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 433
      Top = 5
      Width = 72
      Height = 12
      Caption = '系统合同号：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 612
      Top = 5
      Width = 84
      Height = 12
      Caption = '采购价格单号：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 10
      Top = 31
      Width = 60
      Height = 12
      Caption = '合同类型：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 286
      Top = 31
      Width = 36
      Height = 12
      Caption = '含税：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 469
      Top = 31
      Width = 36
      Height = 12
      Caption = '税率：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 636
      Top = 31
      Width = 60
      Height = 12
      Caption = '签约日期：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 10
      Top = 56
      Width = 60
      Height = 12
      Caption = '签约地点：'
      TransParent = True
    end
    object Label9: TLabel
      Left = 433
      Top = 56
      Width = 72
      Height = 12
      Caption = '合同条款集：'
      TransParent = True
    end
    object lbl_taxrate: TLabel
      Left = 509
      Top = 31
      Width = 6
      Height = 12
      TransParent = True
    end
    object lbl_VendorName: TLabel
      Left = 160
      Top = 8
      Width = 6
      Height = 12
      TransParent = True
    end
    object Extedt_VendorCode: TExtEdit
      Left = 69
      Top = 3
      Width = 81
      Height = 20
      TabOrder = 0
      OnExit = UsableVendorCodeCheck
      OnKeyDown = UsableVendorHint
      DispLabel = lbl_VendorName
    end
    object Extedt_Pcno: TExtEdit
      Left = 509
      Top = 0
      Width = 89
      Height = 20
      TabOrder = 1
      OnExit = Extedt_PcnoExit
      OnKeyDown = Extedt_PcnoKeyDown
    end
    object Extedt_FakePcno: TExtEdit
      Left = 699
      Top = 0
      Width = 87
      Height = 20
      TabOrder = 2
      OnExit = Extedt_FakePcnoExit
      OnKeyDown = Extedt_FakePcnoKeyDown
    end
    object Extedt_Signlocation: TExtEdit
      Left = 71
      Top = 52
      Width = 298
      Height = 20
      TabOrder = 6
    end
    object cmbbx_PcType: TComboBox
      Left = 71
      Top = 27
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      Items.Strings = (
        '采购'
        '委外')
    end
    object cmbbx_Hastax: TComboBox
      Left = 326
      Top = 27
      Width = 44
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      Items.Strings = (
        '是'
        '否')
    end
    object medt_Date: TMaskEdit
      Left = 699
      Top = 26
      Width = 86
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object cmbbx_PoTermSet: TComboBox
      Left = 507
      Top = 52
      Width = 278
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 7
      OnExit = cmbbx_PoTermSetExit
    end
  end
  inherited Pnl_Hint: TPanel
    object DBText1: TDBText
      Left = 128
      Top = 8
      Width = 65
      Height = 17
      DataField = 'ItemName'
      DataSource = DataSource
      TransParent = True
    end
    object Label10: TLabel
      Left = 24
      Top = 8
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 131
    Height = 311
    inherited Image3: TImage
      Height = 311
    end
    inherited DBGridEh: TDBGridEh
      Height = 311
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'qty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Amount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Finishdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 120
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Property: TAction
      OnExecute = Act_PropertyExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    Left = 280
    Top = 265
  end
end