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
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)
  SqlStmt = "DELETE FROM Change WHERE ChangeId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

'删除指定学生的所有数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  SqlStmt = "DELETE FROM Change WHERE Student_Id=" + Trim(Str(TmpStudentId))
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  If TmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  Dim rs As New ADODB.Recordset
  ChangeId = TmpId

  SqlStmt = "SELECT * FROM Change WHERE ChangeId=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    Student_Id = rs.Fields(1)
    
    ChangeType = rs.Fields(2)
    
    ChangeDate = Trim(rs.Fields(3))

    OriClass = rs.Fields(4)

    NewSchool = Trim(rs.Fields(5))
    
    NewClass = rs.Fields(6)
    
    If IsNull(rs.Fields(7)) Then
      Reason = ""
    Else
      Reason = Trim(rs.Fields(7))
    End If
    
    If IsNull(rs.Fields(8)) Then
      Memo = ""
    Else
      Memo = Trim(rs.Fields(8))
    End If
  End If
  GetInfo = True
  rs.Close
End Function

Public Sub Insert()
  '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语句
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpId As Long)
  '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语句
  SQLExt (SqlStmt)
End Sub