student.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic

Public Class Student : Inherits User
#Region "属性"
    Dim ClassNoValue As String
    Public Property StudentNo()
        Get
            Return UserID
        End Get
        Set(ByVal value)
            UserID = value
        End Set
    End Property
    Public Property ClassNo()
        Get
            Return ClassNoValue
        End Get
        Set(ByVal value)
            ClassNoValue = value
        End Set
    End Property
#End Region

#Region "方法"
    Public Sub New()
        MyBase.New()
    End Sub
   
    '注册
    Public Function Regist(ByVal UserID As String, ByVal Password As String, ByVal UserName As String, ByVal ClassNo As String, ByVal Email As String, ByVal Telephone As String) As Boolean
        StudentNo = UserID
        cn.Open()

        cmd.Connection = cn
        cmdText = "insert into student values('" + StudentNo + "','" + ClassNo + "')"
        cmd.CommandText = cmdText

        If cmd.ExecuteNonQuery() = 1 Then
            cmdText = "insert into user values('" + UserID + "','" + UserName + "','" + Password + "','" + Email + "','student','" + Telephone + "')"
            cmd.CommandText = cmdText
            If cmd.ExecuteNonQuery() = 1 Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If

        cn.Close()
    End Function
    Dim db As New DBObject
    '添加学生
    Public Function AddStudent() As Integer
        db.cmdText = "insert into student (StudentNo,ClassNo)" _
        + "values('" + StudentNo + "','" + ClassNo + "')"
        db.SQL()

        UserID = StudentNo
        AddStudent = AddUser()
    End Function
    '删除学生
    Public Sub DeleteStudent()
        db.cmdText = "delete from student where StudnetNo='" + StudentNo + "'"
        db.SQL()

        UserID = StudentNo
        DeleteUser()
    End Sub
#End Region

End Class