module1.bas

一个基于SQL的教师管理系统 数据库文件在教师信息管理系统文件夹下的“db”文件夹中。

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 '用于执行sql语句，且返回执行结果
   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