titles.cls

这是我们公司的题库管理系统,用VB实现,可以进行试题制作,编辑、试卷制作、试卷生成和试卷打印(A3/和A4)

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Titles"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'ClassId Int 所属课程编号
'TitleName 20 题型名
Public ClassId As Long
Public TitleName As String

Public Sub Init()
  ClassId = -1
  TitleName = ""
End Sub

Public Sub GetInfo(TmpName As String)
  ClassName = TmpName
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Titles WHERE TitleName='" + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    '读取题型号
    ColVal = String(400, 0)
    rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ClassId = Val(ColVal)
    '读取题型名称
    ColVal = String(400, 0)
    rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    TitleName = TrimStr(ColVal)
  Else
    Init
  End If
  rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

'查看某科是不是有题型
Public Function See_Name(ByVal TmpClassId As Integer) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT ClassId FROM Titles WHERE ClassId=" + Trim(TmpClassId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    See_Name = False
  Else
    See_Name = True
  End If
  rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function
Public Function In_DB(ByVal TmpClassId As Integer, _
         ByVal TmpName As String) As Boolean
  DB_Connect
  
SqlStmt = "SELECT * FROM Titles WHERE ClassId=" + Trim(TmpClassId) _
          + " And TitleName='" + Trim(TmpName) + "'"
  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
  DB_Connect
  SqlStmt = "INSERT INTO Titles VALUES(" + Trim(Str(ClassId)) + ",'" _
            + Trim(TitleName) + "')"
  OdbcExt (SqlStmt)
  rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Function

'得到所有题型名的全部信息
Public Sub Get_ArrTitleName(ByVal ClassId As Long)
  Dim i As Integer
  '初始化题型名数组
  Erase Arr_TitleName
  ReDim Arr_TitleName(0)
  
  DB_Connect
  SqlStmt = "SELECT TitleName FROM Titles WHERE ClassId=" + Trim(Str(ClassId))
  OdbcExt (SqlStmt)
  i = 0
  Do Until SQLFetch(Hstmt) = 100
    '读取题型名
    ColVal = String(400, 0)
    rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve Arr_TitleName(i + 1)
    Arr_TitleName(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  FrmTitleMan.Num = i - 1
  rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'删除
Public Sub Delete(ByVal TmpName As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Titles WHERE TitleName='" + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpName As String)
  DB_Connect
  
  SqlStmt = "UPDATE Titles SET TitleName='" + Trim(TmpName) + "' WHERE TitleName='" + Trim(CurTitle.TitleName) + "'"
  OdbcExt (SqlStmt)
  rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub