pm_qry_normalsspoinfo.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_NormalSsPoInfo: TFrm_Pm_Qry_NormalSsPoInfo
  Left = 0
  Top = 100
  ActiveControl = DBGridEh
  Caption = '采购建议（未汇总）查询'
  ClientWidth = 804
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
    inherited ToolBar: TToolBar
      inherited TlBtn_Modify: TToolButton
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
      inherited ToolButton6: TToolButton
        Hint = '主生产计划查询(Enter)'
        Action = Act_Sum
        Caption = '主生产计划查询'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '采购建议（未汇总）查询'
    inherited Image2: TImage
      Width = 804
    end
  end
  inherited Pnl_Head: TPanel
    Width = 804
    Height = 79
    inherited Image1: TImage
      Width = 804
      Height = 79
    end
    inherited Lbl_Condition: TLabel
      Left = 87
      Top = 33
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 32
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 48
    end
    inherited Lbl_Order: TLabel
      Top = 48
      Width = 114
      Caption = '物料代码/约定交货日'
    end
    object Label6: TLabel
      Left = 17
      Top = 63
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
      TransParent = True
    end
    object Lab_RunMrpDate: TLabel
      Left = 151
      Top = 63
      Width = 6
      Height = 12
      TransParent = True
    end
    object btn_Order: TButton
      Left = 315
      Top = 1
      Width = 89
      Height = 25
      Caption = '订单联查'
      TabOrder = 0
      OnClick = btn_OrderClick
    end
    object btn_ite_Item: TButton
      Left = 221
      Top = 1
      Width = 89
      Height = 25
      Caption = '父项物料反查'
      TabOrder = 1
      OnClick = btn_ite_ItemClick
    end
    object btn_Vendor: TButton
      Left = 113
      Top = 1
      Width = 103
      Height = 25
      Caption = '供应商主文件联查'
      TabOrder = 2
      OnClick = btn_VendorClick
    end
    object btn_Item: TButton
      Left = 14
      Top = 1
      Width = 94
      Height = 25
      Caption = '物料主文件联查'
      TabOrder = 3
      OnClick = btn_ItemClick
    end
    object btn_uPMrp: TButton
      Left = 596
      Top = 1
      Width = 89
      Height = 25
      Caption = 'Mrp竖式报表'
      TabOrder = 4
      OnClick = btn_uPMrpClick
    end
    object btn_OblongMrp: TButton
      Left = 690
      Top = 1
      Width = 89
      Height = 25
      Caption = 'Mrp横式报表'
      TabOrder = 5
      OnClick = btn_OblongMrpClick
    end
    object Button1: TButton
      Left = 502
      Top = 1
      Width = 89
      Height = 25
      Caption = '父项需求追溯'
      TabOrder = 6
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 409
      Top = 1
      Width = 89
      Height = 25
      Caption = '多层Bom反查'
      TabOrder = 7
      OnClick = Button3Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 392
    Width = 804
    Height = 37
    inherited Image4: TImage
      Width = 804
      Height = 37
      TransParent = True
    end
    object Label1: TLabel
      Left = 235
      Top = 5
      Width = 60
      Height = 12
      Caption = '物料标识：'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 295
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
      TransParent = True
    end
    object DBText2: TDBText
      Left = 711
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SSQty'
      DataSource = DataSource
      TransParent = True
    end
    object Label2: TLabel
      Left = 637
      Top = 5
      Width = 72
      Height = 12
      Caption = '约定交货量：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 637
      Top = 22
      Width = 72
      Height = 12
      Caption = '约定交货日：'
      TransParent = True
    end
    object DBText3: TDBText
      Left = 711
      Top = 22
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SSDate'
      DataSource = DataSource
      TransParent = True
    end
    object Label4: TLabel
      Left = 3
      Top = 5
      Width = 72
      Height = 12
      Caption = '采购员标识：'
      TransParent = True
    end
    object DBText4: TDBText
      Left = 80
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'EmployeeFlag'
      DataSource = DataSource
      TransParent = True
    end
    object Label5: TLabel
      Left = 3
      Top = 22
      Width = 72
      Height = 12
      Caption = '供应商名称：'
      TransParent = True
    end
    object DBText5: TDBText
      Left = 80
      Top = 22
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
      TransParent = True
    end
    object Label7: TLabel
      Left = 235
      Top = 22
      Width = 6
      Height = 12
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 136
    Width = 804
    Height = 256
    inherited Image3: TImage
      Width = 804
      Height = 256
    end
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 256
      ReadOnly = False
      OnDblClick = nil
      FrozenCols = 6
      Columns = <
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员代码'
          Width = 65
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员姓名'
          Width = 65
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeFlag'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员ID'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptVendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购价格单号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'