教师信息管理系统课程设计(14)

教师信息管理系统课程设计

回执行结果

sql = Trim$(sql)

Set conn = New ADODB.Connection '定义一个Connection对象 Set rst = New ADODB.Recordset '定义一个Recordset对象

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\teacher.mdb;Persist Security Info=False" '连接数据库的语句 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 * from " & Trim$(tn)

Set conn = New ADODB.Connection '同上

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db\teacher.mdb;Persist Security Info=False" '同上 conn.Open

conn.Execute sql

conn.Close End Sub

Public Sub endata(Keyasc As Integer)

If Keyasc = 13 Then '回车键的ASC码是13 SendKeys "{TAB}" '将回车键转换成Tab键 End If

End Sub

在用户登陆的时候，为了防止用户恶意登陆，采用了登陆次数的限制，代码如下：

Public n As Integer

Private Sub Command1_Click()

Dim mrc As ADODB.Recordset

txtsql = "select * from oper where 用户名='" & _

Trim$(Text1(0).Text) & "'" & " And 口令 = '" & Trim$(Text1(1).Text) + "'" Set mrc = exesql(txtsql)

If mrc.RecordCount = 0 Then '未找到用户记录