lessons.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 = "Lessons"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 LessonId  Int 课程编号
'2 LessonName  Varchar 100 课程名称
'3 Term  Varchar 20  课程设置的学期
'4 Teacher Varchar 20  授课老师
'5 Hours Tinyint 课时
'6 LessonType  Varchar 20  课程类型（必修课，选修课）

Public LessonId As String
Public LessonName As String
Public Term As String
Public Teacher As String
Public Hours As Integer
Public LessonType As String

Public Sub Init()
  LessonId = 0
  LessonName = ""
  Term = ""
  Teacher = ""
  Hours = 0
  LessonType = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Lessons WHERE LessonId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  If TmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  LessonId = TmpId
  
  DB_Connect
  SqlStmt = "SELECT * FROM Lessons WHERE LessonId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    LessonName = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Term = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    Teacher = TrimStr(ColVal)

    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    Hours = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    LessonType = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  GetInfo = True
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Lessons (LessonName, Term, Teacher, Hours," _
     + " LessonType) Values('" + Trim(LessonName) + "','" + Trim(Term) _
     + "','" + Trim(Teacher) + "'," + Trim(Str(Hours)) + ",'" _
     + Trim(LessonType) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As Long)
  DB_Connect
  
  SqlStmt = "Update Lessons Set LessonName='" + Trim(LessonName) + "', Term='" _
          + Trim(Term) + "',Teacher='" + Trim(Teacher) + "',Hours=" _
          + Trim(Str(Hours)) + ", LessonType='" + Trim(LessonType) _
          + "' WHERE LessonId=" + Trim(Str(OriId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub