module1.bas

学生作业管理系统 1、能够随时查询学生的各种成绩 2、能够计算出学生的综合成绩 3、设计报表打印出学生的综合成绩 4、能够输入各种实际数据 5、其他约定： a.缺勤超过两次考勤成绩为0

Attribute VB_Name = "Module1"
Public ModifyStFlag1 As String  '标示要修改的学生信息
Public ModifyStFlag2 As Boolean
Public modifyGrFlag1 As String
Public modifyGrFlag2 As Boolean


'执行sql语句的函数
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
  Dim cont As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strConnection As String
  Dim strArray() As String
  Set cont = New ADODB.Connection    '创建连接
  Set rs = New ADODB.Recordset
  On Error GoTo transactsql_error
      strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\db1.mdb;"
      strConnection = strConnection & "Persist Security Info=False;Jet OLEDB:Database Password='txm'"
      strArray = Split(sql)         'Split() 返回一个下标从零开始的一维数组
      cont.Open strConnection        '打开连接
      If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
          rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
          Set TransactSQL = rs
          iflag = 1
      Else
          cont.Execute sql
          iflag = 1
      End If
transactsql_exit:
      Set rs = Nothing
      Set cont = Nothing
      Exit Function
transactsql_error:
      MsgBox "查询错误：" & Err.Description
      iflag = 2
      Resume transactsql_exit
End Function