studentinfo.vb

来自「系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP P」· VB 代码 · 共 140 行

'
'    Copyright(C)2006,济南大学材料科学与工程学院
'    All right reserved.
'
'    文件名称:StudentInfo.vb
'    文件标识:
'    摘    要:学生信息类
'
'    当前版本:1.0.0
'    作    者:梁  海
'    完成日期:2006-11-29
'
'    取代版本:
'    原作者  :
'    完成日期:
'
'    修改历史:
'
Imports System.Data.SqlClient

Public Class StudentInfo

    Private _ID As String           '学号
    Private _Name As String         '姓名
    Private _Sex As String          '性别
    Private _Team As String         '班级
    Private _Mayor As String        '专业
    Private _Department As String   '学院
    Private _CardID As String       '身份证号

    '  
    '    构造方法
    '  
    Public Sub New()

        Me._ID = ""
        Me._Name = ""
        Me._Sex = ""
        Me._Team = ""
        Me._Mayor = ""
        Me._Department = ""
        Me._CardID = ""

    End Sub

    '
    '    属性名称:SID() As String
    '    摘    要:获取/设置学生的学号
    ' 
    Public Property SID() As String
        Get
            Return _ID
        End Get
        Set(ByVal Value As String)
            _ID = Value
        End Set
    End Property

    '
    '    属性名称:ID() As String
    '    摘    要:获取/设置学生的名字
    ' 
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal Value As String)
            _Name = Value
        End Set
    End Property

    '
    '    属性名称:ID() As String
    '    摘    要:获取/设置学生的性别
    ' 
    Public Property Sex() As String
        Get
            Return _Sex
        End Get
        Set(ByVal Value As String)
            _Sex = Value
        End Set
    End Property

    '
    '    属性名称:ID() As String
    '    摘    要:获取/设置学生的班级
    ' 
    Public Property Team() As String
        Get
            Return _Team
        End Get
        Set(ByVal Value As String)
            _Team = Value
        End Set
    End Property

    '
    '    属性名称:ID() As String
    '    摘    要:获取/设置学生的专业
    ' 
    Public Property Mayor() As String
        Get
            Return _Mayor
        End Get
        Set(ByVal Value As String)
            _Mayor = Value
        End Set
    End Property

    '
    '    属性名称:Department() As String
    '    摘    要:获取/设置学生的学院
    ' 
    Public Property Department() As String
        Get
            Return _Department
        End Get
        Set(ByVal Value As String)
            _Department = Value
        End Set
    End Property

    '
    '    属性名称:CardID() As String
    '    摘    要:获取/设置学生的身份证号
    ' 
    Public Property CardID() As String
        Get
            Return _CardID
        End Get
        Set(ByVal Value As String)
            _CardID = Value
        End Set
    End Property

End Class