【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-FrmBOMDeleteLogIn.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form FrmBOMDeleteLogIn 
       Caption         =   "请选择要删除的项目"
       ClientHeight    =   2340
       ClientLeft      =   60
       ClientTop       =   510
       ClientWidth     =   8715
       Icon            =   "FrmBOMDeleteLogIn.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   2340
       ScaleWidth      =   8715
       StartUpPosition =   2  '屏幕中心
       Begin VB.Image Image4 
          Height          =   300
          Left            =   240
          Picture         =   "FrmBOMDeleteLogIn.frx":0CCA
          Top             =   1560
          Width           =   300
       End
       Begin VB.Label LblBack 
          BackStyle       =   0  'Transparent
          Caption         =   "返    回"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   960
          MouseIcon       =   "FrmBOMDeleteLogIn.frx":10E6
          MousePointer    =   99  'Custom
          TabIndex        =   2
          Top             =   1560
          Width           =   1455
       End
       Begin VB.Image Image1 
          Height          =   300
          Left            =   240
          Picture         =   "FrmBOMDeleteLogIn.frx":13F0
          Top             =   960
          Width           =   300
       End
       Begin VB.Label LbDeletelC 
          BackStyle       =   0  'Transparent
          Caption         =   "删除子项"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   960
          MouseIcon       =   "FrmBOMDeleteLogIn.frx":180C
          MousePointer    =   99  'Custom
          TabIndex        =   1
          Top             =   960
          Width           =   7695
       End
       Begin VB.Image Image5 
          Height          =   300
          Left            =   240
          Picture         =   "FrmBOMDeleteLogIn.frx":1B16
          Top             =   360
          Width           =   300
       End
       Begin VB.Label LblDeleteP 
          BackStyle       =   0  'Transparent
          Caption         =   "删除父项"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   960
          MouseIcon       =   "FrmBOMDeleteLogIn.frx":1F32
          MousePointer    =   99  'Custom
          TabIndex        =   0
          Top             =   360
          Width           =   3615
       End
    End
    Attribute VB_Name = "FrmBOMDeleteLogIn"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Public OriParentItem As String
    Public OriChildItem As String
    
    
    
    
    Private Sub LbDeletelC_Click()
    If MsgBox("是否删该子项?", vbYesNo, "确认") = vbYes Then
       MyBOM.DeleteC OriParentItem, OriChildItem
       MsgBox "删除子项成功"
    End If
    FrmBOM.Adodc2.Refresh
    Unload Me
    End Sub
    
    Private Sub LblBack_Click()
    Unload Me
    End Sub
    
    Private Sub LblDeleteP_Click()
    If MsgBox("是否删除该父项及其所属子项?", vbYesNo, "确认") = vbYes Then
       MyBOM.DeleteP OriParentItem
       MsgBox "删除父项成功"
    End If
    FrmBOM.Refresh_BOM
    Unload Me
    End Sub