lesson.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 = "Lesson"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public LessonId As String
Public LessonName As String

Public Sub Init()
  LessonId = 0
  LessonName = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM Lessons WHERE LessonId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

Public Function GetName(ByVal TmpId As Long) As String
  If TmpId <= 0 Then
    GetName = ""
    Exit Function
  End If
  
  LessonId = TmpId
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Lessons WHERE LessonId=" + Trim(Str(TmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetName = ""
  Else
    If IsNull(rs.Fields(1)) Then
      GetName = ""
    Else
      GetName = Trim(rs.Fields(1))
    End If
  End If
End Function

Public Function In_DB(ByVal TmpName As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Lessons WHERE LessonName='" + Trim(TmpName) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    In_DB = False
  Else
    In_DB = True
  End If

  rs.Close
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Lessons (LessonName) Values('" + Trim(LessonName) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Long)
  SqlStmt = "Update Lessons Set LessonName='" + Trim(LessonName) _
          + "' WHERE LessonId=" + Trim(Str(OriId))
  SQLExt (SqlStmt)
End Sub