course_info.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 = "course_Info"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public course_No As Long
Public course_Name As String
Public course_Type As String
Public course_Des As String

Public Sub Init()
  course_No = -1
  course_Name = ""
  course_Type = -1
  course_Des = -1
End Sub

'删除course_Info
Public Sub Delete(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM course_Info WHERE course_No=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(TmpId As Long)
  course_No = TmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM course_Info WHERE course_No=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    '读取部门名称
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    course_Name = TrimStr(ColVal)
    '读取部门描述
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    course_Type = TrimStr(ColVal)
    '读取上一级部门的编号
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    course_Des = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetName(ByVal TmpId As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT course_Name FROM course_Info WHERE course_No=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetName = TrimStr(ColVal)
  Else
    GetName = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetNewId() As Long
  Dim TmpId As Long
  
  DB_Connect
    
  SqlStmt = "SELECT course_No FROM course_Info ORDER BY course_No"
  OdbcExt (SqlStmt)
  i = 1
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    TmpId = Val(ColVal)
    If TmpId = i Then
      i = i + 1
    Else
      GetNewId = i
      Rc = SQLFreeStmt(Hstmt, SQL_DROP)
      DB_Disconnect
      Exit Function
    End If
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
  
  GetNewId = i
End Function

Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Employees WHERE course_No=" + Trim(Str(TmpDepid))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    HaveEmp = False
  Else
    HaveEmp = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function HaveSon(ByVal Tmpcourse_Des As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT course_No FROM course_Info WHERE course_Des=" _
          + Trim(Str(Tmpcourse_Des))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    HaveSon = False
  Else
    HaveSon = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal DepName As String, _
                      ByVal DepUpper As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT course_No FROM course_Info WHERE course_Name='" + Trim(DepName) _
             + "' and course_Des=" + Trim(Str(DepUpper))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Function Insert() As Long
 ' Dim course_No As Long
  '生成新的编号
  'course_No = GetNewId
  
  DB_Connect
  SqlStmt = "INSERT INTO course_Info VALUES(" + Trim(Str(course_No)) + ",'" _
            + Trim(course_Name) + "','" + Trim(course_Type) _
            + "','" + Trim(course_Des) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
  Insert = course_No
End Function

Public Sub Load_course_Info_ByUpper(course_Des As Long)
  Dim i As Integer
  '初始化部门数组
  Erase Arr_DepName
  Erase Arr_Depcourse_Type
  Erase Arr_DepId
  ReDim Arr_DepName(0)

  ReDim Arr_DepId(0)
  
  DB_Connect
  SqlStmt = "SELECT course_No,course_Name,course_Type FROM course_Info WHERE course_Des=" _
          + Trim(Str(course_Des)) + " ORDER BY course_No"
  OdbcExt (SqlStmt)
  i = 0
  Do Until SQLFetch(Hstmt) = 100
    '读取部门编号
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve Arr_DepId(i + 1)
    Arr_DepId(i) = Val(ColVal)
    '读取部门名称
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve Arr_DepName(i + 1)
    Arr_DepName(i) = TrimStr(ColVal)
    '读取部门描述
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)

    Arr_Depcourse_Type(i) = Val(ColVal)
    
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "UPDATE course_Info SET course_Name='" + Trim(course_Name) _
          + "',course_Type='" + Trim(course_Type) _
          + "' WHERE course_No=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub