teachers.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 = "Teachers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'教师信息
Public Teacher_Id As Long
Public Teacher_Name As String
Public sex As String
Public Birth As String
Public Workage As Integer
Public Id_Card As String
Public Nationality As String
Public Teacher_Dip As String
Public Phone As String
Public Family_Place As String
Public Title As String
Public PostCode As String
Public Memo As String

'教师获得奖励字段信息
Public AwardId As Long
Public AwardName As String
Public AwardTime As String
Public AwardArea As String
Public teacherid As String
Public AwardMemo As String

'教师论文信息
Public PaperId As Long
Public PaperName As String
Public PaperTime As String
Public PaperMemo As String
Public Teacher_Idendity As String




Public Sub Init()

  Teacher_Id = 0
  Teacher_Name = ""
  sex = ""
  Birth = ""
  Workage = 0
  Id_Card = ""
  Nationality = ""
  Teacher_Dip = ""
  Phone = ""
  Family_Place = ""
  Title = ""
  PostCode = ""
  Memo = ""
  
End Sub

'删除数据
Public Sub Delete(ByVal TmpTeacherId As Long)
  SqlStmt = "Delete FROM teacherInfo WHERE teacher_id=" + Trim(Str(TmpTeacherId))
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpTeacherId As Long) As Boolean
  If TmpTeacherId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
 Teacher_Id = TmpTeacherId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM teacherInfo WHERE Teacher_Id=" + Trim(Str(TmpTeacherId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    ' 教师姓名
    Teacher_Name = Trim(rs.Fields(1))
    ' 性别
      sex = Trim(rs.Fields(2))
    ' 年龄
    Teacher_Age = Trim(rs.Fields(3))
    '　身份证
     Id_Card = Trim(rs.Fields(4))
    ' 教龄
  Workage = Trim(rs.Fields(5))
    ' 学历
    Teacher_Dip = Trim(rs.Fields(6))
    '电话号码
    If IsNull(rs.Fields(7)) Then
      Phone = ""
    Else
     Phone = Trim(rs.Fields(7))
    End If
   '家庭住址
    If IsNull(rs.Fields(8)) Then
      Family_Place = ""
    Else
     Family_Place = Trim(rs.Fields(8))
    End If
    ' 出生日期
    Birth = Trim(rs.Fields(9))
    '职务
    If IsNull(rs.Fields(10)) Then
      Work = ""
    Else
      Work = Trim(rs.Fields(10))
    End If
    ' 籍贯
    Nationality = Trim(rs.Fields(11))
    '邮政编码
    If IsNull(rs.Fields(12)) Then
    PostCode = ""
    Else
    PostCode = Trim(rs.Fields(12))
    End If
    
    '备注
    If IsNull(rs.Fields(13)) Then
      Memo = ""
    Else
      Memo = Trim(rs.Fields(13))
    End If
  
  End If
  
  GetInfo = True
  rs.Close
End Function

'判断是否已经存在同一时间同一老师的奖励信息
Public Function AwardExist() As Boolean
Dim rs As New ADODB.Recordset
SqlStmt = "select * from Award where teacher_Idendity='" + Trim(teacherid) + "' and AwardName='" + Trim(AwardName) + "' and " + _
          "AwardTime='" + Trim(AwardTime) + "'"
 Set rs = QueryExt(SqlStmt)
If rs.EOF Then
AwardExist = True
Else
AwardExist = False
End If
End Function
'添加教师信息
Public Sub Insert()
  SqlStmt = "INSERT INTO teacherInfo (teacher_name,teacher_sex,teacher_birth,teacher_workage,teacher_Idendity" _
            + ",teacher_nation,teacher_dip,teacher_tel,teacher_adress,teacher_title,PostCode,teacher_memo" _
            + ") Values ('" + Trim(Teacher_Name) + "','" + Trim(sex) + "','" + Trim(Birth) _
            + "'," & Trim(Workage) & ",'" + Trim(Id_Card) + "','" + Trim(Nationality) + "','" + Trim(Teacher_Dip) + "','" _
            + Trim(Phone) + "','" + Trim(Family_Place) + "','" + Trim(Title) + "','" + Trim(PostCode) + "','" + Trim(Memo) + "')"
 
  SQLExt (SqlStmt)
End Sub


