【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了FrmCODelete.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form FrmCODelete 
       Caption         =   "请选择要删除的项目"
       ClientHeight    =   2295
       ClientLeft      =   60
       ClientTop       =   510
       ClientWidth     =   8025
       Icon            =   "FrmCODelete.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   2295
       ScaleWidth      =   8025
       StartUpPosition =   2  'CenterScreen
       Begin VB.Label LblDeleteCO 
          BackStyle       =   0  'Transparent
          Caption         =   "删除CO单"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   1080
          MouseIcon       =   "FrmCODelete.frx":0CCA
          MousePointer    =   99  'Custom
          TabIndex        =   2
          Top             =   360
          Width           =   3615
       End
       Begin VB.Image Image5 
          Height          =   300
          Left            =   360
          Picture         =   "FrmCODelete.frx":0FD4
          Top             =   360
          Width           =   300
       End
       Begin VB.Label LbDeleteCOItem 
          BackStyle       =   0  'Transparent
          Caption         =   "删除CO单中的项目"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   1080
          MouseIcon       =   "FrmCODelete.frx":13F0
          MousePointer    =   99  'Custom
          TabIndex        =   1
          Top             =   960
          Width           =   7695
       End
       Begin VB.Image Image1 
          Height          =   300
          Left            =   360
          Picture         =   "FrmCODelete.frx":16FA
          Top             =   960
          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            =   1080
          MouseIcon       =   "FrmCODelete.frx":1B16
          MousePointer    =   99  'Custom
          TabIndex        =   0
          Top             =   1560
          Width           =   1455
       End
       Begin VB.Image Image4 
          Height          =   300
          Left            =   360
          Picture         =   "FrmCODelete.frx":1E20
          Top             =   1560
          Width           =   300
       End
    End
    Attribute VB_Name = "FrmCODelete"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Public OriCOID As String
    Public OriCOItemID As String
    
    Private Sub LbDeleteCOItem_Click()
    Dim TempCOItemID As String
    '保存待删除记录的ID
      TempCOItemID = OriCOItemID
    '弹出删除确认对话框
      If MsgBox("是否删除“" + OriCOItemID + "”?", vbYesNo, "确认") = vbYes Then
        MyCO.DeleteCOItem (TempCOItemID)
        MsgBox "删除成功"
      End If
    Unload Me
    End Sub
    
    Private Sub LblBack_Click()
    Unload Me
    End Sub
    
    Private Sub LblDeleteCO_Click()
    Dim TempCOID As String
    '保存待删除记录的ID
      TempCOID = OriCOID
    '弹出删除确认对话框
      If MsgBox("是否删除“" + OriCOID + "”?", vbYesNo, "确认") = vbYes Then
        MyCO.DeleteCO (TempCOID)
        MsgBox "删除成功"
      End If
    Unload Me
    End Sub
    

上一篇：ClientMain.pas
下一篇：4种小菜缓解孕妈咪不适