mrp_enter_msitemassign.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_MsItemAssign: TFrm_Mrp_Enter_MsItemAssign
  Left = 259
  Top = 119
  Caption = '既自制又委外物料分配比例'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '既自制又委外物料分配比例'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 127
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssignRate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'HalfAssignRate'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssignQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '0 自制比例'
            '2 委外加工比例')
          Width = 105
          KeyList.Strings = (
            '0'
            '2')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 133
    Top = 243
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 152
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    SQL.Strings = (
      'select msItemAssign.*,Item.ItemName,'
      '      Itemflag=msItemAssign.ItemCode+'#39' '#39'+Item.ItemName,'
      '       Uom.UomName'
      ' from msItemAssign,Item,Uom'
      'where msItemAssign.ItemCode=Item.ItemCode'
      '  and Item.UomCode*=Uom.UomCode')
    Left = 208
    Top = 209
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'msItemAssign'
      Size = 16
    end
    object AdoQry_MainAssignRate: TFloatField
      DisplayLabel = '自制比例'
      FieldName = 'AssignRate'
      Origin = 'msItemAssign'
    end
    object AdoQry_MainAssignQty: TFloatField
      DisplayLabel = '分配数量'
      FieldName = 'AssignQty'
      Origin = 'msItemAssign'
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
      Origin = 'msItemAssign'
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainHalfAssignRate: TFloatField
      DisplayLabel = '委外加工比例'
      FieldName = 'HalfAssignRate'
      Origin = 'msItemAssign'
    end
  end
  inherited DataSource: TDataSource
    Top = 137
  end
end