pm_pc_entry_b.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Pc_Entry_B: TFrm_Pm_Pc_Entry_B
  Left = 21
  Top = 110
  Caption = '采购价格表'
  ClientHeight = 425
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购合同准备'
  end
  inherited Pnl_Head: TPanel
    Height = 92
    inherited Image1: TImage
      Height = 92
    end
    object Label2: TLabel
      Left = 45
      Top = 6
      Width = 48
      Height = 12
      Caption = '供应商：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 168
      Top = 30
      Width = 36
      Height = 12
      Caption = '税率：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 57
      Top = 54
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 270
      Top = 30
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Lbl_Currency: TLabel
      Left = 689
      Top = 17
      Width = 72
      Height = 12
      Caption = 'Lbl_Currency'
      Visible = False
    end
    object Label9: TLabel
      Left = 51
      Top = 30
      Width = 36
      Height = 12
      Caption = '日期：'
      TransParent = True
    end
    object Lbl_TaxRate: TLabel
      Left = 699
      Top = 32
      Width = 66
      Height = 12
      Caption = 'Lbl_TaxRate'
      Visible = False
    end
    object Lbl_VendorName: TLabel
      Left = 670
      Top = 7
      Width = 84
      Height = 12
      Caption = 'Lbl_VendorName'
      Visible = False
    end
    object Label4: TLabel
      Left = 91
      Top = 73
      Width = 96
      Height = 12
      Caption = '显示已过期价格单'
      TransParent = True
    end
    object Edt_RemArk: TEdit
      Left = 91
      Top = 48
      Width = 539
      Height = 20
      MaxLength = 120
      TabOrder = 2
      OnExit = TextCheck
    end
    object MEdt_BillDate: TMaskEdit
      Left = 91
      Top = 26
      Width = 70
      Height = 20
      EditMask = '0000\.00\.00;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object ExtEdt_VendorCode: TLinkEdit
      Left = 91
      Top = 1
      Width = 65
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 1
      OnButtonClick = VendorHint1
      OnChange = ExtEdt_VendorCodeChange
      OnExit = ExtEdt_VendorCodeExit
      OnKeyDown = VendorHint
    end
    object Edt_VendorName: TEdit
      Left = 158
      Top = 1
      Width = 286
      Height = 20
      Enabled = False
      TabOrder = 3
    end
    object Edt_CurrencyName: TEdit
      Left = 361
      Top = 26
      Width = 85
      Height = 20
      Enabled = False
      TabOrder = 6
    end
    object Edt_TaxRate: TEdit
      Left = 205
      Top = 26
      Width = 52
      Height = 20
      Enabled = False
      TabOrder = 4
    end
    object Edt_CurrencyCode: TEdit
      Left = 308
      Top = 26
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 5
    end
    object chb_Overdue: TCheckBox
      Left = 73
      Top = 72
      Width = 13
      Height = 13
      TabOrder = 7
      OnClick = chb_OverdueClick
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 399
    object Label7: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
      TransParent = True
    end
    object DBTxt_ItemName: TDBText
      Left = 104
      Top = 8
      Width = 84
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 149
    Height = 250
    inherited Image3: TImage
      Height = 250
    end
    inherited DBGridEh: TDBGridEh
      Height = 250
      FrozenCols = 2
      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 = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcLineStatus'
          PickList.Strings = (
            '未批准'
            '已批准')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 49
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'ReferencePricePass'
          PickList.Strings = (
            '未批准'
            '已批准')
          Title.Caption = '暂估价批准否'
          Width = 79
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'FormalPricePass'
          PickList.Strings = (
            '未批准'
            '已批准')
          Title.Caption = '正式价批准否'
          Width = 81
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始日期'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止日期'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '暂估含税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '暂估未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice_Formal'
          PickList.Strings = ()
          Title.Caption = '正式含税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice_Formal'
          PickList.Strings = ()
          Title.Caption = '正式未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '采购'
            '委外')
          Title.Alignment = taCenter
          Title.Caption = '价格类型'
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 368
    Top = 328
    inherited Act_Filter: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Order: TAction
      Enabled = True
      Visible = True
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'Select pcline.PcNo,'
      '     pcline.PcLineId,'
      '     pcline.ItemCode,'
      '     Item.ItemName,'
      '     Uom.UomName,'
      '     pcline.PcTaxPrice,'
      '     pcline.PcNoTaxPrice,'
      '     pcline.PcStArtDate,'
      '     pcline.PcendDate,'
      '     pcline.PcStArtQty,'
      '     pcline.PcendQty,'
      '     pcline.PcPriceType,'
      '--//     pcline.PCReferencedPrice'
      '     PcLine.PcTaxPrice_Formal,'
      '     PcLine.PcNoTaxPrice_Formal,'
      '     PcLine.ReferencePricePass,'
      '     PcLine.FormalPricePass'
      'From pcline Join Item On pcline.ItemCode=Item.ItemCode'
      '            Join Uom On Item.UomCode=Uom.UomCode'
      ' '
      ' '
      ' ')
    Left = 440
    Top = 241
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 289
  end
  object ActionList1: TActionList [9]
    Left = 696
    Top = 201
  end
end