classes.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 = "Classes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Class_Id As Long
Public Class_Name As String
Public UpperId As String

Public Sub Init()
  Class_Id = -1
  Class_Name = ""
  UpperId = -1
End Sub
'删除数据
Public Sub DeleteByClass_Id(ByVal TmpClass_Id As Long)
  SQLstmt = "Delete FROM Classes WHERE Class_Id=" + Trim(Str(TmpClass_Id))
  SQLExt (SQLstmt)
End Sub

Public Function GetName(ByVal TmpClassId As Long) As String
  If TmpClasstId <= 0 Then
    GetName = ""
    Exit Function
  End If
  
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT Class_Name FROM Classes WHERE Class_Id=" + Trim(Str(TmpClassId))
  Set rs = QueryExt(SQLstmt)
  If rs.EOF Then
    GetName = ""
    Exit Function
  Else
    GetName = Trim(rs.Fields(0))
  End If
  rs.Close
End Function

Public Sub Insert()
  SQLstmt = "INSERT INTO Classes ( Class_Name, UpperId ) Values ('" + Trim(Class_Name) + "','" + Trim(UpperId) + "')"
  SQLExt (SQLstmt)
End Sub

Public Sub Update(ByVal TmpId As Long)
  SQLstmt = "UPDATE Classes SET Class_Name='" + Trim(Class_Name) + "',UpperId='" + Trim(UpperId) + "' WHERE Class_Id=" + Trim(Str(TmpId))
  SQLExt (SQLstmt)
End Sub

'更新班级信息
'Public Sub Update_Transfer(ByVal OriStudentId As Integer)
 ' SQLstmt = "Update Students Set Class_Id=" + Trim(Class_Id) _
  '        + " WHERE Student_id=" + Trim(OriStudentId)
  'SQLExt (SQLstmt)
'End Sub