'更新教师信息
Public Sub Update(ByVal OriTeacherId As Integer)
  SqlStmt = "Update teacherInfo Set teacher_name='" + Trim(Teacher_Name) _
          + "',teacher_sex='" + Trim(sex) _
          + "',teacher_idendity='" + Trim(Id_Card) + "', teacher_workage=" + Trim(Workage) _
          + ",teacher_dip='" + Trim(Teacher_Dip) _
          + "',teacher_tel='" + Trim(Phone) + "',teacher_adress='" + Trim(Family_Place) _
          + "',teacher_birth='" + Trim(Birth) + "',teacher_title='" + Trim(Title) _
          + "',teacher_nation='" + Trim(Nationality) + "',PostCode='" + Trim(PostCode) _
          + "',teacher_memo='" + Trim(Memo) + "' WHERE teacher_id=" + Trim(Str(OriTeacherId))
  SQLExt (SqlStmt)
  
End Sub

Public Sub InsertAward()
'添加奖励信息
SqlStmt = "insert into Award (AwardName,AwardTime,AwardPlace,teacher_Idendity,AwardMemo) values ('" + _
           Trim(AwardName) + "','" + Trim(AwardTime) + "','" + Trim(AwardArea) + "'," + Trim(teacherid) + _
           ",'" + Trim(AwardMemo) + "')"
SQLExt (SqlStmt)
End Sub

Public Sub UpdateAward(ByVal OriAwardId As Long)
'更新奖励信息
SqlStmt = "Update Award set AwardName='" + Trim(AwardName) + "',AwardTime='" + Trim(AwardTime) + "',AwardPlace='" + Trim(AwardArea) + "'," + _
          "teacher_Idendity='" + Trim(teacherid) + "',AwardMemo='" + Trim(AwardMemo) + "' where AwardId=" + Trim(Str(OriAwardId))
SQLExt (SqlStmt)

End Sub

'添加新的奖励信息时判断是否有该编号的教师
Public Function Award_In_DB(ByVal tmpid As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM teacherInfo WHERE teacher_id=" + Trim(tmpid)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    Award_In_DB = False
  Else
    Award_In_DB = True
  End If

  rs.Close
End Function

'添加新教师信息时判断身份证号是否已经存在!!!!!!!!!

Public Function Teacher_In_DB(ByVal tmpid As String) As Boolean

Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM teacherInfo WHERE teacher_Idendity='" + Trim(tmpid) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    Teacher_In_DB = False
  Else
    Teacher_In_DB = True
  End If


End Function


'删除教师获奖数据
Public Sub DeleteAward(ByVal TmpTeacherId As Long)
  SqlStmt = "Delete FROM Award WHERE AwardId=" + Trim(Str(TmpTeacherId))
  SQLExt (SqlStmt)
End Sub

'给教师评估
Public Sub UpdateScore(ByVal tempnum As Integer, ByVal TmpTeacherId As String, ByVal TmpLessonId As Long)
SqlStmt = "update Arrangement set Vote=Vote+" + Str(tempnum) + " where Teacher_Idendity='" + Trim(TmpTeacherId) + "'" _
           + " and LessonId=" + Trim(Str(TmpLessonId))

SQLExt (SqlStmt)
End Sub

'判断是否已经存在该教师发表的该论文信息
Public Function PaperExist() As Boolean

Dim rs As New ADODB.Recordset
SqlStmt = "select * from Paper where teacher_Idendity='" + Trim(Teacher_Idendity) + "' and PaperName='" + Trim(PaperName) + "'"
 Set rs = QueryExt(SqlStmt)
If rs.EOF Then
PaperExist = True
Else
PaperExist = False
End If

End Function

Public Sub InsertPaper()
'添加论文信息'
 SqlStmt = "insert into Paper(PaperName,PaperTime,PaperMemo,teacher_Idendity) values ('" + Trim(PaperName) + _
           "','" + Trim(PaperTime) + "','" + Trim(PaperMemo) + "','" + Trim(Teacher_Idendity) + "')"
SQLExt (SqlStmt)
End Sub

Public Sub UpdatePaper(ByVal OriPaperId As Long)
'更新论文信息
SqlStmt = "UPDATE Paper SET PaperName='" + Trim(PaperName) + "',PaperTime='" + Trim(PaperTime) + "',PaperMemo='" + Trim(Memo) + _
          "',teacher_Idendity='" + Trim(Teacher_Idendity) + "' WHERE PaperId=" + Trim(Str(OriPaperId))
SQLExt (SqlStmt)
End Sub

Public Sub DeletePaper(ByVal TmpPaperId As Long)
'删除论文信息
  SqlStmt = "Delete FROM Paper WHERE PaperId=" + Trim(Str(TmpPaperId))
  SQLExt (SqlStmt)
End Sub