experience.cls

vb+sql学籍管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Experience"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public ExpId As Integer
Public Student_Id As Long
Public Start_Date, End_Date As String
Public School As String
Public Title As String

Public Sub Init()
  ExpId = 0
  Student_Id = 0
  Start_Date = ""
  End_Date = ""
  School = ""
  Title = ""
End Sub

'删除单个数据
Public Sub DeleteById(ByVal TmpId As Integer)
  'DELETE语句, 按记录编号删除数据
  SqlStmt = "DELETE FROM Experience WHERE ExpId=" + Trim(Str(TmpId))
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

'删除一个学生的所有教育经历数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  'SQL语句
  SqlStmt = "DELETE FROM Experience WHERE Student_Id=" + Trim(Str(TmpStudentId))
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  ExpId = TmpId
  ' 设置SELECT语句, 按记录编号读取记录信息
  SqlStmt = "SELECT * FROM Experience WHERE ExpId=" + Trim(Str(TmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    ' 开始日期
    If IsNull(rs.Fields(2)) Then
      Start_Date = ""
    Else
      Start_Date = Trim(rs.Fields(2))
    End If
    ' 结束日期
    If IsNull(rs.Fields(3)) Then
      End_Date = ""
    Else
      End_Date = Trim(rs.Fields(3))
    End If
    ' 所在学校
    If IsNull(rs.Fields(4)) Then
      School = ""
    Else
      School = Trim(rs.Fields(4))
    End If
    ' 职务
    If IsNull(rs.Fields(5)) Then
      Title = ""
    Else
      Title = Trim(rs.Fields(5))
    End If
  End If
  GetInfo = True
  rs.Close
End Function
Public Function GetNewExpId() As Long
  Dim TmpId As Long
  Dim rs As New ADODB.Recordset
  '设置要执行的SQL语句,取当前最大的记录编号
  SqlStmt = "SELECT MAX(ExpId) FROM EXperience"
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  '读取SELECT语句返回的查询结果
  If IsNull(rs.Fields(0)) Then
    GetNewExpId = 1
  Else
    GetNewExpId = rs.Fields(0) + 1
  End If
  
  rs.Close
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Experience (ExpId,Student_Id, Start_Date, End_Date," _
     + " School, Title) Values('" + Trim(Str(GetNewExpId)) + "','" + Trim(Str(Student_Id)) _
     + "','" + Trim(Start_Date) + "','" + Trim(End_Date) + "','" _
     + Trim(School) + "','" + Trim(Title) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Long)
  SqlStmt = "Update Experience Set Start_Date='" + Trim(Start_Date) _
          + "',End_Date='" + Trim(End_Date) + "',School='" _
          + Trim(School) + "',Title='" + Trim(Title) _
          + "' WHERE ExpId=" + Trim(Str(OriId))
          
  SQLExt (SqlStmt)
End Sub