evaluation.cls

vb+sql学籍管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Evaluation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public EvaId As Long
Public EvaDate As String
Public Student_Id As Integer
Public EvaType As Integer
Public Memo As String

Public Sub Init()
  EvaId = 0
  EvaDate = ""
  Student_Id = 0
  EvaType = 0
  Memo = ""
End Sub

'删除单个数据
Public Sub DeleteById(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM Evaluation WHERE EvaId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

'删除一个学生的所有奖惩数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  SqlStmt = "DELETE FROM Evaluation WHERE Student_Id=" + Trim(TmpStudentId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  EvaId = TmpId
  Dim rs As New ADODB.Recordset
  '设置SELECT语句, 按编号读取记录数据
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaId=" + Trim(TmpId)
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    '奖惩日期
    If IsNull(rs.Fields(1)) Then
      EvaDate = ""
    Else
      EvaDate = Trim(rs.Fields(1))
    End If
    '学生编号
    Student_Id = rs.Fields(2)
    '奖惩类型
    EvaType = rs.Fields(3)
    '具体说明
    If IsNull(rs.Fields(4)) Then
      Memo = ""
    Else
      Memo = Trim(rs.Fields(4))
    End If
  End If
  '返回True，表示已成功的取得数据
  GetInfo = True
  rs.Close
End Function
Public Function GetNewId() As Long
  Dim TmpId As Long
  Dim rs As New ADODB.Recordset
  '设置要执行的SQL语句,取当前最大的记录编号
  SqlStmt = "SELECT MAX(EvaId) FROM Evaluation"
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  '读取SELECT语句返回的查询结果
  If IsNull(rs.Fields(0)) Then
    GetNewId = 1
  Else
    GetNewId = rs.Fields(0) + 1
  End If
  
  rs.Close
End Function

Public Function Insert() As Long
Dim Eva_Id As Long
  '生成新的编号
  Eva_Id = GetNewId
  SqlStmt = "INSERT INTO Evaluation (EvaId,EvaDate, Student_Id, EvaType," _
          + " Memo) Values('" + Trim(Eva_Id) + "','" + Trim(EvaDate) + "','" + Trim(Student_Id) _
          + "','" + Trim(EvaType) + "','" + Trim(Memo) + "')"
  SQLExt (SqlStmt)
End Function

Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "Update Evaluation Set Student_Id=" + Trim(Student_Id) _
          + ",EvaDate='" + Trim(EvaDate) _
          + "', EvaType=" + Trim(EvaType) + ", Memo='" + Trim(Memo) _
          + "' WHERE EvaId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub