change.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 = "Change"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ChangeId  Int 学籍变动编号
'2 Student_id  Int 学生编号
'3 ChangeType  Tinyint 学籍变动类型（1表示退学，2表示休学，3表示转学，4表示调班）
'4 ChangeDate  Char 10 学籍变动日期
'5 OriClass  Int 原班级编号
'6 NewSchool Varchar 50  转入学校名称
'7 NewClass  Int 转入的班级编号
'8 Reason  Varchar 200 学籍变动原因
'9 Memo  Varchar 200 备注

Public ChangeId As Long
Public Student_Id As Long
Public ChangeType As Integer
Public ChangeDate As String
Public OriClass As Long
Public NewSchool As String
Public NewClass As Long
Public Reason As String
Public Memo As String

Public Sub Init()
  ChangeId = 0
  Student_Id = 0
  ChangeType = 0
  ChangeDate = ""
  OriClass = 0
  NewSchool = 0
  NewClass = 0
  Reason = 0
  Memo = 0
End Sub

'删除单个数据
Public Sub DeleteById(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Change WHERE ChangeId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

'删除指定学生的所有数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Change WHERE Student_Id=" + Trim(Str(TmpStudentId))
  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
  
  ChangeId = TmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Change WHERE ChangeId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    Student_Id = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    ChangeType = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    ChangeDate = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    OriClass = Val(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    NewSchool = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Lench(ColVal), pcblench)
    NewClass = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Lench(ColVal), pcblench)
    Reason = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Lench(ColVal), pcblench)
    Memo = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Sub Insert()
  '连接数据库
  DB_Connect
  'INSERT语句
  SqlStmt = "INSERT INTO Change (Student_Id, ChangeType, ChangeDate, OriClass," _
     + " NewSchool, NewClass, Reason, Memo) Values(" + Trim(Student_Id) _
     + "," + Trim(ChangeType) + ",'" + Trim(ChangeDate) + "'," + Trim(OriClass) _
     + ",'" + Trim(NewSchool) + "'," + Trim(Str(NewClass)) + ",'" + Trim(Reason) _
     + "','" + Trim(Memo) + "')"
  '执行INSERT语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpId As Long)
  '连接数据库
  DB_Connect
  'UPDATE语句
  SqlStmt = "Update Change Set Student_Id=" + Trim(Student_Id) + ", ChangeType=" _
          + Trim(ChangeType) + ", ChangeDate='" + Trim(ChangeDate) + "', NewSchool='" _
          + Trim(NewSchool) + "',NewClass=" + Trim(NewClass) + ",Reason='" + Trim(Reason) _
          + "',Memo='" + Trim(Memo) + "' WHERE ChangeId=" + Trim(TmpId)
  '执行UPDATE语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub