administrator.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 45 行

Imports Microsoft.VisualBasic

Public Class Administrator : Inherits User
#Region "属性"
    Public Property AdministratorNo()
        Get
            Return UserID
        End Get
        Set(ByVal value)
            UserID = value
        End Set
    End Property
#End Region
#Region "方法"
    '构造函数
    Public Sub New()
        MyBase.New()
    End Sub
    '重载构造函数
    Public Sub New(ByVal UserID As String)
        MyBase.New(UserID)
        AdministratorNo = UserID
    End Sub

    Dim db As New DBObject
    '添加学生
    Public Function AddAdministrator() As Integer
        db.cmdText = "insert into administrator(AdministratorNo)" _
        + "values('" + AdministratorNo + "')"
        db.SQL()

        UserID = AdministratorNo
        AddAdministrator = AddUser()
    End Function
    '删除学生
    Public Sub DeleteStudent()
        db.cmdText = "delete from administrator where AdministratorNo='" + AdministratorNo + "'"
        db.SQL()

        UserID = AdministratorNo
        DeleteUser()
    End Sub
#End Region
End Class