experience.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 = "Experience"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ExpId Int 编号
'2 Student_Id  Int 学生编号
'3 Start_Date  Char 10 开始日期
'4 End_Date  Char 10 终止日期
'5 School  Varchar 50  学校/单位名称
'6 Title Varchar 20  职务

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)
  '连接数据库
  DB_Connect
  'SQL语句
  SqlStmt = "DELETE FROM Experience WHERE ExpId=" + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

'删除一个学生的所有教育经历数据
Public Sub DeleteByStudent(ByVal TmpStudentId As Long)
  '连接数据库
  DB_Connect
  'SQL语句
  SqlStmt = "DELETE FROM Experience WHERE Student_Id=" + Trim(Str(TmpStudentId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  ExpId = TmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Experience WHERE ExpId=" + 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, 3, 1, ColVal, Lench(ColVal), pcblench)
    Start_Date = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    End_Date = TrimStr(ColVal)

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

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Experience (Student_Id, Start_Date, End_Date," _
     + " School, Title) Values(" + Trim(Str(Student_Id)) _
     + ",'" + Trim(Start_Date) + "','" + Trim(End_Date) + "','" _
     + Trim(School) + "','" + Trim(Title) + "')"
  OdbcExt (SqlStmt)
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As Long)
  DB_Connect
  
  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))
          
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub