evaluation.cls

这是一个国内通用的学生管理系统!包括院系,学生基本信息,照片,成绩,课程等多方面的管理系统

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
'1 EvaId Int 奖惩记录编号
'2 EvaDate Char 10 奖惩日期
'3 Student_Id  Int 学生编号
'4 EvaType Bit 奖惩类型（0表示奖励，1表示处罚）
'5 Memo  Varchar 200 奖惩说明

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)
  DB_Connect
  
  SqlStmt = "DELETE FROM Evaluation WHERE EvaId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

'删除一个学生的所有奖惩数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Evaluation WHERE Student_Id=" + Trim(TmpStudentId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  EvaId = TmpId
  '连接数据库
  DB_Connect
  'SQL语句
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaId=" + Trim(TmpId)
  '执行SQL语句
  OdbcExt (SqlStmt)
  '使用SQLFetch()过程取得结果集
  '如果返回SQL_NO_DATA_FOUND则表示结果集为空
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    '使用SQLGetData()函数从结果集中按列读取数据
    '奖惩日期
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    EvaDate = TrimStr(ColVal)
    '学生编号
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Student_Id = Val(ColVal)
    '奖惩类型
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    EvaType = Val(ColVal)
    '具体说明
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    Memo = TrimStr(ColVal)
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '返回True，表示已成功的取得数据
  GetInfo = True
  '断开与数据库的连接
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Evaluation (EvaDate, Student_Id, EvaType," _
          + " Memo) Values('" + Trim(EvaDate) + "'," + Trim(Student_Id) _
          + "," + Trim(EvaType) + ",'" + Trim(Memo) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "Update Evaluation Set Student_Id=" + Trim(Student_Id) _
          + ",EvaDate='" + Trim(EvaDate) _
          + "', EvaType=" + Trim(EvaType) + ", Memo='" + Trim(Memo) _
          + "' WHERE EvaId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub