bas_bom3.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Bom3: TFrm_Bas_Bom3
  Left = 86
  Top = 142
  Caption = '制造Bom构造'
  ClientHeight = 371
  ClientWidth = 672
  PixelsPerInch = 96
  TextHeight = 12
  object TLabel [0]
    Left = 344
    Top = 208
    Width = 6
    Height = 12
  end
  inherited ControlBar: TControlBar
    Width = 672
    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
    end
  end
  inherited Pnl_Title: TPanel
    Width = 672
    Caption = 'Bom构造(子对父).'
    inherited Image2: TImage
      Width = 672
    end
  end
  inherited Pnl_Head: TPanel
    Width = 672
    Height = 48
    inherited Image1: TImage
      Width = 672
      Height = 48
    end
    inherited Lbl_Condition: TLabel
      Left = 810
    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 = 794
      Top = 24
      Width = 6
      Caption = ''
    end
    object Lbl_IteCode: TLabel
      Left = 19
      Top = 6
      Width = 60
      Height = 12
      Caption = '子项代码：'
    end
    object Label2: TLabel
      Left = 224
      Top = 6
      Width = 60
      Height = 12
      Caption = '子项描述：'
    end
    object Lb_ItemName: TLabel
      Left = 281
      Top = 8
      Width = 66
      Height = 12
      Caption = 'Lb_ItemName'
    end
    object Label3: TLabel
      Left = 558
      Top = 8
      Width = 48
      Height = 12
      Caption = '制购码：'
    end
    object Lb_PmCode: TLabel
      Left = 603
      Top = 8
      Width = 54
      Height = 12
      Caption = 'Lb_PmCode'
    end
    object Lb_DesignNo: TLabel
      Left = 596
      Top = 33
      Width = 66
      Height = 12
      Caption = 'Lb_DesignNo'
    end
    object Label11: TLabel
      Left = 561
      Top = 33
      Width = 36
      Height = 12
      Caption = '图号：'
    end
    object Lb_QcLT: TLabel
      Left = 475
      Top = 33
      Width = 42
      Height = 12
      Caption = 'Lb_QcLT'
    end
    object Label9: TLabel
      Left = 402
      Top = 33
      Width = 72
      Height = 12
      Caption = '质检提前期：'
    end
    object Lb_RunLT: TLabel
      Left = 296
      Top = 33
      Width = 48
      Height = 12
      Caption = 'Lb_RunLT'
    end
    object Label7: TLabel
      Left = 224
      Top = 33
      Width = 72
      Height = 12
      Caption = '运行提前期：'
    end
    object Lb_PreparelLT: TLabel
      Left = 80
      Top = 33
      Width = 78
      Height = 12
      Caption = 'Lb_PreparelLT'
    end
    object Label5: TLabel
      Left = 8
      Top = 33
      Width = 72
      Height = 12
      Caption = '准备提前期：'
    end
    object Label4: TLabel
      Left = 703
      Top = 8
      Width = 36
      Height = 12
      Caption = '单位：'
    end
    object Lb_Uom: TLabel
      Left = 737
      Top = 8
      Width = 36
      Height = 12
      Caption = 'Lb_Uom'
    end
    object Extedt_ItemCode: TExtEdit
      Left = 80
      Top = 4
      Width = 125
      Height = 20
      TabOrder = 0
      Text = 'Extedt_ItemCode'
      OnExit = Extedt_ItemCodeExit
      OnKeyDown = InOutItemHint
      DispLabel = Lb_ItemName
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 347
    Width = 672
    Height = 24
    inherited Image4: TImage
      Width = 672
      Height = 24
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '提示：共有记录'
    end
    object Lbl_RecordCount: TLabel
      Left = 103
      Top = 8
      Width = 90
      Height = 12
      Caption = 'Lbl_RecordCount'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 105
    Width = 672
    Height = 242
    object TLabel [0]
      Left = 344
      Top = 144
      Width = 6
      Height = 12
    end
    inherited Image3: TImage
      Width = 672
      Height = 242
    end
    inherited DBGridEh: TDBGridEh
      Width = 672
      Height = 242
      ReadOnly = False
      OnKeyDown = CurrencyHint
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'BomMArK'
          PickList.Strings = ()
          Title.Caption = '标记'
          Width = 28
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'Bomid'
          PickList.Strings = ()
          Title.Caption = '父项|ID'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ite_ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|单位'
          Width = 34
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '制造'
            '采购'
            '委外加工'
            '既制造又委外')
          ReadOnly = True
          Title.Caption = '父项|制购码'
          Width = 48
          Visible = False
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4')
        end
        Item
          FieldName = 'PrepareLT'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|准备提前期'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RunLt'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|运行提前期'
          Width = 74
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcLT'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|质检提前期'
          Width = 66
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemUsable'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|是否有效'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DesignNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '父项|图号'
          Width = 35
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|物料代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomItemType'
          PickList.Strings = (
            '1 普通物料'
            '2 工作中心'
            '3 工具'
            '4 结构虚项'
            '5 副产品'
            '6 成本中心'
            '7 替代虚项'
            '8 参考')
          ReadOnly = True
          Title.Caption = '子项|物料属性'
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
        Item
          FieldName = 'UomName1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项|单位'
          Width = 37
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bomqty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|定额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomScrAp_Percent'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|损耗率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bomstatus'
          PickList.Strings = (
            '正常'
            '未生效'
            '暂定'
            '暂停使用')
          ReadOnly = True
          Title.Caption = '子项|状态'
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|部门代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|部门名称'
          Width = 101
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptB'
          PickList.Strings = ()
          Title.Caption = '子项|用料部门标识'
          Width = 138
          KeyList.Strings = ()
        end
        Item
          FieldName = 'usestyle'
          PickList.Strings = (
            '发料'
            '销售')
          ReadOnly = True
          Title.Caption = '子项|用料方式'
          KeyList.Strings = (
            '0'
            '1'
            '')
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '子项|备注'
          Width = 89
          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 Action2: TAction
      ShortCut = 32776
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    SQL.Strings = (
      'select Bom.Bomid,'
      '       Bom.ite_ItemCode,'
      '       Item.ItemName,'
      '       Uom.UomName,'
      '       Item.PmCode,'
      '       Item.PrepareLT,'
      '       Item.RunLt,'
      '       Item.QcLT,'
      '       Item.ItemUsable,'
      '       Item.DesignNo, '
      '       Bom.ItemCode, '
      '       Bom.BomItemType,'
      '       Bom.Bomqty,'
      '       Bom.BomScrAp_Percent,'
      '       Bom.Bomstatus,'
      '       Bom.DeptCode,'
      '       Dept.DeptName,'
      '       Bom.DeptCode+'#39' '#39'+Dept.DeptName as DeptB,'
      '       Bom.usestyle ,'
      '       Bom.BommArk,    '
      '       Bom.remArk       '
      'from Bom'
      'join Item on Item.ItemCode=Bom.ite_ItemCode '
      'join Uom on Uom.UomCode=Item.UomCode'
      'join Dept on Dept.DeptCode=Bom.DeptCode'
      '')
    Top = 177
    object AdoQry_MainBomid: TAutoIncField
      FieldName = 'Bomid'
      Origin = 'Bom'
      ReadOnly = True
    end
    object AdoQry_Mainite_ItemCode: TStringField
      FieldName = 'ite_ItemCode'
      Origin = 'Bom'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainPmCode: TIntegerField
      FieldName = 'PmCode'
      Origin = 'Item'
    end
    object AdoQry_MainPrepareLT: TIntegerField
      FieldName = 'PrepareLT'
      Origin = 'Item'
    end
    object AdoQry_MainRunLt: TIntegerField
      FieldName = 'RunLt'
      Origin = 'Item'
    end
    object AdoQry_MainQcLT: TIntegerField
      FieldName = 'QcLT'
      Origin = 'Item'
    end
    object AdoQry_MainItemUsable: TIntegerField
      FieldName = 'ItemUsable'
      Origin = 'Item'
    end
    object AdoQry_MainDesignNo: TStringField
      FieldName = 'DesignNo'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainBomItemType: TIntegerField
      FieldName = 'BomItemType'
      Origin = 'Bom'
    end
    object AdoQry_MainBomqty: TFloatField
      FieldName = 'Bomqty'
      Origin = 'Bom'
    end
    object AdoQry_MainBomScrAp_Percent: TFloatField
      FieldName = 'BomScrAp_Percent'
      Origin = 'Bom'
    end
    object AdoQry_MainBomstatus: TIntegerField
      FieldName = 'Bomstatus'
      Origin = 'Bom'
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'Dept'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainDeptB: TStringField
      FieldName = 'DeptB'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_Mainusestyle: TIntegerField
      FieldName = 'usestyle'
      Origin = 'Bom'
    end
    object AdoQry_MainBommArk: TIntegerField
      FieldName = 'BomMArK'
      Origin = 'Bom'
    end
    object AdoQry_MainremArk: TStringField
      FieldName = 'remArk'
      Origin = 'Bom'
      Size = 60
    end
  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