pm_enter_ssvendorassigninfo2_b.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_SsVendorAssignInfo2_B: TFrm_Pm_Enter_SsVendorAssignInfo2_B
  Left = 198
  Top = 109
  Caption = '多供应商分配'
  ClientHeight = 463
  ClientWidth = 722
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 722
    inherited ToolBar: TToolBar
      inherited TlBtn_InsertLine: TToolButton
        Hint = '主生产计划'
        Caption = '主生产计划'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 722
    Caption = '多供应商分配'
    inherited Image2: TImage
      Width = 722
    end
  end
  inherited Pnl_Head: TPanel
    Width = 722
    Height = 51
    inherited Image1: TImage
      Width = 722
      Height = 51
    end
    object Label3: TLabel
      Left = 20
      Top = 32
      Width = 48
      Height = 12
      Caption = '计划量：'
      TransParent = True
    end
    object lbl_Qty: TLabel
      Left = 76
      Top = 32
      Width = 6
      Height = 12
      TransParent = True
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 60
      Height = 12
      Caption = '物料标识：'
      TransParent = True
    end
    object lbl_ItemFlag: TLabel
      Left = 72
      Top = 16
      Width = 6
      Height = 12
      TransParent = True
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 437
    Width = 722
    inherited Image4: TImage
      Width = 722
    end
  end
  inherited Pnl_Body: TPanel
    Top = 108
    Width = 722
    Height = 329
    inherited Image3: TImage
      Width = 722
      Height = 329
    end
    inherited DBGridEh: TDBGridEh
      Width = 722
      Height = 329
      ReadOnly = False
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 211
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 83
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 162
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssignQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'HavePrice'
          PickList.Strings = (
            '无'
            '有')
          Width = 98
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 509
    Top = 179
  end
  inherited ActionList: TActionList
    Left = 168
    Top = 168
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Caption = '反查主生产计划'
      Hint = '反查主生产计划'
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_tcl;Data Source=192.168.0.' +
      '100'
    BeforeEdit = AdoQry_BodyBeforeEdit
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select VendorItemAssign.VendorCode,'
      '       Vendor.VendorName,'
      '       VendorItemAssign.ItemCode,'
      '       Item.ItemName,'
      '       VendorItemAssign.AssignRate/100.0*250 As AssignQty,'
      '       case when IsNull(tmp.PcNo,'#39#39')<>'#39#39' then 1'
      '            else 0'
      '       end HavePrice'
      ' from VendorItemAssign'
      'left join (select Pc.VendorCode,'
      '                  PcLine.* '
      '             from PcLine'
      '             join Pc on PcLine.PcNo=Pc.PcNo'
      '            where ItemCode='#39'1170100003'#39
      '              and PcLineStatus=1) tmp '
      'on VendorItemAssign.VendorCode=Tmp.VendorCode'
      ' and VendorItemAssign.ItemCode=Tmp.ItemCode'
      
        'left join Vendor on VendorItemAssign.VendorCode=Vendor.VendorCod' +
        'e'
      'left join Item on VendorItemAssign.ItemCode=Item.ItemCode'
      ' where VendorItemAssign.ItemCode='#39'1170100003'#39)
    Left = 288
    Top = 153
    object AdoQry_BodyVendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      ReadOnly = True
      Size = 12
    end
    object AdoQry_BodyVendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      ReadOnly = True
      Size = 60
    end
    object AdoQry_BodyItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      ReadOnly = True
      Size = 80
    end
    object AdoQry_BodyAssignQty: TFloatField
      DisplayLabel = '分配量'
      FieldName = 'AssignQty'
    end
    object AdoQry_BodyHavePrice: TIntegerField
      DisplayLabel = '有采购价格否'
      FieldName = 'HavePrice'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 376
    Top = 177
  end
end