module1.bas

考务管理是学校考务管理的重要部分

Attribute VB_Name = "Module1"
Public userlevel As String      '保存用户类别
Public flag As Integer          '记录操作标记
Public num As Integer           '保存报名号
Public condstr As String        '条件字符串
Public recs As Integer          '保存记录集中记录个数
Public sel As Boolean

Public Function exesql(ByVal sql As String) As ADODB.Recordset
'用于执行用户给定的SELECT语句，返回对应的记录集
    sql = Trim$(sql)
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.ConnectionString = "DSN=KS;UID=yilin;PWD=b606;"
    'conn.ConnectionString = "Driver={SQL Server};SERVER=local;DATABASE=KSD;UID=yilin;PWD=b606"
    conn.Open
    Set rst.ActiveConnection = conn
    rst.LockType = adLockOptimistic
    rst.CursorType = adOpenKeyset
    rst.Open sql
    Set exesql = rst
    Set rst = Nothing
    Set conn = Nothing
End Function

Public Sub deldata(ByVal tn As String)
    Dim sql As String
    sql = "delete " & Trim$(tn)
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DSN=KS;UID=yilin;PWD=b606;"
    conn.Open
    conn.Execute sql
    If Trim(tn) = "oper" Then
        sql = "insert oper values('1234','1234','系统管理员')"
        '添加一个默认的用户
        conn.Execute sql
    End If
    conn.Close
End Sub

Public Sub endata(keyasc As Integer)
'用于文本框等编辑数据时将回车键转换成Tab键，方便用户输入数据
    If keyasc = 13 Then
        SendKeys "{TAB}" '将回车键转换成Tab键
    End If
End Sub