sell.vb

图书管理程序设计

Public Class sell
    Private m_sm As String
    Private m_zh As String
    Private m_num As Integer
    Public Event empety(ByVal num As Integer)
    Private bookn As Integer
    Private m_seb As Integer
    Private m_jg As Integer

    Public Property sm() As String
        Get
            Return m_sm
        End Get
        Set(ByVal Value As String)
            m_sm = Value
        End Set
    End Property
    Public Property zh() As String
        Get
            Return m_zh
        End Get
        Set(ByVal Value As String)
            m_zh = Value
        End Set
    End Property
    Public Property num() As Integer
        Get
            Return m_num
            
        End Get
        Set(ByVal Value As Integer)
            If Value <= 0 Then
                MsgBox("此书已脱销！")
                'RaiseEvent empety(1)
                Value = Val(InputBox("请输入进货数量："))
            End If
            m_num = Value
        End Set
    End Property
    Public Property seb() As Integer
        Get
            Return m_seb
        End Get
        Set(ByVal Value As Integer)
            m_seb = Value
        End Set
    End Property
    Public WriteOnly Property jg() As Integer
        Set(ByVal Value As Integer)
            m_jg = Value
        End Set
    End Property
    Public Function bkl() As String
        Dim s As Double
        s = m_jg + 10
        Return s
    End Function
End Class