bas_bomqry.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_BomQry: TFrm_Bas_BomQry
  Left = 13
  Top = 108
  Caption = '制造Bom构造'
  ClientHeight = 432
  ClientWidth = 787
  PixelsPerInch = 96
  TextHeight = 12
  object TLabel [0]
    Left = 344
    Top = 208
    Width = 6
    Height = 12
  end
  inherited ControlBar: TControlBar
    Width = 787
    inherited ToolBar: TToolBar
      inherited TlBtn_New: TToolButton
        Enabled = False
      end
      inherited TlBtn_Modify: TToolButton
        Enabled = False
      end
      inherited TlBtn_Delete: TToolButton
        Enabled = False
      end
      inherited ToolButton6: TToolButton
        Action = Action2
      end
      inherited TlBtn_Filter: TToolButton
        Action = Action1
        Enabled = False
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 787
    Caption = 'Bom构造(父对子)'
    inherited Image2: TImage
      Width = 787
    end
  end
  inherited Pnl_Head: TPanel
    Width = 787
    Height = 48
    inherited Image1: TImage
      Width = 787
      Height = 48
    end
    inherited Lbl_Condition: TLabel
      Left = 629
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 567
      Width = 6
      Caption = ''
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 567
      Top = 24
      Width = 6
      Caption = ''
    end
    inherited Lbl_Order: TLabel
      Left = 653
      Top = 24
      Width = 6
      Caption = ''
    end
    object Lbl_IteCode: TLabel
      Left = 8
      Top = 6
      Width = 54
      Height = 12
      Caption = '父项代码:'
      TransParent = True
    end
    object Lbl_Name: TLabel
      Left = 7
      Top = 30
      Width = 54
      Height = 12
      Caption = '父项描述:'
      TransParent = True
    end
    object Lbl_Name_D: TLabel
      Left = 70
      Top = 30
      Width = 70
      Height = 12
      Caption = 'Lbl_Name_D'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TransParent = True
    end
    object Label3: TLabel
      Left = 643
      Top = 6
      Width = 48
      Height = 12
      Caption = '制购码：'
      TransParent = True
    end
    object Lb_PmCode: TLabel
      Left = 688
      Top = 6
      Width = 54
      Height = 12
      Caption = 'Lb_PmCode'
      TransParent = True
    end
    object Label5: TLabel
      Left = 216
      Top = 6
      Width = 72
      Height = 12
      Caption = '准备提前期：'
      TransParent = True
    end
    object Lb_PreparelLT: TLabel
      Left = 288
      Top = 6
      Width = 78
      Height = 12
      Caption = 'Lb_PreparelLT'
      TransParent = True
    end
    object Label7: TLabel
      Left = 376
      Top = 6
      Width = 72
      Height = 12
      Caption = '运行提前期：'
      TransParent = True
    end
    object Lb_RunLT: TLabel
      Left = 448
      Top = 6
      Width = 48
      Height = 12
      Caption = 'Lb_RunLT'
      TransParent = True
    end
    object Label9: TLabel
      Left = 504
      Top = 6
      Width = 72
      Height = 12
      Caption = '质检提前期：'
      TransParent = True
    end
    object Lb_QcLT: TLabel
      Left = 577
      Top = 6
      Width = 42
      Height = 12
      Caption = 'Lb_QcLT'
      TransParent = True
    end
    object Label11: TLabel
      Left = 644
      Top = 30
      Width = 36
      Height = 12
      Caption = '图号：'
      TransParent = True
    end
    object Lb_DesignNo: TLabel
      Left = 678
      Top = 30
      Width = 66
      Height = 12
      Caption = 'Lb_DesignNo'
      TransParent = True
    end
    object lbl_ItemCode: TLabel
      Left = 70
      Top = 4
      Width = 70
      Height = 12
      Caption = 'Lbl_Code_D'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TransParent = True
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 408
    Width = 787
    Height = 24
    inherited Image4: TImage
      Width = 787
      Height = 24
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '提示：共有记录'
      TransParent = True
    end
    object Lbl_RecordCount: TLabel
      Left = 103
      Top = 8
      Width = 90
      Height = 12
      Caption = 'Lbl_RecordCount'
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 105
    Width = 787
    Height = 303
    object TLabel [0]
      Left = 344
      Top = 144
      Width = 6
      Height = 12
    end
    inherited Image3: TImage
      Width = 787
      Height = 303
    end
    inherited DBGridEh: TDBGridEh
      Width = 787
      Height = 303
      ReadOnly = False
      OnKeyDown = CurrencyHint
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '子项标识'
          Width = 264
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 29
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomItemType'
          PickList.Strings = (
            '0 普通物料'
            '1 工作中心'
            '2 工具'
            '3 结构虚项'
            '4 副产品'
            '5 成本中心'
            '6 替代虚项'
            '7 参考')
          ReadOnly = True
          Title.Caption = '子项属性'
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
        Item
          Alignment = taCenter
          FieldName = 'ItemUsable'
          PickList.Strings = (
            '否'
            '是')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料生效'
          Width = 63
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'BomQty_Disp'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '定额'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomScrAp_Percent_Disp'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '损耗率%'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'BomStatus'
          PickList.Strings = (
            '正常'
            '未生效'
            '暂定'
            '暂停使用')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '子项状态'
          Width = 67
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          Alignment = taCenter
          FieldName = 'PmCode'
          PickList.Strings = (
            '制造'
            '采购'
            '委外加工'
            '既制造又委外')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '制购码'
          Width = 77
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'DeptCodeName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '部门标识'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '子项备注'
          Width = 56
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'usestyle'
          PickList.Strings = (
            '发料'
            '销售')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '用料方式'
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PrepareLT'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '准备提前期'
          Width = 69
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RunLt'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '运行提前期'
          Width = 67
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcLT'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '质检提前期'
          Width = 66
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DesignNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '图号'
          Width = 29
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 187
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 168
    inherited Act_Hint: TAction
      ShortCut = 120
    end
    inherited Act_Filter: TAction
      Enabled = False
      Visible = False
    end
    inherited Action1: TAction
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      ShortCut = 32776
      OnExecute = Action2Execute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    SQL.Strings = (
      'select B.ItemCode,ItemName,BomItemType,BomQty,BomScrAp_Percent,'
      'BomStatus,B.DeptCode,D.DeptName from Bom B inner join  Item I '
      'on B.ItemCode=I.ItemCode inner join Dept D '
      'on B.DeptCode=d.DeptCode    ')
    Left = 328
    Top = 265
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 145
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 296
    Top = 193
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 456
    Top = 151
  end
end