students.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 = "Students"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Student_Id As Long
Public Student_Name As String
Public Sex As String
Public Nationality As String
Public Birth As String
Public Family_Place As String
Public Id_Card As String
Public BadgeID As String
Public Home_phone As String
Public Residence As String
Public Postcode As String
Public InDate As String
Public Class_Id As Integer
Public Title As String
Public Fillin_Time As String

Public Sub Init()
  Student_Id = 0
  Student_Name = ""
  Sex = ""
  Nationality = ""
  Birth = ""
  Family_Place = ""
  Id_Card = ""
  BadgeID = ""
  Home_phone = ""
  Residence = ""
  Postcode = ""
  InDate = ""
  Class_Id = 0
  Title = ""
  Fillin_Time = ""
End Sub

'删除数据
Public Sub DeleteByStudent_Id(ByVal TmpStudent_Id As Long)
  SQLstmt = "Delete FROM Students WHERE Student_Id=" + Trim(Str(TmpStudent_Id))
  SQLExt (SQLstmt)
End Sub

Public Function GetName(ByVal TmpStudentId As Long) As String
  If TmpStudentId <= 0 Then
    GetName = ""
    Exit Function
  End If
  
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT Student_Name FROM Students WHERE Student_Id=" + Trim(Str(TmpStudentId))
  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 Students (Student_Name, Sex, Nationality, Birth, Family_Place, " _
     + " Id_Card, BadgeId, Home_Phone, Residence, Postcode, InDate, Class_Id, Title,  Fillin_Time)" _
     + " Values ('" + Trim(Student_Name) + "','" + Trim(Sex) + "','" + Trim(Nationality) _
     + "','" + Trim(Birth) + "','" + Trim(Family_Place) + "','" + Trim(Id_Card) + "','" _
     + Trim(BadgeID) + "','" + Trim(Home_phone) + "','" + Trim(Residence) + "','" _
     + Trim(Postcode) + "','" + Trim(InDate) + "'," + Trim(Class_Id) + ",'" + Trim(Title) _
     + "','" + Trim(Fillin_Time) + "')"
  SQLExt (SQLstmt)
End Sub


Public Sub Update(ByVal OriStudent_Id As Integer)
  SQLstmt = "Update Students Set Student_Name='" + Trim(Student_Name) _
          + "',Sex='" + Trim(Sex) + "',Nationality='" + Trim(Nationality) _
          + "',Birth='" + Trim(Birth) + "', Family_Place='" + Trim(Family_Place) _
          + "',Id_Card='" + Trim(Id_Card) _
          + "',BadgeID='" + Trim(BadgeID) + "',Home_phone='" + Trim(Home_phone) _
          + "',Residence='" + Trim(Residence) + "',Postcode='" + Trim(Postcode) _
          + "',InDate='" + Trim(InDate) + "',Class_Id=" + Trim(Str(Class_Id)) _
          + ",Title='" + Trim(Title) + "',Fillin_Time='" _
          + Trim(Fillin_Time) + "' WHERE Student_Id=" + Trim(Str(OriStudent_Id))
  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