ks.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)
'Dim conn As New ADODB.Connection
Dim strCnn As String

strCnn = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=KSD;Data Source=user76"

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
'conn.ConnectionString = "dsn = KSD;uid =;pwd=;"
conn.Open strCnn
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)
'删除指定表中所有记录，对于oper表添加一个系统用户
Dim sql As String
sql = "delete" & trims(tn)
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn = ks;uid=sa;pwd=;"
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(keyas As Integer)
'用于文本框等编辑数据时将回车键转换成TAB键，方便用户输入数据
If keyasc = 13 Then
  SendKeys "{TAB}"  '将回车键转换成了TAB键
End If
End Sub