frmcodelete.frm

这是一个利用VB编写的中小企业ERP。功能比较全

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 = 0
        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 = 2
        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