pm_enter_purchaseapply.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_PurchaseApply: TFrm_Pm_Enter_PurchaseApply
  Left = 7
  Top = 117
  Caption = '采购请购单'
  ClientWidth = 760
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 760
  end
  inherited Pnl_Title: TPanel
    Width = 760
    inherited Image2: TImage
      Width = 760
    end
  end
  inherited Pnl_Head: TPanel
    Width = 760
    inherited Image1: TImage
      Width = 760
    end
    object Label1: TLabel
      Left = 480
      Top = 24
      Width = 60
      Height = 12
      Caption = '请购单号：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 414
      Top = 12
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 539
      Top = 12
      Width = 6
      Height = 12
      TransParent = True
    end
    object Lbl_PurchaseNo: TLabel
      Left = 539
      Top = 24
      Width = 6
      Height = 12
      TransParent = True
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 760
    inherited Image4: TImage
      Width = 760
    end
    object Lbl_Status: TLabel
      Left = 49
      Top = 7
      Width = 6
      Height = 12
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Width = 760
    inherited Image3: TImage
      Width = 760
    end
    inherited DBGridEh: TDBGridEh
      Width = 760
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'TmpField'
          PickList.Strings = (
            '1'
            '0')
          Width = 30
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SSQty'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PlanQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SSReleaseDate'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PlanReleaseDate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          DropDownRows = 2
          FieldName = 'IsActive'
          PickList.Strings = (
            '0 否'
            '1 是')
          AlwaysShowEditButton = True
          AutoDropDown = True
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'IsMultiVendor'
          PickList.Strings = (
            '0 否'
            '1 是'
            '2 没分配')
          ReadOnly = True
          KeyList.Strings = (
            '0'
            '1'
            '2')
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ISRefill'
          PickList.Strings = (
            '0 否'
            '1 是')
          ReadOnly = True
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'IScreatePo'
          PickList.Strings = (
            '0 没'
            '1 已')
          ReadOnly = True
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'IsAssign'
          PickList.Strings = (
            '是'
            '否')
          ReadOnly = True
          Title.Caption = '已分配'
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PlanDueDate'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '0  制造'
            '1  采购'
            '2  委外加工')
          KeyList.Strings = (
            '0'
            '1'
            '2')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 253
    Top = 43
  end
  inherited ActionList: TActionList
    Left = 232
    Top = 144
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDAT' +
      'ASERVER'
    CurSorType = ctStatic
    BeforeEdit = AdoQry_MainBeforeEdit
    AfterPost = AdoQry_MainAfterPost
    SQL.Strings = (
      
        'select PurChaseApply.*,Item.ItemName,Employee.EmployeeName as Cr' +
        'eateEmployeeName,Emp.EmployeeName as EdItEmployeeName,Vendor.Ven' +
        'dorName'
      
        ' from PurChaseApply left join Item on Item.ItemCode=PurChaseAppl' +
        'y.ItemCode'
      
        ' left join Employee on Employee.EmployeeCode=PurChaseApply.Creat' +
        'eEmployeeCode'
      
        ' left join Employee Emp on Emp.EmployeeCode=PurChaseApply.EdItem' +
        'ployeeCode'
      ' left join Vendor on Vendor.VendorCode=PurChaseApply.VendorCode')
    Left = 328
    Top = 145
    object AdoQry_MainToDate: TStringField
      FieldName = 'ToDate'
      Size = 19
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'PurchaseApply'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainSSQty: TFloatField
      DisplayLabel = '系统建议量'
      FieldName = 'SSQty'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MaInPlanQty: TFloatField
      DisplayLabel = '计划量'
      FieldName = 'PlanQty'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MainSSReleaseDate: TDateTimeField
      DisplayLabel = '系统建议约定交货日'
      DisplayWidth = 18
      FieldName = 'SSReleaseDate'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MaInPlanReleaseDate: TDateTimeField
      DisplayLabel = '计划约定交货日'
      FieldName = 'PlanReleaseDate'
      Origin = 'PurchaseApply'
      OnChange = AdoQry_MaInPlanReleaseDateChange
    end
    object AdoQry_MainIsMultiVendor: TIntegerField
      DisplayLabel = '多供应商供应标识'
      FieldName = 'IsMultiVendor'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MainISRefill: TIntegerField
      DisplayLabel = '替代虚项标识'
      FieldName = 'ISRefill'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MainIScreatePo: TIntegerField
      DisplayLabel = '产生采购订单否'
      FieldName = 'IScreatePo'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Size = 120
    end
    object AdoQry_MainTmpField: TIntegerField
      DisplayLabel = '标记'
      FieldName = 'TmpField'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'PurchaseApply'
      Size = 30
    end
    object AdoQry_MainEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'PurchaseApply'
      Size = 30
    end
    object AdoQry_MainCreateDate: TDateTimeField
      DisplayLabel = '系统建挡日期'
      FieldName = 'CreateDate'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MainCreateEmployeeName: TStringField
      DisplayLabel = '系统建挡人员'
      FieldName = 'CreateEmployeeName'
      Size = 60
    end
    object AdoQry_MainEdItEmployeeName: TStringField
      DisplayLabel = '系统修改人员'
      FieldName = 'EdItEmployeeName'
      Size = 60
    end
    object AdoQry_MainEditDate: TDateTimeField
      DisplayLabel = '系统修改日期'
      FieldName = 'EditDate'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MaInPlanDueDate: TDateTimeField
      DisplayLabel = '计划开工日期'
      FieldName = 'PlanDueDate'
      Origin = 'PurchaseApply'
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商'
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MainIsAssign: TIntegerField
      FieldName = 'IsAssign'
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
    end
    object AdoQry_MainIsActive: TIntegerField
      DisplayLabel = '是否生效'
      FieldName = 'IsActive'
    end
  end
  inherited DataSource: TDataSource
    Left = 296
    Top = 81
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 145
  end
end